我没有满足什么条件？

我的标准是正确的，但第一个消息框从不显示。我错过了什么？我没有满足什么条件？

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

来源

2016-06-13 t.mo

您是否尝试从您的条件中删除引号？我认为你正在寻找文字0而不是数字0. – sous2817

就是这样。添加作为答案我会更新帖子。再次感谢你的帮助。 –

“0”和0之间有区别。用引号括起来的一个是检查字符“0”。没有引号的那个正在查找数字值0.删除引号，你应该很好。

来源

2016-06-13 20:07:55 sous2817

就是这样。再次感谢您的帮助。我很快会再见到你。 –

我没有满足什么条件？

回答

相关问题