Взависимости от значения combobox загружаем данные в форму

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Взависимости от значения combobox загружаем данные в форму (Макросы/Sub)

leskris

Дата: Пятница, 30.01.2015, 05:13 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 90

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016 (Office 365)

Посмотрел куча справок, но так и не нашел ответ казалось бы на простой вопрос по началу.
Каким способом можно вызвать загрузку данных в остальные части формы, при клике на элемент комбобокса???
[vba]

Код

Public Sub ComboBox_chose_app_click()
If ComboBox_chose_app.list.item.Select Then
Worksheets("app").Visible = True
Worksheets("app").Activate

If Not Range(xlWhole).find(ComboBox_chose_app.list.item.Select.Value, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
Range("a5:a1000").find(ComboBox_chose_app.list.item.Select.Value, LookAt:=xlWhole).Select
TextBox_app_status.Value = ActiveCell.Value
End If
End If
End Sub

[/vba]

Я так понимаю, что такое как я написал вообще не существует
[vba]

Код

list.item.Select

[/vba]
Ну я не нашел ничего, как можно обратится к событию клик по списку.
*Сам список динамический заданный на листе, приэтом элементы списка находятся не по порядку, а через интервал ячеек. (Но это вроде я сделал сам).

Ответить

leskris

Дата: Пятница, 30.01.2015, 05:37 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 90

Репутация: 0 ±

Замечаний: 0% ±

Excel 2016 (Office 365)

такс я извиняюсь кажется я сам понял какую тупость написал ранее )))
[vba]

Код

Public Sub ComboBox_chose_app_click()

Worksheets("app").Visible = True
Worksheets("app").Activate

If Not Range("a1:qq100").find(ComboBox_chose_app.Value, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
Range("a1:qq100").find(ComboBox_chose_app.Value, LookAt:=xlWhole).Select
TextBox_app_status.Value = ActiveCell.Value
End If
End Sub

[/vba]

все намного проще как оказалось

Ответить

Страница 1 из 1
1