select小于或等于的情况

VBA非常新，所以我试图通过创build一个税计算器macros来获得经验，但我不知道为什么值没有在正确的单元格中生成，或者如果这是甚至是最好的方式去纳税计算器。

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 

问题中的Excel文件的链接

Answer 1

Select Case语句可以使用小于或等于 （例如<= ），但不能以您尝试实现它的方式使用。

 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价值的匹配。