Цвет текста (шрифта) в ячейке

Свойство .Font.Color (основная палитра)

Основная палитра, начиная c Excel 2007, состоит из 16777216 цветов. Свойство .Font.Color может принимать значения от 0 до 16777215, причем 0 соответствует черному цвету, а 16777215 — белому.

Cells(1, 1).Font.Color = 0
Cells(2, 1).Font.Color = 6777215
Cells(3, 1).Font.Color = 4569325

При записи макрорекордером макроса с присвоением шрифту цвета используются отрицательные значения свойства .Font.Color, которые могут быть в пределах от -16777215 до -1. Отрицательные значения соответствуют по цвету положительному значению, равному сумме наибольшего индекса основной палитры и данного отрицательного значения. Например, отрицательное значение -8257985 соответствует положительному значению 8519230, являющегося результатом выражения 16777215 + (-8257985). Цвета текста двух ячеек из следующего кода будут одинаковы:

Cells(1, 1).Font.Color = -8257985
Cells(2, 1).Font.Color = 8519230

#VBA #ExcelVBA #ЦветТекста #FontColor #Font #Color

Свойство .Font.ColorIndex

Свойство .Font.ColorIndex может принимать значения от 1 до 56. Это стандартная ограниченная палитра, которая существовала до Excel 2007 и используется до сих пор. Посмотрите примеры:

Range("A1:D6").Font.ColorIndex = 5
Cells(1, 6).Font.ColorIndex = 12

Таблица соответствия значений ограниченной палитры цвету:

#VBA #ExcelVBA #FontColorIndex #Font #ColorIndex

🔥 Свойство Font объекта Range

Свойство Range.Font позволяет изменять шрифт, цвет, размер и другие текстовые атрибуты в ячейках. Это свойство полезно для выделения данных, стилизации заголовков и форматирования отчётов.

📌 Примеры:

1️⃣ Изменить шрифт и размер текста в A1:

With Range("A1").Font  
    .Name = "Arial"  
    .Size = 14  
End With  

🔹 Устанавливает шрифт Arial и размер 14.

2️⃣ Сделать текст жирным и красным в B2:

With Range("B2").Font  
    .Bold = True  
    .Color = RGB(255, 0, 0)  
End With  

🔹 Текст станет жирным и красным.

3️⃣ Применить курсив и подчеркнуть текст в C3:

With Range("C3").Font  
    .Italic = True  
    .Underline = xlUnderlineStyleSingle  
End With  

🔹 Устанавливает курсив и подчёркивание.

4️⃣ Изменить цвет шрифта в строках с нечётными номерами:

Dim r As Range  
For Each r In Range("A1:A10").Rows  
    If r.Row Mod 2 = 1 Then  
        r.Font.Color = RGB(0, 0, 255) ' Синий  
    End If  
Next r  

🔹 Закрашивает шрифт в нечётных строках в синий цвет.

💡 Font можно комбинировать с Interior, Borders и другими свойствами для создания красивого форматирования.

#VBA #ExcelVBA #Range #Font #Шрифт