Шрифт ячейки VBA
В VBA вы можете изменить свойства шрифта с помощью свойства шрифта VBA объекта Range. Введите следующий код в редактор VBA, и вы увидите список всех доступных вариантов:
| 1 | Диапазон ("A1). Шрифт. |
Ниже мы обсудим несколько наиболее распространенных свойств.
Изменить цвет шрифта
Есть несколько способов установить цвета шрифта.
vbColor
Самый простой способ установить цвета - использовать vbColors:
| 1 | Диапазон ("a1"). Font.Color = vbRed |
Однако количество доступных цветов очень ограничено. Это единственные доступные варианты:
Цвет - RGB
Вы также можете установить цвета на основе RGB (красный, зеленый, синий). Здесь вы вводите значения цвета от 0 до 255 для красного, зеленого и синего. Используя эти три цвета, вы можете сделать любой цвет:
| 1 | Диапазон ("a1"). Font.Color = RGB (255,255,0) |
ColorIndex
VBA / Excel также имеет свойство ColorIndex. Это делает вам доступными предварительно созданные цвета. Однако они хранятся в виде порядковых номеров, что затрудняет определение того, что это за цвет:
| 1 | Диапазон ("a1"). Font.ColorIndex =… |
Мы написали статью о цветовых кодах VBA, включая список кодов VBA ColorIndex. Там вы можете узнать больше о цветах.
Размер шрифта
Это установит размер шрифта на 12:
| 1 | Диапазон ("a1"). Размер шрифта = 12 |
или до 16:
| 1 | Диапазон ("a1"). Размер шрифта = 16 |
Жирный шрифт
Установить полужирный шрифт ячейки легко:
| 1 | Диапазон ("A1"). Font.Bold = True |
или очистить форматирование полужирным шрифтом:
| 1 | Диапазон ("A1"). Font.Bold = False |
Название шрифта
Чтобы изменить название шрифта, используйте Имя имущество:
| 1 | Диапазон ("A1"). Font.Name = "Calibri" |
| 1 | Диапазон ("A1"). Font.Name = "Arial" |
| 1 | Диапазон ("A1"). Font.Name = "Times New Roman" |
Стиль ячейки
Excel предлагает возможность создавать «стили» ячеек. Стили можно найти в Главная Лента> Стили:
Стили позволяют сохранить желаемое форматирование ячеек. Затем назначьте этот стиль новой ячейке, и все форматирование ячейки будет немедленно применено. В том числе размер шрифта, цвет ячеек, состояние защиты ячеек и все остальное, что доступно в меню форматирования ячеек:
Лично для многих моделей, над которыми я работаю, я обычно создаю стиль ячейки «Вход»:
| 1 | Диапазон ("a1"). Style = "Input" |
Используя стили, вы также можете легко определять типы ячеек на вашем листе. В приведенном ниже примере выполняется цикл по всем ячейкам на листе и изменяется любая ячейка со Style = «Input» на «InputLocked»:
| 1234567 | Тусклая ячейка как диапазонДля каждой ячейки в ActiveSheet.CellsЕсли Cell.Style = "Input", тогдаCell.Style = "InputLocked"Конец, еслиСледующая ячейка |
