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

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

No.2 回答者： ipsum11 回答日時： 2006/05/24 22:29

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

この回答へのお礼

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

お礼日時：2006/05/25 13:32

No.1 ベストアンサー 回答者： X-trail_00 回答日時： 2006/05/24 12:53

テキストボックスのイベントで

数字以外の入力はエラーにすればよい。

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

この回答へのお礼

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

お礼日時：2006/05/25 13:33