VBA Excel Combobox: проблема с прокруткой выпадающего списка

Question

Я запускаю 32-разрядную версию Excel 2010. Я создал несколько комбинированных блоков ActiveX Control, и у них есть все числа записей в их раскрывающихся списках. Дело в том, что вместо того, чтобы использовать мышь для прокрутки списка, я хочу использовать прокрутку мыши для прокрутки списка, но на самом деле это не работает. Когда я просматриваю список, он прокручивает весь список вниз, а не содержимое в нем. Так кто-нибудь знает, как добавить эту функцию к ней?

Answer 1

Я использовал этот метод, чтобы остановить удаление списка из поля со списком и перемещение по листу с помощью прокрутки мыши. Фактически это отключает прокрутку мыши, но вы можете перемещать мышь, чтобы выбрать элемент, и, если появится, нажмите правую полосу прокрутки.

1. Выберите строку (ы), где вы разместили комбо Box ActiveX и лист
2. Тип именованный диапазон в строке формул и нажмите клавишу ВВОД. например: "rngJobRoleCombo"
3. правой кнопкой мыши на элементе управления в режиме развития, и выберите "Просмотр кода"

4. Выберите GotFocus событие элемента управления

   Private Sub cboJobRole_GotFocus() 
       Me.ScrollArea = Range("rngJobRoleCombos").Address 
   End Sub 
   

5. Выберите элементы управления LostFocus событие

   Private Sub cboJobRole_LostFocus() 
       Me.ScrollArea = "" 
   End Sub 
   

Это ограничивает прокрутку мыши до адреса диапазона ячеек рабочего листа, когда элемент управления находится в фокусе.