如果您需要在工作表中频繁插入当前日期或日期时间，不妨试试本文介绍的方法——只需双击限定区域内的单元格，即可自动填入当前日期或时间。

使用 VBA 代码双击自动添加/输入当前日期或日期时间

使用 VBA 代码双击自动添加/输入当前日期或日期时间

太棒了！在 Excel 中像使用 Chrome、Edge、Firefox 和 Safari 一样高效地使用 Tabs！
每天为您节省 50% 的时间，并减少成千上万次鼠标点击！

只需双击单元格，即可通过以下 VBA 代码自动插入当前日期或日期时间。操作步骤如下：

1. 右键单击您希望在指定单元格中插入当前日期的工作表标签，然后从右键菜单中选择查看代码。

2. 在 Microsoft Visual Basic for Applications 窗口中，将以下 VBA 代码复制并粘贴到代码窗口即可。

VBA 代码：双击在单元格中添加当前日期

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
End Sub

注意：

3. 同时按下 Alt+Q 键，即可关闭 Microsoft Visual Basic for Applications 窗口并返回工作表。

此后，只要您在限定区域 A1:B10 内双击任意单元格，系统便会自动填入当前日期或日期时间。

借助 KUTOOLS AI 解锁 Excel 的神奇功能

• 智能执行：只需输入简单命令，即可执行单元格操作、分析数据并创建图表。
• 自定义公式：生成量身定制的公式，助您优化工作流程！
• VBA 编码：轻松编写并运行 VBA 代码。
• 公式解析：轻松掌握复杂公式，一目了然！
• 文本翻译：轻松打破电子表格中的语言障碍！