- One mobilszolgáltatások
- Samsung Galaxy Watch8 - Classic - Ultra 2025
- Android szakmai topik
- Mától Huawei okosórákkal is lehet érintésmentesen fizetni
- Google Pixel topik
- Xiaomi 15T Pro - a téma nincs lezárva
- Honor Magic6 Pro - kör közepén számok
- Milyen okostelefont vegyek?
- iPhone topik
- Huawei Watch GT 6 és GT 6 Pro duplateszt
-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Oly
őstag
Sziasztok!
Bátorkodtam belekezdeni a ciklusokba is!

A feladat az, hogy van kétszer kettő OptionButton.
Ezzel lehet kiválasztani, hogy Fizetős/Ingyenes (fizeto, ingyeno) és Futáros/Postai (futaro, postao) kézbesítést kérünk-e.A CommandButton5 megnyomásával elmenti a beírt adatokat. Azt szeretném, hogy a "MENTÉS"-sel jelzett parancsom (ezt nem másoltam be, mert irreleváns), csak akkor fusson le, ha nem volt MsgBox-os figyelmeztetés. (Értelem szerűen, akkor, ha nincs egyik sem kijelölve...)
Valamint lehet-e egyszerűsíteni ezt az if. thenes vackot, mert lesz olyan Formom is, ahol 6-7 feltételt fogok vizsgálni, azokon belül is 3-4 opciót.Private Sub CommandButton5_Click()
Dim fiz As String
If ingyeno = "True" Then
fiz = "Ingyenes"
Else
If fizeto = "True" Then
fiz = "Fizetős"
Else
MsgBox "Válassz díjazást!"
End If
End If
Dim fut As String
If futaro = "True" Then
fut = "Futár"
Else
If postao = "True" Then
fut = "Posta"
Else
MsgBox "Válassz szállítási módot!"
End If
End If
"MENTÉS"
End Sub
Új hozzászólás Aktív témák
- Luck Dragon: Asszociációs játék. :)
- Overwatch 2
- Genshin Impact (PC, PS4, Android, iOS)
- Luck Dragon: MárkaLánc
- sziku69: Fűzzük össze a szavakat :)
- Vicces képek
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Kötelező frissítésnek számít a Microsoft legújabb csomagja a Windows 11-hez
- Nagyon meggyőző közösségi klienst kapott a GeForce Now
- Milyen Android TV boxot vegyek?
- További aktív témák...
- MEDION ERAZER Cooling Kit V2 Vízhűtés - MD 62737 Beast 16 X1, 18 X1 gamer laptopokhoz
- GYÖNYÖRŰ iPhone 12 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS4567
- Honor 400 5G 512 GB Desert Gold karcmentes (8 GB /512 Gb)
- Apple iPhone 12 64Gb,Újszerű,Dobozaval,12 hónap garanciával
- Utolsó darab! MacBook Pro 16" M1 32GB RAM 27%-os áfás számla
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50
