单击日期Excel 2010的VBA代码

Question

日期显示在列A单元格中，单击该行中列A到C中的单元格。有没有代码？这里是我的代码已经显示该行的任意位置点击

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