Aktív témák
-
Gh0sT
addikt
Látod, én meg erről az F9-es dologról nem tudtam.
A Sorsol gombot a következőképpen raktam be:
Először is megjelenítettem a vezérlők eszköztárat: Nézet --> Eszköztárak --> Vezérlők eszköztára
Itt beszúrtam egy egyszerű Parancsgombot (Command Button - az a kis szürke négyzet).
A vezérlők eszköztáron a bal oldalon fent látsz egy derékszögű vonalzót. Ha arra klikkelsz, akkor áttérhetsz tervező nézetbe. Ebben a nézetben szerkesztheted a parancsgombot. Jobb klikk rajta --> Tulajdonságok
Amit itt megváltoztattam az a Caption=Sorsol. De számos más formázási lehetőség is van. Ennyit a külalakról.
Ha tervező módban nyomsz két klikket a ''Sorsol'' gombon, akkor bejön egy Visual Basic ablak. Ebben ezt kell látnod:
Private Sub CommandButton1_Click()
Range(''A1'').Select
ActiveCell.FormulaR1C1 = ''1''
Range(''A2'').Select
End Sub
Ez lényegében annyit csinál, hogy az A1-es cellába beírja az ''1'' értéket (ami már egyébként is ott van, de ez most mind1). Ennek hatására a vél() függvény generál egy véletlenszámot. Igazából itt most azt használod ki, hogy akárhányszor új érték kerül a munkafüzetbe a vél() függvény értéke felvesz egy új értéket, tehát lesz egy új véletlenszámod.
A másik két függvény, amit nem tudom, hogy észrevettél-e:
=PÁRATLAN(INT(VÉL()*MAX($A$1:$A$60)))
=PÁROS(INT(VÉL()*MAX($A$1:$A$60)+1))
Előbbi az F8, utóbbi az F9 cellákban szerepel. Úgy oldottam, meg, hogy a névsor bővíthető legyen 60 névig, ezért is öleli fel az A1:A60-as tartományt a MAX függvény.
Tehát akkor lépésről lépésre a képlet működése:
1. A VÉL() függvény generál egy 0 és 1 közötti véletleszámot. Mivel ez neked nem igazán jó, ezért
2. ezt a számot megszorozzuk az A1:A60 cellatartományban található legnagyobb számmal. (jelen esetben ez 34, de 60-ig bővíthető)
3. Most ugye kaptál egy 0 és 34 intervallumba eső nem egész számot, amit kerekíteni kell. Erre szolgál az INT függvény.
5. Végül ezt a számot párossá, vagy páratlanná kell alakítani a megfelelő függvénnyel. A két függvény (PÁROS; PÁRATLAN) eltér egymástól, ezért is kellett a PÁROS-nál +1 -et írni még a képletbe. Ellenkező esetben 0 is jöhetett volna ki, illetve a 34 nem szerepelt volna a listában.
Még mellécsaptam az FKERES függvényt, hogy a megfelelő számhoz a listából kiválasza a megfelelő nevet. Kb. ennyi. Ha valamit nem értesz, kérdezz!
Aktív témák
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Eladó Steam kulcsok kedvező áron!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Vírusirtó, Antivirus, VPN kulcsok
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- BESZÁMÍTÁS! MSI B450 TomaHawk R5 3600 16GB DDR4 512GB SSD RX5500 XT 8GB Rampage SHIVA TT 530W
- Bomba ár! Lenovo ThinkPad X250 - i5-5GEN I 8GB I 128GB SSD I 12,5" HD I Cam I W10 I Garancia!
- ViewSonic VG700b monitor 17" 1280 1024 DSUB, DVI, beépített hangszórókkal
- Telefon felvásárlás!! Samsung Galaxy A70/Samsung Galaxy A71/Samsung Galaxy A72
- Lenovo ThinkPad dokkolók: USB-C 40A9/ 40AY/ 40AS/ Thunderbolt 3 40AC/ Hybrid USB-C DisplayLink 40AF
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest