VBAで複数のセルに異なるプロシージャを割り当てる

Question

表題の件について，お助けいただきたいです。
現在，以下のようなコードで，複数のセルを異なるモジュールのトリガーとして割り当てようとしていますが，一つ目のものしか有効になりません。

どのようにすれば複数のセルに異なるプロシージャを割り当てることができますか？
お力添えお願いいたします。

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    Call Proc_A

    If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
    Call Proc_B

End Sub

Comments

[meg_]

> 一つ目のものしか有効になりません。
そのときのTargetは何ですか？

[bunks]

A1をクリックしてProc_Aのみ実行され，Proc_Bは実行されず，B1をクリックしても何も起こらない状態です。

Answer 1

問題は、最初のIF文です。

If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub

これは、TargetにA1が含まれない場合、関数を終了、です。

B1をクリックした場合に処理が実行されないのは、TargetがB1となるため、この文の条件「A1を含まないの」が成立するので、関数が終了するからです。

その為、TanakaHiroakiさんのご回答のように、条件成立時に処理実行をするようにに変更すれば、A1、B1とも、変更時に各々の処理が呼ばれるようになります。

以上を理解せずに、正常に動作する修正コードを適用するだけでは、コード作成能力も、不具合修正能力も向上しません。

どうすれば治るか？の前に、何が起こっているのか？を把握するようになられることをお勧めします。

また、質問文に、本来の動作仕様が明記されていないのも、気になります。

文脈などからは、以下の仕様だと推測されますが、正しいでしょうか？
・A1が変更された場合、Proc_Aを実行。
・B1が変更された場合、Proc_Bを実行。
・A1、B1とも変更された場合は、Proc_A、Proc_Bを両方実行。
特に最後が曖昧です。

正しい動作が確定していないと、不具合か否かが不明確になるばかりでなく、正しいコードも不明確になりますので、質問文でご提示いただくだけでなく、ご自身でのコード作成時にも、書き出されることをお勧めいたします。

Comments

[mako1972]

解決済みなんだからグダグダ持論展開すんなと思いませんか。
今更たいした内容ではなく。

[YT0014]

貴重なご意見ありがとうございます。今後の回答の際、参考とさせていただきます。
なお、この回答に関しては、ご意見を鑑みたうえで、このままとさせていただきます。
勝手な判断ではございますが、ご了承ください。

Answer 2

修正案を考えてみました。

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A1")) Is Nothing Then Call Proc_A

    If Not Intersect(Target, Range("B1")) Is Nothing Then Call Proc_B

End Sub

＜追記 8/11 18:50＞
Worksheet_Change イベントは、複数セルの処理でハマることが予想されます。
YT0014さんから要求仕様があいまいとのご指摘があったことを踏まえ、複数プロシージャの同時実行を禁止する場合のコードを追記しました。

Private Sub Worksheet_Change(ByVal Target As Range)
    
    '複数セルの処理追記
    If Target.Count > 1 Then
        MsgBox "複数プロシージャの同時実行を禁止します。"
        Exit Sub
    End If

    If Not Intersect(Target, Range("A1")) Is Nothing Then Call Proc_A

    If Not Intersect(Target, Range("B1")) Is Nothing Then Call Proc_B
End Sub

Comments

[bunks]

ご提案ありがとうございます！
こちらの方法を試したところ，セルのダブルクリックでそれぞれ独立に動くようになりました！

Answer 3

EndIfがないからではないでしょうか。
あるいは下記コードの通り、ElseIfを入れてみてはどうでしょうか。

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
        Call Proc_A
    ElseIf Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
        Call Proc_B
    End If

End Sub

Comments

[bunks]

ご提案ありがとうございます。
いただいたコードでElseに対応するifがありませんとでたので，Exit Subを消去したところ，セルのダブルクリックでそれぞれ独立に動くようになりました！

Answer 4

エクセルがないPCで操作しているので検証できていませんが、
msgboxの中身を確認して、select case式内のアドレスを修正していただければと思います。
（絶対参照で表示されたような気がします）

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myaddress as string

myaddress =Target.address

Msgbox  myaddress 

select case myaddress
    
case "$A$1"

    Call Proc_A

case "$B$1"

    Call Proc_B

end select

End Sub

Comments

[bunks]

コードのご提案ありがとうございます！
こちらを試したところ，求めていた挙動を示しました。