选择小于或等于

Question

VBA非常新，所以我试图通过创建税计算器宏来获得经验，但我不确定为什么这些值没有在正确的单元格中生成，或者如果这是即使是关于税收计算器的最佳方式。

Sub TaxCalculator() 
    Dim AGI As Currency 
    AGI = Range("AGI").Value 
    Select Case AGI 
     Case AGI <= Range("'Tax Bracket'!A2").Value 
      Range("Net_Income").Value = AGI * (1 - Range("'Tax Bracket'!B2")) 
      Range("Monthly_Net_Income").Value = Range("Net_Income")/12 
    End Select 
End Sub 

A link to the Excel File in Question

Answer 1

一个Select Case statement可以使用比小于或等于（例如<=），但不是你想实现它的方式。

Sub TaxCalculator() 
    Dim AGI As Currency 
    AGI = Range("AGI").Value 
    Select Case AGI 
     Case Is <= Range("'Tax Bracket'!A2").Value 
      Range("Net_Income").Value = AGI * (1 - Range("'Tax Bracket'!B2")) 
      Range("Monthly_Net_Income").Value = Range("Net_Income")/12 
    End Select 
End Sub 

基本上你Case AGI <= Range("'Tax Bracket'!A2").Value被解析为True或False视情况而定。这可能不太可能与AGI的价值相匹配。