日付のシングルクリックVBAコードExcel 2010

Question

日付は、その行の列AからCのセルを1回クリックするだけで列Aのセルに表示されます。そのためのコードはありますか？ここで

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