Nhờ giúp mình code ẩn hiện dòng theo điều kiện (1 người xem)

[BoKuDo]

Mình muốn nhờ bạn trên GPE giúp 1 đoạn code ẩn hiện dòng theo điều kiện. Chi tiết mình có ghi trong file đính kèm. Nhờ các bạn giúp.

 

[concogia]

Mình muốn nhờ bạn trên GPE giúp 1 đoạn code ẩn hiện dòng theo điều kiện. Chi tiết mình có ghi trong file đính kèm. Nhờ các bạn giúp.

Thử code này:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim I, ToTe
    ToTe = Array("PH" & ChrW(7846) & "N MÓNG", "PH" & ChrW(7846) & "N THÂN", "PH" & ChrW(7846) & "N MÁI", "KHÁC")
        If Target.Address = "$A$5" Then
            Range("A1:A4").EntireRow.Hidden = True
                If Target = "CH" & ChrW(7884) & "N" Then
                    Exit Sub
                ElseIf Target = "T" & ChrW(7844) & "T C" & ChrW(7842) Then
                    Range("A1:A4").EntireRow.Hidden = False
                Else
                    For I = 0 To 3
                        If ToTe(I) = Target Then
                            Rows(I + 1).EntireRow.Hidden = False
                            Cells(I + 1, 1).Select
                            Exit For
                        End If
                    Next I
                End If
        End If
End Sub

Thân

 

[Ba Tê]

Mình muốn nhờ bạn trên GPE giúp 1 đoạn code ẩn hiện dòng theo điều kiện. Chi tiết mình có ghi trong file đính kèm. Nhờ các bạn giúp.

Không biết ẩn hiện để làm gì.
Xem thử file này coi sao, phải dùng vài ô phụ để khỏi phải viết chữ Việt có dấu trong code.
Muốn dời mấy ô này đi đâu đó thì chỉnh code lại.
------------------
ÚI da! Đụng hàng!