Xin giúp đỡ về Code tính mức thế thu nhập cá nhân!

[hptraidatcang]

Kính thưa các anh chị!

Em đang định làm một bảng tính mức thuế thu nhập cá nhân theo các mức của biểu thuế.
Để xác định số tiền thuế phải nộp thì phải tính xem lương của mình thuộc bậc nào. Em viết 1 đoạn code như file đính kèm nhưng gặp các vấn đề sau:
1. Chạy được nếu thu nhập dưới 4 triệu
2. Chạy được nếu thu nhập trên 84 triệu
3. Vòng lặp không kết thúc trong trường hợp thu nhập trên 4t và dưới 84t.
Em mới bắt đầu nghiên cứu về VBA nên trình còn gà, không xử lí được tình huống này, kính mong các anh chị giúp đỡ.
Xin chân thành cảm ơn!!!

 

[hptraidatcang]

Chưa có ai có ý kiến về vụ này rùi!

 

[nvson]

Bạn xem trong file đính kèm nhé.
(Cái bảng lũy tiến đó bạn lấy ở TT nào thế?)

 

[hptraidatcang]

Cảm ơn bác nhé. Có điều em muốn thắc mắc về cái đoạn code em viết bị sai ở đâu. Bác làm ơn chỉ em với.

 

[nvson]

Sub Bacthue()
Dim min As Long
Dim max As Long
Dim bt As Byte
Dim tn As Long
Dim dem As Byte
Dim d As Long
Dim q As Long

Sheets("Sheet2").Select
Range("c7").Select
tn = Range("k5").Value
dem = "0"
If tn <= "4000" Then
bt = ActiveCell.Offset(dem, dem - 1).Value
Else
If tn > "84000" Then
bt = ActiveCell.Offset(dem + 7, dem - 1).Value
Else
If "4000" <= tn <= "84000" Then
While dem < 8
min = ActiveCell.Offset(dem + 1, dem + 1).Value
max = ActiveCell.Offset(dem, dem + 1).Value
If min < tn <= max Then
bt = ActiveCell.Offset(dem + 1, dem - 1).Value
Else
dem = dem + 1
End If
Wend
End If
End If
End If
Range("k6").Value = bt
End Sub

Bạn xem lại các phần mình tô màu nhé...
Sửa lại cho bạn:

Sub Bacthue()
    Dim min As Double
    Dim max As Double
    Dim bt As Byte
    Dim tn As Double
    Dim dem As Byte
    
        
    Sheets("Sheet2").Select
    Range("c7").Select
    tn = Range("k5").Value
    dem = 0
        If tn <= 4000 Then
            bt = ActiveCell.Offset(0, -1).Value
        Else
            If tn > 84000 Then
                bt = ActiveCell.Offset(dem + 7, -1).Value
            Else
                If 4000 <= tn And tn <= 84000 Then
                    Do While dem < 8
                        min = ActiveCell.Offset(dem + 1, 0).Value
                        max = ActiveCell.Offset(dem + 1, 1).Value
                        
                        If min < tn And tn <= max Then
                            bt = ActiveCell.Offset(dem + 1, -1).Value
                            Exit Do
                        Else
                            dem = dem + 1
                        End If
                    Loop
                End If
            End If
        End If
    Range("k6").Value = bt
End Sub

 

[hptraidatcang]

Cảm ơn bạn nhiều nhé!