1回で済ませるには？ (ID:83294)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 If txtNo1 = "1" Or txtNo1 = "2" Then MsgBox "項目名："１" & vbNewLine & "入力必須", _ vbOKOnly + vbExclamation, "TEST" txtNo1.SetFocus Exit Sub End If If txtNo2 = "1" Or txtNo2 = "2" Then MsgBox "項目名："２" & vbNewLine & "入力必須", _ vbOKOnly + vbExclamation, "TEST" txtNo2.SetFocus Exit Sub End If If txtNo3 = "1" Or txtNo3 = "2" Then MsgBox "項目名："３" & vbNewLine & "入力必須", _ vbOKOnly + vbExclamation, "TEST" txtNo3.SetFocus Exit Sub End If これを別のやり方でやるにはどのようにしたらよいでしょうか？ 例えばループなど。 何回も同じ事を書かない方法が知りたいのです。。。 あさからず〜っとやっておりますがなぞがとけません。