单击dateExcel 2010的VBA代码

date显示在列A单元格中，单击列A到C中的单元格。 有没有代码？ 这里是我已经显示的date点击行中的任何地方的代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells(Target.Row, 1) = Date End Sub 

Answer 1

试试看，

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) if not intersect(target, range("A:C")) is nothing then dim trg as range for each trg in intersect(target, range("A:C")) cells(trg.row, "A") = date next trg end if End Sub