MS Excel

Téma: Textbox

Zaslal/a priza 19.2.2012 19:05

Něco dělám špatně, potřebuji najít číslo v textboxu,dík

Příloha: zip

7355_neco-je-spatne.zip (14kB, staženo 15x)

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

Pavlus(19.2.2012 19:49)#007356

Ahoj,
pokud tomu dobře rozumím, tak chceš do TextBoxu zadat číslo, které se pak následně vyhledá pomocí filtru. Problém tam nastává v tom, že proměnné "cislo" přiřazuješ ještě navíc "*". Nahraď to tímto a pojede to:
cislo = TextBox1.Text
Jinak by jsi pak měl asi definovat proměnnou "cislo" jako jiný datový typ (např. Long)...
P.citovat

priza(19.2.2012 20:04)#007357

Ahoj, pořád mi to nějak nefunguje ???

Private Sub TextBox1_Change()
Dim cislo As String

If TextBox1.Text <> "" Then

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

cislo = TextBox1.Text
Selection.AutoFilter Field:=1, Criteria1:=cislo, Operator:=xlAnd

Else
Selection.AutoFilter Field:=1
TextBox1.BackColor = RGB(255, 255, 255) 'modrá

End If
End Subcitovat

Pavlus(19.2.2012 20:53)#007358

Mě to funguje, takže chyba bude asi někde jinde...
Viz příloha:

Příloha: zip

7358_neco-je-spatne-opraveno.zip (14kB, staženo 16x)

citovat

priza(19.2.2012 21:22)#007359

No,ono to funguje, ale musí se zadat celé číslo,já jsem chtěl při zadávání "např. začátek "2" aby se mi zobrazila všechna začínající (2) a při zadání "2"a"5" už jen začínající -2-a-5-......a td. jinak dík .citovat

Uživatelské menu

Nejste přihlášen(a)

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.