Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


15916 / 76734 ←次へ | 前へ→

【66292】エラーメッセージ
質問  めぐたん  - 10/8/18(水) 17:22 -

引用なし
パスワード
   何度も質問してすみません。

下記マクロを作っています。
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
2 hits

【66292】エラーメッセージ めぐたん 10/8/18(水) 17:22 質問
【66293】Re:エラーメッセージ マジビスプレスリー 10/8/18(水) 18:53 回答
【66299】Re:エラーメッセージ めぐたん 10/8/19(木) 11:24 発言
【66300】Re:エラーメッセージ kanabun 10/8/19(木) 11:38 発言
【66301】Re:エラーメッセージ kanabun 10/8/19(木) 11:42 発言
【66309】Re:エラーメッセージ めぐたん 10/8/20(金) 9:52 発言
【66310】Re:エラーメッセージ kanabun 10/8/20(金) 10:30 発言
【66311】Re:エラーメッセージ kanabun 10/8/20(金) 10:49 発言
【66316】Re:エラーメッセージ めぐたん 10/8/20(金) 17:15 お礼

15916 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free