VBA skriftfarge - Endre skriftfarge ved hjelp av VBA Color Property

Innholdsfortegnelse

Excel VBA skriftfarge

Egenskapen VBA Font Color brukes til å endre fontfargen til excel-celler ved hjelp av vba-kode. Vi kan endre fargen på skrift på flere måter ved hjelp av fargeindeks, fargeegenskap med RGB-funksjon.

Når jeg forbereder et dashbord i Excel, bruker jeg vanligvis mye tid på å formatere celler, skrifttyper osv. Ofte føler jeg meg som en excel-kosmetolog ved å se på de forskjellige fargene i Excel-formateringen. Å endre skriftfarge i Excel-regneark er en enkel jobb, men når det gjelder Excel, bør du vite hvordan du skriver VBA-kode for å endre skriftfarge.

For å endre skriftfargen, må vi først identifisere hvilke celler vi skal endre.

Rekkevidde (“A1: A10”)

Så må vi velge FONT-egenskapen.

Område (“A1: A10”). Font

Så hva vil vi gjøre med denne fonten, så velg Color?

Område (“A1: A10”). Font.Color

Slik må vi konstruere koden for å endre skriftfargen. Det ser vanskelig ut, ikke sant?

Men husk, alt ser ut til å være tøft i begynnelsen, senere vil du få taket på det.

Hvordan endre fontfarge ved hjelp av VBA?

Eksempel 1 - Bruke fargeindeks

Color Index-egenskapen er forskjellig fra Color-eiendommen i VBA. Ved å bruke numeriske verdier kan vi endre fargen på celler, skrifttyper.

Tallene varierer fra 1 til 56, og hvert tall representerer forskjellige farger. Nedenfor er listen over tall og farger.

Ok, la oss teste dette.

Jeg har en verdi i celle A1.

Jeg vil endre fargen på celle A1-fonten til grønn. Nedenfor er koden.

Kode:

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

Dette vil endre fargen på celle A1-fonten til grønn.

Vi kan også bruke CELLS-egenskapen til å endre skriftfargen.

Kode:

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

På denne måten kan vi bruke tall fra 1 til 56 for å bruke ønsket farge på skriften.

Eksempel 2 - Bruke fargeegenskap

Color Index har svært begrensede farger fra 1 til 56, men ved å bruke COLOR-egenskapen kan vi bruke 8 innebygde farger vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhite .

For disse fargene trenger vi ikke oppgi noen tall. Snarere kan vi bare få tilgang til dem ved å bruke navnet deres som vist ovenfor. Nedenfor er eksempelkoden for alle de 8 fargene.

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 - Bruk av fargeegenskap med RGB-funksjon

Som vi har sett har vi bare 8 innebygde farger å jobbe med. Men for å ha et bredt utvalg av farger, må vi bruke funksjonen kalt RGB. Bortsett fra innebygde farger, kan vi lage våre egne farger ved å bruke VBA RGB-funksjon.

Se på syntaksen til RGB-funksjonen.

RGB (rød, grønn, blå)

RGB står for "Rød, grønn og blå." For å konstruere farger må vi oppgi tall fra 0 til 255 for hver farge.

Nedenfor er noen eksempler for deg.

Nedenfor er noen av makrokodeeksemplene

Kode:

Sub RGB_Example () Range ("A1") Font.Color = RGB (0, 0, 0) 'Endre skriftfargen til svart End Sub

Kode:

Sub RGB_Example () Range ("A1"). Font.Color = RGB (16, 185, 199) 'Fontfarge vil være denne sluttuben

Kode:

Sub RGB_Example () Range ("A1") Font.Color = RGB (106, 15, 19) 'Fontfarge vil være denne sluttuben

Kode:

Sub RGB_Example () Range ("A1"). Font.Color = RGB (216, 55, 19) 'Fontfarge vil være denne End Sub

Interessante artikler...