在vba中添加一个IF和THEN语句

我需要在我的vba中创build一个IF AND THEN语句。 我已经尝试了下面的代码，虽然我没有得到任何错误，它不起作用（即：我运行macros时没有任何反应）：

Sub PrintAll() Dim BrokerCell As Range Dim Rng As Range Dim Wks As Worksheet Set Wks = Worksheets("PRINT PAGE") If Range("$A$5").Value = "Company 1" Then Set Rng = ThisWorkbook.Names("Company1").RefersToRange ElseIf Range("$A$5").Value = "Company2" Then Set Rng = ThisWorkbook.Names("Company2").RefersToRange Else: Set Rng = ThisWorkbook.Names("Company3").RefersToRange End If For Each BrokerCell In Rng If BrokerCell <> "" AND "$Q$5" > "0" Then Wks.Range("$B$5").Value = BrokerCell.Text Wks.PrintOut End If Next BrokerCell End Sub 

macros没有工作

  AND "$Q$5" > "0" 

很显然我在这里做错了事。

Answer 1

你可能的意思是：

 If BrokerCell <> "" And Range("$Q$5").Value > 0 

您正在比较string“$ Q $ 5”和string“0”。