选择大小写小于或等于

Posted 2023-05-07

【中文标题】选择大小写小于或等于

【英文标题】：Select Case Less Than or Equal To

【发布时间】：2015-09-12 23:46:28

【问题描述】：

对 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

【参考方案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 中的值相匹配。