VBA fonta krāsa - Mainiet fonta krāsu, izmantojot VBA Color Properties

Satura rādītājs

Excel VBA fonta krāsa

Īpašību VBA fonta krāsa izmanto, lai mainītu Excel šūnu fonta krāsu, izmantojot vba kodu. Mēs varam mainīt fonta krāsu vairākos veidos, izmantojot krāsu indeksu, krāsu īpašību ar RGB funkciju.

Kad es sagatavoju informācijas paneli programmā Excel, es parasti pavadu daudz laika, formatējot šūnas, fontus utt. Bieži vien es jūtos kā Excel kosmetologs, aplūkojot dažādas Excel formatēšanas krāsas. Fonta krāsas maiņa Excel darblapā ir vienkāršs darbs, taču, runājot par programmu Excel, jums jāzina VBA koda rakstīšanas veidi, kā mainīt fonta krāsu.

Lai mainītu fonta krāsu, vispirms mums jānosaka, kuras šūnas mēs mainīsim.

Diapazons (“A1: A10”)

Tad mums jāizvēlas rekvizīts FONT.

Diapazons (“A1: A10”). Fonts

Tad ko mēs vēlamies darīt ar šo fontu, tāpēc izvēlieties Krāsa?

Diapazons (“A1: A10”). Fonts. Krāsa

Šādi mums ir jākonstruē kods, lai mainītu fonta krāsu. Tas izskatās grūti, vai ne?

Bet atcerieties, ka sākumā viss šķiet grūts, vēlāk jūs to sajutīsiet.

Kā mainīt fonta krāsu, izmantojot VBA?

1. piemērs - krāsu indeksa izmantošana

Krāsu indeksa īpašums atšķiras no VBA rekvizīta Krāsa. Izmantojot skaitliskās vērtības, mēs varam mainīt šūnu, fontu krāsu.

Skaitļi svārstās no 1 līdz 56, un katrs skaitlis attēlo dažādas krāsas. Zemāk ir numuru un to krāsu saraksts.

Labi, ļauj to pārbaudīt.

Man šūnā A1 ir vērtība.

Es vēlos mainīt šūnas A1 fonta krāsu uz zaļu. Zemāk ir kods.

Kods:

Apakšfonts FontColor_Example1 () Diapazons ("A1"). Font.ColorIndex = 10 Beigas Sub

Tas mainīs šūnas A1 fonta krāsu uz zaļu.

Lai mainītu fonta krāsu, mēs varam izmantot arī rekvizītu CELLS.

Kods:

Sub FontColor_Example1 () šūnas (1, 1). Font.ColorIndex = 10 beigu apakšdaļa

Šādi mēs varam izmantot skaitļus no 1 līdz 56, lai piemērotu fonta vajadzīgo krāsu.

2. piemērs - Krāsu rekvizītu izmantošana

Krāsu indeksam ir ļoti ierobežotas krāsas no 1 līdz 56, taču, izmantojot rekvizītu COLOR, mēs varam izmantot 8 iebūvētās krāsas vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhite .

Šīm krāsām mums nav jānorāda cipari. Drīzāk mēs viņiem varam vienkārši piekļūt, izmantojot viņu vārdu, kā parādīts iepriekš. Zemāk ir visu 8 krāsu koda piemērs.

Kods:

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

Kods:

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

Kods:

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

Kods:

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

Kods:

Apakšdaļa vbYellow_Example () Diapazons ("A1"). Font.Color = vbYellow End Sub

Kods:

Sub vbMagenta_Example () diapazons ("A1"). Fonts. Krāsa = vbMagenta beigu apakšdaļa

Kods:

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

Kods:

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

3. piemērs - Krāsu rekvizītu izmantošana ar RGB funkciju

Kā redzējām, mums ir tikai 8 iebūvētas krāsas, ar kurām strādāt. Bet, lai būtu dažādas krāsas, mums jāizmanto funkcija, ko sauc par RGB. Papildus iebūvētajām krāsām mēs varam izveidot savas krāsas, izmantojot VBA RGB funkciju.

Apskatiet RGB funkcijas sintaksi.

RGB (sarkans, zaļš, zils)

RGB nozīmē “sarkans, zaļš un zils”. Lai izveidotu krāsas, mums katrai krāsai jāpievieno skaitļi no 0 līdz 255.

Tālāk ir sniegti daži piemēri jums.

Tālāk ir sniegti daži makro kodu piemēri

Kods:

Sub RGB_Piemērs () diapazons ("A1"). Font.Color = RGB (0, 0, 0) 'Mainiet fonta krāsu uz melnu

Kods:

Sub RGB_Example () diapazons ("A1"). Font.Color = RGB (16, 185, 199) 'Fonta krāsa būs šī beigu apakšdaļa

Kods:

Sub RGB_Example () diapazons ("A1"). Font.Color = RGB (106, 15, 19) 'Fonta krāsa būs šī beigu apakšdaļa

Kods:

Sub RGB_Example () diapazons ("A1"). Font.Color = RGB (216, 55, 19) 'Fonta krāsa būs šī beigu apakšdaļa

Interesanti raksti...