Od v 2010 toto robí autofilter.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Dynamický filtr
MS Excel
Téma: Dynamický filtr 
Zaslal/a Marekh 8.10.2020 16:32
Zdravím,
poradí někdo jak dynamicky filtrovat a zobrazit jen ty řádky které obsahují řetězec psaný v dané buňce ? Tzn. aby to už filtrovalo hned po každém zapsaném znaku v dané buňce ? Takový dynamický automatický filtr přes více sloupců či našeptávač. Tabulka bude mít cca 500 řádků a 20 sloupců. Excel 2003
Příloha: 
48299_filtr_dyn.xls (348kB, staženo 21x)
48299_filtr_dyn.xls (348kB, staženo 21x)
(9.10.2020 13:15)#048314
Marekh
V hárku si vhodne umiestni prvok ActiveX - textové pole.
Nazveš ho napr txtKriterium.
Do modulu hárka umiestni kód:
Private Sub txtKriterium_Change()
Range("A1").AutoFilter
ActiveSheet.Columns("A:A").AutoFilter Field:=1, Criteria1:=txtKriterium.Text & "*"
End Sub
a hotovo.
V uvedenom kóde sa filtruje v stĺpci A (pričom A1 je záhlavie.
P.S. po vložení ActiveX nezabudni vypnúť režim návrhu...citovat
V hárku si vhodne umiestni prvok ActiveX - textové pole.
Nazveš ho napr txtKriterium.
Do modulu hárka umiestni kód:
Private Sub txtKriterium_Change()
Range("A1").AutoFilter
ActiveSheet.Columns("A:A").AutoFilter Field:=1, Criteria1:=txtKriterium.Text & "*"
End Sub
a hotovo.
V uvedenom kóde sa filtruje v stĺpci A (pričom A1 je záhlavie.
P.S. po vložení ActiveX nezabudni vypnúť režim návrhu...citovat
Mezitím nezávisle na "Robert13" jsem zjistil, že se událost Change() u textového pole chová podle představ.
Takže mám :
Private Sub TextBox1_Change()
If Len(TextBox1.Value) = 0 Then
List1.AutoFilterMode = False
Else
If List1.AutoFilterMode = True Then
List1.AutoFilterMode = False
End If
List1.Range("A2:C" & Rows.Count).AutoFilter field:=1, Criteria1:="*" & TextBox1.Value & "*"
End If
End Sub
Ale to platí jen pro jeden sloupec. Jak to doplnit o další sloupce v kterých by měl současně hledat ?citovat
Takže mám :
Private Sub TextBox1_Change()
If Len(TextBox1.Value) = 0 Then
List1.AutoFilterMode = False
Else
If List1.AutoFilterMode = True Then
List1.AutoFilterMode = False
End If
List1.Range("A2:C" & Rows.Count).AutoFilter field:=1, Criteria1:="*" & TextBox1.Value & "*"
End If
End Sub
Ale to platí jen pro jeden sloupec. Jak to doplnit o další sloupce v kterých by měl současně hledat ?citovat
Robert13 : díky za příspěvek.
Kdybych se tady podíval dříve, tak jsem nemusel tolik googlit :-)citovat
Kdybych se tady podíval dříve, tak jsem nemusel tolik googlit :-)citovat
(9.10.2020 18:42)#048321
Nemusíš sa toľko zaoberať tým, či je textové pole prázdne alebo či je filter zapnutý, tie dva riadky v mojom kóde riešia všetko. Taktiež nemusíš pátrať po spodnom riadku, ak namiesto range dáš columns. Filtruje v celom stĺpci...citovat
Nepodařilo se mi na webu dohledat vše potřebné pro aut.filtr. Našel jsem přitom postup na skrývání řádku což by v mém případě také mohlo být. Ale... nevím jak přiřadit TextBox se zástupným znakem "*" před a za
Příloha: 48368_skryvani.xls (44kB, staženo 20x)
citovat48368_skryvani.xls (44kB, staženo 20x)Zdravím, pro svůj záměr jsem nakonec dospěl k téměř konečnému řešení. Až na jednu věc. Nepodařilo se mi do daného kódu implementovat po různých pokusech prohledávání přes všechny sloupce tabulky. V tomto případě jsem odkázán na vyhledávání jen v prvním sloupci.
Dovedl by někdo doplnit či nahradit stávající kód ?
Dovedl by někdo doplnit či nahradit stávající kód ?
Příloha: 48475_test_vse.xls (167kB, staženo 21x)
citovat48475_test_vse.xls (167kB, staženo 21x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články