aleatorio excluyendo numeros

10/10/2006 - 22:17 por Rafael | Informe spam
Hola,

Como puedo usar la función aleatorio.entre entre un rango de numeros
exluyendo ciertos números?

Gracias

Rafael

Preguntas similare

Leer las respuestas

#1 David
10/10/2006 - 23:38 | Informe spam
¿Vale que construyas tu propia función?

Podrías implementar algo como esto:

Function Aleatorios(Número_Inicial As Integer, Número_Final As Integer,
Rango_A_Excluir As Range)
Application.Volatile
Dim N As Integer, Salir, Igual As Boolean
Randomize
Do
N = Round(Rnd() * (Número_Final - Número_Inicial) + Número_Inicial, 0)
Salir = True
For Each celda In Rango_A_Excluir.Cells
If celda.Value = N Then Salir = False
Next celda
Loop Until Salir
Aleatorios = N
End Function

Una observación final: Una función volátil se recalcula cada vez que haces
un cambio en tu hoja electrónica. Si generas una gran cantidad de valores
con esta función, probablemente se ralentice tu Excel. En ese caso, puedes
anular la línea "Application.volatile", y para forzar el cálculo de nuevos
valores, borras y vuelves a escribir cualquier valor de los parámetros de
entrada.



"Rafael" escribió:

Hola,

Como puedo usar la función aleatorio.entre entre un rango de numeros
exluyendo ciertos números?

Gracias

Rafael


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida