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
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- The Elder Scrolls Online Imperial Collector s Edition
- DELL Latitude 5285 (Tablet) 2 az 1 ben,FHD +,12.3,i5-7200U,8GB 128GB SSD,LTE, WIN11
- Apple iPhone 16e 128 GB White 100% Akkumulátor 12 hónap Garancia Beszámítás Házhozszállítás
- BESZÁMÍTÁS! ASRock B450M R5 4500 16GB DDR4 512GB SSD GTX 1660 Super 6GB Zalman T3 Plus DeepCool 400W
- Apple iPhone 12 Mini 128 GB Fekete 1 év Garancia Beszámítás Házhozszállítás
- Xeon E5 1650 v3, 2680 v3, 2690 v3 processzorok
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest