< návrat zpět

MS Excel


Téma: Automatický filtr VBA rss

Zaslal/a 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
#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 #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 76x)
citovat
#000595
avatar
Petre dekuji za radu, funguje. A dekuji take "Jeza.m" za nakopnuti. 17citovat
#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
#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 #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

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09