MS Excel

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: zip

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

Téma: Automatický filtr VBA

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje