|
何度も質問してすみません。
下記マクロを作っています。
CommandButton1を押した時の処理で、
ComboBox1、TextBox1、TextBox2が空白の時は、
エラーメッセージが出るようにしたいです。
3つのうちどれか1つでも空白の時は
必ず入力するように促す為にはどうしたらいいですか?
Private Sub CommandButton1_Click()
Dim x As Long
Select Case ComboBox1.Value
Case "MB": x = 1
Case "BK": x = 2
Case "2B": x = 3
Case "信金": x = 4
Case "信組": x = 5
Case "JA": x = 6
Case "労金": x = 7
Case "その他": x = 8
End Select
If ComboBox1 = "" Then
intRet = MsgBox("区分を選択してください。", vbyesOnly + vbCritical, "区分選択")
ComboBox1.SetFocus
Else
If (TextBox1 = "") Or (TextBox2 = "") Then
intRet = MsgBox("ユーザー名を入力してください。", vbyesOnly + vbCritical, "ユーザー名入力")
If (x = 6) Or (x = 8) Then
TextBox2.SetFocus
Else
TextBox1.SetFocus
End If
End If
End If
If x <> 0 Then
Cells(5, (x + 1)).End(xlDown).Offset(1).Value = (TextBox1.Value & TextBox2.Value)
Unload UserForm1
End If
End Sub
|
|