< návrat zpět

MS Excel

Téma: Automatický filtr VBA rss

Zaslal/a suchopyr 29.4.2009 14:00

Dobry den,

mam udelany jednoduchy automaticky filtr na jednom listu. Jedna se o tri sloupce. Prvni poradi, druhy cislo, treti popis.

Pomoci udalosti TextBox_Change automaticky vyplnuji automaticky filtr kde kriterium je hledane *slovo* (obsahuje).

U bunek ve kterych je text vse funguje jak ma. A u bunek kde je cislo ne. Zkousel jsem zmenit format bunky na text, ale porad nic :( uz si nevim rady.

Dokazal by me nekdo nakopnout spravnym smerem?

Diky moc za pomoc 2

img

Prikladam kod a soubor ke stazeni:

http://okj.misto.cz/rychle_hledani_vba.xls

If TextBox1.Text <> "" Then

TextBox1.BackColor = RGB(255, 0, 0) 'cervena

Dim slovo As String


slovo = "*" & TextBox1.Text & "*"
Selection.AutoFilter Field:=2, Criteria1:=slovo, Operator:=xlAnd

Else
Selection.AutoFilter Field:=2
TextBox1.BackColor = RGB(255, 255, 255) 'bila

End If

stop Uzamčeno - nelze přidávat nové příspěvky.
Strana:  1 2   další »
kolokol(29.4.2009 19:24)#000496
avatar
Konečně pěkný problémek, zítra na to kouknu 6citovat
Suchopyr(29.4.2009 19:30)#000497
avatar
Diky, uz se tesim na odpoved.citovat
kolokol(30.4.2009 10:52)#000500
avatar
No přijde mi to jako komplikace nasazovat nějaké makro, když to filtruje pěkně přímo v Excelu, tak to vzdávám 3 .Sorrycitovat
suchopyr(5.5.2009 17:36)#000505
avatar
Automaticky filtr je dobra vec, ale tahle je to vyrazne rychlejsi .. skoda ze to u cisel nefunguje stejne jako u textu ... pokud se pred cislo vlozi znak ' tak to funguje .. ale takhle jsem to moc resit nechtel :( kazdopadne dekuji za snahu!!!citovat
kolokol(6.5.2009 21:12)#000509
avatar
Přiznávám, asi to je pro mě složitýcitovat
icon admin(30.6.2009 20:59)#000543
admin
V příloze je můj návrh řešení, tak se na to podívejte.
Příloha: zip543_rychle_hledani_vba.zip (11kB, staženo 77x)
citovat
suchopyr(20.7.2009 17:23)#000595
avatar
Petre dekuji za radu, funguje. A dekuji take "Jeza.m" za nakopnuti. 17citovat
Ondrej-Urban(20.8.2009 10:09)#000657
avatar
Zdravím, tak sem si stáhl ten ZIP a musím bohužel říct že čísla nefungují. Mám Excel 2003.
Díky za raducitovat
Jeza.m(20.8.2009 11:07)#000658
Jeza.m
Je-li v buňce číslo, tak půjdou použít jen logické (=,<>,>,<,=>,<=), pokud se změní formát na text buňky na text, tak to ještě neznamená že se obsah buňky změní na text.

Pokud je potřeba používat filtr (začíná na, končí na, nebo obsahuje), tak je potřeba do buňky již zadat číslo jako text např. s apostrofem na začátku '123 nebo v uvozovkách ="123", poté by měl filtr fungovat (snad :-) )

M@citovat
icon admin(20.8.2009 13:26)#000659
admin
V přiloženém archiv je několik řešení. Stačí otevřít v Editoru maker a odstranit komentáře a zakomentovat ten příkaz, které chcete dočasně vypnout. Můžete tak testovat a zkoušet.

Jinak celou lze vyřešit ještě tak, že použijete pomocný sloupec, ve které budou čísla převáděna na text. Následně pak makro nasměrovat na filtrování tohoto pomocného sloupce.citovat

Strana:  1 2   další »

Uživatelské menu

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

Menu

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.

On-line nástroje