Excel VBA質問箱 IV

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

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


15899 / 76734 ←次へ | 前へ→

【66309】Re:エラーメッセージ
発言  めぐたん  - 10/8/20(金) 9:52 -

引用なし
パスワード
   ▼kanabun さん:

ご回答ありがとうございます。

色々勉強して、このように変更してみたのですが、
1.の部分は、メッセージも出て、comboxで止まってくれるのですが、
2.、3.、4.はメッセージは出るが、testboxで止まらずに、先に進んでしまいます。
どう修正したらいいのでしょうか?

  If (ComboBox1.Value = "") Then
  intRet = MsgBox("区分を選択してください。", vbOKOnly + vbCritical, "区分選択")
  ComboBox1.SetFocus←1.
  ElseIf (ComboBox1.Value = "その他") And (TextBox2.Value = "") Then
  intRet = MsgBox("ユーザー名を入力してください。", vbOKOnly + vbCritical, "ユーザー名入力")
  TextBox2.SetFocus←2.
  ElseIf ComboBox1.Value <> "その他" And (TextBox1.Value = "" Or TextBox2.Value = "") Then
  intRet = MsgBox("ユーザー名を入力してください。", vbOKOnly + vbCritical, "ユーザー名入力")
   If ComboBox1.Value = "JA" Then
   TextBox2.SetFocus←3.
   Else
   TextBox1.SetFocus←4.
   End If
  End If

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 お礼

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