如何通過雙擊將日期輸入到Excel單元格中，但是它隻影響空單元格

Question

因此，我目前有一個工作表，其中有多個單元格填充了公式，但我使用雙擊功能來填充特定單元格以及今天日期。這對我有用，因爲我製作了工作簿，但是我要把這本書發出去，並且我想確保其他工作人員不會意外地在今天通過雙擊寫上一個公式。所以我的想法是在宏中加入if then語句來檢查單元格是否已經有數據。不幸的是我不能得到它的工作。

我當前的代碼是

Private Sub WorkSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
Target = Date 
Cancel = True 
End Sub 

我的嘗試是

Private Sub WorkSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
If Target Is Nothing Then 
Cancel = True 
Target = Date 
End If 
End Sub 

感謝您的幫助

Answer 1

您可以If IsEmpty(Target) Then

Answer 2

非宏觀的角度作爲替代If Target Is Nothing替代方案：

Ctrl + :，在第一個空單元格（例如A1）中輸入。
選擇範圍。
按Ctrl +g，Alt鍵 + s，Alt鍵 + k，OK
=A1，F4，按Ctrl +輸入。