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

名前

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

本文 > う〜ん、、、名前がそれぞれ違うのですが、、、可能なのでしょうか？＜コントロール配列 統一させるとか。 > 引数にコントロール名と項目名を使ったら良いと言うような事はどこかで見たのですが。。。 「MsgBox MsgBox CallByName(Me, "Text1", VbGet).Text」とか、 「MsgBox Form1.Controls("Text1").Text」などの構文を使って、 コントロール名を文字列で渡す事はできます。 For Each V In Array("txtX", "txt2", "txt3", "txt4", "txtA") MsgBox Me(V).Text Next > あと1個言い忘れたのは項目名txtNo毎に違います。 ? これは意味が良く分かりませんが、とりあえず最初の例なら、 For Index = 1 To 3 Set txt = Controls("txtNo" & CStr(Index)) If txt.Text Like "[12]" Then MsgBox "項目名：" & StrConv(Index, vbWide) & vbNewLine _ & "入力必須", vbOKOnly Or vbExclamation, "TEST" txt.SetFocus Exit For End If Next Set txt = Nothing などと書けるかな。