VBA RGB

Color RGB de Excel VBA

RGB también se puede denominar rojo, verde y azul, esta función se usa para obtener el valor numérico del valor del color, esta función tiene tres componentes como un rango con nombre y son rojo, azul y verde, los otros colores se consideran como componentes de estos tres colores diferentes en VBA.

En VBA, todo se reduce a la codificación de todas y cada una de las piezas, por ejemplo, si desea hacer referencia a alguna parte de la hoja de trabajo, podemos usar el objeto RANGE, si desea cambiar el color de la fuente, podemos hacer uso de la propiedad NAME del rango, luego escriba el nombre de la fuente que necesitábamos, pero imagine una situación de cambiar el color de la fuente o el color de fondo de la celda para esto, podemos hacer uso de colores VB incorporados como, vbGreen, vbBlue, vbRed, etc. Tenemos una función dedicada para jugar con diferentes colores, es decir, función RGB.

A continuación se muestra la sintaxis de la función de color RGB.

Como puede ver arriba, podemos proporcionar tres argumentos, es decir, rojo, verde y azul. Todos estos tres parámetros pueden aceptar números enteros que van de 0 a 255 solamente y el resultado de esta función será el tipo de datos "Long".

Cambiar el color de las celdas usando la función VBA RGB

Puede descargar esta plantilla de Excel VBA RGB aquí - Plantilla de Excel VBA RGB

Ejemplo 1

Por ejemplo, tenemos números de la celda A1 a A8 como se muestra en la siguiente imagen.

Para este rango de celdas, intentaremos cambiar el color de la fuente a un color aleatorio usando la función RGB.

Inicie primero el procedimiento de macro.

Código:

 Sub RGB_Example1 () End Sub

Primero, necesitamos hacer referencia al rango de celdas de fuentes cuyo color queremos cambiar, en este caso, nuestro rango de celdas es de A1 a A8, así que proporcione lo mismo utilizando el objeto RANGE .

Código:

 Sub RGB_Example1 () Rango ("A1: A8") End Sub

Ponga un punto para ver la lista IntelliSense del objeto RANGE, de la lista IntelliSense estamos tratando de cambiar el color de la fuente, por lo que elija la propiedad FONT de la lista.

Código:

 Sub Rango RGB_Example1 () ("A1: A8"). Fin de fuente Sub

Una vez que se eligió la propiedad FONT en esta propiedad, estamos tratando de cambiar el color , así que elija la propiedad de color de FONT.

Código:

 Sub Rango RGB_Example1 () ("A1: A8"). Fuente.Color Fin Sub

Ponga el signo igual y abra la función RGB.

Código:

 Sub RGB_Example1 () Rango ("A1: A8"). Font.Color = RGB (End Sub

Proporcione números enteros aleatorios que van de 0 a 255 para los tres argumentos de la función RGB.

Código:

 Sub RGB_Example1 () Rango ("A1: A8"). Font.Color = RGB (300, 300, 300) End Sub

Bien, ahora ejecute el código y vea el resultado de los colores de fuente de las celdas de A1 a A8.

Salida:

Entonces, los colores de la fuente cambiaron de negro a otro. El color depende de los números que le demos a la función RGB.

A continuación se muestran los códigos de color RGB para obtener algunos de los colores comunes.

Simplemente puede cambiar la combinación de números enteros de 0 a 255 para obtener los diferentes tipos de colores.

Ejemplo # 2

Para el mismo rango de celdas, veamos cómo cambiar el color de fondo de estas celdas.

Primero, proporcione el rango de celdas usando el objeto RANGE .

Código:

Sub RGB_Example2 () Rango ("A1: A8"). End Sub

Esta vez estamos cambiando el color de fondo de las celdas mencionadas, por lo que no tenemos nada que ver con la propiedad FONT. Para cambiar el color de fondo, elija la propiedad “ Interior ” del objeto RANGE.

Código:

 Sub Rango RGB_Example2 () ("A1: A8"). Interior Final Sub

Una vez que se selecciona la propiedad "Interior", ponga un punto para ver las propiedades y métodos de esta propiedad "Interior".

Código:

Sub RGB_Example2 () Rango ("A1: A8"). Interior. End Sub

Dado que estamos cambiando el color interior de las celdas mencionadas, elija la propiedad “ Color ”.

Código:

 Sub Rango RGB_Example2 () ("A1: A8"). Interior.Color End Sub

Para establecer la propiedad de color interior del rango de celdas (A1 a A8), seleccione el signo igual y abra la función RGB.

Código:

 Sub RGB_Example2 () Rango ("A1: A8"). Interior.Color = RGB (End Sub

Ingrese el número aleatorio que desee.

Código:

 Sub RGB_Example2 () Rango ("A1: A8"). Interior.Color = RGB (0, 255, 255) End Sub

Ejecute el código y vea el color de fondo.

Salida:

Se ha cambiado el color de fondo.

Cosas para recordar aquí

  • RGB significa rojo, verde y azul.
  • Una combinación de estos tres colores dará diferentes colores.
  • Todos estos tres parámetros pueden aceptar valores enteros entre 0 y 255 únicamente. Cualquier número por encima de este se restablecerá a 255.