Из этого туториала Вы узнаете, как форматировать ячейки с помощью VBA.
Форматирование ячеек
Есть много свойств, которые можно задать для (диапазона) ячеек, например:
| 1234567891011 | Sub SetCellFormat ()С листами ("Sheet1"). Диапазон ("B5: C7").HorizontalAlignment = xlHAlignDistributed..AddIndent = Истина.Font.FontStyle = "Курсив".NumberFormat = "Общие".Interior.Color = RGB (128, 100, 250).Конец сКонец подписки |
Давайте рассмотрим их в алфавитном порядке:
AddIndent
Если установить для этого свойства значение True, текст будет автоматически иметь отступ, если выравнивание текста в ячейке будет установлено, по горизонтали или вертикали, на равное распределение (см. HorizontalAlignment и VerticalAlignment).
| 12345 | С листами («Лист1»). Диапазон («А1»).Orientation = xlVertical..VerticalAlignment = xlVAlignDistributed..AddIndent = ИстинаКонец с |
Границы
Вы можете установить формат границы ячейки. См. Здесь для получения дополнительной информации о границах.
В качестве примера вы можете установить красную пунктирную линию вокруг ячейки B2 на листе 1 следующим образом:
| 1 | Листы ("Sheet1"). Диапазон ("B2"). BorderAround LineStyle: = xlDash, ColorIndex: = 3 |
Шрифт
Вы можете настроить формат шрифта ячейки, задав имя шрифта, стиль, размер, цвет, добавив подчеркивания и / или эффекты (зачеркивание, подстрочный или надстрочный индекс). См. Здесь для получения дополнительной информации о шрифтах ячеек.
Вот некоторые примеры:
| 12345 | С диапазоном ("A1: C5"). Шрифт.Name = "Век".FontStyle = "Полужирный".Strikethrough = TrueКонец с |
ФормулаСкрытый
Это свойство возвращает или задает значение варианта, указывающее, будет ли формула скрыта при защите рабочего листа. Например:
| 1 | Листы ("Лист1"). Диапазон ("A1: B1"). FormulaHidden = True |
Горизонтальное выравнивание
Это свойство формата ячейки свойства возвращает или задает значение варианта, представляющее горизонтальное выравнивание для указанного объекта. Возвращаемые или устанавливаемые константы могут быть: xlGeneral, xlCenter, xlDistributed, xlJustify, xlLeft, xlRight, xlFill, xlCenterAcrossSelection. Например:
| 1 | Листы ("Лист1"). Диапазон ("D3"). HorizontalAlignment = xlRight |
IndentLevel
Он возвращает или задает целочисленное значение от 0 до 15, которое представляет уровень отступа для ячейки или диапазона.
| 1 | Листы ("Лист1"). Диапазон ("A1"). IndentLevel = 7 |
Интерьер
Вы можете установить или получить возвращаемую информацию о внутренней части ячейки: ее Color, ColorIndex, Pattern, PatternColor, PatternColorIndex, PatternThemeColor, PatternTintAndShade, ThemeColor, TintAndShade, например:
| 123 | Если не диапазон ("A1"). Interior.ThemeColor = ThemeColorLight2 ТогдаДиапазон ("A1"). Interior.Pattern = xlPatternUpКонец, если |
Заблокировано
Это свойство возвращает True, если ячейка или диапазон заблокированы, False, если объект может быть изменен, когда лист защищен, или Null, если указанный диапазон содержит как заблокированные, так и разблокированные ячейки. Его также можно использовать для блокировки или разблокировки ячеек.
В этом примере разблокируются ячейки A1: B2 на Sheet1, чтобы их можно было изменить, когда лист защищен.
| 12 | Листы ("Sheet1"). Диапазон ("A1: B2"). Locked = FalseЛисты ("Лист1"). Защитить |
Объединить ячейки
Установите для этого свойства значение True, если вам нужно объединить диапазон. Его значение принимает значение True, если указанный диапазон содержит объединенные ячейки. Например, если вам нужно объединить диапазон C5: D7, вы можете использовать этот код:
| 1 | Листы ("Лист1"). Диапазон ("C5: D7"). MergeCells = True |
NumberFormat
Вы можете установить числовой формат в ячейках: Общий, Число, Валюта, Учет, Дата, Время, Процент, Дробь, Научный, Текст, Специальный и Пользовательский.
Вот примеры форматов научных и процентных чисел:
| 12 | Диапазон ("A1"). NumberFormat = "0.00E + 00"Диапазон ("B1"). NumberFormat = "0,00%" |
ЧислоФорматМестное
Это свойство возвращает или задает значение варианта, представляющее код формата для объекта в виде строки на языке пользователя.
Ориентация
Вы можете установить (или получить) ориентацию текста в ячейках с помощью этого свойства. Его значение может быть одной из следующих констант: xlDownward, xlHorizontal, xlUpward, xlVertical или целочисленным значением от -90 до 90 градусов.
| 1 | Листы ("Лист1"). Диапазон ("A1"). Ориентация = -60 |
Родитель
Это свойство только для чтения, которое возвращает родительский объект указанного объекта.
Уменьшать до размеров
Это свойство возвращает или задает вариантное значение, которое указывает, сжимается ли текст автоматически, чтобы соответствовать доступной ширине столбца.
| 1 | Листы ("Лист1"). Диапазон ("A1"). ShrinkToFit = True |
Вертикальное выравнивание
Это свойство формата ячейки свойства возвращает или задает значение варианта, представляющее вертикальное выравнивание для указанного объекта. Возвращаемые или устанавливаемые константы могут быть: xlCenter, xlDistributed, xlJustify, xlBottom, xlTop. Например:
| 1 | Листы ("Sheet1"). Диапазон ("A1"). VerticalAlignment = xlTop |
WrapText
Это свойство возвращает True, если текст переносится во все ячейки в указанном диапазоне, False, если текст не переносится во все ячейки в заданном диапазоне, или Null, если указанный диапазон содержит некоторые ячейки, которые переносят текст, и другие ячейки, которые этого не делают.
Например, если у вас есть этот диапазон ячеек:
этот код ниже вернет Null в окне Immediate Window:
| 1 | ? Рабочие листы ("Лист1"). Диапазон ("A1: B1"). WrapText |
