投稿/コメントを表示します。

エクセルマクロ「イベントとフォーム」講座
複数セルを同時に編集する際の注意点

田中 宏明さんの投稿

(投稿ID: 4203)

Worksheet_Change イベントで不具合が出ない方法を習得できました。
これからはイベントプロシージャを積極的に使ってみます。
Private Sub Worksheet_Change(ByVal Target As Range)
    Debug.Print Target.Row & "-" & Target.Column
    
    '複数セル選択時は処理しない
    If Target.Count > 1 Then Exit Sub
    
    '対象行でない場合は処理しない
    If Target.Column <> 2 Then Exit Sub

    'メインの処理（現在時刻を自動出力）
    If Target.Value <> "" Then
        If Target.Offset(, 2).Value = "" Then
            Target.Offset(, 2).Value = Now
        ElseIf Target.Offset(, 3).Value = "" Then
            Target.Offset(, 3).Value = Now
        End If
    End If
End Sub

2018/10/12 05:56