VBA ListBox/ComboBox 响应鼠标滚轮操作

一般情况下，在Excel的vba窗口中，我们是无法使用鼠标滚轮控制例如 ListBox 和 ComboBox 控件的。我们只能通过鼠标点击的方式来逐个选择选项。

我们都知道，通过鼠标滚轮快速的上下滚动候选项，以快速的定位选择选项，这是一个十分高效的操作。那么，如何在Excel的ListBox和ComboBox中通过鼠标滚轮来快速的滚动候选项呢？

引入 MouseWheel 模块

在使用鼠标滚轮前，我们需要在VBA工程界面中引入一个叫 MouseWheel 的模块。如下👇：

你可以通过 Ms VBA 鼠标滚轮钩子脚本 下载到 MouseWheel 模块。

在 ListBox 中使使用鼠标滚轮

引入 MouseWheel模块后，我们就可以在窗体中的ListBox控制中响应鼠标滚轮操作了。

Private Sub ListBox1_Enter()
    Rem 当光标进入控件时，通过将控件挂载到钩子上
    MouseWheel.ChooseHook_ListBox Me.ListBox1
End Sub

Private Sub ListBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Rem 在退出控件时，解除钩子
    MouseWheel.uHook
End Sub

以上👆脚本中，我们在控件的Enter事件中，通过MouseWheel模块将鼠标滚轮事件挂载到了ListBox控制上。如此以来，当鼠标滚动时，则控件的选项将跟随鼠标滚动上下翻动。

以上👆脚本中，我们在控件的Exit事件中，解除了鼠标滚轮勾子。如此以来，我们在下一个需要控制的ListBox或者comboBox控件中，就可以重复使用鼠标滚轮的钩子了。

在 ComboBox 中使用鼠标滚轮

引入 MouseWheel模块后，我们就可以在窗体中的ComboBox控制中响应鼠标滚轮操作了。

Private Sub ComboBox1_Enter()
    Rem 当光标进入控件时，通过将控件挂载到钩子上
    MouseWheel.ChooseHook_ComBox Me.ComboBox1
End Sub

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Rem 在退出控件时，解除钩子
    MouseWheel.uHook
End Sub

以上👆脚本中，我们在控件的Enter事件中，通过MouseWheel模块将鼠标滚轮事件挂载到了ComboBox控制上。如此以来，当鼠标滚动时，则控件的选项将跟随鼠标滚动上下翻动。

以上👆脚本中，我们在控件的Exit事件中，解除了鼠标滚轮勾子。如此以来，我们在下一个需要控制的ListBox或者comboBox控件中，就可以重复使用鼠标滚轮的钩子了。

小结

以上例子，说明了如何在Excel、Word、Access等支持 VBA 的 Ms Office 家族产品中响应鼠标滚轮操作的方法。

以上完整的演示例程见：鼠标滚轮控制 combox/listbox 控件选项演示

如果有任何问题，欢迎评论区讨论。