< návrat zpět

MS Excel


Téma: Dynamický filtr rss

Zaslal/a 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: xls48299_filtr_dyn.xls (348kB, staženo 6x)
Zaslat odpověď >

#048301
MePExG
Od v 2010 toto robí autofilter.citovat
#048302
avatar
Chválím, ale ten nemám. Jak píši výše, mám E2003.citovat
#048312
avatar
mepexg
to ako fakt? V tom prípade poprosím vysvetliť ako to zadaťcitovat
#048313
avatar
sorry, pochopil som 5citovat
#048314
avatar
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
#048315
avatar
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
#048316
avatar
Robert13 : díky za příspěvek.

Kdybych se tady podíval dříve, tak jsem nemusel tolik googlit :-)citovat
#048321
avatar
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
#048368
avatar
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: xls48368_skryvani.xls (44kB, staženo 6x)
citovat
#048475
avatar
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 ?
Příloha: xls48475_test_vse.xls (167kB, staženo 5x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

Počet jedinečných hodnot

elninoslov • 3.12. 8:38

Počet jedinečných hodnot

vikizaj • 2.12. 17:35

Počet jedinečných hodnot

lubo • 2.12. 17:34

rozdělení čísla do více buněk dle násobku

lubo • 2.12. 17:31

Automatické doplňování buněk

veny • 2.12. 17:31

Počet jedinečných hodnot

veny • 2.12. 17:10

Doplnit tabulku

Baja • 2.12. 15:28