start-sm |
Дата: Вторник, 22.05.2012, 14:21 | Сообщение # 1 |
Admin
Administrator
Posts: 574
Reputation: 3
Status: Offline |
* Как закрасить клетку в цвет: Cells(1, 1).Interior.ColorIndex = 3
Пример:
Sub ColorTable()
Dim i As Byte
For i = 1 To 56
Cells(i, 1).Interior.ColorIndex = i Cells(i, 2).Value = i
Next i
End Sub
Пояснение (построчно):
1. Открываем подпрограмму с условным именем ColorTable без параметров () 2. Задаём числовую переменную i типа Byte. Подробнее про типы переменных смотрим здесь: Типы переменных 3. Задаём цикл For от 1 до 56, т.к. в Excel 56 цветов, заданных простыми цифрами. Код цикла говорит о том, что переменная i будет меняться от 1 до 56. 4. Раскрашиваем клетку А1, она же (i, 1) в цвет, заданный переменной i. На первом этапе цикла i будет равна 1. В последствии, клетка и цвет закраски будут меняться. А2, цвет закраски 2. А3 цвет закраски 3 и т.д. 5. В соседнюю клетку В1, она же (i, 2), т.е. клетка пересечения 1-й строки, 2-го столбца, записываем значение i, чтобы можно было потом видеть какой цифре соответствует какой цвет. 6. Закрываем цикл командой Next i, которая означает, что i будет увеличена на 1. 7. Закрываем подпрограмму.
Скачать файл образец: DOWNLOAD |
|
| |