Как изменить цвет шрифта в 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: Как вставить строку с форматированием