Список кодов индекса цвета VBA
При использовании VBA для кодирования Colorindex (или цвета фона) ячейки полезно знать, какое целое число будет равно какому цвету. Ниже приведено справочное изображение, на котором показан цвет и указан соответствующий ему Colorindex. он же Цветовая палитра VBA
Вот код, чтобы сделать его для себя или просто добавить эту страницу в закладки:
| 123456789101112131415 | Sub ColorRef ()Dim x As IntegerДля x = от 1 до 56Если x <ТоCells (x, 1) .Interior.ColorIndex = xЯчейки (x, 2) = xЕщеЯчейки (x - 28, 3) .Interior.ColorIndex = xЯчейки (x - 28, 4) = xКонец, еслиДалее xКонец подписки |
Примеры VBA ColorIndex
Установить цвет фона ячейки
| 1 | Диапазон ("A1"). Interior.ColorIndex = 6 |
Установить цвет шрифта ячейки
| 1 | Диапазон ("A1"). Font.ColorIndex = 5 |
Установить цвет границ ячеек
| 1 | Диапазон ("A1"). Borders.ColorIndex = 5 |
Получить индекс цвета фона ячейки
| 123 | Dim col как целое числоcol = Range ("A1"). Interior.ColorIndex |
Установите цвет фона ячейки на цвет другой ячейки
| 1 | Диапазон ("A1"). Interior.ColorIndex = Range ("B1"). Interior.ColorIndex |
Свойство цвета VBA
Вместо использования свойства ColorIndex Excel / VBA вы можете использовать свойство Color. Свойство Color принимает два типа ввода:
- vbColor
- Цвета RGB
Мы обсудим это ниже:
Цвет VB
VB Color - самый простой способ установить цвета в VBA. Однако он также наименее гибкий. Чтобы установить цветовой код с помощью vbColor, используйте таблицу ниже:
Однако, как видно из таблицы, ваши возможности крайне ограничены.
Установить цвет фона ячейки
| 1 | Диапазон ("A1"). Interior.Color = vbYellow |
Установить цвет шрифта ячейки
| 1 | Диапазон ("A1"). Font.Color = vbBlue |
Установить цвет границ ячеек
| 1 | Диапазон ("A1"). Borders.Color = vbRed |
Установите цвет фона ячейки на цвет другой ячейки
| 1 | Диапазон ("A1"). Interior.Color = Range ("B1"). Interior.Color |
Цвета RGB
RGB означает красный зеленый синий. Это три основных цвета, которые можно комбинировать для получения любого другого цвета. При вводе цветов как RGB введите значение от 0 до 255 для каждого цветового кода.
Вот пример:
| 1 | Диапазон ("A1"). Interior.Color = RGB (255,255,0) |
Выше мы установили красный = 255 (максимальное значение), зеленый = 255 (максимальное значение) и синий = 0 (минимальное значение). Это устанавливает желтый цвет фона ячейки.
Вместо этого мы можем установить цвет шрифта ячейки на фиолетовый:
| 1 | Диапазон ("A1"). Interior.Color = RGB (128,0,128) |
Существует множество онлайн-инструментов для поиска кода RGB для желаемого цвета (вот один).
Список кодов ColorIndex и цвета RGB в Access VBA
Access использует формы для отображения данных. Коды ColorIndex можно использовать для программного изменения цвета фона и цвета переднего плана объектов в формах Access.
| 12345 | Частная подпрограмма cmdSave_Click ()'изменить цвет фона кнопки сохранения при сохранении записи.DoCmd.RunCommand acCmdSaveRecordcmdSave.BackColor = vbGreenКонец подписки |
