我做表格的时候，双击A1表格就能显示当天的日期。那为高手指点下。谢谢。

我做表格的时候，双击A1表格就能显示当天的日期。那为高手指点下。谢谢。

单个工作表中的A1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then Target.Value = Date
End Sub

单个工表中的A列

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then Target.Value = Date
End Sub

单个工作表的A1到A100

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Row < 101 Then Target.Value = Date
End Sub

工作薄中所有工作表的A列

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 1 Then Target.Value = Date
End Sub