Couleur de police VBA

Couleur de police Excel VBA

La propriété Couleur de police VBA est utilisée pour changer la couleur de police des cellules Excel à l'aide du code VBA. Nous pouvons changer la couleur de la police de plusieurs manières en utilisant l'index de couleur, la propriété de couleur avec la fonction RVB.

Lorsque je prépare un tableau de bord dans Excel, je passe généralement un temps considérable à formater des cellules, des polices, etc. Souvent, je me sens comme une esthéticienne Excel en regardant les différentes couleurs du formatage Excel. Changer la couleur de la police dans la feuille de calcul Excel est un travail facile, mais en ce qui concerne Excel, vous devez connaître les façons d'écrire du code VBA pour changer la couleur de la police.

Pour changer la couleur de la police, nous devons d'abord identifier les cellules que nous allons changer.

Plage ("A1: A10")

Ensuite, nous devons sélectionner la propriété FONT.

Plage ("A1: A10"). Police

Alors que voulons-nous faire avec cette police, alors sélectionnez Couleur?

Plage ("A1: A10"). Police.Couleur

Comme ça, nous devons construire le code pour changer la couleur de la police. Cela semble difficile, n'est-ce pas?

Mais rappelez-vous que tout semble être difficile au début, plus tard vous comprendrez.

Comment changer la couleur de la police à l'aide de VBA?

Vous pouvez télécharger ce modèle Excel de couleur de police VBA ici - Modèle Excel de couleur de police VBA

Exemple # 1 - Utilisation de l'index des couleurs

La propriété Color Index est différente de la propriété Color dans VBA. En utilisant des valeurs numériques, nous pouvons changer la couleur des cellules, des polices.

Les nombres vont de 1 à 56 et chaque nombre représente des couleurs différentes. Ci-dessous la liste des nombres et leurs couleurs.

Ok, testons ça.

J'ai une valeur dans la cellule A1.

Je veux changer la couleur de la police de la cellule A1 en vert. Ci-dessous le code.

Code:

 Sub FontColor_Example1 () Range ("A1"). Font.ColorIndex = 10 End Sub 

Cela changera la couleur de la police de la cellule A1 en vert.

Nous pouvons également utiliser la propriété CELLS pour changer la couleur de la police.

Code:

 Sub FontColor_Example1 () Cells (1, 1) .Font.ColorIndex = 10 End Sub 

Comme ça, nous pouvons utiliser des nombres de 1 à 56 pour appliquer la couleur désirée à la police.

Exemple # 2 - Utilisation de la propriété Color

Color Index a des couleurs très limitées de 1 à 56, mais en utilisant la propriété COLOR, nous pouvons utiliser 8 couleurs intégrées vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhite .

Pour ces couleurs, nous n'avons pas besoin de fournir de nombres, nous pouvons simplement y accéder en utilisant leur nom comme indiqué ci-dessus. Voici l'exemple de code pour les 8 couleurs.

Code:

 Sub vbBlack_Example () Range ("A1"). Font.Color = vbBlack End Sub 

Code:

 Sub vbRed_Example () Range ("A1"). Font.Color = vbRed End Sub 

Code:

 Sub vbGreen_Example () Range ("A1"). Font.Color = vbGreen End Sub 

Code:

 Sub vbBlue_Example () Range ("A1"). Font.Color = vbBlue End Sub 

Code:

 Sub vbYellow_Example () Range ("A1"). Font.Color = vbYellow End Sub 

Code:

 Sub vbMagenta_Example () Range ("A1"). Font.Color = vbMagenta End Sub 

Code:

 Sub vbCyan_Example () Range ("A1"). Font.Color = vbCyan End Sub 

Code:

 Sub vbWhite_Example () Range ("A1"). Font.Color = vbWhite End Sub 

Exemple # 3 - Utilisation de la propriété de couleur avec la fonction RVB

Comme nous l'avons vu, nous n'avons que 8 couleurs intégrées avec lesquelles travailler. Mais pour avoir une grande variété de couleurs, nous devons utiliser la fonction appelée RVB, en plus des couleurs intégrées, nous pouvons créer nos propres couleurs en utilisant la fonction RVB vba.

Regardez la syntaxe de la fonction RVB.

RVB (rouge, vert, bleu)

RVB signifie «rouge, vert et bleu». Pour construire des couleurs, nous devons fournir des nombres de 0 à 255 pour chaque couleur.

Voici quelques exemples pour vous.

Voici quelques exemples de code de macro

Code:

 Sub RGB_Example () Range ("A1"). Font.Color = RGB (0, 0, 0) 'Change la couleur de la police en noir End Sub 

Code:

 Sub RGB_Example () Range ("A1"). Font.Color = RGB (16, 185, 199) 'La couleur de la police sera ce End Sub 

Code:

 Sub RGB_Example () Range ("A1"). Font.Color = RGB (106, 15, 19) 'La couleur de la police sera ce End Sub 

Code:

 Sub RGB_Example () Range ("A1"). Font.Color = RGB (216, 55, 19) 'La couleur de la police sera ce End Sub