Filtr – ukrywanie strzałek dla wybranych kolumn

Korzystając z narzędzia Filtruj w tabeli pojawią się strzałki w każdej komórce wiersza nagłówkowego.

Kiedyś pewna kursantka zadała mi pytanie: czy da się ukryć strzałki dla wybranych kolumn. Moja odpowiedź brzmiała Nie, ale zacząłem drążyć temat i okazało się, że jednak da się to zrobić, ale trzeba napisać odpowiednie makro (gdyż nie da się tego wyklikać).

Pobierz plik do ćwiczeń

Oto kod przykładowego makra:

'Inspiracja
'https://www.excelforum.pl/light.php/o_t__t_36661__jak-ukryć-strzałki-autofiltra.html

'Wiersz w którym zaczyna się tabela z danymi
Private Const Wiersz = 10

' Ukryj strzałki z wszystkich kolumn z wyjątkiem 3 i 4
Sub UkryjStrzalki()
    Dim Komorka As Range
    Dim IleKolumn As Integer
    
    IleKolumn = Cells(Wiersz, 1).End(xlToRight).Column
    For Each Komorka In Range(Cells(Wiersz, 1), Cells(Wiersz, IleKolumn))
        Select Case Komorka.Column
            Case 3, 4
                Komorka.AutoFilter Field:=Komorka.Column, Visibledropdown:=True
                
            Case Else
                Komorka.AutoFilter Field:=Komorka.Column, Visibledropdown:=False
        End Select
    Next
End Sub

' Pokaż wszystkie strzałki autofiltra
Sub PokazujWszystkieStrzałki()
    Dim Komorka As Range
    Dim IleKolumn As Integer
    
    IleKolumn = Cells(Wiersz, 1).End(xlToRight).Column
    For Each Komorka In Range(Cells(Wiersz, 1), Cells(Wiersz, IleKolumn))
        Komorka.AutoFilter Field:=Komorka.Column, Visibledropdown:=True
    Next
End Sub

Oto efekt: