如何通过双击将日期输入到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 +输入。