[XL]指定したセルにデータが入力された時プロシージャを自動実行する方法

詳細

ワークシートのセルに数式バーを使ってデータを入力するか、またはセル内でデータの編集を行ったときに実行したいプロシージャを設定するには、Application オブジェクトの OnEntry プロパティを使用します。

サンプル

次のサンプル モジュールでは、ワークシート "Sheet1" のセル A1 にデータが入力されたら、MsgBox 関数を使用しメッセージを表示しています。
Auto_Open はブックがオープンされたときに自動的に実行されます。
サブルーチン OnEntryuSub はワークシート "Sheet1" にデータが入力されるたびに実行されます。サブルーチン OnEntryuSub 内でアクティブセルが A1 かどうかの判定を行い、アクティブセルが A1 の時だけメッセージを表示しています。

  Sub Auto_Open()
      'Sheet1 にデータが入力されたらサブルーチン "OnEntrySub" を実行する
      ActiveWorkbook.Worksheets("Sheet1").OnEntry = "OnEntrySub"
  End Sub
  Sub OnEntrySub()
      'もしアクティブセルが $A$1 であれば
      If ActiveCell.Address() = "$A$1" Then
          'メッセージを表示
          MsgBox ActiveCell.Parent.Name & " の " & ActiveCell.Address & _
              " にデータが入力されました。"
      End If
  End Sub