VBA Excel イベントの利用（Worksheet_SelectionChange）

Excelで選択範囲を変更した場合に発生するイベントを利用したプログラムです。選択した範囲とD5:E14　という範囲が重なっている領域に、時刻を記入します。




Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim MyRange As Range
    Set MyRange = Application.Intersect(Target, Range("D5:E14"))
    If Not MyRange Is Nothing Then MyRange.Value = Time
    Set MyRange = Nothing

End Sub