Couleur de police VBA - Modifier la couleur de la police à l'aide de la propriété de couleur VBA

Table des matières

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 à mettre en forme des cellules, des polices, etc. Souvent, je me sens comme une excellente esthéticienne 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 quelles sont 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 en utilisant 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 chiffres. Nous pouvons plutôt 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. Outre les 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

Articles intéressants...