如何在 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 應用程式,每次我們在單元格上雙擊時,我們都可以看到當前時間顯示在工作表上,如下面的影像所示。

結論

在本教程中,我們使用一個簡單的示例來演示如何透過雙擊突出顯示特定資料集來將當前日期和時間新增到 Excel 中的單元格。

更新於: 2023年1月3日

2K+ 閱讀量

開啟你的 職業生涯

透過完成課程獲得認證

立即開始
廣告

© . All rights reserved.