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

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

📌 Примеры:

1️⃣ Изменяем цвет фона ячейки A1:

Range("A1").Interior.Color = RGB(255, 255, 0)  

🔹 Ячейка A1 станет жёлтой (RGB(255, 255, 0)).

2️⃣ Устанавливаем стандартный цвет Excel (красный):

Range("B2").Interior.ColorIndex = 3  

🔹 ColorIndex = 3 — это красный цвет в палитре Excel.

3️⃣ Очищаем от заливки ячейки A1:C3:

Range("A1:C3").Interior.ColorIndex = xlNone  

🔹 Убирает заливку (возвращает стандартный фон).

4️⃣ Закрашиваем строки с чётными номерами:

Dim r As Range  
For Each r In Range("A1:A10").Rows  
    If r.Row Mod 2 = 0 Then  
        r.Interior.Color = RGB(200, 200, 200) ' Серый  
    End If  
Next r  

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

5️⃣ Добавляем серый узор 50%:

Range("A1").Interior.Pattern = xlPatternGray50

🔹 Значения Pattern берутся из набора констант Excel, таких как xlPatternNone, xlPatternSolid, xlPatternGray50, и других.

6️⃣ Устанавливаем зелёный цвет узора:

Range("A1").Interior.PatternColor = RGB(0, 255, 0)

🔹 Цвет узора (PatternColor) перекрывает основной цвет заливки. Вы можете создать узор из цветных линий поверх однотонного фона.

7️⃣ Задаем оттенок узора:

Range("A1").Interior.PatternTintAndShade = 0.5 ' Светлый оттенок узора

🔹 PatternTintAndShade позволяет регулировать яркость и насыщенность цвета узора. Значение варьируется от -1 (насыщенный тёмный) до 1 (очень светлый).

8️⃣ Затемняем основную заливку:

Range("A1").Interior.TintAndShade = -0.25 ' Заливка с затемнением

🔹 TintAndShade позволяет регулировать яркость и насыщенность основной заливки ячейки. Значение варьируется от -1 (насыщенный тёмный) до 1 (очень светлый).

9️⃣ Применяем сразу несколько свойств к объекту Interior:

With Range("A1").Interior
    .Color = RGB(255, 255, 0) ' Основной цвет - жёлтый
    .Pattern = xlPatternChecker ' Шахматный узор
    .PatternColor = RGB(0, 0, 255) ' Цвет узора - синий
    .PatternTintAndShade = 0.3 ' Осветляем узор
End With

🔹 Можно комбинировать основные свойства заливки, чтобы добиться сложных визуальных эффектов.

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

#Interior #Color #Pattern #PatternColor #PatternTintAndShade #TintAndShade

🏁 Добавление узора в ячейку

Добавление узора (штрихового рисунка) в ячейку осуществляется с помощью свойства Range.Interior.Pattern.

💡 Свойство Interior объекта Range возвращает объект Interior (внутренняя область диапазона), а свойство Pattern объекта Interior задает шаблон узора ячейки (диапазона) или возвращает его числовое значение.

Range.Interior.Pattern = ConstantXlPattern

где ConstantXlPattern – константа из коллекции XlPattern, задающая шаблон узора (штрихового рисунка).

🛠 Константы XlPattern с шаблонами узоров (штриховых рисунков) на изображении ниже.

#VBA #ExcelVBA #Range #Pattern #Ячейка #Узор