Funcion ALEATORIO con 1 X 2

Hola

Suponiendo que en la celda A1: = Aleatorio()
Luego en la celda A2: =SI(A1>2/3;"X";SI(A1>1/3;2;1))

Me explico, busca el valor aleatorio entre 0 y 1
si > 2/3 => "X"
si > 1/3 => 2
otra cosa => 1

Saludos
Dick Fernández

Yo tengo hecho algo parecido a lo que comentas aunque para
muchas más celdas, pero básicamente la forma de generar el
pronóstico que yo utilizo vendría a ser más o menos así:

Lo inicializo en el click de un CommandButton:

Private Sub CommandButton1_Click()
Dim pronostico
Randomize ' Inicializa el generador de números
aleatorios.
pronostico = Int((3 * Rnd) + 1) ' Genera valores
aleatorios entre 1 y 3.
If MiValor = 3 Then MiValor = "X" 'Si el valor es 3 lo
sustituyo por X
Cells(1, 1).Value = pronostico 'Coloco el valor en la
celda A1
End Sub

Probablemente haya un método más sencillo, pero si esto te
puede servir...

Saludos desde Zaragoza-España.

Hola Amigos

Necesito crrear una tabla en la que una casilla se genere
aleatoriamente o un "1" una "X" o un "2" (como las

quinielas)

Con la ayuda de excel de la funcion ALEATORIO y

ALEATORIO.ENTRE y no

logro que funcione.

¿Me pueden echar una manita?

Un saludo agradecido


This article posted from the web-interface to the

Internet Partners news

server (news.ipinc.net), Portland's full-service business

Internet

provider. Check out http://news.ipinc.net/ for free web

access to Usenet

news.
.

Hola Ruben,

Prueba esta formula:

=SI(ENTERO(ALEATORIO()*3)+1=3;"X";ENTERO(RAND()*3)+1)

Saludos,
KL

"Ruben" wrote in message
news:421e2e82$0$38728$

Hola Amigos

Necesito crrear una tabla en la que una casilla se genere
aleatoriamente o un "1" una "X" o un "2" (como las quinielas)

Con la ayuda de excel de la funcion ALEATORIO y ALEATORIO.ENTRE y no
logro que funcione.

¿Me pueden echar una manita?

Un saludo agradecido


This article posted from the web-interface to the Internet Partners news
server (news.ipinc.net), Portland's full-service business Internet
provider. Check out http://news.ipinc.net/ for free web access to Usenet
news.

Hola KL

RAND() es lo mismo que ALEATORIO()

=SI(ENTERO(ALEATORIO()*3)+1=3;"X";ENTERO(RAND()*3)+1)

En este caso me imagino, que cuando es llamado por segunda vez nos da un
nuevo valor aleatorio
distinto al evaluado en el primer SI(), por ende

podria producir un sesgo, pero lo acabo de probar para 10.000 registros y
funciona sin problemas,
dando 1/3 de probabilidad para cada alternativa. Eso si que hay que
multiplicar x 2 en la segunda evaluación.

=SI(ENTERO(ALEATORIO()*3)+1=3;"X";ENTERO(ALEATORIO()*2)+1)

luego: en la primera evaluación para X, ocupamos un 1/3 de probabilidades,
ok.
en la segunda evaluación ocupamos 1/2 de los 2/3 restantes, asi que tambien
nos deja 1/3 para cada opción,
que es lo correcto.

Saludos
Dick Yery Fernández

Perdon, en algo me equivoqué:

en la linea en que aparece 'MiValor' sustituyelo
por 'pronostico'

Disculpen.

Yo tengo hecho algo parecido a lo que comentas aunque

para

muchas más celdas, pero básicamente la forma de generar

el

pronóstico que yo utilizo vendría a ser más o menos así:

Lo inicializo en el click de un CommandButton:

Private Sub CommandButton1_Click()
Dim pronostico
Randomize ' Inicializa el generador de números
aleatorios.
pronostico = Int((3 * Rnd) + 1) ' Genera valores
aleatorios entre 1 y 3.
If MiValor = 3 Then MiValor = "X" 'Si el valor es 3 lo
sustituyo por X
Cells(1, 1).Value = pronostico 'Coloco el valor en la
celda A1
End Sub

Probablemente haya un método más sencillo, pero si esto

te

puede servir...

Saludos desde Zaragoza-España.

Hola Amigos

Necesito crrear una tabla en la que una casilla se genere
aleatoriamente o un "1" una "X" o un "2" (como las

quinielas)

Con la ayuda de excel de la funcion ALEATORIO y

ALEATORIO.ENTRE y no

logro que funcione.

¿Me pueden echar una manita?

Un saludo agradecido


This article posted from the web-interface to the

Internet Partners news

server (news.ipinc.net), Portland's full-service

business

Internet

provider. Check out http://news.ipinc.net/ for free web

access to Usenet

news.
.

.