Як змінити колір шрифту у vba (3 методи)

Щоб змінити колір шрифту в Excel за допомогою VBA, можна скористатися будь-яким із наведених нижче методів.

Спосіб 1: змініть колір шрифту за допомогою імен кольорів VBA

 SubChangeColor ()
Range(" A1 ").Font.Color = vbRed
End Sub

Цей конкретний макрос змінить колір шрифту в клітинці A1 на червоний.

Спосіб 2: змініть колір шрифту за допомогою значень RGB

 SubChangeColor ()
Range(" A1 ").Font.Color = RGB(255,0,0)
End Sub

Цей конкретний макрос змінить колір шрифту в комірці A1 на колір, який відповідає значенням RGB (червоний зелений синій) (255,0,0), який є червоним.

Спосіб 3: змініть колір шрифту за допомогою шістнадцяткових кодів кольорів

 SubChangeColor ()
Range(" A1 ").Font.Color = &H0000FF
End Sub

Цей конкретний макрос змінить колір шрифту в клітинці A1 на колір, який відповідає шістнадцятковому коду кольору #FF0000.

Примітка №1. Ви повинні ввести &H перед шістнадцятковим кодом кольору, який ви хочете використовувати, щоб VBA розпізнала його як шістнадцятковий код кольору.

Примітка №2: шістнадцяткові коди кольорів зазвичай представлені шістьма символами, у яких перші два представляють код червоного кольору, два середніх представляють код зеленого кольору, а останні два представляють код синього.

Однак Excel замінює перші два значення двома останніми. Отже, шістнадцятковий код кольору для червоного – FF0000, але замість цього слід ввести 0000FF.

Наступні приклади показують, як використовувати кожен метод на практиці.

Приклад 1: змінення кольору шрифту за допомогою імен кольорів VBA

Скажімо, у комірці A1 є текст, колір шрифту якого зараз чорний:

Ми можемо створити такий макрос, щоб змінити колір шрифту в клітинці A1 на червоний:

 SubChangeColor ()
Range(" A1 ").Font.Color = vbRed
End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Зверніть увагу, що колір шрифту в клітинці A1 тепер червоний.

Приклад 2: змінення кольору шрифту за допомогою значень RGB

Скажімо, у нас є текстові рядки в діапазоні A1:A5 , колір шрифту яких зараз чорний:

Ми можемо створити такий макрос, щоб змінити колір шрифту в клітинках A1:A5 на червоний:

 SubChangeColor ()
Range(" A1:A5 ").Font.Color = RGB(255,0,0)
End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Зверніть увагу, що колір шрифту в кожній клітинці в діапазоні A1:A5 тепер червоний.

Приклад 3: змініть колір шрифту за допомогою шістнадцяткових кодів кольорів

Давайте ще раз припустимо, що у нас є текстові рядки в діапазоні A1:A5 , колір шрифту яких зараз чорний:

Ми можемо створити такий макрос, щоб змінити колір шрифту в клітинках A1:A5 на червоний:

 SubChangeColor ()
Range(" A1:A5 ").Font.Color = &H0000FF
End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Зверніть увагу, що колір шрифту в кожній клітинці в діапазоні A1:A5 тепер червоний.

Примітка . Ви можете знайти повну документацію щодо властивості VBA Font.Color тут .

Додаткові ресурси

У наступних посібниках пояснюється, як виконувати інші типові завдання у VBA:

VBA: як видалити пробіли з рядка
VBA: Як замінити символи в рядку
VBA: Як вставити рядок із форматуванням