Открытие списка в combobox в userform при быстром переключении

Пользователь

Сообщений: 26 Регистрация: 12.02.2017

29.04.2017 16:20:53

Здравствуйте, подскажите, пожалуйста, как можно сделать открытие списка в combobox в форме при переключении между разными элементами.
То есть, форма открылась фокус стоит сразу на textbox, нажимаю tab и фокус падает на combobox и в этот момент у этого combobox должен открыться список.
Знаю, что выпадающий список открывается командой DropDown, но куда бы не прописываю, нужного эффекта нет.

Karataev

Пользователь

Сообщений: 2309 Регистрация: 23.10.2014

29.04.2017 16:55:01

Событие "ComboBox1_Enter" сработает, когда фокус перейдет в CombBox:

Код
Private Sub ComboBox1_Enter() Me.ComboBox1.DropDown End Sub

balagancha

Пользователь

Сообщений: 26 Регистрация: 12.02.2017

29.04.2017 17:25:14

Karataev, спасибо, работает, но когда идут несколько combobox друг за другом, почему-то список открывается через один combobox, если в предыдущем не выбрано значение. Можно это изменить, вот это не помогло:

Код
If Me.ComboBox1 = "" Then Me.ComboBox2.DropDown

Изменено: balagancha - 29.04.2017 17:25:48

Karataev

Пользователь

Сообщений: 2309 Регистрация: 23.10.2014

29.04.2017 17:56:22

Для каждого ComboBox'а используйте два события:

Код

Private Sub ComboBox1_Enter()
    Me.ComboBox1.DropDown
End Sub

Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 9 Then Me.ComboBox1.DropDown
End Sub

Событие "ComboBox1_Enter" для пользователя - чтобы когда пользователь щелкал в комбобоксе появлялся список.
Событие "ComboBox1_KeyUp" для клавиши "Tab".

balagancha Пользователь Сообщений: 26 Регистрация: 12.02.2017	#5 29.04.2017 19:06:24 Karataev, Спасибо огромное!