- Samsung Galaxy A54 - türelemjáték
- Yettel topik
- A világ aktív okostelefonjainak negyede iPhone, ötöde Galaxy
- Apple iPhone 16 - ígéretek földje
- Google Pixel topik
- Végre hivatalos, mikor lesz az S26 hivatalos
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Android alkalmazások - szoftver kibeszélő topik
- Motorola G86 - majdnem Edge
- Edge 70 Fusion: új renderek, több szín és részletek a specifikációt illetően
-
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
- Samsung Galaxy A54 - türelemjáték
- Horrorral pörgetné fel az új GeForce-ok eladásait az NVIDIA
- Arc Raiders
- World of Tanks - MMO
- Yettel topik
- Debrecen és környéke adok-veszek-beszélgetek
- A fociról könnyedén, egy baráti társaságban
- A Sony szerint a PlayStation 5 konzolokat még nem érinti a memóriahiány
- Lakáshitel, lakásvásárlás
- Anglia - élmények, tapasztalatok
- További aktív témák...
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- MS SQL Server 2016, 2017, 2019
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Microsoft Surface Laptop 3 13.5" fekete i5-1035G7 16GB 512GB 1 év garancia
- Értékcsökkentett gamer alaplapok /ASUS/MSI/AM5/Számlával/
- Bomba ár! Lenovo ThinkPad Yoga 370 - i5-G7 I 16GB I 256SSD I 13,3" FHD Touch I W11 I Cam I Gari!
- SATA SSD 256GB // 512GB // Számal + Garancia //
- GYÖNYÖRŰ iPhone 13 Mini 128GB Green -1 ÉV GARANCIA - Kártyafüggetlen, MS4492, 100% Akkumulátor
Á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

