- sziku69: Fűzzük össze a szavakat :)
- valakiyt: A világ mindennek az alja!
- sziku69: Szólánc.
- eBay-es kütyük kis pénzért
- [Re:] Mutasd az iOS Homescreened!
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- bambano: Bambanő háza tája
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- lkristóf: Prohardver fórum userscript – hogy lásd, mikor neked válaszoltak
- Sapphi: StremHU | Source – Self-hostolható Stremio addon magyar trackerekhez
-
LOGOUT
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
- sziku69: Fűzzük össze a szavakat :)
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Van képe mindent kiírni a HAGiBiS SSD házának
- S.T.A.L.K.E.R. 2: Heart of Chornobyl
- Fejhallgató erősítő és DAC topik
- Lakáshitel, lakásvásárlás
- Milyen videókártyát?
- AliExpress tapasztalatok
- Büszke apukák és anyukák topikja
- Robotporszívók
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- MS SQL Server 2016, 2017, 2019
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- GIGABYTE A520M DS3H AC vadiúj, 3 év névre szóló garancia, WiFi
- iKing.Hu - Xiaomi 15T Pro 12GB/256GB Mocha Gold használt, karcmentes 6 hónap garancia
- BESZÁMÍTÁS! Gigabyte B760M i3 12100F 16GB DDR4 512GB SSD RX 7600 8GB Zalman T4Plus CoolerMaster 650W
- Akciós Windows 10 pro + Office 2019 professional plus csomag AZONNALI SZÁLLÍTÁS
- Elektronikai csomag (usb hub, display, hdmi kábelek, riser-ek)
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Fferi50
