Hirdetés
- Pebble - az átgondolt okosóra
- Xiaomi 15T Pro - a téma nincs lezárva
- Google Pixel 9 Pro XL - hét szűk esztendő
- iPhone topik
- Samsung Galaxy S25 - végre van kicsi!
- Xiaomi 17 Ultra - jó az optikája
- Vivo X300 Ultra - tárcsázz, ha van rá keret!
- Nem lesz olcsó a Realme GT 8 Pro Európában
- 8000 nit, maradhat? A szaúdiaknál kezd a Honor 600 Pro
- Mától Huawei okosórákkal is lehet érintésmentesen fizetni
-
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
- Lalikiraly: Macbook NEO 2
- Kerékpárosok, bringások ide!
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- exHWSW - Értünk mindenhez IS
- alza vélemények - tapasztalatok
- Milyen program, ami...?
- E-roller topik
- Pebble - az átgondolt okosóra
- Eredeti játékok OFF topik
- Videó stream letöltése
- További aktív témák...
- MS SQL Server 2016, 2017, 2019
- Game Pass Ultimate előfizetések 3 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- The Elder Scrolls Online Imperial Collector s Edition
- Játékkulcsok olcsón: Steam, Uplay, GoG, EA, Xbox stb.
- Toshiba KXG50ZNV1T02 1TB M.2 NVMe PCIe Gen3 x4 SSD
- 0% THM 4 havi részlet, beszámítás! Gamer PC, notebook, konzol, Apple termék, hardver KAMATMENTESEN!
- Gamer PC-Számítógép! Csere-Beszámítás! I3 14100F / RTX 3070 8GB / 16GB DDR4 / 512 Nvme SSD
- GAMER PC! Ultra 7 265 / RTX 5070 / 32GB DDR5 / 1TB NVMe / 750w Gold / BeszámítOK !
- PlayStation Okosító Blu-ray lemezek - PS4 GoldHEN Loader / BD-JB Lapse és PS5 Auto Jailbreak AIO
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50
