自己写的Excel下的一个宏，记录下

最新推荐文章于 2026-01-06 11:41:10 发布

原创最新推荐文章于 2026-01-06 11:41:10 发布 · 712 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#excel

本文介绍了一段使用VBA编写的宏代码，用于根据不同的税前工资区间计算税后工资。通过简单的条件判断和税率设置，实现了工资计算的自动化处理。

Sub display()
' Macro1 Macro

    Dim GongZi As Currency      ' 税前工资
    Dim GongZi2 As Currency     ' 税后工资
    'GongZi = Range("A1").Value '注意修改A2为工资栏

    GongZi = ActiveCell.Value2

    If GongZi > 20000 And GongZi <= 40000 Then

        GongZi2 = (GongZi - 20000) * 0.25

    ElseIf GongZi > 5000 And GongZi <= 20000 Then

        GongZi2 = (GongZi - 5000) * 0.2

    ElseIf GongZi > 2000 Then

        GongZi2 = (GongZi - 2000) * 0.15

    Else

        GongZi2 = 0

    End If


    Cells(ActiveCell.Row, ActiveCell.Column + 1).Value = GongZi2

End Sub