VBAでメッセージボックスを表示したい

Question

前提・実現したいこと

excel VBAでシート間の照合をして、間違っていれば
メッセージボックスを表示しようとしてます。
しかし、メッセージボックスが間違っている個数分
何回も表示されてしまいます。

初心者なので解決策を見いだせずにいます。
よろしくお願いします。

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

 For gyou = GYOU_S To GYOU_E '開始行から終了行まで
    For retsu = RETSU_S To RETSU_E '開始列から終了列まで
      If s1.Cells(gyou, retsu).Value <> s2.Cells(gyou, retsu).Value Then
      
      
      '同じ位置のセルの値が等しくなければ、そのセルを黄で塗りつぶす。
        s1.Cells(gyou, retsu).Interior.Color = rgbYellow
        
         MsgBox "未完成です"
       
      End If
      
      If s1.Cells(gyou, retsu).Value = s2.Cells(gyou, retsu).Value Then
      
        s1.Cells(gyou, retsu).Interior.ColorIndex = 0
       
      
      End If
    Next
  Next```

### 該当のソースコード

```ここに言語名を入力
ソースコード

試したこと

下記のコードをnextの一番外に置きましたが無理でした。

If s1.Cells(gyou, retsu).Value <> s2.Cells(gyou, retsu).Value Then

  '同じ位置のセルの値が等しくなければ、そのセルを赤で塗りつぶす。
    s1.Cells(gyou, retsu).Interior.Color = rgbYellow
    
     MsgBox "未完成です"
   
  End If

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

ここにより詳細な情報を記載してください。解決策を

Comments

[dodox86]

> メッセージボックスが間違っている個数分何回も表示されてしまいます。
やりたいことは、「間違っている部分が複数個ある場合でも、メッセージボックスは1回だけ表示したい」と言うことでしょうか。

[ttyp03]

質問内容とタイトルが一致していないので修正お願いします。質問したいことはメッセージボックスを１回にしたい、ということですよね？照合自体で困っているわけではないですよね？

[hiro.tatsu]

解答ありがとうございます。おっしゃってる通り、「間違ってる部分が複数個ある場合でも、メッセージボックスは1回だけ表示したい」ということです。

Answer 1

Dim errflg As Boolean:errflg = False

'長くなるので少しカット

If StrComp(Cstr(s1.Cells(gyou, retsu).Value),Cstr(s2.Cells(gyou, retsu).Value),vbBinaryCompare) = 0 Then

  s1.Cells(gyou, retsu).Interior.ColorIndex = 0
Else
  s1.Cells(gyou, retsu).Interior.Color = rgbYellow
  if Not errflg Then 
    MsgBox "未完成です"
  End if
  errflg = True
End If

こんな感じでしょうか？
VBAで正確な文字列判定をしたいならStrCompを使ってbinary単位で比較するのが一番ですよ。

もう一点
'同じ位置のセルの値が等しくなければ、そのセルを赤で塗りつぶす。
'同じ位置のセルの値が等しくなければ、そのセルを黄で塗りつぶす。
プログラムを見ると黄色で塗り潰されていますがどちらがやりたいの？

Comments

[hiro.tatsu]

解答ありがとうございます。すいません。コメントは赤ですが、黄色で塗りつぶしです。

Answer 2

フラグ使えばいいかと思います。
ざっくり書くとこんな感じです。

Dim errflg As Boolean
errflg = False

For ～
    For ～
         'MsgBox "未完成です"
           ↓
         errflg = True
    Next
Next
If errflg = True Then
    MsgBox "未完成です"
End If

Comments

[hiro.tatsu]

大変助かりました。ありがとうございます。無事に成功しました