Змінити колір клітинки - .Interior.ColorIndex
Щоб змінити колір клітинки, ми можемо використовувати:
Cell.Interior.ColorIndex = Num
Де:
• Клітинка - це посилання на клітинку
• Інтер’єр - означає колір фактичного кольору комірки (Внутрішня властивість)
• Кольоровий індекс - це значення від 1 до 56 для одного з 56 попередньо визначених кольорів Excel
А Num - це колір номера, призначений для клітинки. Однак не завжди легко запам’ятати, яке число позначає який колір. Наступна підпрограма змінює колір комірки залежно від номера рядка. Так, наприклад, рядок 3 матиме колір 3 тощо.
Оскільки в Excel є 56 попередньо встановлених кольорів, це означає, що клітинки 59, 115 матимуть той самий колір, що і клітинка у рядку 3:
123456789101112 | Опція явнаПриватна підкоманда CommandButton1_Click ()Діапазон кольорів (аркуші ("аркуш2"). Діапазон ("A1: A2000"))End SubДіапазон підбарв. (Діапазон клітинок як діапазон)'Пофарбує кожну клітинку в діапазоніDim CellДля кожної клітини в діапазоні Cell_RangeCell.Interior.ColorIndex = Cell.Row Mod 56Зміщення комірки (0, 0). Значення = Стільник. РядокДаліEnd Sub |
Процедура активується подією клацання.
Щоб завантажити файл .XLSM для цього підручника, клацніть тут.