La función QBColor en VBA (Visual Basic for Applications) se utiliza para convertir un número de color de QuickBASIC a un color RGB usable en aplicaciones de Microsoft Office, como Excel. Esta función es bastante útil cuando se trata de establecer colores de objetos o textos en tus macros.

La función QBColor tiene una sola entrada: un número entero entre 0 y 15. Cada uno de estos números representa un color según la paleta predeterminada de QuickBASIC.

Aquí tienes una lista de los colores correspondientes a los números de 0 a 15:

• 0 Negro (RGB: 0,0,0)
• 1 Azul (RGB: 0,0,128)
• 2 Verde (RGB: 0,128,0)
• 3 Cian (RGB: 0,128,128)
• 4 Rojo (RGB: 128,0,0)
• 5 Magenta (RGB: 128,0,128)
• 6 Marrón (RGB: 128, 128, 0)
• 7 Gris claro / Blanco (RGB: 192,192,192)
• 8 Gris oscuro / Gris-50% (RGB: 128,128,128)
• 9 Azul claro (RGB: 0,0,255)
• 10 Verde claro (RGB: 0,255,0)
• 11 Cian claro (RGB: 0,255,255)
• 12 Rojo claro (RGB: 255,0,0)
• 13 Magenta claro (RGB: 255,0,255)
• 14 Amarillo (RGB: 255,255,0)
• 15 Blanco (RGB: 255,255,255)

Ejemplo de cómo podrías usar QBColor para cambiar el color del fondo de una celda en Excel

Sub CambiarColorDeCelda()
    ' Asumiendo que estás trabajando en el libro y hoja activos
    ' Establece el color de fondo de la celda A1 al color verde claro
    Range("A1").Interior.Color = QBColor(10)
End Sub

Si corres esta macro, la celda A1 de la hoja de Excel activa cambiará su color de fondo a verde claro.

Recuerda que QBColor solo proporciona 16 colores. Si necesitas más colores o una tonalidad específica, puedes usar directamente la función RGB, que permite especificar los valores de rojo, verde y azul de forma independiente para obtener un abanico más amplio de colores:

Sub CambiarColorDeCeldaRGB()
    ' Asumiendo que estás trabajando en el libro y hoja activos
    ' Establece el color de fondo de la celda A1 al color que desees usando RGB
    Range("A1").Interior.Color = RGB(255, 100, 0) 'Naranja
End Sub

En este ejemplo, la celda A1 cambiará su color de fondo a naranja.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto