选择小于或等于的案例

时间:2015-09-12 23:46:28

标签: excel vba excel-vba select-case

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 个答案:

答案 0 :(得分:4)

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