28982 автора и 62 редактора ответили на 85243 вопроса,
разместив 135214 ссылок на 43429 сайтов, присоединяйтесь!

Как в VBA программно установить цвет фона ячейки в Microsoft Office Excel?

РедактироватьВ избранноеПечать

Цвет фона ячейки в Microsoft Office Excel определяется свойством ColorIndex объекта Interior этой ячейки.

Например цвет ячейки A1 можно установить так: Cells(1, 1).Interior.ColorIndex = 6 (желтый)
Соответственно считать цвет ячейки можно так: ColorVar = Cells(1, 1).Interior.ColorIndex

 

Самая простая последовательность действий для понимания этого примера следующая.

1. Откройте Excel.

2. Нажмите Alt + F11

3. Справа введите следующий код:

    Private Sub Worksheet_Activate()
        Cells(1, 1).Interior.ColorIndex = 6
    End Sub

4. Переключитесь обратно в Excel.

5. Переключитесь на второй лист, а затем опять на первый. В результате цвет фона первой ячейки на первом листе должен стать желтым.

 

Цвет текста задается не в каком-либо формате (RGB, CMYK и т.д.), а номером, под которым он находится в палитре Excel. Всего в палитре присутствует 55 цветов и одно значение отводиться под автоцвет. Итого при помощи свойства ColorIndex() можно задать 56 значений цвета. Эти 55 цветов находятся в коллекции Colors объекта ActiveWorkbook, так что их можно при желании изменить:

 

ActiveWorkbook.Colors(1) = RGB(153, 202, 60)

Cells(1, 1).Interior.ColorIndex = 1

Последнее редактирование ответа: 19.10.2006

  • Оставить отзыв

    Оставить отзыв

РедактироватьВ избранноеПечать

Похожие вопросы

«Как в VBA программно установить цвет фона ячейки в Microsoft Office Excel»

В других поисковых системах:

GoogleЯndexRamblerВикипедия

В соответствии с пользовательским соглашением администрация не несет ответственности за содержание материалов, которые размещают пользователи. Для урегулирования спорных вопросов и претензий Вы можете связаться с администрацией сайта genon.ru. Размещенные на сайте материалы могут содержать информацию, предназначенную для пользователей старше 18 лет, согласно Федерального закона №436-ФЗ от 29.12.2010 года "О защите детей от информации, причиняющей вред их здоровью и развитию". Обращение к пользователям 18+.