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

这是带有日期列表的工作表，您想快速跳转到当前日期所在的单元格，如何解决此问题？

使用VBA跳转到当前日期

使用查找和替换跳转到当前日期

使用VBA跳转到当前日期

这是一个VBA代码，可以帮助您快速跳转到当前日期所在的单元格。

1.启用要使用的工作簿，然后按 Alt + F11键 键打开 Microsoft Visual Basic应用程序 窗口。

2。点击插页 > 模块，将以下代码粘贴到模块.

VBA：跳转到当前日期

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

doc跳至当前日期1

3。按 F5 键，然后光标将跳到带有当前日期的单元格，无论您在工作簿中的什么位置。
doc跳至当前日期2

使用查找和替换跳转到当前日期

如果您不熟悉VBA代码，也可以应用 查找和替换 实用程序跳转到当前日期。

1.启用包含日期列表的工作表，然后选择一个空白单元格，键入以下公式 = TODAY（），按输入键，现在您可以获得今天的日期。
doc跳至当前日期3

2。按 按Ctrl + C 复制今天的日期，然后选择日期列表，然后按 Ctrl + F 使之成为可能 查找和替换 对话框中 查找内容 文本框，按 按Ctrl + V 将今天的日期粘贴到看截图：
doc跳至当前日期4

3。点击 找到所有。现在，光标跳到所选列表中今天所在的单元格。
doc跳至当前日期5

提示： 如果你有 Kutools for Excel，您可以应用它 选择特定的单元格 快速处理此任务。功能齐全，不受限制 30 天，请下载并立即免费试用。

最佳办公效率工具

Kutools for Excel解决了您的大多数问题，并使您的生产率提高了80％

重用: 快速插入 复杂的公式，图表 以及您以前使用过的任何东西；加密单元带密码创建邮件列表并发送电子邮件...
超级公式栏（轻松编辑多行文本和公式）；阅读版式（轻松读取和编辑大量单元格）；粘贴到过滤范围...
合并单元格/行/列不会丢失数据；拆分单元格内容；合并重复的行/列...防止细胞重复；比较范围...
选择重复或唯一行; 选择空白行（所有单元格都是空的）；超级查找和模糊查找在许多工作簿中；随机选择...
确切的副本多个单元格，无需更改公式参考；自动创建参考到多张纸；插入项目符号，复选框等...
提取文字，添加文本，按位置删除，删除空间; 创建和打印分页小计；在单元格内容和注释之间转换...
超级滤镜（将过滤方案保存并应用于其他工作表）；高级排序按月/周/日，频率及更多；特殊过滤器用粗体，斜体...
结合工作簿和工作表; 根据关键列合并表；将数据分割成多个工作表; 批量转换xls，xlsx和PDF...
超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。在您的企业或组织中轻松部署。完整功能 30 天免费试用。 60 天退款保证。

阅读更多免费下载... 采购...

Office选项卡为Office带来了选项卡式界面，使您的工作更加轻松

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

阅读更多免费下载... 采购...

注释 (4)

还没有评分。成为第一位评论！

彼得

大约4年前

#26958

该评论由网站上的主持人最小化

这不适用于 VBA 代码，它只会打开一个名为“Go To”的窗口。我们是否打算以某种方式编辑 VBA 代码？

Mike

大约3年前

#31754

该评论由网站上的主持人最小化

与 Peter 相同的结果... F5 调出 GoTo。我们还尝试了 Ctrl-F5 和 Alt-F5。代码中是否有其他键序列或添加？谢谢。

海瑟姆·奥瓦德

大约2年前

#32759

该评论由网站上的主持人最小化

我是 Microsoft Office 和 Excel 的新手，但我天生就是程序员。如果目标是找到具有今天日期的单元格 - 并将光标定位到它，我看不出需要所有代码。在宏中创建一个简单的代码（如下所列），并将宏分配给一个字母说“T”，作为一个选项，您甚至可以创建一个按钮并将宏分配给它，因此当您单击该按钮时，您将直接前往该单元格。注释行（以'开头的那些）是可选的。您可以选择不输入它们。我用它们对代码进行故障排除。 “Msgbox”是与您交流的好工具。这是我的代码：------------------子 GoToToday()
'
' GoToToday 宏
'
' 键盘快捷键：Ctrl+t
'
暗淡 DateRange，DateCell 作为范围
将 i 调暗为字节
暗淡 x 作为字符串
出错时继续下一步

MySheet = ActiveSheet.Name

' 消息框（日期）
对于i = 12到130
x = "A" & 我
' 消息框 (x)
' MsgBox (工作表(MySheet).Range(x))

如果 Worksheets(MySheet).Range(x).Value = Date 那么
' 消息框 (i)
' 消息框 (x)
' MsgBox (工作表(MySheet).Range(x))
x = "D" & 我
范围(x).选择
退出小组
结束如果
下一篇：
END SUB

麦克雷克

大约2年前

#34483

该评论由网站上的主持人最小化

这个例子非常慢。您可能会修剪一些查找参数，因此请根据需要进行测试。
代码：

'在工作表中查找今天的日期并激活单元格
Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart，SearchOrder：= xlByRows，SearchDirection：= xlNext，MatchCase：= False _
，SearchFormat：= False）。激活
'-----

ActiveWindow.ScrollRow = ActiveCell.Row '滚动视图到选定的单元格

这里还没有评论

留下你的意见

以访客身份发帖

名字（必填）

电子邮件（必填）

评价此帖子：

重设

0 产品特性

我同意附带条约