前提
VBAで学内のスタッフ向けツールのプロトタイプを作成しています。
テキストボックスに入力された値の不正チェックの実装方法をご教示頂きたいです。
※ テキストボックスの名前はtxt1.Textとtxt2.Textとしています。
実現したいこと
・2つのテキストボックスに入力された値が半角数値であるか確認したい
・どちらか一方が半角数値でなかった場合任意のメッセージを表示させ値をクリアし処理を終了したい
・どちらも半角数値が入力された場合は何もしない
発生している問題・エラーメッセージ
テキストボックスに正しい値(半角数値)を入力してもエラー時を想定したメッセージが表示されてしまう
該当のソースコード
VBA
1Private Function ChkParam() 2 Input1 = txt1.Text 3 Input2 = txt2.Text 4 5 If Not IsNumeric(Input1) Or IsNumeric(Input2) Then 6 MsgBox "半角数値を入力してください。" 7 ChkParam = False 8 End If 9 10 ChkParam = True 11 12End Function

回答3件
あなたの回答
tips
プレビュー
下記のような回答は推奨されていません。
このような回答には修正を依頼しましょう。
また依頼した内容が修正された場合は、修正依頼を取り消すようにしましょう。