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

Съдържание

Excel VBA RGB цвят

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

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

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

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

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

Пример # 1

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

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

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

Код:

Sub RGB_Example1 () Край Sub

Първо, трябва да се позовем на диапазона от клетки на шрифтовете, на които искаме да променим цвета. В този случай нашият диапазон от клетки е от А1 до А8, така че предоставете същото, като използвате обекта 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.

Интересни статии...