как закрыть список combobox или метод обратный dropdown

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

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

17.11.2016 14:21:22

на форме есть combobox, в событии combobox_KeyUp я собираю новый список из диапазона ячеек на листе на основании введенного значений (например ввел букву а, собрался список со словами которые начинаются на букву "а" и т.д), но когда таких совпадений нет, то под комбобоксом продолжает висеть список с одной пустой строкой, мне нужно ее скрыть

Код

Private Sub combobox_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'..........
Call сформировать_список(combobox.value)
If combobox.ListCount = 1 And combobox.List(0) = "" Then
    свернуть список???
else
    combobox.DropDown
end if
'...........
end sub

Изменено: guzen_pilot - 17.11.2016 14:22:12

Помогли? отпишись, а то мы же волнуемся )))

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#2 17.11.2016 17:54:00 http://www.cyberforum.ru/vba/thread1377642.html Изменено: Казанский - 17.11.2016 17:54:14

guzen_pilot

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

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

17.11.2016 19:22:59

Казанский, спасибо, я у себя так и делаю, метод "туда-сюда", т.е.

Код
combobox2.setfocus 'фокус на другой объект combobox1.setfocus 'возвращаем фокус

но это колхоз, а по другому неполучается

Помогли? отпишись, а то мы же волнуемся )))