VBA RGB | Встановіть колір внутрішньої комірки за допомогою функції RGB

Колір Excel VBA RGB

RGB також можна назвати червоно-зеленим та синім, ця функція використовується для отримання числового значення значення кольору; ця функція має три компоненти як іменований діапазон, і вони червоний, синій та зелений, інші кольори розглядаються як компоненти цих трьох різних кольорів у VBA.

У VBA все зводиться до кодування кожного фрагмента, наприклад, якщо ви хочете посилатися на якусь частину аркуша, тоді ми можемо використовувати об'єкт RANGE, якщо ви хочете змінити колір шрифту, тоді ми можемо використовувати властивість NAME діапазону, тоді напишіть потрібну нам назву шрифту, але уявіть ситуацію зміни кольору шрифту або кольору тла комірки, для цього ми можемо використовувати вбудовані кольори VB, такі як, vbGreen, vbBlue, vbRed тощо. Але у нас є спеціальна функція для гри з різними кольорами, тобто функція RGB.

Нижче наведено синтаксис функції кольору RGB.

Як ви можете бачити вище, ми можемо навести три аргументи, тобто червоний, зелений та синій. Усі ці три параметри можуть приймати лише цілі числа в діапазоні від 0 до 255, і результатом цієї функції буде тип даних "Довгий".

Змініть колір клітин за допомогою функції VBA RGB

Завантажити цей шаблон VBA RGB Excel можна тут - Шаблон Excel 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"). Шрифт Кінець Sub 

Після того, як у цій властивості було вибрано властивість FONT, ми намагаємось змінити колір , тому виберіть властивість кольору FONT.

Код:

 Додатковий RGB_Приклад1 () Діапазон ("A1: A8"). Шрифт.Концевий кінець 

Поставте знак рівності та відкрийте функцію RGB.

Код:

 Sub RGB_Example1 () Діапазон ("A1: A8"). Font.Color = RGB (End Sub 

Укажіть випадкові цілі числа від 0 до 255 для всіх трьох аргументів функції RGB.

Код:

 Суб RGB_Example1 () Діапазон ("A1: A8"). Font.Color = RGB (300, 300, 300) Кінець Sub 

Добре, тепер запустіть код і перегляньте результат кольорів шрифтів комірок від A1 до A8.

Вихід:

Отже, кольори шрифту змінилися з чорного на інший. Колір залежить від цифр, які ми надаємо функції RGB.

Нижче наведено кольорові коди RGB, щоб отримати деякі загальні кольори.

Ви можете просто змінити комбінацію цілих чисел від 0 до 255, щоб отримати різні типи кольорів.

Приклад №2

Для того ж діапазону комірок давайте подивимося, як змінити колір тла цих комірок.

Спочатку надайте діапазон комірок за допомогою об’єкта RANGE .

Код:

Суб RGB_Example2 () Діапазон ("A1: A8"). Кінець Sub

Цього разу ми змінюємо колір тла згаданих комірок, тому ми не маємо нічого спільного з властивістю FONT, щоб змінити колір тла, виберіть властивість “ Interior ” об’єкта RANGE.

Код:

 Sub RGB_Example2 () Діапазон ("A1: A8"). Внутрішній кінець Sub 

Після вибору властивості “Інтер’єр” поставте крапку, щоб побачити властивості та методи цієї властивості “Інтер’єр”.

Код:

Sub RGB_Example2 () Діапазон ("A1: A8"). Інтер'єр. Кінець Sub

Оскільки ми змінюємо внутрішній колір згаданих комірок, вибираємо властивість “ Колір ”.

Код:

 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.