如何在Excel中创建跳转至指定年份列的命令并调整滚动步长？

一、输入年份自动跳转对应列 #

• 先指定一个「显示年份」输入单元格：选一个不影响数据的单元格（比如X1），右键点击→「定义名称」，把它命名为「显示年份」。
• 按Alt + F11打开VBA编辑器，在左侧工程窗口找到你的目标工作表（比如Sheet1），双击打开代码窗口，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 监控「显示年份」单元格，这里假设是X1，可根据实际修改地址
    If Target.Address = "$X$1" And Target.Value <> "" Then
        Dim yearCol As Range
        ' 在冻结的首行（第1行）精确查找输入的年份
        Set yearCol = Rows(1).Find(What:=Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
        If Not yearCol Is Nothing Then
            ' 跳转到该列第2行（避开冻结首行），同时保证首列可见
            Application.Goto Reference:=Cells(2, yearCol.Column), Scroll:=True
        Else
            MsgBox "未找到该年份"
        End If
    End If
End Sub

• 返回Excel，在「显示年份」单元格输入目标年份回车，就能自动跳转到对应列。

二、设置底部滚动条每次点击滚动36列 #

Excel没有手动修改滚动步长的选项，用VBA实现：

• 按Alt + F11打开VBA编辑器，右键工程窗口→「插入」→「模块」，粘贴以下代码：

Sub SetScrollStep()
    ' 设置当前工作表水平滚动条每次点击滚动36列
    ActiveWindow.HorizontalScrollBar.LargeChange = 36
End Sub

• 按F5运行宏，之后点击底部滚动条的箭头或空白区域，每次就会滚动36列。
• 如果要每次打开文件自动生效，把代码移到ThisWorkbook的Workbook_Open事件里：

Private Sub Workbook_Open()
    ActiveWindow.HorizontalScrollBar.LargeChange = 36
End Sub

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