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!
Elküldtem mindkettőt.
Hogy micsoda?Aktív témák
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- PC Játékok
- Dell Latitude 5530 Core i5 1245U, 16GB RAM, SSD, jó akku, számla, 6 hó gar
- ÁRGARANCIA! Épített KomPhone R7 5700X 16/32/64GB RAM RX 9060 XT 16GB GAMER PC termékbeszámítással
- Telefon felvásárlás!! Samsung Galaxy A16, Samsung Galaxy A26, Samsung Galaxy A36, Samsung Galaxy A56
- Huawei Nova 9 SE 128GB, Kártytafüggetlen, 1 Év Garanciával
- Samsung Galaxy A16 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest