On Errorを次のIf文で使用する

Question

On Error Resume Nextは次の行ではなく次の文に進むので、誰かがIf文でそれを使用することについて提案していますか？上記If文の各スタイルで

On Error Resume Next 
For i = 1 To r 
    If dataArray(i,1) <10 Then 
     intA = intA + 1 
    End If 
    If dataArray(i,2) <10 Then intB = intB + 1 
    If dataArray(i,2) <10 Then _ 
     intC = intC + 1: intD = intD + 1 
Next i 
On Error GoTo 0 

は、添加は、依然として、そのような要素dataArray（I、1）を含むテキストとして、エラーが発生した場合に行われます。これはエラーハンドラで修正することができますが、複数のIf文では面倒です。誰にも何か提案はありますか？

Answer 1

配列の指定位置に桁の値があると予想される場合は、かさばるエラーハンドラを作成するか、GoToを使用する必要はありません。Typeの変数をチェックできます。 ので、例：あなたが見たよう

For i = 1 To r 
    If IsNumeric(dataArray(i,1)) And Not IsString(dataArray(i,1)) Then 
     If dataArray(i,1) <10 Then 
      intA = intA + 1 
     End If 
     If dataArray(i,2) <10 Then intB = intB + 1 
     If dataArray(i,2) <10 Then _ 
      intC = intC + 1: intD = intD + 1 
    End If 
Next i 

Public Function IsString(ByRef var as Variant) as Boolean 
    IsString = (TypeName(var) = "String") 
End Function 

、あなたがして明示的にNot IsStringをチェックし、文字列が数値であることができるので、IsNumericをチェックすることができます。

文字列はIsNumeric関数（例：chars）からTrueを返すだけでなく、例を変更して独自の関数を拡張する方法があるためです。

リンク： TypeName、 IsNumeric

さらなる例（一方小数点および可能文字列と数字のみ）。 入力がどのように見えるのであれば何です：

例：

Sub AcceptOnlyNumbers() 
'pass only strings that can be threaten as doubles 
    Dim rng As Range 
    Dim cl As Range 

    Set rng = Sheets(1).[A1:A8] 

    For Each cl In rng 
     With cl 
     If Not (IsNumeric(.Value2) Or (IsNumeric(Val(.Value2)) And _ 
      Len(.Value2) = Len(CStr(Val(.Value2))))) And .Value2 <> vbNullString Then 
       Debug.Print .Value2, "is filtered" 
      Else 
       Debug.Print .Value2, "is passed" 
      End If 
     End With 
    Next 

End Sub 

出力：

と小数点がカンマであれば、その後、我々はCDblで文字列を変換することができますが小数点の場合はValとなります。気軽に遊んでみてください！

Public Function IsWholeNumber(ByVal expDbl As Double) as Boolean 
    IsWholeNumber = (Int(expDbl) = expDbl) 
    'or more bulky but ok too: IsWholeNumber = InStr(Str(expDbl), ".") = 0 
End Function 

： - あなたは小数を必要としない場合たとえば、あなたがこの後に別のチェックを追加することができます（もう一度、あなた自身の構築、またはすべてこの例のみを、あなたはスタートで全体の数字を確認することができます）この事実に注意してください。小数点以下の国では、CDblはドットでうまく動作し、私の例は異なって動作します（コンマで値もフィルタリングされます）。

• Val

  、Strは常に米国の設定（小数点としてドット）を使用します。

• CDbl,CStrは、地域の設定を考慮に入れます。

リンク： Val、 Writing International Code

Answer 2

あなたの質問に厳しい答えは以下の通りです：

Option Explicit 

Sub main() 
    Dim dataArray As Variant 
    Dim i As Long, r As Long, intA As Long, intB As Long, intC As Long, intD As Long 

    dataArray = Range("A1:D5").Value 
    r = UBound(dataArray) 
    On Error GoTo SKIP 
    For i = 1 To r 
     If dataArray(i, 1) < 10 Then intA = intA + 1 

     If dataArray(i, 2) < 10 Then 
      intB = intB + 1 
      intC = intC + 1 
      intD = intD + 1 
     End If 
SKIP: 
    Next i 
    ' On Error GoTo 0 '<--| you can comment this out being the last statement since upon exiting the default error handling is resumed 

End Sub