Farba Excel VBA RGB
RGB možno tiež označiť ako červeno zelenú a modrú, táto funkcia sa používa na získanie číselnej hodnoty farebnej hodnoty. Táto funkcia má tri komponenty ako pomenovaný rozsah a sú červené, modré a zelené, ostatné farby sa považujú za komponenty. z týchto troch rôznych farieb vo VBA.
Vo VBA sa všetko scvrkáva na kódovanie každého jedného kusu. Napríklad, ak chcete odkazovať na určitú časť tabuľky, môžeme použiť objekt RANGE. Ak chcete zmeniť farbu písma, môžeme využiť vlastnosť NAME rozsahu a potom napísať názov písma, ktorý sme potrebovali, ale predstavme si situáciu zmeny farby písma alebo farby pozadia bunky, môžu využívať vstavané farby VB, ako sú vbGreen, vbBlue, vbRed atď. … Máme ale vyhradenú funkciu na hranie s rôznymi farbami, tj. funkciu RGB.
Nižšie je uvedená syntax farebnej funkcie RGB.
Ako vidíte vyššie, môžeme dodať tri argumenty, tj červený, zelený a modrý. Všetky tieto tri parametre môžu prijímať iba celé čísla od 0 do 255 a výsledkom tejto funkcie bude dátový typ „Long“.
Zmeňte farbu buniek pomocou funkcie VBA RGB
Príklad č
Napríklad máme čísla od bunky A1 po A8, ako je znázornené na obrázku nižšie.
Pre tento rozsah buniek sa pokúsime zmeniť farbu písma na nejakú náhodnú farbu pomocou funkcie RGB.
Najprv spustite postup makra.
Kód:
Sub RGB_Example1 () End Sub
Najskôr musíme odkázať na rozsah buniek fontov, ktorých farbu chceme zmeniť. V tomto prípade je náš rozsah buniek A1 až A8, takže ich dodajte rovnako pomocou objektu RANGE .
Kód:
Sub RGB_Example1 () Range ("A1: A8") End Sub
Dajte bodku, aby ste videli zoznam IntelliSense objektu RANGE. V zozname IntelliSense sa pokúšame zmeniť farbu písma, a preto v zozname vyberte vlastnosť FONT .
Kód:
Sub RGB_Example1 () Rozsah ("A1: A8"). Koniec písma Sub
Po výbere vlastnosti FONT v tejto vlastnosti sa pokúšame zmeniť farbu , takže zvoľte farebnú vlastnosť FONT.
Kód:
Sub RGB_Example1 () Range ("A1: A8"). Font.Color End Sub
Vložte rovnaké znamienko a otvorte funkciu RGB.
Kód:
Sub RGB_Example1 () Range ("A1: A8"). Font.Color = RGB (End Sub
Pre všetky tri argumenty funkcie RGB uveďte náhodné celé čísla v rozsahu od 0 do 255.
Kód:
Sub RGB_Example1 () Range ("A1: A8"). Font.Color = RGB (300, 300, 300) End Sub
Ok, teraz spustite kód a pozrite si výsledok farieb písma buniek od A1 po A8.
Výkon:
Farby písma sa teda zmenili z čiernej na inú. Farba závisí od čísel, ktoré priradíme funkcii RGB.
Ďalej sú uvedené farebné kódy RGB, pomocou ktorých získate niektoré z bežných farieb.
Ak chcete získať rôzne druhy farieb, stačí zmeniť kombináciu celých čísel z 0 na 255.
Príklad č
Pre rovnaký rozsah buniek sa pozrime, ako zmeniť farbu pozadia týchto buniek.
Najskôr zadajte rozsah buniek pomocou objektu RANGE .
Kód:
Sub RGB_Example2 () Range ("A1: A8"). Koniec Sub
Tentokrát meníme farbu pozadia uvedených buniek, takže teraz nemáme nič spoločné s vlastnosťou FONT, aby sme zmenili farbu pozadia, zvoľte vlastnosť „ Interiér “ objektu RANGE.
Kód:
Sub RGB_Example2 () Rozsah ("A1: A8"). Vnútorný koniec Sub
Po výbere vlastnosti „Interiér“ vložte bodku, aby ste videli vlastnosti a metódy tejto vlastnosti „Interiér“.
Kód:
Sub RGB_Example2 () Range ("A1: A8"). Interiér. Koniec Sub
Pretože meníme farbu interiéru uvedených buniek, zvoľte vlastnosť „ Farba “.
Kód:
Sub RGB_Example2 () Range ("A1: A8"). Interior.Color End Sub
Ak chcete nastaviť vlastnosť farby interiéru rozsahu buniek (A1 až A8), znamienko rovnosti a otvorte funkciu RGB.
Kód:
Sub RGB_Example2 () Range ("A1: A8"). Interior.Color = RGB (End Sub
Zadajte náhodné číslo, ako chcete.
Kód:
Sub RGB_Example2 () Range ("A1: A8"). Interior.Color = RGB (0, 255, 255) End Sub
Spustite kód a uvidíte farbu pozadia.
Výkon:
Farba pozadia bola zmenená.
Tu si treba pamätať
- RGB znamená červená, zelená a modrá.
- Kombinácia týchto troch farieb poskytne rôzne farby.
- Všetky tieto tri parametre môžu prijímať iba celočíselné hodnoty od 0 do 255. Všetky čísla nad touto hodnotou sa resetujú na 255.
