|
▼めぐたん さん:
>よくある質問ですね〜
>
>「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
|
|