Ｐａｇｅ 315 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼TextBoxにて いぬだわん 02/11/8(金) 16:17 ┗Re:TextBoxにて つん 02/11/8(金) 16:31 ┗Re:TextBoxにて Jaka 02/11/8(金) 17:28 ┗蛇足 JuJu 02/11/8(金) 18:13 ┗Re:蛇足 いぬだわん 02/11/9(土) 21:42 ─────────────────────────────────────── ■題名 ： TextBoxにて ■名前 ： いぬだわん ■日付 ： 02/11/8(金) 16:17 -------------------------------------------------------------------------
| こんにちは。質問です。 UserForm1にTextBox1があり、 TextBox1に数値以外のものを入力された場合は、MsgBoxにて表示します。 マイナスの数値を入れようとすると、「−」を入れた時点で、 MsgBoxが表示されて入力ができません。 マイナスの数値を入力可能にするには、どのようにしたらよいでしょうか？ 一応、コードを記しておきます。 'ここから 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 |
| いぬだわん さん、こんにちは >UserForm1にTextBox1があり、 >TextBox1に数値以外のものを入力された場合は、MsgBoxにて表示します。 >マイナスの数値を入れようとすると、「−」を入れた時点で、 >MsgBoxが表示されて入力ができません。 >マイナスの数値を入力可能にするには、どのようにしたらよいでしょうか？ 最初にマイナス記号かどうか？を調べたらどうですか？ こんな感じ If KeyAscii <> Asc("-") Then If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then KeyAscii = 0 MsgBox "数値以外のもんを入れたら、あきまへんで〜" End If End If でも、これやと、例えば「123-456」なんて、入力してもＯＫになってしまいますね（＾＾; |
| >いぬだわん さん、つん さん こんにちは 単純に if Isnumeric(textbox1.value)=ture とかじゃダメですかねぇ。（スペル合ってるか解りません。） 思いつきで書いているんで確認はしてませんです。 もう帰ります。 さようなら。 |
| みなさん、こんにちはぁ KeyPressだけでは完全に入力を止めることはできませんよ。 （貼り付けできてしまうので） こちらもご参考にしてね http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=one;no=6;id=FAQ ではではぁ |
| こんばんは。 みなさまのご意見のおかげで、何とかできました。 ありがとうございました。 お礼が遅くなったこと、お詫び申します。 |