Excel VBA-teckensnittsfärg
Egenskapen VBA Font Color används för att ändra teckensnittsfärgen för Excel-celler med vba-kod. Vi kan ändra teckensnittets färg på flera sätt med hjälp av färgindex, färgegenskap med RGB-funktion.
När jag förbereder en instrumentpanel i Excel brukar jag spendera en hel del tid på att formatera celler, teckensnitt etc. Ofta känner jag mig som en excel-skönhetsvårdare genom att titta på de olika färgerna i Excel-formateringen. Att ändra teckensnittsfärgen i Excel-kalkylbladet är ett enkelt jobb, men när det gäller Excel bör du veta hur du skriver VBA-kod för att ändra teckensnittsfärgen.
För att ändra teckensnittsfärgen måste vi först identifiera vilka celler vi ska ändra.
Räckvidd (“A1: A10”)
Sedan måste vi välja FONT-egenskapen.
Område (“A1: A10”). Teckensnitt
Vad vill vi då göra med det här teckensnittet, så välj Färg?
Område (“A1: A10”) Font.Color
Så här måste vi konstruera koden för att ändra teckensnittsfärgen. Det ser svårt ut, eller hur?
Men kom ihåg, allt verkar vara tufft i början, senare kommer du att få tag på det.
Hur ändrar jag teckensnittsfärg med VBA?
Exempel nr 1 - Använda färgindex
Egenskapen Color Index skiljer sig från Color-egenskapen i VBA. Genom att använda numeriska värden kan vi ändra färg på celler, teckensnitt.
Siffrorna varierar från 1 till 56, och varje nummer representerar olika färger. Nedan är listan över siffror och deras färger.
Ok, låt oss testa detta.
Jag har ett värde i cell A1.
Jag vill ändra färgen på cell A1-teckensnittet till grönt. Nedan är koden.
Koda:
Sub FontColor_Example1 () Range ("A1") Font.ColorIndex = 10 End Sub
Detta ändrar färg A1-teckensnittet till grönt.
Vi kan också använda CELLS-egenskapen för att ändra typsnittets färg.
Koda:
Sub FontColor_Example1 () Cells (1, 1). Font.ColorIndex = 10 End Sub
Så här kan vi använda siffror från 1 till 56 för att tillämpa önskad färg på teckensnittet.
Exempel # 2 - Använda färgegenskap
Color Index har mycket begränsade färger från 1 till 56, men genom att använda COLOR-egenskapen kan vi använda 8 inbyggda färger vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhite .
För dessa färger behöver vi inte ange några siffror. Snarare kan vi bara komma åt dem genom att använda deras namn som visas ovan. Nedan följer exempelkoden för alla de 8 färgerna.
Koda:
Sub vbBlack_Example () Range ("A1") Font.Color = vbBlack End Sub
Koda:
Sub vbRed_Example () Range ("A1"). Font.Color = vbRed End Sub
Koda:
Sub vbGreen_Example () Range ("A1") Font.Color = vbGreen End Sub
Koda:
Sub vbBlue_Example () Range ("A1") Font.Color = vbBlue End Sub
Koda:
Sub vbYellow_Example () Range ("A1") Font.Color = vbYellow End Sub
Koda:
Sub vbMagenta_Example () Range ("A1"). Font.Color = vbMagenta End Sub
Koda:
Sub vbCyan_Example () Range ("A1") Font.Color = vbCyan End Sub
Koda:
Sub vbWhite_Example () Range ("A1") Font.Color = vbWhite End Sub
Exempel # 3 - Använda färgegenskap med RGB-funktion
Som vi har sett har vi bara 8 inbyggda färger att arbeta med. Men för att ha ett stort antal färger måste vi använda funktionen som kallas RGB. Förutom inbyggda färger kan vi skapa egna färger med hjälp av VBA RGB-funktionen.
Titta på syntaxen för RGB-funktionen.
RGB (röd, grön, blå)
RGB står för "Rött, grönt och blått." För att konstruera färger måste vi ange siffror från 0 till 255 för varje färg.
Nedan följer några exempel för dig.
Nedan följer några av makrokodsexemplen
Koda:
Sub RGB_Example () Range ("A1") Font.Color = RGB (0, 0, 0) 'Ändra teckensnittsfärgen till svart End Sub
Koda:
Sub RGB_Example () Range ("A1"). Font.Color = RGB (16, 185, 199) 'Teckensnittsfärg kommer att vara denna End Sub
Koda:
Sub RGB_Example () Range ("A1") Font.Color = RGB (106, 15, 19) 'Fontfärgen kommer att vara denna End Sub
Koda:
Sub RGB_Example () Range ("A1"). Font.Color = RGB (216, 55, 19) 'Teckensnittsfärg kommer att vara denna End Sub
