カテゴリ選択で時間表示

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' 特定のセル範囲でダブルクリックされた場合の処理

　'A列をダブルクリックで時刻表示

    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then

        Target.value = Now

        Cancel = True ' ダブルクリック処理をキャンセル

    End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 特定のセル範囲で値が変更された場合の処理

　　'C列をのセルに値が入ったら、B列とA列に時間を入れる

    If Not Intersect(Target, Me.Range("C:C")) Is Nothing Then

        Dim lastRow As Long

        lastRow = Me.Cells(Me.Rows.Count, "A").End(xlUp).Row

        Me.Cells(lastRow, "B").value = Now

        Me.Cells(lastRow + 1, "A").value = Me.Cells(lastRow, "B").value

    End If

End Sub