VBAの質問になります メッセージボックス

UserForm内で一つ一つのBOXに空白の場合ウィンドウ出るようにしてありますが
まとめて"入力されていない箇所があります"にしたいのですが可能でしょうか？
現状はこのようになっています
If Me.TextBox1 = "" Then
MsgBox "入力されていません"
Exit Sub
End If
BOX数が多くて面倒なので(;^_^A
TextもComboもあります

No.1 回答者： Qchan1962 回答日時： 2024/03/22 15:20

TextBox　ComboBox　ListBox　で未入力が１つでもあれば

MsgBox "入力されていません"

一例です（トリガー未設定）


Dim fmCtl As MSForms.Control
For Each fmCtl In Me.Controls
If InStr("TextBoxComboBoxListBox", TypeName(fmCtl)) > 0 Then
If fmCtl.Text = "" Then
MsgBox (msg & "入力されていません")
Exit For
End If
End If
Next


TextBox　ComboBox　ListBox　全てを確認する場合

Dim fmCtl As MSForms.Control
Dim msg As String
For Each fmCtl In Me.Controls
If InStr("TextBoxComboBoxListBox", TypeName(fmCtl)) > 0 Then
If fmCtl.Text = "" Then
msg = msg & fmCtl.Name & vbCrLf
End If
End If
Next
MsgBox (msg & "入力されていません")

この回答へのお礼

お礼日時：2024/03/22 15:34