VBA RGB | Задайте цвят на вътрешната клетка с помощта на RGB функция

Excel VBA RGB цвят

RGB може също да се нарече червено зелено и синьо, тази функция се използва за получаване на числовата стойност на стойността на цвета, тази функция има три компонента като наименован диапазон и те са червен, син и зелен, а останалите цветове се считат за компоненти от тези три различни цвята във VBA.

Във VBA всичко се свежда до кодиране на всяка част, например, ако искате да се позовавате на част от работния лист, тогава можем да използваме обект RANGE, ако искате да промените цвета на шрифта, тогава можем да използваме свойството NAME след това напишете името на шрифта, от което се нуждаем, но представете си ситуация на промяна на цвета на шрифта или цвета на фона на клетката, за това можем да използваме вградените VB цветове като, vbGreen, vbBlue, vbRed и т.н ... Но имаме специална функция за игра с различни цветове, т.е. RGB функция.

По-долу е даден синтаксисът на цветната функция RGB.

Както можете да видите по-горе, можем да предоставим три аргумента, т.е. червен, зелен и син. Всички тези три параметъра могат да приемат само цели числа, вариращи от 0 до 255 и резултатът от тази функция ще бъде тип данни „Long“.

Променете цвета на клетките, като използвате VBA RGB функция

Можете да изтеглите този шаблон на VBA RGB Excel тук - VBA RGB Excel шаблон

Пример # 1

Например имаме числа от клетка А1 до А8, както е показано на изображението по-долу.

За този диапазон от клетки ще се опитаме да променим цвета на шрифта до произволен цвят, като използваме RGB функцията.

Първо стартирайте макро процедурата.

Код:

 Sub RGB_Example1 () Край Sub 

Първо, трябва да се позовем на диапазона от клетки на шрифтовете, на които искаме да променим цвета, в този случай нашият диапазон от клетки е от A1 до A8, така че предоставете същото с помощта на обект RANGE .

Код:

 Sub RGB_Example1 () Обхват ("A1: A8") Край Sub 

Поставете точка, за да видите списъка IntelliSense на обекта RANGE, от списъка IntelliSense се опитваме да променим цвета на шрифта и така изберете свойството FONT от списъка.

Код:

 Sub RGB_Example1 () Обхват ("A1: A8") 

След като в това свойство беше избрано свойството FONT, ние се опитваме да променим цвета , така че изберете свойството цвят на FONT.

Код:

 Sub RGB_Example1 () Обхват ("A1: A8"). Font.Color End Sub 

Поставете знак за равенство и отворете RGB функция.

Код:

 Sub RGB_Example1 () Обхват ("A1: A8"). Font.Color = RGB (End Sub 

Дайте произволни цели числа, вариращи от 0 до 255 за всичките три аргумента на RGB функцията.

Код:

 Sub RGB_Example1 () Обхват ("A1: A8"). Font.Color = RGB (300, 300, 300) Край Sub 

Добре, сега стартирайте кода и вижте резултата от цветовете на шрифтовете на клетките от A1 до A8.

Изход:

И така, цветовете на шрифта се променят от черен в друг. Цветът зависи от номерата, които даваме на RGB функцията.

По-долу има RGB цветови кодове, за да получите някои от често срещаните цветове.

Можете просто да промените комбинацията от цяло число от 0 на 255, за да получите различните видове цветове.

Пример # 2

За същия диапазон от клетки нека видим как да променим цвета на фона на тези клетки.

Първо, предоставете диапазона от клетки, като използвате обекта RANGE .

Код:

Под RGB_Example2 () Диапазон ("A1: A8"). Крайна под

Този път променяме цвета на фона на споменатите клетки, така че нямаме нищо общо със свойството FONT сега, за да променим цвета на фона, изберете свойството „ Интериор “ на обекта RANGE.

Код:

 Sub RGB_Example2 () Обхват ("A1: A8"). Вътрешен край Sub 

След като изберете свойството „Интериор“, поставете точка, за да видите свойствата и методите на това свойство „Интериор“.

Код:

Sub RGB_Example2 () Обхват ("A1: A8"). Интериор. Крайна под

Тъй като променяме вътрешния цвят на споменатите клетки, изберете свойството „ Цвят “.

Код:

 Sub RGB_Example2 () Обхват ("A1: A8"). Интериор. Цвят Край Sub 

За да зададете свойството за вътрешен цвят на диапазона от клетки (от А1 до А8), да изведете знака за равенство и да отворите RGB функцията.

Код:

 Sub RGB_Example2 () Обхват ("A1: A8"). Interior.Color = RGB (End Sub 

Въведете произволното число, както искате.

Код:

 Sub RGB_Example2 () Обхват ("A1: A8"). Interior.Color = RGB (0, 255, 255) Край Sub 

Изпълнете кода и вижте цвета на фона.

Изход:

Цветът на фона е променен.

Неща, които трябва да запомните тук

• RGB означава червено, зелено и синьо.
• Комбинация от тези три цвята ще даде различни цветове.
• Всички тези три параметъра могат да приемат само целочислени стойности между 0 и 255. Всички числа над това ще бъдат нулирани на 255.