Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If ActiveCell.Address = "$A$9" Then ActiveCell.Value = Date End If End Sub
然后双击A9单元格即可得到当日日期 这个是A9双击得到日期, 如果想A列 所有单元格双击都得到当日日期,就将下面代码复制进去, Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If ActiveCell.COLUMN = 1 Then ActiveCell.Value = Date End If End Sub