[[20050506153740]]　『半角数値と - 以外は入力できないよう』（ばん）　ページの最後に飛ぶ

『半角数値と - 以外は入力できないよう』（ばん）

[テキストボックスに半角数値と-（マイナス）以外は入力できないようにしたい]

ユーザーフォームでテキストボックスを1つ設けます。（TEXTBOX1とします。）
これに半角数値と-（マイナス）以外は入力できないように制限したいのですが・・・

半角数値は下記のようにすれば制限できるのですが、ここに-（マイナス）を付け加えたいのですが、分かりません。ご教授をお願いします。また別の方法があったりしたら教えて下さい。

Private Sub TEXTBOX1_KEYPRESS(ByVal KEYASCII As MSForms.ReturnInteger)

If KEYASCII < Asc("0") Or KEYASCII > Asc("9") Then

KEYASCII = 0

MsgBox "半角の数値・マイナス以外は入力できません。"

End If

End Sub

 こちらが参考になるかもしれません。　
 Shift + Insert や Ctrl + V で貼り付けは出来ますが。　(wizik)
[[20041026102453]] 『VBA:TextBoxの流れ』(さんちゃん)

解決しました。非常に参考になりました。ありがとうございました。（ばん）

コメント返信：