seychellesartprojects.org

„Excel VBA“ šrifto spalva

VBA šrifto spalva naudojama norint pakeisti „Excel“ langelių šrifto spalvą naudojant VBA kodą. Šrifto spalvą galime pakeisti keliais būdais, naudodami spalvų indeksą, spalvų ypatybę su RGB funkcija.

Kai „excel“ ruošiu prietaisų skydelį, paprastai praleidžiu daug laiko formuodamas langelius, šriftus ir pan. Dažnai jaučiuosi kaip „Excel“ kosmetologė, žvelgdama į įvairias „Excel“ formatavimo spalvas. Šrifto spalvos keitimas „Excel“ darbalapyje yra lengvas darbas, tačiau kalbant apie „Excel“, turėtumėte žinoti VBA kodo rašymo būdus, kaip pakeisti šrifto spalvą.

Norėdami pakeisti šrifto spalvą, pirmiausia turime nustatyti, kurias ląsteles ketiname pakeisti.

Diapazonas („A1: A10“)

Tada turime pasirinkti savybę FONT.

Diapazonas („A1: A10“). Šriftas

Tada ką mes norime daryti su šiuo šriftu, todėl pasirinkite Spalva?

Diapazonas („A1: A10“). Šriftas. Spalva

Taip turime sukonstruoti kodą, kad pakeistume šrifto spalvą. Atrodo sunku, ar ne?

Tačiau nepamirškite, kad pradžioje viskas yra sunku, vėliau jūs tai sužinosite.

Kaip pakeisti šrifto spalvą naudojant VBA?

Šį „VBA“ šrifto spalvos „Excel“ šabloną galite atsisiųsti čia - VBA šrifto spalvos „Excel“ šabloną

1 pavyzdys - spalvų indekso naudojimas

Spalvų indekso ypatybė skiriasi nuo VBA spalvos savybės. Naudodami skaitines reikšmes galime pakeisti langelių, šriftų spalvą.

Skaičiai svyruoja nuo 1 iki 56 ir kiekvienas skaičius reiškia skirtingas spalvas. Žemiau pateikiamas skaičių ir jų spalvų sąrašas.

Gerai, leiskite tai išbandyti.

Turiu reikšmę langelyje A1.

Noriu pakeisti langelio A1 šrifto spalvą į žalią. Žemiau yra kodas.

Kodas:

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

Tai pakeis langelio A1 šrifto spalvą į žalią.

Mes taip pat galime naudoti CELLS ypatybę, norėdami pakeisti šrifto spalvą.

Kodas:

 Sub FontColor_Example1 () ląstelės (1, 1). Font.ColorIndex = 10 pabaigos sub 

Taip galime naudoti skaičius nuo 1 iki 56, kad šriftui pritaikytume norimą spalvą.

2 pavyzdys - spalvų ypatybės naudojimas

Spalvų indeksas turi labai ribotas spalvas nuo 1 iki 56, tačiau naudodami ypatybę COLOR galime naudoti 8 įmontuotas spalvas vbBlack, vbRed, vbGreen, vbBlue, vbYellow, vbMagenta, vbCyan, vbWhite .

Dėl šių spalvų mums nereikia pateikti jokių skaičių, o mes galime tiesiog prie jų prieiti naudodami jų vardą, kaip parodyta aukščiau. Žemiau pateikiamas visų 8 spalvų kodo pavyzdys.

Kodas:

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

Kodas:

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

Kodas:

 Sub vbGreen_Example () diapazonas ("A1"). Šriftas. Spalva = vbGreen Pabaiga Sub 

Kodas:

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

Kodas:

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

Kodas:

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

Kodas:

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

Kodas:

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

3 pavyzdys - spalvų ypatybės naudojimas su RGB funkcija

Kaip matėme, turime tik 8 įmontuotas spalvas, su kuriomis dirbame. Tačiau norint turėti daugybę spalvų, turime naudoti funkciją, vadinamą RGB, be įmontuotų spalvų, mes galime sukurti savo spalvas naudodami „vba RGB“ funkciją.

Pažvelkite į RGB funkcijos sintaksę.

RGB (raudona, žalia, mėlyna)

RGB reiškia „raudona, žalia ir mėlyna“. Norėdami sukurti spalvas, kiekvienai spalvai turime pateikti skaičius nuo 0 iki 255.

Toliau pateikiami keli pavyzdžiai jums.

Žemiau yra keletas makrokodų pavyzdžių

Kodas:

 Sub RGB_Example () Range ("A1"). Font.Color = RGB (0, 0, 0) 'Pakeiskite šrifto spalvą į juodą Pabaiga Sub 

Kodas:

 Sub RGB_Pavyzdys () diapazonas ("A1"). Šrifto spalva = RGB (16, 185, 199) 'Šrifto spalva bus ši galinė antrinė dalis 

Kodas:

 Sub RGB_Pavyzdys () diapazonas ("A1"). Šrifto spalva = RGB (106, 15, 19) 'Šrifto spalva bus ši pabaigos antrinė 

Kodas:

 Sub RGB_Pavyzdys () diapazonas ("A1"). Šriftas. Spalva = RGB (216, 55, 19) 'Šrifto spalva bus ši pabaigos pusė