Excelでセルの値が変更されたときにマクロを実行するにはどうすればよいですか？

通常、ExcelではF5キーまたは「実行」ボタンを押してVBAコードを実行できます。しかし、セルの値が変更されたときに特定のマクロコードを実行しようとしたことはありますか？この記事では、Excelでこの作業を行うための簡単な方法をいくつか紹介します。

特定のセルの値が変更されたときにVBAコードを使用してマクロを実行または呼び出す

範囲内のいずれかのセルの値が変更されたときにVBAコードを使用してマクロを実行または呼び出す

特定のセルの値が変更されたときにVBAコードを使用してマクロを実行または呼び出す

セルの値を変更してマクロコードを実行するには、次のVBAコードが役立ちます。以下の手順に従ってください：

1. セルの値が変更された場合にマクロを実行したいシートタブを右クリックし、コンテキストメニューから「コードの表示」を選択します。開いたMicrosoft Visual Basic for Applicationsウィンドウで、次のコードを空白のモジュールにコピーして貼り付けます：

VBAコード: セルの値が変更されたときにマクロを実行する：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Call Mymacro
    End If
End Sub

注: 上記のコードでは、A1はコードを実行する基準となる特定のセルであり、Mymacroは実行したいマクロ名です。必要に応じてこれらを変更してください。

2. そして、コードウィンドウを保存して閉じます。これで、A1セルに値を入力または変更すると、特定のコードが即座にトリガーされます。

範囲内のいずれかのセルの値が変更されたときにVBAコードを使用してマクロを実行または呼び出す

範囲内のいずれかのセルの値が変更されたときにマクロを実行またはトリガーしたい場合、次のコードが役立つかもしれません。

1. セルの値が変更された場合にマクロを実行したいシートタブを右クリックし、コンテキストメニューから「コードの表示」を選択します。開いたMicrosoft Visual Basic for Applicationsウィンドウで、次のコードを空白のモジュールにコピーして貼り付けます：

VBAコード: 範囲内のいずれかのセルの値が変更されたときにマクロを実行する：

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B100")) Is Nothing Then
Call Mymacro
End If
End Sub

注: 上記のコードでは、A1:B100はコードを実行する基準となる特定のセルであり、Mymacroは実行したいマクロ名です。必要に応じてこれらを変更してください。

2. そして、コードウィンドウを保存して閉じます。これで、A1:B100のいずれかのセルに値を入力または変更すると、特定のコードが即座に実行されます。

関連記事：

Excelで印刷前にマクロを自動的に実行するにはどうすればよいですか？

Excelでセルの値に基づいてマクロを実行するにはどうすればよいですか？

Excelでドロップダウンリストから選択した値に基づいてマクロを実行するにはどうすればよいですか？

Excelでハイパーリンクをクリックしてマクロを実行するにはどうすればよいですか？

ワークブックからシートが選択されたときにマクロを実行するにはどうすればよいですか？