viết dùm e code ẩn và bỏ ẩn dòng theo điều kiện trong 1 ô cố định 1 ô

Chào bạn bạn thực hiện thế này nhé.
if(dk1) then
// code ẩn dk1
else if(dk2) then
//code ẩn dk2
else if(dk3) then
//code ẩn dk3
end if

e đã làm được, cảm ơn thầy rất nhiều.

Da e chào thầy.
Hiện tại em ẩn hiện dòng đặt code cố định cho cột range nếu có thay đổi chèn hoặc xóa dòng e phải chỉnh lại tất cả các vùng range cho đoạn code mất rất nhiều thời gian, như vậy có cách nào linh hoạt nếu thay đổi dòng thì sẽ ẩn hiện dòng theo điều kiện mình đặt cho cột ô đó. nhờ thầy chỉ giúp e với ạ. (vùng range ẩn hiện dòng e đang làm k liên tục, mà từng vùng rời cách nhau)

Em viết đoạn code này, chạy được nhưng chạy chậm.
Thầy có cách viết nào để cho đoạn code này chạy nhanh hơn được không ạ.
Thank Thầy.


Sub KQKD()
'Bo loi
On Error Resume Next
'cap nhat man hinh
Application.ScreenUpdating = False
'bo an1
Sheet8.Range("A6:A420").Select
Selection.EntireRow.Hidden = False
'dk1
For i = 6 To 420
If (Sheet8.Range("C4").Value = "CHUNG" And Sheet8.Cells(i, 88).Value = "CH") Then
'an theo dk1
Sheet8.Rows(i).Hidden = True
'dk2
ElseIf (Sheet8.Range("C4").Value = "KHUVUC" And Sheet8.Cells(i, 89).Value = "KV") Then
'bo an2
'Sheet8.Range("A6:A420").Select
' Selection.EntireRow.Hidden = False

'an theo dk2
Sheet8.Rows(i).Hidden = True
'dk3
ElseIf (Sheet8.Range("C4").Value = "CONGTY" And Sheet8.Cells(i, 90).Value = "CT") Then
'bo an3
'Sheet8.Range("A6:A420").Select
'Selection.EntireRow.Hidden = False
'an theo dk3
Sheet8.Rows(i).Hidden = True
End If
Next
On Error GoTo 0
Application.ScreenUpdating = True
End Sub

Chào bạn bạn thử tắt tính toán khi chạy đoạn code như sau:
sub KQKD
Application.ScreenUpdating = false
Application.Calculation = xlCalculationManual
//code của bạn
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
end sub

chương trình đào tạo bên mình rất hay.
em đã thực hiện được.
cảm ơn thầy.

Cảm ơn bạn đã đồng hành cùng Gitiho