Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/отдельное окно при нажатии на клиента - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
отдельное окно при нажатии на клиента
crystall Дата: Среда, 07.10.2015, 17:12 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый вечер! Подскажите пожалуйста, как можно сделать, что б при нажатии на ФИО клиента - вылазило отдельное небольшое окошко, с подробными его данными. ?
Заранее спасибо !
К сообщению приложен файл: _1.xls (23.0 Kb)


Сообщение отредактировал crystall - Среда, 07.10.2015, 17:12
 
Ответить
СообщениеДобрый вечер! Подскажите пожалуйста, как можно сделать, что б при нажатии на ФИО клиента - вылазило отдельное небольшое окошко, с подробными его данными. ?
Заранее спасибо !

Автор - crystall
Дата добавления - 07.10.2015 в 17:12
Manyasha Дата: Среда, 07.10.2015, 18:10 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 902 ±
Замечаний: 0% ±

Excel 2010, 2016
crystall, здравствуйте. Сделайте формочку, и вызываете ее при событии листа SelectionChange
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Count > 1 Then Exit Sub
     If Target.Column = 2 And Target.Value <> "" Then i = Target.Row: UserForm1.Show
End Sub
[/vba]
Для примера нарисовала вывод даты последнего звонка.
К сообщению приложен файл: _11.xls (44.5 Kb)


ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеcrystall, здравствуйте. Сделайте формочку, и вызываете ее при событии листа SelectionChange
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Count > 1 Then Exit Sub
     If Target.Column = 2 And Target.Value <> "" Then i = Target.Row: UserForm1.Show
End Sub
[/vba]
Для примера нарисовала вывод даты последнего звонка.

Автор - Manyasha
Дата добавления - 07.10.2015 в 18:10
crystall Дата: Среда, 07.10.2015, 23:58 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
спасибо! это понял, а как сделать что б выводилась не только дата, а и информация с другой ячейки(ниже допустим, под датой)?
 
Ответить
Сообщениеспасибо! это понял, а как сделать что б выводилась не только дата, а и информация с другой ячейки(ниже допустим, под датой)?

Автор - crystall
Дата добавления - 07.10.2015 в 23:58
Serge_007 Дата: Четверг, 08.10.2015, 05:41 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
crystall, очевидно что так:
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Count > 1 Then Exit Sub
     If Target.Column = 2 And Target.Value <> "" Then i = Target.Row + 1: UserForm1.Show
End Sub
[/vba]


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщениеcrystall, очевидно что так:
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Count > 1 Then Exit Sub
     If Target.Column = 2 And Target.Value <> "" Then i = Target.Row + 1: UserForm1.Show
End Sub
[/vba]

Автор - Serge_007
Дата добавления - 08.10.2015 в 05:41
crystall Дата: Четверг, 08.10.2015, 14:12 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
очевидно, не так... с "+1" оно берет инфу с ячейки ниже .... и всеравно показует так же, как и было
как все таки сделать, что б в окне, которое открывается при нажатии на "клиента", можно было добавить окно с выводом инфы допустим с ячейки "i", а не только с ячейки "b"
К сообщению приложен файл: 6752864.xls (44.5 Kb)


Сообщение отредактировал crystall - Четверг, 08.10.2015, 14:25
 
Ответить
Сообщениеочевидно, не так... с "+1" оно берет инфу с ячейки ниже .... и всеравно показует так же, как и было
как все таки сделать, что б в окне, которое открывается при нажатии на "клиента", можно было добавить окно с выводом инфы допустим с ячейки "i", а не только с ячейки "b"

Автор - crystall
Дата добавления - 08.10.2015 в 14:12
Manyasha Дата: Четверг, 08.10.2015, 14:24 | Сообщение № 6
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 902 ±
Замечаний: 0% ±

Excel 2010, 2016
crystall, нарисуйте в форме, что и где должно выводиться.


ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеcrystall, нарисуйте в форме, что и где должно выводиться.

Автор - Manyasha
Дата добавления - 08.10.2015 в 14:24
crystall Дата: Четверг, 08.10.2015, 14:31 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
вот, допустим, как во вложении
[moder]А потом понадобится добавить к выводу значение еще одной ячейки, и еще одной...
Нарисуйте в файле на форме.
Кто за Вас должен это делать?
[/moder]
К сообщению приложен файл: 3652506.jpg (32.6 Kb)


Сообщение отредактировал Manyasha - Четверг, 08.10.2015, 14:37
 
Ответить
Сообщениевот, допустим, как во вложении
[moder]А потом понадобится добавить к выводу значение еще одной ячейки, и еще одной...
Нарисуйте в файле на форме.
Кто за Вас должен это делать?
[/moder]

Автор - crystall
Дата добавления - 08.10.2015 в 14:31
crystall Дата: Четверг, 08.10.2015, 14:49 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
вроде так, я не силен в экселе ( извините
К сообщению приложен файл: 5340851.xls (40.5 Kb)
 
Ответить
Сообщениевроде так, я не силен в экселе ( извините

Автор - crystall
Дата добавления - 08.10.2015 в 14:49
Manyasha Дата: Четверг, 08.10.2015, 15:03 | Сообщение № 9
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 902 ±
Замечаний: 0% ±

Excel 2010, 2016
crystall, так?
[vba]
Код
Private Sub UserForm_Initialize()
    Label2.Caption = Sheets(1).Range("h" & i)
    Label4.Caption = Sheets(1).Range("i" & i)
    Label6.Caption = Sheets(1).Range("l" & i)
End Sub
[/vba]
В столбце L у Вас пусто... для примера написала туда да/нет.
К сообщению приложен файл: 5340851-1.xls (40.0 Kb)


ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеcrystall, так?
[vba]
Код
Private Sub UserForm_Initialize()
    Label2.Caption = Sheets(1).Range("h" & i)
    Label4.Caption = Sheets(1).Range("i" & i)
    Label6.Caption = Sheets(1).Range("l" & i)
End Sub
[/vba]
В столбце L у Вас пусто... для примера написала туда да/нет.

Автор - Manyasha
Дата добавления - 08.10.2015 в 15:03
crystall Дата: Четверг, 08.10.2015, 15:10 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
оно! Спасибо Вам огромное ! :)
 
Ответить
Сообщениеоно! Спасибо Вам огромное ! :)

Автор - crystall
Дата добавления - 08.10.2015 в 15:10
crystall Дата: Пятница, 09.10.2015, 14:39 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
еще, подскажите пожалуйста, при нажатии на клиента, после открытия окна, как там можно сделать окно - что б можно было писать текст, и сохранять его ?
[moder]Новый вопрос - новая тема. Читаем Правила форума[/moder]
К сообщению приложен файл: 9903465.xls (46.0 Kb)


Сообщение отредактировал Pelena - Пятница, 09.10.2015, 15:03
 
Ответить
Сообщениееще, подскажите пожалуйста, при нажатии на клиента, после открытия окна, как там можно сделать окно - что б можно было писать текст, и сохранять его ?
[moder]Новый вопрос - новая тема. Читаем Правила форума[/moder]

Автор - crystall
Дата добавления - 09.10.2015 в 14:39
Serge_007 Дата: Пятница, 09.10.2015, 23:00 | Сообщение № 12
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
не так
оно берет инфу с ячейки ниже
информация с другой ячейки(ниже допустим
Так что "не так"?!


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
не так
оно берет инфу с ячейки ниже
информация с другой ячейки(ниже допустим
Так что "не так"?!

Автор - Serge_007
Дата добавления - 09.10.2015 в 23:00
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!