如何在Excel中快速跳转到具有当前日期的单元格？

Private Sub Workbook_Open() UpdatebyExtendoffice20161221 Dim daterng As Range Dim DateCell As Range Dim WorkSht As Worksheet Dim dateStr As String Application.ScreenUpdating = False For Each WorkSht In Worksheets WorkSht.Select Set daterng = Range("A:A") Set daterng = WorkSht.UsedRange daterng.Select For Each DateCell In daterng DateCell.Activate ActiveCell.Select On Error Resume Next dateStr = DateCell.Value If dateStr = Date Then DateCell.Select Exit Sub End If Next Next WorkSht Application.ScreenUpdating = True Worksheets(1).Select End Sub

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！