MS Excel

Téma: Podmínka

Zaslal/a vary 12.1.2016 14:51

zdravím potřebuji poradit zda se dá nějak vytvořit podmínka na to jestli je vytvořen textbox.
např takto:

if TextBox("name") = exist then
.....

nemůžu na to pořád přijít
díky :-)

Zaslat odpověď >

Pavlus(12.1.2016 15:37)#029203

Jedna z možností s využitím "Select" a "On Error GoTo".
P.

Př.:
Sub Overeni_existence_TextBoxu()
Dim msg As Byte

On Error GoTo Neexistuje
Sheets(List1.Name).TextBox1.Select
msg = MsgBox("Existuje")
Exit Sub

Neexistuje:
msg = MsgBox("Neexistuje")
End Subcitovat

drozd(12.1.2016 17:00)#029207

Pavlusův postup je v pořádku, i když Select není úplně nejšikovnější způsob testu (existující, ale skrytý TextBox nelze pomocí metody Select oslovit). Lepší je pokus o přiřazení nějaké vlastnosti k proměrné (např. x=TextBox1.Text), ošetřené pomocí On Error.citovat

elninoslov(12.1.2016 20:10)#029217

Presne tak:
Function ftbCheck(name As String) As Boolean
Dim Exist As Boolean
On Error Resume Next
Exist = Not ThisWorkbook.Worksheets("Hárok1").OLEObjects.Item(name) Is Nothing
ftbCheck = Exist
End Function

Sub test()
MsgBox ftbCheck("TextBox2")
End Subcitovat

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.