photosdematures.com

Kulay ng Font ng Excel VBA

Kulay ng FBA ng VBA Ginagamit ang pag-aari upang baguhin ang kulay ng font ng mga excel cell gamit ang vba code. Maaari naming baguhin ang kulay ng font sa maraming paraan gamit ang color index, kulay na pag-aari na may pagpapaandar ng RGB.

Kapag naghahanda ako ng isang dashboard sa excel, kadalasan ay gumugugol ako ng isang malaking halaga ng pag-format ng mga cell, font, atbp. Madalas na pakiramdam ko ay isang kagandahang pampaganda sa pamamagitan ng pagtingin sa iba't ibang mga kulay ng excel formatting. Ang pagbabago ng kulay ng font sa excel worksheet ay isang madaling trabaho ngunit pagdating sa Excel, dapat mong malaman ang mga paraan ng pagsulat ng VBA code upang baguhin ang kulay ng font.

Upang baguhin ang kulay ng font, una, kailangan nating kilalanin kung ano ang mga cell na babaguhin natin.

Saklaw ("A1: A10")

Pagkatapos kailangan naming piliin ang FONT na pag-aari.

Saklaw ("A1: A10"). Font

Kung gayon ano ang nais naming gawin sa font na ito, kaya piliin ang Kulay?

Saklaw ("A1: A10"). Font. Kulay

Tulad nito, kailangan nating buuin ang code upang mabago ang kulay ng font. Mukhang mahirap, hindi ba?

Ngunit tandaan na ang lahat ay tila matigas sa simula, sa paglaon ay makukuha mo ito.

Paano Baguhin ang Kulay ng Font gamit ang VBA?

Maaari mong i-download ang VBA Font Color Excel Template dito - VBA Font Color Excel Template

Halimbawa # 1 - Paggamit ng Color Index

Ang pag-aari ng Kulay Index ay naiiba mula sa Katangian ng kulay sa VBA. Sa pamamagitan ng paggamit ng mga numerong halaga maaari nating baguhin ang kulay ng mga cell, font.

Ang mga numero ay mula 1 hanggang 56 at ang bawat numero ay kumakatawan sa iba't ibang mga kulay. Nasa ibaba ang listahan ng mga numero at kanilang mga kulay.

Ok, hayaan mong subukan ito.

Mayroon akong halaga sa cell A1.

Nais kong baguhin ang kulay ng cell A1 font na berde. Nasa ibaba ang code.

Code:

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

Papalitan nito ang kulay ng cell A1 font na berde.

Maaari din kaming gumamit ng pag-aari ng CELLS upang baguhin ang kulay ng font.

Code:

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

Tulad nito, maaari naming gamitin ang mga numero mula 1 hanggang 56 upang mailapat ang nais na kulay sa font.

Halimbawa # 2 - Paggamit ng Katangian ng Kulay

Ang Color Index ay may napaka-limitadong mga kulay mula 1 hanggang 56, ngunit sa pamamagitan ng paggamit ng COLOR na pag-aari maaari naming magamit ang 8 mga built-in na kulay vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhite .

Para sa mga kulay na ito hindi namin kailangan na magbigay ng anumang mga numero sa halip ma-access lamang namin ang mga ito sa pamamagitan ng paggamit ng kanilang pangalan tulad ng ipinakita sa itaas. Nasa ibaba ang halimbawa ng code para sa lahat ng 8 mga kulay.

Code:

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

Code:

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

Code:

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

Code:

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

Code:

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

Code:

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

Code:

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

Code:

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

Halimbawa # 3 - Paggamit ng Kulay ng Pag-aari na may RGB Function

Tulad ng nakita natin mayroon lamang kaming 8 mga built-in na kulay upang gumana. Ngunit upang magkaroon ng iba't ibang mga kulay kailangan naming gamitin ang pagpapaandar na tinatawag na RGB, bukod sa mga built-in na kulay maaari kaming lumikha ng aming sariling mga kulay sa pamamagitan ng paggamit ng vba RGB function.

Tingnan ang syntax ng pagpapaandar ng RGB.

RGB (Pula, berde, Asul)

Ang RGB ay nangangahulugang "Pula, berde, at Asul". Upang makabuo ng mga kulay kailangan naming magbigay ng mga numero mula 0 hanggang 255 para sa bawat kulay.

Nasa ibaba ang ilang mga halimbawa para sa iyo.

Nasa ibaba ang ilan sa mga halimbawa ng macro code

Code:

 Sub RGB_Example () Saklaw ("A1"). Font.Color = RGB (0, 0, 0) 'Palitan ang kulay ng font sa itim na End Sub 

Code:

 Sub RGB_Example () Saklaw ("A1"). Font.Color = RGB (16, 185, 199) 'Kulay ng font ang magiging End Sub na ito 

Code:

 Sub RGB_Example () Saklaw ("A1"). Font.Color = RGB (106, 15, 19) 'Kulay ng font ang magiging End Sub na ito 

Code:

 Sub RGB_Example () Saklaw ("A1"). Font.Color = RGB (216, 55, 19) 'Kulay ng font ang magiging End Sub na ito