Cris

PINTAR ZONAS DE LA HOJA CON COLORES AL AZAR

Muestra el uso de la función Rnd para generar valores aleatorios. Y el uso de la estructura de control FOR ...NEXT paragenerar ciclos.

Para generar valores enteros aleatorios entre dos números (Límite inf y Límite sup), use la siguiente formula.

Int((Límite_superior - límite_inferior + 1) *Rnd + límite_inferior)

Pasos a seguir

 Ubique el cursor en la celda A1 e inicie la grabación de una macro.
 Use el menú “Formato/ Fuente / Trama...”seleccione un color y ponga aceptar.
 Detenga la grabación de la macro.
 Revise el código generado en la macro:

Este es más o menos el bloque que usted debe obtener:With Selection.Interior
.ColorIndex = 6 ( El número representa el color que usted eligió
.Pattern = xlSolid.PatternColorIndex = xlAutomatic
End With

Modifique la MACRO de manera que quede como sigue…

Sub Macro1()

For i = 1 To 100
numero = Int((10 - 1 + 1) * Rnd + 1)
Range("a"& numero).Select

With Selection.Interior
.ColorIndex = Int((50 - 1 + 1) * Rnd + 1)
.Pattern = xlSolid
.PatternColorIndex = xlAutomaticEnd With
Next

End Sub

Con esta macro se logra pintar 100 veces las celdas desde A1 a A10 en forma aleatoria

Las explicaciones en detalle las dará el profesor enclases.
LLENAR UNA SERIE DE CELDAS CON VALORES NUMERICOS

Muestra el uso de la estructura de control WHILE ... NEXT, que permite generar ciclos mientras una condición secumpla.


Sub Macro2()

' llena desde la celda B1 hacia abajo
' con 30 valores incrementables en 1 (partiendo de 1)

valor = 1
Range("b1").Select

While valor