< návrat zpět

MS Excel


Téma: Automatický filtr VBA rss

Zaslal/a icon 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ší »
#000496
avatar
Konečně pěkný problémek, zítra na to kouknu 6citovat
#000497
avatar
Diky, uz se tesim na odpoved.citovat
#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
icon#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
#000509
avatar
Přiznávám, asi to je pro mě složitýcitovat
icon icon#000543
admin
V příloze je můj návrh řešení, tak se na to podívejte.citovat
Příloha: file543_rychle_hledani_vba.zip
icon#000595
avatar
Petre dekuji za radu, funguje. A dekuji take "Jeza.m" za nakopnuti. 17citovat
icon#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
icon#000658
avatar
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 icon#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

On-line nástroje

Novinky

Formulář Faktura III

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

Aktivní diskuse

rovnoměrné rozložení ceny

aikawaboy • 30.10. 13:13

rovnoměrné rozložení ceny

Opičák • 30.10. 13:00

rovnoměrné rozložení ceny

aikawaboy • 30.10. 12:02

rovnoměrné rozložení ceny

Palooo • 30.10. 10:39

Doplnenie vymazania

laco_atc • 30.10. 10:21

rovnoměrné rozložení ceny

aikawaboy • 30.10. 10:06

Doplnenie vymazania

eLCHa • 30.10. 9:22