Excel VBA skrifttypefarve
Egenskaben VBA Font Color bruges til at ændre fontfarven på excel-celler ved hjælp af vba-kode. Vi kan ændre skrifttypens farve på flere måder ved hjælp af farveindeks, farveegenskab med RGB-funktion.
Når jeg forbereder et dashboard i excel, bruger jeg normalt lang tid på at formatere celler, skrifttyper osv. Ofte har jeg det som en excel-kosmetolog ved at se på de forskellige farver i excel-formateringen. Ændring af skrifttypefarven i Excel-regneark er et let job, men når det kommer til Excel, skal du kende måderne til at skrive VBA-kode for at ændre skriftfarven.
For at ændre skrifttypefarven skal vi først identificere, hvilke celler vi skal ændre.
Rækkevidde (“A1: A10”)
Så er vi nødt til at vælge FONT-ejendommen.
Område (“A1: A10”) Skrifttype
Hvad vil vi så gøre med denne skrifttype, så vælg Farve?
Område (“A1: A10”) Font.Color
På denne måde er vi nødt til at konstruere koden for at ændre skriftfarven. Det ser svært ud, ikke?
Men husk, alt ser ud til at være hårdt i starten, senere får du fat på det.
Hvordan ændres skrifttypefarve ved hjælp af VBA?
Eksempel # 1 - Brug af farveindeks
Farveindeksegenskaben er forskellig fra egenskaben Farve i VBA. Ved at bruge numeriske værdier kan vi ændre farven på celler, skrifttyper.
Tal varierer fra 1 til 56, og hvert nummer repræsenterer forskellige farver. Nedenfor er listen over numre og deres farver.
Ok, lad os teste dette.
Jeg har en værdi i celle A1.
Jeg vil ændre farven på celle A1-skrifttypen til grøn. Nedenfor er koden.
Kode:
Sub FontColor_Example1 () Range ("A1") Font.ColorIndex = 10 End Sub
Dette vil ændre farven på celle A1 skrifttype til grøn.
Vi kan også bruge CELLS-egenskaben til at ændre skrifttypens farve.
Kode:
Sub FontColor_Example1 () Celler (1, 1). Font.ColorIndex = 10 End Sub
På denne måde kan vi bruge tal fra 1 til 56 til at anvende den ønskede farve på skrifttypen.
Eksempel 2 - Brug af farveegenskaber
Color Index har meget begrænsede farver fra 1 til 56, men ved at bruge COLOR-egenskaben kan vi bruge 8 indbyggede farver vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhite .
For disse farver behøver vi ikke angive numre. Snarere kan vi bare få adgang til dem ved at bruge deres navn som vist ovenfor. Nedenfor er eksempelkoden for alle de 8 farver.
Kode:
Sub vbBlack_Example () Range ("A1") Font.Color = vbBlack End Sub
Kode:
Sub vbRed_Example () Range ("A1") Font.Color = vbRed End Sub
Kode:
Sub vbGreen_Example () Range ("A1") Font.Color = vbGreen End Sub
Kode:
Sub vbBlue_Example () Range ("A1") Font.Color = vbBlue End Sub
Kode:
Sub vbYellow_Example () Range ("A1") Font.Color = vbYellow End Sub
Kode:
Sub vbMagenta_Example () Range ("A1") Font.Color = vbMagenta End Sub
Kode:
Sub vbCyan_Example () Range ("A1") Font.Color = vbCyan End Sub
Kode:
Sub vbWhite_Example () Range ("A1") Font.Color = vbWhite End Sub
Eksempel # 3 - Brug af farveegenskaber med RGB-funktion
Som vi har set, har vi kun 8 indbyggede farver at arbejde med. Men for at have en bred vifte af farver skal vi bruge funktionen kaldet RGB. Bortset fra indbyggede farver kan vi oprette vores egne farver ved hjælp af VBA RGB-funktionen.
Se på syntaksen for RGB-funktionen.
RGB (rød, grøn, blå)
RGB står for "Rød, grøn og blå." For at konstruere farver skal vi levere tal fra 0 til 255 for hver farve.
Nedenfor er et par eksempler til dig.
Nedenfor er nogle af makrokodeeksemplerne
Kode:
Sub RGB_Example () Range ("A1") Font.Color = RGB (0, 0, 0) 'Skift skriftfarve til sort End Sub
Kode:
Sub RGB_Example () Range ("A1") Font.Color = RGB (16, 185, 199) 'Fontfarve vil være denne End Sub
Kode:
Sub RGB_Example () Range ("A1"). Font.Color = RGB (106, 15, 19) 'Fontfarve er denne End Sub
Kode:
Sub RGB_Example () Range ("A1") Font.Color = RGB (216, 55, 19) 'Fontfarve vil være denne End Sub
