は、すべてのXが、私はダースが存在する必要があります知っている9</p> <p>を通じて数0である<p></p> 場合、いくつかの文字列は=「XXXXX」私はtrueを返したい文字列が正確に5桁の数字

Question

であることを確認しますこれを行う方法が、私は最良の方法を知りたいと思います。

Answer 1

を確認したい：

Function MyFunction(myString As String) As Boolean 
    MyFunction = ((Len(myString) = 5) And (IsNumeric(myString))) 
End Function 

あなたの場合より効率的な方法が必要な場合は、さまざまな方法についていくつかのテストを実行する必要があります人々は示唆した。

編集：以前の解決策はうまくいきませんでした（最初の2つのコメントを参照）。しかし、私はそれが受け入れられているので、そこに置いています。ここで私はどうなるのかです：

Function MyFunction(myString As String) As Boolean 
    Dim myDouble As Double 
    Dim myLong As Long 
    myDouble = Val(myString) 
    myLong = Int(myDouble/10000) 
    MyFunction = ((Len(myString) = 5) And (myLong > 0) And (myLong < 10)) 
End Function 

は、その関数には、エラー「保護」はありませんので、あなたは、22222222222222のような大きすぎる番号を確認しようとした場合、それは動作しません。

Answer 2

yourString Like "#####" 

Answer 3

以前に尋ねた同様の質問：link text

は基本的にあなたが最も簡単な方法をしたい場合、あなたはこれで行くことができる

(Len(s) = 5) And IsNumeric(s) 

Answer 4

正規表現を使用してこの問題を解決することもできます。 VBAプロジェクトにMicrosoft VBScript Regular Expressions 5.5を含める場合、以下の関数のようにRegExpとMatchCollection変数を使用できます。 （これはozgrid.comでthis postに対する応答の変形例である。）4桁負の数は、これらのテストの両方を通過する

Public Function FiveDigitString(strData As String) As Boolean 

On Error GoTo HandleError 

Dim RE As New RegExp 
Dim REMatches As MatchCollection 

    With RE 
     .MultiLine = False 
     .Global = False 
     .IgnoreCase = True 
     .Pattern = "^[0-9][0-9][0-9][0-9][0-9]$" 
    End With 

    Set REMatches = RE.Execute(strData) 
    If REMatches.Count = 1 Then 
     FiveDigitString = True 
    Else 
     FiveDigitString = False 
    End If 

    Exit Function 
HandleError: 
    Debug.Print "Error in FiveDigitString: " & Err.Description 
    FiveDigitString = False 
End Function