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

名前

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

本文 テキストボックスをコントロール配列にするとか？ Dim intIndex As Integer With txtNo For intIndex = .LBound To .UBound If txtNo(intIndex).Text = "1" Or txtNo(intIndex).Text = "2" Then MsgBox "項目名：" & intIndex & vbNewLine & "入力必須", _ vbOKOnly + vbExclamation, "TEST" txtNo(intIndex).SetFocus Exit Sub End If Next intIndex End With もしくはクラスでラッピングするとか？