Service M Forum
Четверг, 08.12.2016, 01:08
START-SM МИГРАЦИЯ ENGLISH INSURANCE ЗАРАБОТОК X1-MSB МАГАЗИН ФОРУМ АЗАРТ INFO-СТОК $ RUSBUX $
ФОРУМ САЙТА START-SM.AT.UA
Регистрация Новые сообщения Правила форума Участники Поиск ВХОД RSS
Страница 1 из 11
Форум » EDUCATION » Excel VBA » Цвета Colors (VBA)
Цвета Colors
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
 
Форум » EDUCATION » Excel VBA » Цвета Colors (VBA)
Страница 1 из 11
Поиск:

    Copyright MyCorp © 2016 Бесплатный конструктор сайтов - uCoz