Tabla de contenido
Rellenar celdas con valores aleatorios
El siguiente código llenará un rango dado con un número aleatorio entre 0 y 1000:
Sub Randomise_Range (Cell_Range As Range) 'Aleatorizará cada celda en Range Dim Cell' Desactivar las alertas de pantalla Application.ScreenUpdating = False para cada celda en Cell_Range Cell.Value = Rnd * 1000 Next Cell Application.ScreenUpdating = True End Sub
El código “Application.ScreenUpdating = FALSE” y “Application.ScreenUpdating = TRUE” sirven para apagar y encender las alertas de pantalla, lo que hace que el código se ejecute mucho más rápido.
Se puede configurar mediante un evento de clic, con la rutina principal especificando el rango:
Private Sub CommandButton1_Click () Randomise_Range (Hojas ("Hoja3"). Rango ("A1: T8000")) End Sub
Entonces, en este caso, las celdas A1: T8000 en la hoja 3 se completan con números aleatorios, una vez que se hace clic en el botón de comando 1.
Descargue el archivo .XLSM aquí