使用滚轮在 Excel 中向下滚动 VBA 组合框，锁定 Excel 工作表答案

【问题标题】：Use scroll wheel to scroll down VBA combobox in Excel, lock Excel sheet使用滚轮在 Excel 中向下滚动 VBA 组合框，锁定 Excel 工作表
【发布时间】：2015-09-19 05:02:03
【问题描述】：

我目前在 Excel 中有一个工作表，上面有两个 Active X 控件组合框。这些组合框将被输入，然后出现一个下拉列表，其中包含每个框的另一个工作表中的字符串。有没有办法可以对组合框进行编程以允许通过鼠标上的滚轮向下滚动其中的项目？使用滚轮时，即使下拉菜单打开，整个工作表也会向下滚动。我想锁定工作表，使其永远无法向下滚动。

如果有解决办法，请告诉我。谢谢。

【问题讨论】：

标签： vba excel combobox

【解决方案1】：

在您的工作表上，您可以使用 Worksheet_Activate 事件下的以下内容将滚动区域限制在最适合您需要的范围内：

Private Sub Worksheet_Activate()
    Me.ScrollArea = YourViewableRange
End Sub

其中YourViewableRange 表示您要保留在屏幕上的区域。问候，

【讨论】：

嗨@nybayly，这不起作用。我输入的代码将 Me 更改为我的工作表名称 Tool.ScrollArea = "A1:I18"。然后我将属性窗口或工作表中的 scrollol 区域更改为此范围。它会起作用，直到我在保存后关闭并重新打开工作表，然后我在项目窗口中指定的范围就消失了。
你把代码放在哪里了？确保您没有将其放置在模块中，而是放在工作簿或工作表代码模块中（在 VBA 编辑器中双击工作表名称或“ThisWorkbook”）。当您说“项目窗口内指定的范围已消失”时，在我看来，这就像您在“即时窗口”上输入代码一样，它只是一个终端并且只运行一次代码。你能确认一下吗？
代码位于工具表模块中，我在其中声明了一些变量，并且位于我的第一个组合框的代码之前。我所说的消失是在属性窗口 (F4) 中，其中选项包括工作表本身的 ScrollArea、StandardWidth、Visible 等。