30 noviembre, 2023

GENERAR MOVIMIENTOS ALEATORIOS Y COLOREAR LAS CELDAS DE UNA HOJA EXCEL CON VBA

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.

Donate Button with Credit Cards

¡¡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

Comparte este post

Si te ha gustado o tienes alguna duda, puedes dejar aquí tu comentario.

Este sitio web utiliza cookies para que usted tenga la mejor experiencia de usuario. Si continúa navegando está dando su consentimiento para la aceptación de las mencionadas cookies y la aceptación de nuestra política de cookies, pinche el enlace para mayor información.plugin cookies

ACEPTAR
Aviso de cookies