- Előre vagy hátra? A SilverStone rackmount házának mindegy
- Két új Arrow Lake HX CPU érkezik a gamer notebookokhoz
- MacBook Neo vs MacBook Air – Megéri a félár?
- Ha az alaplapi hangchipnél jobbra váltanál, itt az új Sound Blaster hangkártya
- ASUS blog: 2K-tól a 4K-ig és tovább a Radeon RX 9000-es szériával
- Nvidia GPU-k jövője - amit tudni vélünk
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Nem követi az NVIDIA dupla pontosságra kialakított modelljét az AMD
- Milyen belső merevlemezt vegyek?
- Milyen TV-t vegyek?
- Projektor topic
- Hobby elektronika
- MacBook Neo vs MacBook Air – Megéri a félár?
- Rácuppan a Steam eszközökre a Unity
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
-
PROHARDVER!
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
- Google Pixel topik
- Luck Dragon: Asszociációs játék. :)
- Milyen okostelefont vegyek?
- Tesla topik
- Crimson Desert
- Revolut
- Zolii21: 2HB Informatika - Ernő vélemények
- Okos otthon - Home Assistant, openHAB és más nyílt rendszerek
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Xbox Series X|S
- További aktív témák...
- HIBÁTLAN iPhone 15 Pro 128GB Black Titanium-1 ÉV GARANCIA - Kártyafüggetlen, MS4653
- Gamer PC-Számítógép! Csere-Beszámítás! Intel Ultra 7 265KF / RTX 5070 / 32GB DDR5 / 1TB Nvme SSD
- Bomba ár! Panasonic CF-20-1 Tab+Laptop: m5-6G I 8GB I 256SSD I 10,1" WUXGA Touch I Cam I W11 I Gar
- Zotac Gaming RTX 5080 // Felbontott, új // SZÁMLA // GARANCIA //
- HP EliteBook 840 G11 Ultra 7 / 16GB RAM / 512GB SSD / FHD+ IPS / Garancia 2027.11.
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50
