2回表示されてしまうMsgBoxを1回表示にしたい

前提・実現したいこと

windows10 Excel2013にて、エラーチェック機能のある表を作成しています。

L10:L25及びN10:N25にドロップダウンリストの設定がしてあり、そのドロップダウンリストはOFFSET関数により別シートから参照しています。
O10:O25にはIF関数が入っており、L10:L25及びN10:N25で選択した値によって決まった値を返しますが、IFERROR関数も入っており、IF関数に合致しない値が選択された場合、返す値は0になります。
また、N10:N25には条件付き書式が設定してあり、O10:O25の値が0の場合、赤く塗りつぶすようになっています。

以上を前提条件として、N10:N25が赤く塗りつぶされたとき、エラーのMsgBoxが表示されるようにしたいです。

発生している問題・エラーメッセージ

MsgBoxを表示させるところまではできたのですが、なぜかそのMsgBoxが２回表示されてしまいます。
よくエラーが発生するため、毎度２回表示されてしまうのは非常に煩わしく、１回のみの表示にしたいです。

該当のソースコード

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rng As Range
Set rng = Intersect(Target, Range("N10:N25"))

If rng Is Nothing Then Exit Sub

Dim c As Range

For Each c In rng.Cells

If c.DisplayFormat.Interior.Color = vbRed Then
MsgBox "該当データが存在しません。"
Exit For
End If

End Sub

試したこと

初心者ながら、エラーの場合、N10:N25のドロップダウンを選択した時点でO10:O25に0が入力され、N10:N25が赤く塗りつぶされてしまうため、「ドロップダウン選択」及び「セルの値確定」の２段処理がなされてしまうのでは？と思い、また別に列を設け、塗りつぶしをそちらに設定したり、IF関数の結果をそちらに飛ばしたりしましたが、やはり原因は他にあるようです。

補足情報（FW/ツールのバージョンなど）

FW等は申し訳ありませんがわかりません。
あまりパソコンに強くないもので、わかりづらいところが多いかと思いますが、何卒、よろしくお願いします。

yo_u

2021/01/29 04:45

状況が発生するときは、N10:N25のドロップダウンリストを選択したときですよね？そのタイミングで同じシート内（N10:N25の範囲）で、他にWorksheet_Changeが発生するような処理は入っていませんか？回答を書いたのですが、「N10:N25が赤く塗りつぶされたとき、エラーのMsgBoxが表示されるようにしたいです。」というご希望にそもそも添えていないと感じたのと、上記質問の部分が解決してないので、削除依頼を出しています。申し訳ありません。

Terner

2021/01/29 05:07

この質問板を使用するのが初めてで、前回のご回答にコメントをしてしまいました。申し訳ありません。コメントさせていただいたとおり、N10:N25を赤く塗りつぶす動作と、エラー表示が出る動作が別立てでも構いません。また、同じシート内に他の処理は何も入れていません。

yo_u

2021/01/29 05:30

エラーメッセージを出すタイミングで、セルの色を変えればよいのではないかと思ったのですが、 Worksheet_Changeが２回発生することは別問題なので。。。 msuguruさんの回答にもある通り、私も自分のところで試してみたのですが、 Ternerさんが書かれている条件だけでは１回しか発生しませんでした。一度、N10:N25の範囲を狭めて１つのセルだけを対象にしてみてはいかがでしょうか？

Terner

2021/01/29 05:50

わかりました。また色々試してみてできなさそうでしたらご質問させていただきます。ありがとうございました。

yo_u

2021/01/29 05:50

ちなみに、O10:O25の値が０かどうかで判断するには If c.DisplayFormat.Interior.Color = vbRed Then を If 0 = Cells(ActiveCell.Row, ActiveCell.Column + 1).Value Then にしてしまえばいいだけです。ただ、上記の通りWorksheet_Changeの２回発生する問題の解決にはなっていません。。。

行動規範の内容に同意します

回答1件

上記サンプルコードを動作させた所、正常に1回のみ判定されておりif文などに問題はなさそうでした。
Worksheet_Changeイベントは同Worksheet内で値が変更される（VBAプログラムを含む）度に走るのでその影響も考慮する必要がありそうです。
Application.EnableEvents = Falseで連鎖は止められますがどのタイミングでtrueに戻すかという問題もあります。
Worksheet_Changeイベントが反応しているタイミングを調査して対処した方が良いかもしれません。

投稿2021/01/29 04:40

編集2021/01/29 05:03