使用错误继续下一个If语句

Question

因为错误恢复下一步进行到下一个语句，而不是下一行，有没有人有任何建议，以使用它与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 

利用上述If语句中的每个风格，除了仍然会在错误的情况下进行，例如元件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 

正如你看到的，你可以检查IsNumeric和，因为字符串可以是数字，则显式检查Not IsString。

由于不仅字符串可以从IsNumeric函数返回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适用于dot，我的示例工作方式不同（逗号值也被过滤）。

• 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