Công thức không tự động tính kết quả (1 người xem)

[Excel365]

Các anh xem giúp e, sao mà nó không tự động tính kết quả khi thay đổi hằng số từ 1.600.000 -> 3.600.000. và 4.000.000 -> 9.000.000

 

[Excel365]

Các anh xem giúp e, sao mà nó không tự động tính kết quả khi thay đổi hằng số từ 1.600.000 -> 3.600.000. và 4.000.000 -> 9.000.000

Giúp em cái code tính thuế TNCN với các anh chị / ơi

 

[ndu96081631]

Các anh xem giúp e, sao mà nó không tự động tính kết quả khi thay đổi hằng số từ 1.600.000 -> 3.600.000. và 4.000.000 -> 9.000.000

Các hằng số mà bạn khai báo đây:

    Const c_5tr = 5000000           
    Const c_10tr = 10000000
    Const c_18tr = 18000000
    Const c_32tr = 32000000
    Const c_52tr = 52000000
    Const c_80tr = 80000000
    [COLOR=#ff0000]Const c_Nguoiphuthuoc = 1600000 
    Const c_Banthan = 4000000  [/COLOR]

Và hàm của bạn:

Function ThueTNCN(ByVal TN_ChieuThue As Double) As Double
        d_5tr_10tr = (c_5tr * 0.05) 'So tien co dinh dong thue tu khoan 5tr - 10tr co the cho thang 250000d-----
        d_10tr_18tr = d_5tr_10tr + ((c_10tr - c_5tr) * 0.1)
        d_18tr_32tr = d_10tr_18tr + ((c_18tr - c_10tr) * 0.15)
        d_32tr_52tr = d_18tr_32tr + ((c_32tr - c_18tr) * 0.2)
        d_52tr_80tr = d_32tr_52tr + ((c_52tr - c_32tr) * 0.25)
        d_80tr_max = d_52tr_80tr + ((c_80tr - c_52tr) * 0.3)
        ThueTNCN = 0
        Select Case TN_ChieuThue
            Case 0 To c_5tr
                ThueTNCN = TN_ChieuThue * 0
            Case c_5tr To c_10tr
                ThueTNCN = ((TN_ChieuThue - c_5tr) * 0.1) + d_5tr_10tr
            Case c_10tr To c_18tr
                ThueTNCN = ((TN_ChieuThue - c_10tr) * 0.15) + d_10tr_18tr
            Case c_18tr To c_32tr
                ThueTNCN = ((TN_ChieuThue - c_18tr) * 0.2) + d_18tr_32tr
            Case c_32tr To c_52tr
                ThueTNCN = ((TN_ChieuThue - c_32tr) * 0.25) + d_32tr_52tr
            Case c_52tr To c_80tr
                ThueTNCN = ((TN_ChieuThue - c_52tr) * 0.3) + d_52tr_80tr
            Case Is > c_80tr
                ThueTNCN = ((TN_ChieuThue - c_80tr) * 0.35) + d_80tr_max
            Case Else
                ThueTNCN = 0
        End Select
End Function

2 hằng số tôi tô đỏ ở trên đang áp dụng vào chổ nào trong hàm của bạn?
Bạn không hề xài nó trong hàm, vậy thì bạn thay đổi 2 hằng số này thì hàm của bạn thay đổi bằng cách nào?
Có nghĩa là: 2 hằng số (màu đỏ) bạn chỉ khai báo để... chơi, chẳng làm cái quỷ gì cả

 

[Excel365]

Các hằng số mà bạn khai báo đây:

    Const c_5tr = 5000000           
    Const c_10tr = 10000000
    Const c_18tr = 18000000
    Const c_32tr = 32000000
    Const c_52tr = 52000000
    Const c_80tr = 80000000
    [COLOR=#ff0000]Const c_Nguoiphuthuoc = 1600000 
    Const c_Banthan = 4000000  [/COLOR]

Và hàm của bạn:

Function ThueTNCN(ByVal TN_ChieuThue As Double) As Double
        d_5tr_10tr = (c_5tr * 0.05) 'So tien co dinh dong thue tu khoan 5tr - 10tr co the cho thang 250000d-----
        d_10tr_18tr = d_5tr_10tr + ((c_10tr - c_5tr) * 0.1)
        d_18tr_32tr = d_10tr_18tr + ((c_18tr - c_10tr) * 0.15)
        d_32tr_52tr = d_18tr_32tr + ((c_32tr - c_18tr) * 0.2)
        d_52tr_80tr = d_32tr_52tr + ((c_52tr - c_32tr) * 0.25)
        d_80tr_max = d_52tr_80tr + ((c_80tr - c_52tr) * 0.3)
        ThueTNCN = 0
        Select Case TN_ChieuThue
            Case 0 To c_5tr
                ThueTNCN = TN_ChieuThue * 0
            Case c_5tr To c_10tr
                ThueTNCN = ((TN_ChieuThue - c_5tr) * 0.1) + d_5tr_10tr
            Case c_10tr To c_18tr
                ThueTNCN = ((TN_ChieuThue - c_10tr) * 0.15) + d_10tr_18tr
            Case c_18tr To c_32tr
                ThueTNCN = ((TN_ChieuThue - c_18tr) * 0.2) + d_18tr_32tr
            Case c_32tr To c_52tr
                ThueTNCN = ((TN_ChieuThue - c_32tr) * 0.25) + d_32tr_52tr
            Case c_52tr To c_80tr
                ThueTNCN = ((TN_ChieuThue - c_52tr) * 0.3) + d_52tr_80tr
            Case Is > c_80tr
                ThueTNCN = ((TN_ChieuThue - c_80tr) * 0.35) + d_80tr_max
            Case Else
                ThueTNCN = 0
        End Select
End Function

2 hằng số tôi tô đỏ ở trên đang áp dụng vào chổ nào trong hàm của bạn?
Bạn không hề xài nó trong hàm, vậy thì bạn thay đổi 2 hằng số này thì hàm của bạn thay đổi bằng cách nào?
Có nghĩa là: 2 hằng số (màu đỏ) bạn chỉ khai báo để... chơi, chẳng làm cái quỷ gì cả

Em xin lỗi, em gởi lại xem dùm em

 

[ndu96081631]

Em xin lỗi, em gởi lại xem dùm em

Mọi thay đổi về c_Nguoiphuthuoc và c_Banthan đều được cập nhật trên bảng tính... Vậy bạn còn muốn sao?