Hirdetés
- gban: Ingyen kellene, de tegnapra
- Luck Dragon: Asszociációs játék. :)
- Luck Dragon: MárkaLánc
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- mefistofeles: Az elhízás nem akaratgyengeség!
- aquark: Zsebszámológépek
- eBay-es kütyük kis pénzért
- bobalazs: i5 4690 + RX 460 HTPC
- D1Rect: Nagy "hülyétkapokazapróktól" topik
-
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
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Xbox / Microsoft Store feltöltőkártya kód (digitális, HU) több címlet, több db, azonnal, olcsón
- Fallout 4 Pip-Boy Edition eladó
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- BESZÁMÍTÁS! Microsoft XBOX Series S 512GB játékkonzol garanciával hibátlan működéssel
- 27% - MSI MAG 27C6F Monitor! 1920x1080 / 0.5ms / 180Hz / FreeSync
- iPhone 13 mini 128GB Green -1 ÉV GARANCIA - Kártyafüggetlen, MS4052, 94% Akkumulátor
- Razer Cobra Lightweight Minecraft Edition RGB Gaming Egér!
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RTX 5070Ti 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50