MS Excel

No môžete použiť Podmienené Formátovanie s pomocou UDF:
Function ISFILTERED(Col As Range) As Boolean
Dim i As Long, iCol As Long
Application.Volatile
iCol = Col.Column
With Col.Parent.AutoFilter
For i = 1 To .Filters.Count
If .Filters(i).On And i = iCol Then ISFILTERED = True: Exit For
Next i
End With
End Function
Alebo obdobne to jednorázovo robiť pri WorksheetChange alebo Calculate naraz vyfarbením. Ale pri tomto veľký pozor, už som to tu videl. Vy keď vyfarbíte makrom stĺpec, prídete o Vaše doterajšie farby. To by sa muselo zisťovať po jednom, ktorá bunka má akú farbu, a tieto info niekde ukladať, a potom ich po jednom naspäť vyfarbiť. S takým zošitom by ste pracovať nechcel - bol by veľmi sekaný.

Aj toto PF neviem ako bude fungovať pri početnom filtrovaní.citovat

Pro elninoslov.
díky, ale nefunguje to , pokud v prvních několika sloupcích nemám autofilter.
Já bych spíše potřeboval procházet filtry jeden po druhém a zjistit, ve ketré buňce (alespoň sloupci) je který filtr.
Milancitovat

Prikladám príklad rýchlych filtrov.citovat

Rychlý filtr, který doporučuje mepexg, se česky jmenuje průřez (anglicky table slicer). V novějších Excelech ho lze vytvořit, ale jen pro definovanou tabulku, případně pro kontingenční tabulku. Excel 2007 to ještě neumí. Příklad od mepexg se v něm zobrazí s nefunkčními okénky, která upozorňují na tento fakt.citovat

Iste, ale treba vedieť čo chcete zisťovať, a ako potom so zistenými údajmi naložiť (Criteria1, Criteria2, Operator, ...). Napr. filter nemusí byť predsa len jedna hodnota, ale pole, alebo farba, alebo rozsah, ...
Tu je príklad na hodnotu alebo pole hodnôt, ktoré vypíše do oblasti.
Sub VypisFiltrovanychPoloziek(Col As Range, Ret As Range)
Dim F(), R As Long

R = Ret.Parent.Cells(Rows.Count, Ret.Column).End(xlUp).Row - Ret.Row + 1
If R > 0 Then Ret.Resize(R).ClearContents

With Col.Parent.AutoFilter
With .Filters(Col.Column - (.Range.Column - 1))
If .On Then
If IsArray(.Criteria1) Then
Ret.Resize(UBound(.Criteria1)).Value = Application.Transpose(.Criteria1)
Else
Ret.Cells(1).Value = .Criteria1
End If
End If
End With
End With
End Sub

Sub pokus()
With ThisWorkbook
VypisFiltrovanychPoloziek .Worksheets("Hárok1").Range("g:g"), .Worksheets("Hárok2").Range("A1")
End With
End Sub
PS: Toto je zjednodušený príklad. Application.Transpose funguje len do počtu 32767 položiek, ak ich je viac, tak ich vypísať v cyklom preklopenom poli.citovat