如何在Excel中通过双击单元格自动添加/输入当前日期/时间？

如果需要在工作表中频繁插入当前日期或日期时间，可以尝试本文介绍的方法。本文将帮助您通过双击，在指定区域的单元格中自动添加或输入当前日期或日期时间。

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

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

您可以运行以下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 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

相关文章：

• 如何在Excel中双击单元格并在该单元格值上加1？
• 如何在Excel中通过双击在单元格中添加对勾？