Excel VBA フォームのテキストボックス入力について

質問

半角数字のみしか入力されないようにしたいのですがどのようにすればよろしいですか？
のちのち計算に使うので、文字が入るとエラーになってしまって困っています
よろしくお願いします

回答No.1

X-trail_00 · ベストアンサー

テキストボックスのイベントで
数字以外の入力はエラーにすればよい。

Private Sub TextBox1_Change()
If Len(TextBox1.Value) > 0 Then
If IsNumeric(TextBox1.Value) Then
Exit Sub
Else
TextBox1.Value = "" '強制的に消す
MsgBox "数字のみの入力をお願いします。" '注意のメッセージを表示する。
End If

End If
End Sub

お礼

こんな方法があったんですね！
ありがとうございました！

回答No.2

ipsum11

テキストボックスのKeyDownイベント、KeyPressイベントを利用して、入力されたキーコードが数字以外を無効にしてやる。

お礼

できればコードも書いていただきたかったのですが、No.1さんの回答により解決しました
ありがとうございました！