• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: automatický filtr

Zaslal/a paveku 28.6.2010 9:11

Ahoj,
potřeboval bych poradit. Mám kod něco jako automatický filtr, který provede filtr položek dle obsahu aktuální buňky. Je to přes tlačítko, které funguje jako přepínač, takže pokud je filtr aktivní, provede jeho ukončení. Vše funguje dobře pouze na text. Pokud je v aktuálním políčku číslo, tak filtr nezobrazí žádný řádek, jako by měl filtrovat prázdné buňky. Našel jsme zde téma, kde se to částečně řešilo, ale nedořešilo. Může někdo pomoc.
Sub AutoFiltr_Click()
Dim Text, vyber As String

If FilterMode = True Then
Selection.AutoFilter Field:=1
GoTo a
End If

Text = ActiveCell
If Text = "" Then Exit Sub
vyber = "=*" & Text & "*"
Selection.AutoFilter Field:=1, Criteria1:=vyber

a:
Range("A5").End(xlDown).Activate
ActiveCell.Offset(1, 0).Select

End Sub

Zaslat odpověď >

---

Jeza.m(28.6.2010 10:53)#001870

Ahoj,

podle mě, pokud máš v buňce regulerní číslo a pak ho načteš do proměnné Text, která je definovaná jako string, tak to bude brát jako text, dále když filtr nastavíš na *Text*, tak to opět bude hledat jen text.
Asi bych to řešil ověřením je-li hodnota číslo (Isnumeric) a podle toho bych pak nastavil filtr:
buď
- je-li číslo, tak dle proměnné která bude třeba Cislo as Single - bez hvězdiček.
jinak
- je text, tak dle proměnné text klidně s hvěudičkama :-).

M@citovat

Anonym(28.6.2010 11:42)#001871

Díky, to je onocitovat

paveku(28.6.2010 19:39)#001877

Vyskytl se ještě jeden problém. Na celá čísla to funguje perfekt. Pokud mám buňku formátovanou na dvě desetinná místa a hodnota je např. 6,00, tak filtr nezobrazí nic, resp. zobrazí buňky kde je číslo 6 s formátem bez desetinných míst.
Sub CommandButton1_Click()
Dim cislo As Single
cislo = ActiveCell
Selection.AutoFilter Field:=1, Criteria1:=cislo
End Sub
citovat

Poki(28.6.2010 20:03)#001878

Mozna by pomohlo preformatovat pomoci funkce FORMAT(cislo, General), kde General je format, ktery ma bunka mit.
Zjistit, jaky format ma konkretni bunka lze takto: Activecell.NumberFormatcitovat

paveku(28.6.2010 20:38)#001879

Formát má bunka "0.00". Nevím jak to myslíš s tím přeformátováním? To jako sloupec, který filtruju?citovat

Poki(28.6.2010 20:57)#001880

MOzna jsem spravne nepochopil, v cem je problem. Myslel jsem, ze se ti nevyfiltruji vsechna data, jen ta, ktera maji stejny format, jako ta bunka, podle ktere hledas. Potom by slo pro ucel filtru preformatovat hodnotu te bunky...citovat

paveku(28.6.2010 21:38)#001881

přikládám soubor, z kterého to bude jasné.
Pokud stojím na bunce ve sloupci a stisknu tlačítko, dojde ke špatnému filtrování,

Příloha: 1881_filtr.zip (9kB, staženo 32x)

citovat

paveku(29.6.2010 20:17)#001893

Opravdu nikdo nezná řešení? Nebo alespoň jak to obejít?citovat

Jeza.m(30.6.2010 11:08)#001899

Tak jsem to zkoušel všemožně a ikdyž jsem mu do toho pole dal přesně to co se tam dá vybrat, tak při spuštění filtru makrem to nefungovalo, když jsem pak dal filtr -> vlastní a nechal mu tam hodnotu tak jak ji tam zapsalo makro a dal jsem OK, tak se to vyfiltrovalo, takže to nejede jen při spuštění makrem, z čehož jsem tak trochu jelen :-/.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse