Megcsináltam VBscript nélkül: http://sdrv.ms/11mBB4v Mondjuk csak 1-100 intervallumra méret-okokból, de ugyanezen elven bővíthető, ha tudjuk előre, hogy az alsó és a felső határnak mennyi a specifikációban szereplő szélsőértéke.
Nem ismétlődik, amennyiben az Excel nem adja kétszer ugyanazt a véletlenszámot. Hogy két egymás utáni véletlenszám egyforma, annak az esélye kb. annyi, mint két hónapon belül elért KÉT lottó ötösnek. Üdv!: Szilárd 2013. május 28. 13:39 Ihász, Tibor írta, <[email protected]>: > Köszönöm a válaszokat, és egyben pontosítom a kérdést: > Egy komlpex feladat részeként kellene excelben 2 cellában megadott > intervallumok között előállítani véletlenszerűen, egy harmadik cellában > megadott n db számot, és azokat kiíratni egymás alá egy oszlopban (n > értéke max. 20000). > (Tehát pozitív egészekről van szó, nem kell "bolondbiztosnak" lenni vagyis > kezdet kisebb mint vég, és v-k+1 >= n) > A faladat azzal van megtoldva, hogy nem lehetnek azonosak ezek a számok. > Valószínű VB-re lenne szükségem (de sajnos abban elég gyenge vagyok), de > minden megoldás érdekel... > Vagyis a számhármast módosítva (és mondjuk egy OK gombot nyomva), > változzon az adott oszlopba létrehozott számsor. > > Talán még éthetőbb, ha nyomok FP megoldést (minden változó egész): > begin > readln(k); > readln(v); > readln(n); > > db:=v-k+1; > for i:=1 to db do > begin > t[i]:=i+k-1; > end; > > randomize; > For i:=1 to n do > begin > a:=random(db)+1; > seg:=t[a]; > t[a]:=t[db]; > t[db]:=seg; > db:=db-1; > end; > > For i:=n downto 1 do > writeln(t[i]); > > Valami ilyesmit kéne tudni, "csak" excelben. ;-) > > Köszönöm. > > Ihász Tibor > > _______________________________________________ > Techinfo mailing list > [email protected] > Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo > Illemtan: http://www.szag.hu/illemtan.html > Ügyfélszolgálat FAQ: http://sulinet.niif.hu/ > >
_______________________________________________ Techinfo mailing list [email protected] Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://sulinet.niif.hu/
