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

最新推荐文章于 2024-10-09 14:22:34 发布

heimirror

最新推荐文章于 2024-10-09 14:22:34 发布

阅读量642

点赞数

文章标签： excel

本文链接：https://blog.csdn.net/heimirror/article/details/2447711

版权

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