如何通过VBA代码调整Excel指定行的鼠标滚轮滚动速度？

问题根源 #

Excel默认的鼠标滚轮滚动幅度和当前行/列尺寸挂钩，行宽越大，滚轮单次滚动的行数越多，导致你无法看清上一行内容。你之前用的SmallScroll只是手动触发单次滚动，没法拦截默认的滚轮行为，所以达不到预期效果。

可行解决方案：通过类模块拦截鼠标滚轮事件 #

要自定义滚动速度，需要捕获工作表的鼠标滚轮事件，替换默认的滚动逻辑。具体步骤如下：

1. 创建类模块

   • 按Alt+F11打开VBA编辑器，右键点击项目资源管理器→插入→类模块
   • 在属性窗口将类模块名称改为clsSheetEvents
   • 粘贴以下代码到类模块中：

     Public WithEvents TargetSheet As Worksheet
     
     Private Sub TargetSheet_MouseWheel(ByVal Shift As Integer, ByVal Rotation As Integer, ByVal X As Single, ByVal Y As Single)
         Dim scrollStep As Integer
         Dim currentRow As Integer
         
         currentRow = TargetSheet.ActiveCell.Row
         
         ' 仅对第3-28行调整滚动速度
         If currentRow >= 3 And currentRow <= 28 Then
             ' 根据行宽设置滚动步长，可自定义阈值和步长
             If TargetSheet.Rows(currentRow).Width > 100 Then
                 scrollStep = IIf(Rotation > 0, -1, 1) ' 滚轮向上为负，向下为正，步长1
             Else
                 scrollStep = IIf(Rotation > 0, -3, 3) ' 正常行宽用默认步长（可调整）
             End If
             
             ' 取消默认滚动，执行自定义滚动
             Cancel = True
             TargetSheet.Activate
             ActiveWindow.SmallScroll down:=scrollStep
         End If
     End Sub
     

2. 初始化类模块

   • 打开ThisWorkbook模块，粘贴以下代码：

     Dim sheetEvents As clsSheetEvents
     
     Private Sub Workbook_Open()
         Set sheetEvents = New clsSheetEvents
         Set sheetEvents.TargetSheet = ThisWorkbook.Worksheets("sheet1") ' 替换为你的目标工作表
     End Sub
     

3. 参数调整说明

   • 行宽阈值：修改TargetSheet.Rows(currentRow).Width > 100中的100，设置触发滚动速度调整的行宽临界值
   • 滚动步长：修改scrollStep = IIf(Rotation > 0, -1, 1)中的1，数字越小滚动越慢，可按需调整

内容的提问来源于stack exchange，提问作者PYC