[[20051206133554]]　『VBA：MsgBoxを１回だけ表示させたい』（masabou5）　ページの最後に飛ぶ

『VBA：MsgBoxを１回だけ表示させたい』（masabou5）

      A      B      C
 1    5      23     6
 2    8      42     9
 3    7      4      31

 上記のような表があり、２桁の数値があれば、MsgBoxで表示させていますが、
 下記のプロシージャでは、３回出てきます。
 これを何個あっても、１回だけ”２桁の数値があります”というように表示させたいのですが、
 どうすればいいのでしょうか？よろしくお願いします｡

 Sub Test()
  For Each cc In Range("A1:C3")
    If Len(cc.Value) = 2 Then MsgBox "２桁の数字があります。"
  Next
 End Sub

 exit subで抜けるようにしてください。

     If Len(cc.Value) = 2 Then
           MsgBox "２桁の数字があります。"
           exit sub '追加
     end if

  (INA)

 INAさん、早速ありがとうございました｡
 出来ました、なかなか出来ず、悩んでいました。感謝です。（masabou5）

コメント返信：