ダブルクリック

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Target.Value = Date
Cancel = True
ElseIf Target.Column = 2 Then
Target.Value = Time
Cancel = True
End If
End Sub