ただいま私はこのようなプログラムを作っています。
Private Sub TextBox貸方_Change()
Dim 貸方 As Integer
Tx貸方 = TextBox貸方.value
Select Case Tx貸方
Case 101
TextBox貸方摘要.Text = "現金"
Case 102
TextBox貸方摘要.Text = "当座預金"
・
・
・
'Case Eles
'MsgBox ("該当コード無し")
End Select
End Sub
しかしなぜか1011などの存在しないコードを入力してもメッセージボックスが表示されません!誰かお力をお貸しください!
No.2ベストアンサー
- 回答日時:
ケアレスミス以前にイベントの発生タイミングを理解してください。
Changeイベントはテキストボックスの内容が変わる度に発生します。よってキー入力毎に該当プログラムが実行されます。
例えば
LostFocusイベントならテキストボックスから別のオブジェクトにフォーカスが移った場合に発生します。
また「Tx貸方」の変数の宣言がなされていませんが、別の場所で宣言しているのでしょうか?
Tx貸方のデータ型が数値系なら代入時にエラーになります。
IF文でまず、テキストボックスが数値に変換できるか確認する必要があります。
例えば
If IsNumeric(TextBox貸方.value) Then
Select Case Tx貸方
Case 101
TextBox貸方摘要.Text = "現金"
Case 102
TextBox貸方摘要.Text = "当座預金"
・
・
・
Case Else
MsgBox ("該当コード無し")
End Select
Else
MsgBox ("該当コード無し")
End If
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 先ほど、回答者様によって教えていただいたのですがどうしたらいいか分かりません。 ユーザーフォーム上に 2 2023/02/21 22:25
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) ワークシートチェンジで曜日を表示する方法 1 2023/03/04 21:51
- Visual Basic(VBA) countifsについての質問 3 2023/03/08 13:45
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) select caseの入れ子 3 2023/03/08 18:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
一定時間操作されないと自動で...
-
Objective-Cでキーボードイベン...
-
WPFでの時刻入力コントロールに...
-
特定のキーを押すまでループさ...
-
【VB】タブ切り替え時のイベント
-
TextboxまたはMaskEditboxでの...
-
コンボボックスにキー入力をさ...
-
VB.NETでフォームがない...
-
C++ Builder6のイベントハンド...
-
(VBA)チェックボックスのclick...
-
Access データ表示 完了時のイ...
-
KEYPREVIEW=TRUEについて。意味...
-
Visual Basic 6.0 コンボボック...
-
Excel VBA マクロ実行中のみテンキ...
-
複数のテキストボックスのカン...
-
タブキー押下時のイベントをひ...
-
キーイベントを擬似的に発生さ...
-
C# WMPメディアの終了検知 その2
-
VB6で電卓を作っているのですが...
-
テキストボックスの入力文字を1...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VB】タブ切り替え時のイベント
-
タブキー押下時のイベントをひ...
-
特定のキーを押すまでループさ...
-
(VBA)チェックボックスのclick...
-
WPFでの時刻入力コントロールに...
-
Visual Basic 6.0 コンボボック...
-
一定時間操作されないと自動で...
-
コンボボックスにキー入力をさ...
-
Excel VBA マクロ実行中のみテンキ...
-
VB.NETのDropDownListをReadOnl...
-
フォーカスについてお教えください
-
キーイベントを擬似的に発生さ...
-
IEで、BackSpaceで「戻る」機能...
-
エクセルVBAのテキストボック、...
-
VB.NETでフォームがない...
-
KEYPREVIEW=TRUEについて。意味...
-
EXCEL VBA でIEを制御して、INP...
-
自作ダイアログボックス中のエ...
-
テキストボックスの入力文字を1...
-
Objective-Cでキーボードイベン...
おすすめ情報