Excel多工作表日历：实现自动定位当前日期及按钮跳转

一、通用跳转宏（修正后） #

下面是适配任意月份的CurrentDate_Click宏，解决了固定指定工作表的问题，同时优化了查找效率：

Sub CurrentDate_Click()
    Dim targetSheet As Worksheet
    Dim targetDate As Date
    Dim foundCell As Range
    
    ' 获取当前日期及对应月份的英文名称（匹配工作表命名）
    targetDate = Date
    Dim monthName As String
    monthName = Format(targetDate, "mmmm") ' 自动返回英文月份名，如"August"
    
    ' 检查目标月份工作表是否存在
    On Error Resume Next
    Set targetSheet = ThisWorkbook.Worksheets(monthName)
    On Error GoTo 0
    
    If targetSheet Is Nothing Then
        MsgBox "未找到对应月份的工作表：" & monthName, vbExclamation
        Exit Sub
    End If
    
    ' 在目标工作表中高效查找当前日期
    Application.ScreenUpdating = False
    Set foundCell = targetSheet.UsedRange.Find(What:=targetDate, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not foundCell Is Nothing Then
        ' 定位到目标单元格并居中显示
        Application.Goto foundCell, True
    Else
        MsgBox "在" & monthName & "工作表中未找到当前日期：" & targetDate, vbExclamation
        ' 未找到时默认跳转到工作表首行
        Application.Goto targetSheet.Range("A1"), True
    End If
    
    Application.ScreenUpdating = True
End Sub

代码优化点： #

• 自动匹配当前日期对应的月份工作表，无需手动指定
• 使用Find方法替代遍历单元格，大幅提升查找效率
• 增加工作表不存在、日期未找到的错误提示
• 移除不必要的Select/Activate操作，直接操作对象更稳定

二、实现文件打开自动跳转 #

要让文件打开时自动定位到当前日期，需要在ThisWorkbook模块中添加Workbook_Open事件：

1. 打开VBA编辑器，在左侧项目窗口双击ThisWorkbook
2. 粘贴以下代码：

Private Sub Workbook_Open()
    ' 调用通用跳转宏
    CurrentDate_Click
End Sub

三、原代码错误说明 #

你之前的第二段代码出现"Expected End Sub"错误，原因是在Worksheet_Activate事件过程中嵌套定义了Sub CurrentDate_Click——VBA不允许过程嵌套，这会直接导致编译失败。此外，要实现文件打开自动运行，应该用Workbook_Open事件，而非Worksheet_Activate（后者是工作表被激活时触发，不是文件打开时）。

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