如何用VBA实现Excel表格日期行的按月跳转箭头按钮功能？

你的原有代码仅实现了选中单元格向右移动一列的功能，并未根据日期逻辑定位到下月1号对应的单元格，因此无法满足需求。以下是符合要求的VBA代码：

右箭头宏（跳转到下月1号） #

Sub JumpToNextMonthFirst()
    Dim currentDate As Date
    Dim targetDate As Date
    Dim targetCell As Range
    
    ' 校验是否选中第6行的日期单元格
    If ActiveCell.Row <> 6 Then
        MsgBox "请先选中第6行的日期单元格！"
        Exit Sub
    End If
    
    currentDate = ActiveCell.Value
    ' 计算下月1号的日期
    targetDate = DateSerial(Year(currentDate), Month(currentDate) + 1, 1)
    
    ' 在第6行的日期范围内查找目标日期
    Set targetCell = Rows(6).Range("E6:NE6").Find(What:=targetDate, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not targetCell Is Nothing Then
        ' 选中目标单元格并滚动到视图可见区域
        targetCell.Select
        ActiveWindow.ScrollRow = targetCell.Row
        ActiveWindow.ScrollColumn = targetCell.Column
    Else
        MsgBox "已到达最后一个月份，没有下月1号的日期！"
    End If
End Sub

左箭头宏（跳转到上月1号） #

Sub JumpToPreviousMonthFirst()
    Dim currentDate As Date
    Dim targetDate As Date
    Dim targetCell As Range
    
    ' 校验是否选中第6行的日期单元格
    If ActiveCell.Row <> 6 Then
        MsgBox "请先选中第6行的日期单元格！"
        Exit Sub
    End If
    
    currentDate = ActiveCell.Value
    ' 计算上月1号的日期
    targetDate = DateSerial(Year(currentDate), Month(currentDate) - 1, 1)
    
    ' 在第6行的日期范围内查找目标日期
    Set targetCell = Rows(6).Range("E6:NE6").Find(What:=targetDate, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not targetCell Is Nothing Then
        ' 选中目标单元格并滚动到视图可见区域
        targetCell.Select
        ActiveWindow.ScrollRow = targetCell.Row
        ActiveWindow.ScrollColumn = targetCell.Column
    Else
        MsgBox "已到达第一个月份，没有上月1号的日期！"
    End If
End Sub

使用方法 #

1. 打开Excel的VBA编辑器（按Alt + F11）
2. 将上述代码粘贴到对应的模块中
3. 返回Excel界面，右键点击左箭头图片，选择「指定宏」，选中JumpToPreviousMonthFirst宏
4. 同理，右键点击右箭头图片，指定JumpToNextMonthFirst宏

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