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

MS Excel

Téma: Pomoct s podmínkou

Zaslal/a marficek119 2.10.2014 14:33

Zdravím, potřeboval bych pomoci s formulací/pořadím podmínky.

Mám combobox a textbox a potřebuji, aby zde byla daná podmínka : Když je v combu vybraná hodnota, a textbox je nevyplněný, tak se zobrazí msgbox s upozorněním aby byl vyplněn textbox. To samé obráceně, pokud je hodnota v textboxu a combo nevyplněné tak opět msgbox s hláškou. Níže je uvedená podmínka, ale reaguje pouze na to pokud je hodnota napsaná v texboxu. Někde mám něco špatně. Pomůže někdo?

If TextBox65 = True Then
If ComboBox4 = "" Then 'Výběr cihly Zdivo 2
MsgBox "Vyberte rozměr bednění (cihly) pro výpočet spotřeby... (Rozměr zdiva 2)", vbInformation
Exit Sub

Else
If TextBox65 = "" Then
If ComboBox4 = True Then
MsgBox "Zadejte rozměr délky a šířky zdi...(Rozměr zdiva 2)", vbInformation
Exit Sub
End If
End If
End If
End If

Zaslat odpověď >

---

€Ł мσşqμΐτσ(2.10.2014 14:56)#021765

zrušit else

If TextBox65 = True And TextBox65 = "" Then MsgBox "Zadejte rozměr délky a šířky zdi...(Rozměr zdiva 2)", vbInformation: Exit Sub
If ComboBox4 = True And ComboBox4 = "" Then MsgBox "Vyberte rozměr bednění (cihly) pro výpočet spotřeby... (Rozměr zdiva 2)", vbInformation: Exit Subcitovat

marficek119(2.10.2014 15:23)#021768

Pokud to napíšu takto, tak stále nefunguje. Asi jsem pochopil špatně


If TextBox65 = True And ComboBox4 = "" Then
MsgBox "Vyberte rozměr bednění (cihly) pro výpočet spotřeby... (Rozměr zdiva 2)"
Exit Sub
'End If
If ComboBox4 = True And TextBox65 = "" Then
MsgBox "Zadejte rozměr délky a šířky zdi...(Rozměr zdiva 2)"
Exit Sub
End If
End If
citovat

marjankaj(2.10.2014 15:28)#021769

mosquito791 napsal/a:

zrušit else

If TextBox65 = True And TextBox65 = "" Then MsgBox "Zadejte rozměr délky a šířky zdi...(Rozměr zdiva 2)", vbInformation: Exit Sub
If ComboBox4 = True And ComboBox4 = "" Then MsgBox "Vyberte rozměr bednění (cihly) pro výpočet spotřeby... (Rozměr zdiva 2)", vbInformation: Exit Sub

Tak takéto riadky môžeš aj vyhodiť a nič sa nezmení. Snáď iba dĺžka kódu.citovat

€Ł мσşqμΐτσ(2.10.2014 16:31)#021771

mno jo ted koukám, že tam není .enabled nebo .visible.

Tak teď nechápu proč je tam

textbox65 = true ,nebo
combobox4 = true

a nestačí jenom "If TextBox65 = "" Then MsgBox .... :Exit Sub"
atd...

asi mám dlouhé vedení citovat

marficek119(2.10.2014 19:40)#021774

Nemůže být problém v tom, že je vybraná hodnota v combu pro podmínku neviditelná. V combu mám vybranou položku, ale stále podmínka nereaguje, jako by bylo combo nevyplněné.citovat

kp57(2.10.2014 22:46)#021778

Nevím sice kdy TextBox65 vrací "True", ale pokud je "False", tak to znamená v tom tvém kódu konec.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse