VBA fondivärv - Fondi värvi muutmine VBA värvi atribuudiga

Lang L: none (table-of-contents)

Exceli VBA fondivärv

Atribuuti VBA Font Color kasutatakse Exceli lahtrite fondivärvi muutmiseks VBA-koodi abil. Saame fondi värvi mitmel viisil muuta, kasutades värviindeksit, RGB funktsiooniga värviomadust.

Excelis armatuurlaua koostamisel veedan tavaliselt märkimisväärselt palju aega lahtrite, fontide jne vormindamisel. Sageli tunnen end Exceli kosmeetikuna, vaadates Exceli vormingu erinevaid värve. Exceli töölehe fondivärvi muutmine on lihtne töö, kuid Exceli osas peaksite teadma VBA-koodi kirjutamise viise fondi värvi muutmiseks.

Fondivärvi muutmiseks peame kõigepealt tuvastama, millised on lahtrid, mida me muudame.

Vahemik („A1: A10”)

Siis peame valima omaduse FONT.

Vahemik („A1: A10”). Font

Mida me siis selle fontiga teha tahame, siis valige Värv?

Vahemik („A1: A10”). Font. Värv

Nii peame fondi värvi muutmiseks koodi üles ehitama. See tundub keeruline, kas pole?

Kuid pidage meeles, et alguses tundub kõik olevat karm, hiljem saate sellest aru.

Kuidas muuta fondi värvi VBA abil?

Näide 1 - Värviindeksi kasutamine

Värvindeksi omadus erineb VBA omadusest Värv. Numbriliste väärtuste abil saame muuta lahtrite, fontide värvi.

Numbrid on vahemikus 1 kuni 56 ja iga number tähistab erinevaid värve. Allpool on loetelu numbritest ja nende värvidest.

Ok, laseme selle proovida.

Mul on lahtris A1 väärtus.

Soovin muuta lahtri A1 fondi värvi roheliseks. Allpool on kood.

Kood:

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

See muudab lahtri A1 fondi värvi roheliseks.

Fondi värvi muutmiseks võime kasutada ka vara CELLS.

Kood:

Alam FontColor_Example1 () Lahtrid (1, 1). Font.ColorIndex = 10 Lõpp-alam

Nii saame fondile soovitud värvi rakendamiseks kasutada numbreid 1–56.

Näide # 2 - Värviomaduse kasutamine

Värviindeksil on väga piiratud värvid vahemikus 1 kuni 56, kuid atribuudi COLOR abil saame kasutada 8 sisseehitatud värvi vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhite .

Nende värvide jaoks ei pea me numbreid sisestama. Pigem pääseme neile lihtsalt juurde, kasutades nende nime, nagu eespool näidatud. Allpool on toodud kõigi 8 värvi näidiskood.

Kood:

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

Kood:

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

Kood:

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

Kood:

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

Kood:

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

Kood:

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

Kood:

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

Kood:

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

Näide # 3 - Värviomaduse kasutamine RGB-funktsiooniga

Nagu nägime, on meil töötamiseks ainult 8 sisseehitatud värvi. Kuid selleks, et meil oleks palju erinevaid värve, peame kasutama funktsiooni nimega RGB. Lisaks sisseehitatud värvidele saame VBA RGB funktsiooni abil luua oma värvid.

Vaadake RGB-funktsiooni süntaksit.

RGB (punane, roheline, sinine)

RGB tähistab punast, rohelist ja sinist. Värvide koostamiseks peame iga värvi jaoks esitama numbrid vahemikus 0 kuni 255.

Allpool on teile mõned näited.

Allpool on toodud mõned makrokoodi näited

Kood:

Sub RGB_Example () Range ("A1"). Font.Color = RGB (0, 0, 0) 'Muutke fondi värv mustaks End Sub

Kood:

Alam RGB_näide () vahemik ("A1"). Font.Color = RGB (16, 185, 199) 'Fondi värv on see lõpu alam

Kood:

Alam RGB_näide () vahemik ("A1"). Font.Color = RGB (106, 15, 19) 'Fondi värv on see lõpu alam

Kood:

Alam RGB_näide () vahemik ("A1"). Font.Color = RGB (216, 55, 19) 'Fondi värv on see lõpuosa

Huvitavad Artiklid...