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

MS Excel

Téma: Automatický filtr VBA

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



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

Uzamčeno - nelze přidávat nové příspěvky.

---

Strana:  « předchozí  1 2

Ondrej-Urban(22.9.2009 13:25)#000739

Zdravím všechny,
tak sem se s tím popral, ale nedopral. Mám v tabulce čísla oddělený po tisíci a v TextBox jim musím zadávat \\\",\\\" po tisíci jinak to nefunguje. Zkoušel sem i nějak naformátovat TextBox, ale nedaří se trefit.
Pomůže někdo ? (abych nemusel \\\",\\\" zadávat ručně)
díky Ondřej

Příloha: 739_rychle_hledani_vba-cislo.zip (9kB, staženo 27x)

citovat

Ondrej-Urban(22.9.2009 13:26)#000740

\\\",\\\" jedná se o čárku, jen pro ujasnění

Ondřejcitovat

neo.tomas(1.8.2012 15:02)#009153

Ahoj, pěkný filtr:

Private Sub TextBox1_Change()

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

End Sub

Jak nastavím aby mi to hledalo ze sloupce A a C

děkuji za raducitovat

stanher(1.8.2012 16:48)#009155

Stačí změnit číslo Field"=2
V tomto kodu je číslo 2 což znamená že je filtrován sloupec B
V případě sloupce A číslo změňte na 1, C na 3, atd.citovat

neo.tomas(2.8.2012 12:36)#009157

Děkuji ale já potřebuji aby to hledalo ve sloupci A i C. (současně s obou)

Jak to tam správně zapsat :-) děkujicitovat

Jeza(2.8.2012 16:47)#009158

Aby to filtrovalo v obou zároveň to nelze, lze filtrovat podle sloupce A a pak podle sloupce C, nebo naopak, prostě jako když vybíráš kritéria filtru ručně, nejprve jeden sloupec a potom druhý.
Z čehož v makru plyne že i filtry můžeš poskládat za sebe:
Selection.AutoFilter Field:=1, Criteria1:=slovo
Selection.AutoFilter Field:=3, Criteria1:=slovo

takhle když hledané slovo nebude ve sloupci A, ale bude ve sloupci C, tak ten řádek neuvidíš, toto lze vyřešit jedině pomocným sloupcem kam si vyhodnotíš A i C a pak filtr uděláš na tomto sloupci.

M@citovat

neo.tomas(3.8.2012 9:35)#009163

Zdravím, děkuji za radu a ono je to celkem logické zachoval jsem to podle toho příkladu na začátku.
Prostě hledání/filtrování v záhlaví každého sloupce.

Děkujicitovat

Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse