アクセス純粋な数字だけで

Question

私が示すように、単独の数字または数字と文字の組み合わせのいずれかであることができる値の列を持っている：

私は私のマクロでif文を持っています。 Activecellの値が純粋な数値であり、数値と文字の組み合わせではない場合にのみ、ステートメントを実行したいと思います。たとえば、上記の場合、ifステートメントは111156,10296,112222などの値でしか動作せず、HE2790などでは動作しません。ハイブリッドエントリー。私は、文字の様々な他の組み合わせから始まるエントリも持っています。誰かが私の必要に応じて動作するマクロを私に提案することはできますか？

Do While ActiveCell.value <> "" 
    If ActiveCell.value.IsNumeric() Then 
     //code 
    End If 
    ActiveCell.Offset(1, 0).Activate 
Loop 

を次のように

私が試みたコードであるIはまた、（）の代わりにIsNumeric関数のにIsNumber（）を試みたが、無駄です。

誰かがこの問題を解決するのに役立ちます。

ありがとうございます！

Answer 1

これは私のために正常に動作IsNumeric(ActiveCell.Value)

をお試しください：IsNumeric関数の

Do While ActiveCell.Value <> "" 
    If IsNumeric(ActiveCell.Value) Then 
     Debug.Print "numeric" 
    Else 
     Debug.Print "not" 
    End If 
    ActiveCell.Offset(1, 0).Activate 
Loop 

Answer 2

使い方を間違いましたで。それを修正するには下記を参照してください。

Do While ActiveCell.Value <> "" 
    If IsNumeric(ActiveCell.Value) Then 
     'Code 
    End If 
    ActiveCell.Offset(1, 0).Activate 
Loop