Stránka 1 z 1

Makro v Excelu - buňka s aktivním filtrem

Napsal: 30 led 2010 11:26
od Transmit
Zdravim,

v tabulce při 30 aktivních sloupcích je místama problém při aktivnosti filtru v jednom/ve více ze sloupců najít o který/které se jedná. Je možný vytvořit makro, který by buňku, ve který se aktivní filtr nachází, vybarvil?

Př.: Mám z předchozího uložení tabulky aktivní filtr, při jejím znovuotevření nemůžu najít ve kterém sloupci je filtr aktivní, po dlouhém přejíždění v tabulce zleva doprava aktivní filtr najdu. Vybarvení buňky s aktivním filtrem by celou věc urychlilo a zpřehlednilo.
Filtry jsou nastaveny v třetím řádku tabulky v prvních 30 sloupcích.

Myslím si, že to spíš nebude možný. Pokud byste někdo přecejenom věděl, jak na to, předem díky.

Re: Makro v Excelu - buňka s aktivním filtrem  Vyřešeno

Napsal: 30 led 2010 11:38
od navstevnik
Tady je odkaz na reseni http://www.dataspectrum.cz/pages/glossary/glossary.htm - Filtr automatický - zobrazení kritérií

Re: Makro v Excelu - buňka s aktivním filtrem

Napsal: 30 led 2010 11:50
od Transmit
výborný, díky moc.

Re: Makro v Excelu - buňka s aktivním filtrem

Napsal: 30 led 2010 12:29
od Poki
Pokusil jsem se taky neco vytvorit...

Kód: Vybrat vše

Sub MarkAutoFilter()

Rows(1).Interior.ColorIndex = xlNone

    Dim FilterNum As Long
   
        If ActiveSheet.AutoFilterMode Then
            For FilterNum = 1 To ActiveSheet.AutoFilter.Filters.Count
                If ActiveSheet.AutoFilter.Filters(FilterNum).On Then
                   Cells(1, FilterNum).Interior.ColorIndex = 6
                End If
            Next

        End If

End Sub