VBAでセルの値が変わった時に処理(Worksheet_Change)

今回はVBAで指定したセルの値が変わった時にWorksheet_Changeプロシージャーを使ってセルの値を変更する処理を行います。

やり方を知っておけば、応用できるケースがあるので参考にしてください。

created by Rinker

マイナビ出版

30日間無料登録できる「Amazonプライム会員」に登録すれば、翌日に購入した商品が届くお急ぎ便・お届け日時指定便の指定ができるので、荷物をなるべく早く受け取りたい人にオススメ！

無料体験期間中もAmazonプライムビデオや1億曲以上聞き放題のAmazon Musicなど、すべてのプライム会員特典がセットになっています！

　　30日間の無料体験はこちら！　　

うめ

30日間以内に解約すれば費用は発生しません！

Worksheet_Changeプロシージャー
コード
解説

Worksheet_Changeプロシージャー

Worksheet_Changeの準備

操作するシート(Sheet 1)をクリック
Worksheetを選択
Changeを選択
Worksheet_SelectionChangeプロシージャは不要なので削除

コード

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ws1 As Worksheet: Set ws1 = Worksheets("Sheet1")
Dim a As String: a = ws1.Range("C2")

With ws1
'C2セルの値が変わった時に実行
If Intersect(Target, .Range("C2")) Is Nothing Then

    Exit Sub
    
    Else
    
        If Target.Value = "" Then

　　　　　　　　　'セルが空白の場合
                .Range("C5:C7") = ""
            Else
                'セルが空白でない場合
                .Range("C5") = a & "テスト1"
                .Range("C6") = a & "テスト2"
                .Range("C7") = a & "テスト3"
        End If
        
End If

End With

End Sub