Ẩn các cột có cùng điều kiện

[bjboyn00b]

Các bác cho em xin macro ẩn các cột có cùng điều kiện ko nằm cạnh nhau với ạ, em search google hoài ko ra.

Ví dụ ở file này, ấn nút N để ẩn các cột có chữ X và T (tức để ẩn cột có chữ N ), ấn nút X thì ẩn cột N và T ...

 

[phulien1902]

Các bác cho em xin macro ẩn các cột có cùng điều kiện ko nằm cạnh nhau với ạ, em search google hoài ko ra.

Ví dụ ở file này, ấn nút N để ẩn các cột có chữ X và T (tức để ẩn cột có chữ N ), ấn nút X thì ẩn cột N và T ...

Bạn gửi File lên đi.

 

[phulien1902]

Các bác cho em xin macro ẩn các cột có cùng điều kiện ko nằm cạnh nhau với ạ, em search google hoài ko ra.

Ví dụ ở file này, ấn nút N để ẩn các cột có chữ X và T (tức để ẩn cột có chữ N ), ấn nút X thì ẩn cột N và T ...

Bạn tham khảo:
+ Cho nút N

Sub HideNT() 'Nut N
    Dim c As Range
    For Each c In Range("C5:Z5")
        c.EntireColumn.Hidden = False
        If c.Value = "T" Or c.Value = "X" Then
            c.EntireColumn.Hidden = True
        End If
    Next
End Sub

+ Cho nút X

Sub HideXT() 'Nut X
    Dim c As Range
    For Each c In Range("C5:Z5")
        c.EntireColumn.Hidden = False
        If c.Value = "T" Or c.Value = "N" Then
            c.EntireColumn.Hidden = True
        End If
    Next
End Sub