Hirdetés
- Google Pixel topik
- Samsung Galaxy A56 - megbízható középszerűség
- Vivo X300 Ultra - tárcsázz, ha van rá keret!
- Samsung Galaxy S25 - végre van kicsi!
- Android szakmai topik
- Vivo X300 Pro – messzebbre lát, mint ameddig bírja
- Samsung Galaxy A55 - új év, régi stratégia
- iPhone topik
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Telekom mobilszolgáltatások
-
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
- Google Pixel topik
- Autós topik
- Forza sorozat (Horizon/Motorsport)
- Samsung Galaxy A56 - megbízható középszerűség
- Vezetékes FEJhallgatók
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Azonnali informatikai kérdések órája
- Brogyi: CTEK akkumulátor töltő és másolatai
- Építő/felújító topik
- Saját memóriaszabvánnyal küzd a memóriahiány ellen az ASRock
- További aktív témák...
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- PC Game Pass előfizetés
- Microsoft és egyéb dobozos és OEM szoftverek
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- HP EliteBook 735 G6,FHD,13.3",AMD Ryzen 5 3500U,8GB DDR4,256GB SSD,WIN11
- AKCIÓ! Microsoft XBOX Series X 1TB SSD fekete játékkonzol Starfield extrákkal garanciával
- Lenovo ThinkPad L14 Gen 2 Ryzen 5 pro 5650U, 16GB RAM, 256-512GB SSD, jó akku, számla, gar
- Lenovo ThinkPad X1 Active Noise Cancellation fejhallgató
- ÁRGARANCIA!Épített KomPhone i5 14400F 32/64GB RAM RX 9060 XT 8GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50
