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
- Metal topik
- Vezeték nélküli fülhallgatók
- Lexus, Toyota topik
- Pánik a memóriapiacon
- Autós topik látogatók beszélgetős, offolós topikja
- Sokkal jobb ajánlat lett elődjénél az iPhone 17e
- Parkside szerszám kibeszélő
- Brogyi: CTEK akkumulátor töltő és másolatai
- Milyen belső merevlemezt vegyek?
- PlayStation 5
- További aktív témák...
- Jó ÁRON ELADÓ! Üzleti HP Elitebook 1040 G9 Laptop! / i5-1245U 16GB 256GB FHD
- ÚRIS10!!! RAMÁRON! LEGION 5 i7-13650HX 16GB RAM 512GB SSD RTX 5070 8GB 2K OLED 165Hz 500NIT
- HP ElitBook 840 G10 netbook / 12 hónap jótállás
- Samsung Galaxy A35 5G 6/128GB / 12 hó jótállás
- BESZÁMÍTÁS! ASUS TUF GeForce RTX 3080 Ti 12GB videokártya garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest