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