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

ms excelmicrosoft technologiescomputers更新于 2024/9/21 2:20:17

在 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