数字以外を排除するには

質問

いつもお世話になっています。

数字以外が入力された場合エラーを出すには、IsNumeric()を使うのが一般的かと思いますが、￥やeやdは数字として認識していしまいます。これらもアウトにする方法というのはあるのでしょうか？

回答No.2

imogasi · ベストアンサー

数値、文字列（テキストボックス値など）を１桁ずつ、チェック対象にして
For K = 1 To Len(A)
、Mid(A, K, 1)の１文字について
文字コード（０－９、0-9)かどうかチェックしては。
どんな文字コードでも０－９、0-9は連続したコードになっているでしょう。
比較なら＜と＞が使え、
Case文ならToが使えるでしょう。
全角と半角両方認めるかどうか。

回答No.4

tkrn

VB2005であれば、
Integer.TryParseメソッドで判定するのはどうでしょうか？

Dim int As Integer
If Integer.TryParse("123456", int) = True Then
'数字の場合
Else
'数字でない場合
End If

回答No.3

noname#140971

[イミディエイト]
? IsNumber(123)
True
? IsNumber("\123")
False
? IsNumber(-123)
True
? IsNumber("3e2")
False
? IsNumber("123-")
True
? IsNumber("001")
False

手っ取り早いのは、このような IsNumber 関数などを自作することです。
もちろん、そのためには、 IsNumber 関数の仕様設計が先決です。

Public Function IsNumber(ByVal strNumber As String) As Boolean
　　Dim I As Integer
　　Dim L As Integer

　　L = Len(strNumber) * (Left$(strNumber, 1) <> "0") * -1
　　For I = 1 To L
　　　　If <I番目の桁が文字列 "0123456789+-" に含まれない> Then
　　　　　　Exit For
　　　　End If
　　Next I
　　IsNumber = CBool((I > L) And (L <> 0))
End Function

・For ループ手前で、チェックする桁数を確定する。
・その場合、先頭が"0"ならばループ回数はゼロにする。
・For ループでは、 <I番目の桁が文字列 "0123456789+-" に含まれない>を判定。
・含まれなければ、テストを中止してループから抜ける。
・I>L ならば、全てが数字に該当する文字だったということ。----> (I > L)
・L=0 ならば、当然に数字ではない。-----------------------> (L <> 0)

∴IsNumber = CBool((I > L) And (L <> 0))

<I番目の桁が文字列 "0123456789+-" に含まれない>の判定には、Instr関数、Mid$関数と用いるといいです。

回答No.1

JAWS55

ここに数値チェック関数が載っています。
http://homepage1.nifty.com/rucio/main/technique/InputChk2.htm