我沒有滿足什麼條件？

Question

我的標準是正確的，但第一個消息框從不顯示。我錯過了什麼？

Sub Crr_Premiums() 

    Dim LastRow As Long 
    Dim wb1 As Workbook 
    Dim i As Long 

    Set wb1 = Workbooks("macro all client v.01.xlsm") 

    LastRow = wb1.Sheets("CGIBill").range("A:A").Find("Overall - Total", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 

    For i = 21 To LastRow 

If wb1.Sheets("CGIBill").Cells(i, 16) > "0" And wb1.Sheets("CGIBill").Cells(i, 17) = "0.00" Then 

MsgBox 1 

Else 
MsgBox 2 

End If 

Next i 
End Sub 

Answer 1

「0」和0之間有區別。用引號括起來的一個是檢查字符「0」。沒有引號的那個正在查找數字值0.刪除引號，你應該很好。