2013年1月23日水曜日

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

0 件のコメント:

コメントを投稿