Hirdetés
- Azonnali mobilos kérdések órája
- Honor Magic8 Pro - bevált recept kölcsönvett hozzávalókkal
- Xiaomi 15T Pro - a téma nincs lezárva
- Apple iPhone 16 Pro - rutinvizsga
- Nő az eSIM-ek iránti igény
- Yettel topik
- iPhone topik
- Garmin Instinct – küldetés teljesítve
- Amazfit T-Rex 3 Pro – világítós dínó
- Új dizájn, régi ár: fülbemászó ajánlattal búcsúztatja a Samsung a telet
-
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
-
m.zmrzlina
senior tag
válasz
Delila_1
#11602
üzenetére
Abból kellene kiindulni, hogy a munkafüzet valójában úgy működik, hogy userformra (label.Caption) adja ki a RandBetween() a kérdést és textboxban kell bevinni a választ. A keresést fkeres() végzi. Magát a munkalapot a felhasználó úgy látja hogy ha kiválaszt egy munkalapot (lecke szavait) akkor a betűszínt háttér szinére állítom és az kommunikáció a userformon megy. Valahogy így néz ki (az A és B oszlopokban ott vannak a szavak és a megfelelőjük fehér betűszínnel)
A legfelső label.Captiont a köv. sor adja:
lb_kerdes.Caption = Range("A" & Application.WorksheetFunction.RandBetween(1, Range("A1048576").End(xlUp).Row)).Value
Az ellenőrzést a köv sor végzi:
If tb_valasz.Text = Application.WorksheetFunction.VLookup(lb_kerdes.Caption,Range("A:B"), 2, False) ThenEzután pár sor ami jó/rossz válasz esetén csinál bizonyos dolgokat. Ide jöhetne jó válasz esetén a C oszlopba egy eggyel növelt szám, és utána hogyan tovább?
Új hozzászólás Aktív témák
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- SzoftverPremium.hu
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Samsung Galaxy Z Flip 5 512GB,Újszerű,Adatkabel,12 hónap garanciával
- Lenovo 14 Yoga Slim6 WUXGA OLED Ryzen5 7540U 4.9Ghz 16GB DDR5 512GB SSD Radeon 740M Win11 Garancia
- Akciós kisWorkstation! Dell Precision 3560 i7-1165G7 4.7GHz / 16GB / 512GB / Quadro T500 2GB FHD 15"
- iPhone 17 Pro 256 GB Kozmosz - Bontatlan !! www.stylebolt.hu - Apple eszközök - Számlás
- BESZÁMÍTÁS! ASRock H510M i5 11400F 16GB DDR4 512GB SSD ASUS ROG RX VEGA64 8GB CM Masterbox 5 700W
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Fferi50

