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

Question

我正在运行32位Excel 2010.我创建了多个ActiveX控件组合框，它们的下拉列表中都有多个条目。问题是，我不是使用鼠标单击滚动列表，而是使用鼠标滚动滚动列表，但它实际上不起作用。当我在列表中滚动时，它会向下滚动整个列表而不是其中的内容。那么有谁知道如何添加此功能呢？

Answer 1

我使用此方法停止从组合框中分离列表并使用鼠标滚动向下移动表单。它实际上禁用了鼠标滚动，但您仍然可以移动鼠标来选择项目，如果出现则操作右侧滚动条。

1. 选择放置ActiveX组合框和工作表
的行
2. 在公式栏中键入命名范围，然后按Enter键。例如：“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
   

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