Excel VBA今日跳转按钮调试优化求助：对齐与多工作表适配

需求与现有问题 #

需求 #

• 点击按钮跳转至当日日期对应的单元格
• 日期单元格内容左对齐显示
• 实现多工作表的后台定位（所有工作表都定位到当日日期）

现有代码问题 #

1. Cells(lngZeile, Columns.Count).Select语句触发调试错误
2. 仅首个工作表能正确跳转至日期单元格
3. 跳转后日期单元格显示在视图中间，无法左对齐到视图左侧

修正后的代码 #

' Heute Button
Private Sub CommandButton1_Click()
    Dim lngZeile As Long
    Dim lngSpalte As Long
    Dim suchDatum As Date
    Dim Sht As Worksheet
    Dim targetCell As Range
    Dim originalSheet As Worksheet
    
    ' 记录初始激活的工作表，避免操作后切换到最后一个工作表
    Set originalSheet = ActiveSheet
    ' 关闭屏幕更新，提升运行速度并避免闪烁
    Application.ScreenUpdating = False
    suchDatum = Date
    lngZeile = 5
    
    ' 遍历工作簿中所有工作表
    For Each Sht In ThisWorkbook.Sheets
        With Sht
            Set targetCell = Nothing
            ' 在第5行的U列到HS列范围内查找当日日期
            For lngSpalte = .Range("U5").Column To .Range("HS5").Column
                If IsDate(.Cells(lngZeile, lngSpalte).Value) Then
                    If CDate(.Cells(lngZeile, lngSpalte).Value) = suchDatum Then
                        Set targetCell = .Cells(lngZeile, lngSpalte)
                        Exit For
                    End If
                End If
            Next lngSpalte
            
            ' 如果找到匹配的日期单元格
            If Not targetCell Is Nothing Then
                ' 设置单元格内容左对齐
                targetCell.HorizontalAlignment = xlLeft
                ' 激活当前工作表并定位到目标单元格
                .Activate
                targetCell.Select
                ' 将视图滚动到目标列的左侧，实现单元格左对齐显示
                ActiveWindow.ScrollColumn = targetCell.Column
            End If
        End With
    Next Sht
    
    ' 恢复初始激活的工作表
    originalSheet.Activate
    ' 开启屏幕更新
    Application.ScreenUpdating = True
End Sub

关键修正说明 #

1. 解决Cells(...)报错问题

   • 所有单元格和区域引用都通过With Sht绑定当前循环的工作表，加上.前缀，避免因工作表切换导致的引用混乱，彻底解决原代码中的选择错误。
   • 移除了无意义的Cells(lngZeile, Columns.Count).Select语句，改用更直接的滚动控制逻辑。

2. 解决仅首个工作表跳转的问题

   • 为每个工作表单独执行日期查找逻辑，用targetCell变量记录当前工作表的匹配单元格，确保每个工作表都完成定位操作，不会因之前的循环导致后续工作表跳过查找。

3. 解决视图中间显示的问题

   • 添加ActiveWindow.ScrollColumn = targetCell.Column，强制将目标列滚动到视图左侧，实现单元格在视图中左对齐的需求。
   • 新增targetCell.HorizontalAlignment = xlLeft，确保单元格内的日期内容本身也是左对齐的。

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