< návrat zpět
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
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
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
citovatmarjankaj(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.
citovatmno 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í
citovatNemůž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é.
citovatkp57(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
RSS nejnovější články