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

当我们需要在 Excel 中多次添加当前日期或时间时，这可能是一个耗时的过程，因此我们可以通过添加一个快捷方式来简化这个过程。阅读本教程，了解如何使用 Excel 中的双击功能来自动在单元格中添加或输入当前日期或时间。

在 Excel 中双击单元格自动添加/输入当前日期

我们将在此处向工作表添加一些 VBA 代码，每次我们在单元格中双击时都会显示日期。让我们看一个简单的过程来了解如何在 Excel 中通过双击自动将当前日期添加到单元格。

步骤 1

考虑创建一个新的 Excel 工作表，并右键单击工作表名称以打开 VBA 应用程序，然后将程序输入到文本框中，如下面的图像所示。

程序

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

在代码中，范围 A1:B10 表示我们的代码将起作用的范围。

步骤 2

现在将工作表另存为启用宏的工作表，使用“Alt + Q”命令关闭 VBA 应用程序，每次我们在单元格上双击时，我们都可以看到当前日期显示在工作表上，如下面的图像所示。

在 Excel 中双击单元格自动添加/输入当前时间

在本节中，我们将 VBA 代码插入到工作表中，然后当我们在单元格中双击时，将显示日期和时间。让我们看一个简单的示例，了解如何在 Excel 中通过双击将当前时间添加到单元格。

步骤 1

考虑创建一个新的 Excel 工作表，并右键单击工作表名称以打开 VBA 应用程序，然后将程序输入到文本框中，如下面的图像所示。

程序

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

步骤 2

现在将工作表另存为启用宏的工作表，使用“Alt + Q”命令关闭 VBA 应用程序，每次我们在单元格上双击时，我们都可以看到当前时间显示在工作表上，如下面的图像所示。

Explore our latest online courses and learn new skills at your own pace. Enroll and become a certified expert to boost your career.

结论

在本教程中，我们使用一个简单的示例来演示如何通过双击突出显示特定数据集来将当前日期和时间添加到 Excel 中的单元格。

更新于： 2023年1月3日

2K+ 阅读量

开启你的 职业生涯

通过完成课程获得认证

立即开始
广告