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 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Eladó Steam kulcsok kedvező áron!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- GYÖNYÖRŰ iPhone 12 Pro Max 128GB Pacific Blue -1 ÉV GARANCIA -Kártyafüggetlen, MS3996
- 175 - Lenovo Legion Pro 7 (16IAX10H) - Intel Core U9 275HX, RTX 5070Ti (ELKELT)
- HP ProDesk 600 G4 i3-8100 8GB 256GB 1 év garancia
- HP 150W töltők (19.5V 7.7A) kis kék, kerek, 4.5x3.0mm
- Dell Latitude 7390 13,3" FHD IPS, i5-i7, 8-16GB RAM, SSD, jó akku, számla, 6 hó gar
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi


