Ｐａｇｅ 195 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼数字(正)以外の入力禁止について YUUYA 02/10/10(木) 13:56 ┗Re:数字(正)以外の入力禁止について yu-ji 02/10/10(木) 17:03 ┗Re:数字(正)以外の入力禁止について YUUYA 02/10/12(土) 10:23 ─────────────────────────────────────── ■題名 ： 数字(正)以外の入力禁止について ■名前 ： YUUYA ■日付 ： 02/10/10(木) 13:56 -------------------------------------------------------------------------
| はじめて当サイトを利用します。テキストボックスに正の数値(小数点を含む)と空白以外の入力を禁止したく思っております。コンマ入力に対応でき、また貼付にもチェックがかかるように組みたいと思っております。方法(過去レスを含む)をご存知の方、是非教えて下さい。 |
| ▼YUUYA さん： >はじめて当サイトを利用します。テキストボックスに正の数値(小数点を含む)と空白以外の入力を禁止したく思っております。コンマ入力に対応でき、また貼付にもチェックがかかるように組みたいと思っております。方法(過去レスを含む)をご存知の方、是非教えて下さい。 こんにちは。 以下のような感じで、いけると思います。 *********** Private Sub TextBox1_Change() If TextBox1.Text <> "" Then '空白チェック If Not IsNumeric(TextBox1.Text) Then '数値チェック MsgBox "NG" ElseIf CLng(TextBox1.Text) < 0 Then '負の値チェック MsgBox "NG" End If End If End Sub |
| ▼yu-ji さん： yu-jiさん、返信有難うございます。動作確認しました。O.K.です。 KeyPressを使った方法がよく紹介されておりこれにこだわっていましたが、私の目的にはyu-jiさんのコードで十分かつ見通しが良いものでした。私の文章表現でやりたい事が把握できるか心配でした。重ねて御礼申し上げます。 >▼YUUYA さん： >>はじめて当サイトを利用します。テキストボックスに正の数値(小数点を含む)と空白以外の入力を禁止したく思っております。コンマ入力に対応でき、また貼付にもチェックがかかるように組みたいと思っております。方法(過去レスを含む)をご存知の方、是非教えて下さい。 > >こんにちは。 >以下のような感じで、いけると思います。 > >*********** > >Private Sub TextBox1_Change() > > If TextBox1.Text <> "" Then '空白チェック > If Not IsNumeric(TextBox1.Text) Then '数値チェック > MsgBox "NG" > ElseIf CLng(TextBox1.Text) < 0 Then '負の値チェック > MsgBox "NG" > End If > End If > >End Sub |