如果基於數值的語句，其中單元格可以包含文本

Question

我已經編寫了VBA代碼，根據不同的單元格爲單元格着色。

如果單元格具有文本而不是數值，我無法使其工作。

Sub RoutingCheck() 

    Dim I As Long, r1 As Range, r2 As Range 

    For I = 2 To 456 

     Set r1 = Range("A" & I) 

     Set r2 = Range("B" & I) 

     If r1.Value = 94 And r2.Value = -99 Then r2.Interior.Color = vbRed 

    Next I 

    'Error 

    End Sub 

Answer 1

您需要檢查數值你做比較之前，否則失配誤差將提高：

If IsNumeric(r1.Value) And IsNumeric(r2.Value) Then 
    If r1.Value = 94 And r2.Value = -99 Then r2.Interior.Color = vbRed 
End If