Excel VBA質問箱 IV

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

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


15897 / 76734 ←次へ | 前へ→

【66311】Re:エラーメッセージ
発言  kanabun  - 10/8/20(金) 10:49 -

引用なし
パスワード
   ▼めぐたん さん:

>よくある質問ですね〜
>
>「TextBoxにFocusが戻らない」
>
>検索してみたらどうでしょう?

ごめんなさい。それほど深刻な問題でもなかったかもしれません。

たとえば、新規UserFormに
   ComboBox1
   TextBox1
   TextBox2
   CommandButton1
を置いて、
以下のコードを実行したときは、どうなりますか?


'------------------------------------------------- Test用UserForm
Private Sub UserForm_Initialize()
  ComboBox1.List = Split("MB BK 2B 信金 信組 JA 労金 その他")
End Sub

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.ListIndex < 0 Then
   MsgBox ("区分を選択してください")
   ComboBox1.SetFocus
   Exit Sub

 ElseIf Len(TextBox1.Text) = 0 Then
   MsgBox ("ユーザー名を入力してください。")
   TextBox1.SetFocus
   Exit Sub
 ElseIf Len(TextBox2.Text) = 0 Then
   MsgBox ("ユーザー名を入力してください。")
   TextBox2.SetFocus
   Exit Sub
 End If
 
 MsgBox "入力 OK"
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 お礼

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