Hola a todos!.
Me hicieron una consulta sobre un post que escribí hace unos meses: GENERAR MOVIMIENTOS ALEATORIOS DE LAS CELDAS DE UNA HOJA EXCEL CON VBA
Para ese post había creado una macro muy sencilla que pintaba una serie de celdas aleatoriamente. Era una macro que había creado para que mi hija Alicia jugase con la hoja de cálculo y ejercitase el doble click del ratón. Al ver el comportamiento de las celdas y los colores, le animaría a darle al click varias veces.
Pues bien, la consulta era si se podían incluir más colores de relleno en las celdas para mejorar el efecto. Y la respuesta es que sí, de hecho se pueden añadir muchísimas combinaciones de colores. La idea es crear tres variables aleatorias que generen números del 0 al 255 para aplicar así la función RGB y crear colores propios de esta función.
Este sería el nuevo código modificado:
Public Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Long, j As Long
Dim fin As Long, final As Long, Mov As Long
Dim R As Long, G As Long, B As Long
For i = 1 To 1000
Mov = Application.WorksheetFunction.RandBetween(1, 4)
R = Trim(Application.WorksheetFunction.RandBetween(0, 255))
G = Trim(Application.WorksheetFunction.RandBetween(0, 255))
B = Trim(Application.WorksheetFunction.RandBetween(0, 255))
On Error Resume Next
Select Case Mov
Case 1
ActiveCell.Offset(0, 1).Select
ActiveCell.Interior.Color = RGB(R, G, B)
Case 2
ActiveCell.Offset(0, -1).Select
ActiveCell.Interior.Color = RGB(R, G, B)
Case 3
ActiveCell.Offset(1, 0).Select
ActiveCell.Interior.Color = RGB(R, G, B)
Case 4
ActiveCell.Offset(-1, 0).Select
ActiveCell.Interior.Color = RGB(R, G, B)
End Select
Next i
End Sub
Y aquí una muestra de los colores generados:

Pues esto es todo, espero que os sea igual de útil que lo ha sido para mí.
¿Te ha resultado de interés?, puedes apoyar a Excel Signum con una pequeña donación.
¡¡Muchas gracias!!
Mediante la suscripción al blog, la realización comentarios o el uso del formulario de contacto estás dando tu consentimiento expreso al tratamiento de los datos personales proporcionados según lo dispuesto en la ley vigente (LOPD). Tienes más información al respecto en esta página del blog: Política de Privacidad y Cookies