Excel VBA RGB Barva
RGB lahko imenujemo tudi rdeče zelena in modra, s to funkcijo dobimo številčno vrednost barvne vrednosti, ta funkcija ima tri komponente kot imenovani obseg in so rdeča, modra in zelena, druge barve pa se štejejo za komponente teh treh različnih barv v VBA.
V VBA se vse sklicuje na kodiranje vsakega dela. Če se želite na primer sklicevati na nek del delovnega lista, lahko uporabimo objekt RANGE. Če želite spremeniti barvo pisave, lahko uporabimo lastnost NAME obsega in nato napišemo ime pisave, ki smo ga potrebovali, vendar si predstavljamo situacijo, v kateri bi za to spremenili barvo pisave ali barvo ozadja, lahko uporabi vgrajene VB barve, kot so, vbGreen, vbBlue, vbRed itd. … Vendar imamo namensko funkcijo za igranje z različnimi barvami, tj. RGB funkcijo.
Spodaj je sintaksa barvne funkcije RGB.
Kot lahko vidite zgoraj, lahko navedemo tri argumente, in sicer rdečo, zeleno in modro. Vsi ti trije parametri lahko sprejemajo samo cela števila, ki segajo od 0 do 255, rezultat te funkcije pa bo podatkovni tip "Long".
Spremenite barvo celic z uporabo funkcije VBA RGB
Primer # 1
Na primer, imamo številke od celic A1 do A8, kot je prikazano na spodnji sliki.
Za ta obseg celic bomo s pomočjo funkcije RGB poskušali spremeniti barvo pisave v neko naključno barvo.
Najprej zaženite postopek makra.
Koda:
Sub RGB_Primer1 () Konec Sub
Najprej se moramo sklicevati na obseg celic pisav, ki jim želimo spremeniti barvo. V tem primeru je naš obseg celic od A1 do A8, zato ponudite iste z uporabo predmeta RANGE .
Koda:
Sub RGB_Example1 () Obseg ("A1: A8") Konec Sub
Postavite piko, da si ogledate seznam IntelliSense predmeta RANGE. Na seznamu IntelliSense poskušamo spremeniti barvo pisave, zato na seznamu izberite lastnost FONT .
Koda:
Sub RGB_Example1 () Obseg ("A1: A8")
Ko je bila v tej lastnosti izbrana lastnost FONT, poskušamo spremeniti barvo , zato izberite barvno lastnost FONT.
Koda:
Sub RGB_Example1 () Obseg ("A1: A8"). Font.Color End Sub
Postavite znak enakosti in odprite funkcijo RGB.
Koda:
Sub RGB_Example1 () Obseg ("A1: A8"). Font.Color = RGB (End Sub
Navedite naključna cela števila v razponu od 0 do 255 za vse tri argumente funkcije RGB.
Koda:
Sub RGB_Example1 () Obseg ("A1: A8"). Font.Color = RGB (300, 300, 300) Konec Sub
Ok, zdaj zaženite kodo in si oglejte rezultat barv pisave celic od A1 do A8.
Izhod:
Torej, barve pisave so se iz črne spremenile v nekatere druge. Barva je odvisna od številk, ki jih damo funkciji RGB.
Spodaj so barvne kode RGB, da dobite nekaj najpogostejših barv.
Kombinacijo celoštevilčnih števil lahko preprosto spremenite z 0 na 255, da dobite različne vrste barv.
2. primer
Za isti obseg celic poglejmo, kako spremeniti barvo ozadja teh celic.
Najprej podajte obseg celic z uporabo predmeta RANGE .
Koda:
Sub RGB_Example2 () Obseg ("A1: A8"). Končaj pod
Tokrat spreminjamo barvo ozadja omenjenih celic, zato z lastnostjo FONT zdaj nimamo nič skupnega, da bi spremenili barvo ozadja, izberite lastnost » Notranjost « predmeta RANGE.
Koda:
Sub RGB_Example2 () Obseg ("A1: A8"). Notranjost Sub
Ko je lastnost "Notranjost" izbrana, pika piše, da si ogledate lastnosti in metode te lastnosti "Notranjost".
Koda:
Sub RGB_Example2 () Obseg ("A1: A8"). Notranjost. Končaj pod
Ker spreminjamo notranjo barvo omenjenih celic, izberite lastnost » Barva «.
Koda:
Sub RGB_Example2 () Obseg ("A1: A8"). Notranjost. Barva Konec Sub
Če želite nastaviti lastnost barve notranjosti obsega celic (od A1 do A8), izločite znak enakosti in odprite funkcijo RGB.
Koda:
Sub RGB_Example2 () Obseg ("A1: A8"). Interior.Color = RGB (End Sub
Vnesite naključno številko, kot želite.
Koda:
Sub RGB_Example2 () Obseg ("A1: A8"). Notranjost.Barva = RGB (0, 255, 255) Konec Sub
Zaženite kodo in si oglejte barvo ozadja.
Izhod:
Spremenjena je barva ozadja.
Tukaj si je treba zapomniti
- RGB pomeni Rdeča, Zelena in Modra.
- Kombinacija teh treh barv bo dala različne barve.
- Vsi ti trije parametri lahko sprejemajo samo celoštevilske vrednosti med 0 in 255. Vse številke nad tem bodo ponastavljene na 255.
