ExcelのVBAについて教えて下さい

セル範囲（例えばA1:D4）を変更した時にマクロを実行させたいのですが、どのようなコマンドを使えばいいのでしょうか？

No.2 ベストアンサー 回答者： nishi6 回答日時： 2001/11/29 10:00

こういうことでしょうか。

対象シートのコードウインドウに貼り付けます。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
　　Dim isect As Range '範囲A1:D4との共通部分

　　Set isect = Application.Intersect(Target, Range("A1:D4"))
　　If Not isect Is Nothing Then
　　　　'マクロ例
　　　　MsgBox "変更有り"
　　End If
End Sub

この回答へのお礼

うまくいきました。
ありがとうございました。
ただ、３行目のApplicationというのはいらなかったようです。

お礼日時：2001/11/29 12:25

No.1 回答者： peso 回答日時： 2001/11/28 19:26

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

マクロ

End Sub

のようなかんじでしょうか？

この回答へのお礼

早速の回答ありがとうございました。
説明が足りなかったので誤解されているようですので補足を・・・

指定した一つのセルが変更された時はできるのですが、複数のセルのいずれかが変更された時ができないんです。

お礼日時：2001/11/28 21:21