Sorteggio, come?

[Dilettante]

Per effettuare un sorteggio, io inserisco una colonna di numeri casuali
e poi ordino su quella colonna.
es. in A1 Alice in B1=CASUALE()
in A9 Zurlo in B9=CASUALE()
ordina per colonna B ordina casualmente i nomi da 1 a 9.
c'è un altro modo di estrarre n dati a caso da un elenco? Magari
automatizzando le operazioni su un altro foglio, e lasciando la prima
colonna di dati nel suo ordine naturale.
Grazie.

[fernando cinquegrani]

[Dilettante] scrive in
http://www.google.it/groups?threadm=1151235067.0...@u72g2000cwu.googlegroups.com

associando la funzione RANGO() [vedi help]
alla colonna dei numeri casuali. quindi con
INDICE() [vedi help] estrarre i valori nell'ordine
.f

http://www.prodomosua.eu

[Stefano]

Anch'io ho il problema di fare un sorteggio, poniamo di 30 righe su 100.
L'ideale per me sarebbe, anche mediante macro, che venisse inserita in una
data colonna, una "x" in modo del tutto casuale su 30 delle 100 celle in
questione.
Grazie in anticipo.
--
Stefano
(fatti un gingerin al posto del grappin: resti sobrio e rispondermi potrai!)
--
"Dilettante" <mmat...@yahoo.com> ha scritto nel messaggio
news:1151235067.0...@u72g2000cwu.googlegroups.com...

[Matteo]

fernando cinquegrani <f.cinq...@xroxxmxxxa.it> ha scritto:

> associando la funzione RANGO() [vedi help]
> alla colonna dei numeri casuali. quindi con
> INDICE() [vedi help] estrarre i valori nell'ordine

Sono [Dilettante]
A simulare l'estrazione di 5 numeri al lotto ce l'ho fatta.
Spero di cavarmela da solo, ad andare avanti.
Grazie.

Inviato da X-Privat.Org - Registrazione gratuita http://www.x-privat.org/join.php

[Cristiano]

Stefano wrote:
> [...] L'ideale per me sarebbe, anche mediante macro, che venisse

> inserita in una data colonna, una "x" in modo del tutto casuale su 30
> delle 100 celle in questione.

Non so se "del tutto casuale" lo intendi in senso rigoroso (generatore di
numeri del tutto imprevedibili con distribuzione uniforme). In tal caso, non
si può usare "Rnd" (che sotto Excel è solo un pessimo generatore di numeri
pseudo-casuali).

Option Explicit

Sub MettiX()
Dim n As Integer, r As Long
Randomize

Do
r = Int((100 * Rnd) + 1)
If IsEmpty(Cells(r, 1)) Then Cells(r, 1) = "x": n = n + 1
Loop Until n = 30
End Sub

Cristiano