Посмотрел куча справок, но так и не нашел ответ казалось бы на простой вопрос по началу. Каким способом можно вызвать загрузку данных в остальные части формы, при клике на элемент комбобокса??? [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] Ну я не нашел ничего, как можно обратится к событию клик по списку. *Сам список динамический заданный на листе, приэтом элементы списка находятся не по порядку, а через интервал ячеек. (Но это вроде я сделал сам).
Посмотрел куча справок, но так и не нашел ответ казалось бы на простой вопрос по началу. Каким способом можно вызвать загрузку данных в остальные части формы, при клике на элемент комбобокса??? [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
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]
все намного проще как оказалось
такс я извиняюсь кажется я сам понял какую тупость написал ранее ))) [vba]
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