エクセルマクロ(VBA)で指定したセルが変化したときに実行するには？

質問

VBAでsheetの中のworksheet_changeなどでマクロを書くと、そのシー
トの中のどのセルを変化させてもマクロが実行されるのですが、これ
を、A1とc1とc2が変化したときだけ処理を実行させたいのです。

以下のマクロのどこかを編集すると、そのようなことが出来るのでし
ょうか？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
----実行する内容----
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
----実行する内容----
End Sub

回答No.1

marbin · ベストアンサー

↓のような感じでイベントの発生を制御できます。

'A1セル以外が変更されたら何もしない
If Intersect(Target, Range("A1,C1,C2")) Is Nothing Then Exit Sub

お礼

ありがとうございます。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
これに組み込んで出来ました。
intersect　いろいろと使えそうですね

回答No.4

imogasi

（１）セル範囲の行（Target.Row）や列（Target.column)を見て、以下や以上かのIF文でチェック
（２）セル番地をArray関数で定義しておき、Targetと１つづつ該当するかチェック。飛び離れたセルなどのとき
（３）セル範囲（Range)とTargetがInterseectするか判別。
http://www.geocities.co.jp/SiliconValley-SanJose/9236/subdoc2/0186.htm
Intersect VBAで照会のこと。

お礼

このサイト、古いですが、基本的なことがいろいろ書かれていますね。
ありがとうございます。

回答No.3

venzou

回答はでてますが、念のため。

ご存知かもしれませんが、処理の中でセルの内容を書き換える場合は Application.EnableEvents の設定を忘れずに行ってください。これを忘れると無限にイベントが呼び出される恐れがあります。

Private Sub Worksheet_Change(ByVal Target As Range)
'Targetの範囲チェック処理
Application.EnableEvents = False
'更新処理
Application.EnableEvents = True
End Sub

お礼

そんな処理が必要なときもあるんですね。勉強になります

回答No.2

marbin

#1です。

>'A1セル以外が変更されたら何もしない

↓の間違いでした。

'A1、C1、C2セル以外が変更されたら何もしない