Función NúmAleat azar

NúmAleat función Random es un fragmento de código corto que muestra cómo la función Random útil NúmAleat macro VBA está trabajando.

Explicación

El programa cambia el azar ColorIndex en las celdas de la hoja de Excel, la célula también se elige al azar, seleccionando al azar una columna y una fila al azar dentro de un rango predefinido.

El archivo de Excel está disponible para su descarga en la parte inferior de esta página!

Código

Sub Random_FunctionRND()

For lups = 1 To 10000
    Randomize
    Color2 = Int((50 * Rnd) + 1)
    Row = Int((25 * Rnd) + 1)
    Column = Int((25 * Rnd) + 1)
    Range("G2").Offset(Row - 1, Column - 1).Interior.ColorIndex = Color2
Next

End Sub

Descargar archivo de Excel!Random_Function_Rnd.xls