如何通过双击将日期输入到Excel单元格中，但只能使空单元格生效

Question

所以我目前有一个工作表，其中包含多个填充公式的单元格，但我使用双击功能来填充今天日期的特定单元格。这对我有用，因为我制作了工作簿，但是我要把这本书送出来，我想确保其他工作人员不要不小心通过双击它来写今天的公式。所以我的想法是在宏中构建一个if if语句来检查单元格中是否已有数据。不幸的是，我无法让它工作。

我目前的代码是

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 Target Is Nothing替换为If IsEmpty(Target) Then

Answer 2

非宏观方法作为替代方案：

Ctrl + :，在第一个空单元格中输入（比如A1）。
选择范围。
Ctrl + g， Alt + s， Alt + k， OK < / KBD>
=A1， F4 ， Ctrl + 输入。