VBA Excel Combobox：下拉列表滚动问题

我正在运行32位Excel 2010.我创build了多个ActiveX控件combobox，它们都在其下拉列表中有多个条目。 事情是，而不是使用鼠标点击滚动列表，我想用鼠标滚动滚动列表，但它实际上不起作用。 当我在列表中滚动时，它会滚动整个列表而不是其中的内容。 那么有谁知道如何添加这个function呢？

Answer 1

我用这种方法来停止列表从combobox中分离，并用鼠标滚动向下移动表格。 它实际上禁用了鼠标滚动，但是您仍然可以移动鼠标来select一个项目，如果出现右侧滚动条，则可以对其进行操作。

1. select已放置ActiveXcombobox和表单的行
2. 在公式栏中键入命名的范围，然后按Enter键。 例如：“rngJobRoleCombo”
3. 在开发模式下右键单击控件，然后select“查看代码”

4. select控件的GotFocus事件

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

5. select控件LostFocus事件

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

当控件处于焦点位置时，这将鼠标滚动限制为工作表的单元格区域地址。