Промяна на цвета на клетката - .Interior.ColorIndex
За да променим цвета на клетка, можем да използваме:
Cell.Interior.ColorIndex = Брой
Където:
• Клетката е референтната клетка
• Интериор - отнася се за цвета на действителния цвят на клетката (Интериорното свойство)
• Colourindex е стойност между 1 и 56 за един от 56 -те предварително зададени цвята на Excel
И Num е цветният номер, присвоен на клетката. Не винаги обаче е лесно да си спомните кое число представлява кой цвят. Следващата подпрограма променя цвета на клетката в зависимост от номера на реда. Така например ред 3 ще има цвят 3 и т.н.
Тъй като в Excel има 56 предварително зададени цвята, това означава, че клетки 59, 115 ще имат същия цвят като клетката в ред 3:
| 123456789101112 | Опция ИзричноPrivate Sub CommandButton1_Click ()Colour_Range (Листове ("Sheet2"). Диапазон ("A1: A2000"))End SubПодцветен диапазон на цветовете (диапазон на клетките като диапазон)„Ще оцвети всяка клетка в обхватаDim CellЗа всяка клетка в Cell_RangeCell.Interior.ColorIndex = Cell.Row Mod 56Cell.Offset (0, 0) .Value = Cell.RowСледващияEnd Sub |
Рутината се активира чрез събитие щракване.
За да изтеглите .XLSM файла за този урок, моля, щракнете тук.
