Цей підручник покаже, як форматувати клітинки за допомогою VBA.
Форматування клітинок
Існує багато властивостей, які можна встановити для (діапазону) клітинок, як це:
| 1234567891011 | Sub SetCellFormat ()З аркушами ("Аркуш1"). Діапазон ("B5: C7").HorizontalAlignment = xlHAlignDistributed.AddIndent = Істина.Font.FontStyle = "Курсив".NumberFormat = "Загальні".Внутрішній. Колір = RGB (128, 100, 250)Закінчити зEnd Sub |
Розглянемо їх в алфавітному порядку:
AddIndent
Якщо встановити для цієї властивості значення True, текст буде автоматично відступати, коли вирівнювання тексту в комірці встановлено горизонтально чи вертикально для рівного розподілу (див. HorizontalAlignment та VerticalAlignment).
| 12345 | З аркушами ("Аркуш1"). Діапазон ("А1").Орієнтація = xlВертикальна.VerticalAlignment = xlVAlignDistributed.AddIndent = ІстинаЗакінчити з |
Кордони
Ви можете встановити формат межі клітинки. Докладніше про кордони дивіться тут.
Як приклад, ви можете встановити червону пунктирну лінію навколо комірки B2 на аркуші 1 таким чином:
| 1 | Робочі аркуші ("Sheet1"). Діапазон ("B2"). BorderAround LineStyle: = xlDash, ColorIndex: = 3 |
Шрифт
Ви можете налаштувати формат шрифту комірки, встановивши назву, стиль, розмір, колір, додавши підкреслення та / або ефекти (закреслення, нижній або верхній індекс). Докладніше про шрифти комірок дивіться тут.
Ось деякі приклади:
| 12345 | З діапазоном ("A1: C5"). Шрифт.Name = "Століття".FontStyle = "Жирний".Strikethrough = TrueЗакінчити з |
Формула Прихована
Ця властивість повертає або задає значення варіанта, яке вказує, чи буде формула прихована під час захисту аркуша. Наприклад:
| 1 | Робочі аркуші ("Аркуш1"). Діапазон ("A1: B1"). Формула Прихована = Істина |
Горизонтальне вирівнювання
Ця властивість формату клітинки властивості повертає або задає значення варіанта, що представляє горизонтальне вирівнювання для зазначеного об’єкта. Повернені або встановлені константи можуть бути: xlGeneral, xlCenter, xlDistributed, xlJustify, xlLeft, xlRight, xlFill, xlCenterAcrossSelection. Наприклад:
| 1 | Робочі аркуші ("Аркуш1"). Діапазон ("D3"). HorizontalAlignment = xlRight |
Рівень відступу
Він повертає або задає ціле число між 0 і 15, що представляє рівень відступу для комірки або діапазону.
| 1 | Робочі аркуші ("Аркуш1"). Діапазон ("А1"). Рівень відступу = 7 |
Інтер'єр
Ви можете встановити або отримати повернену інформацію про інтер’єр клітинки: її колір, колірний індекс, візерунок, візерунковий колір, візерунковий кольоровий індекс, візерунковий тематичний колір, візерунковий відтінок та відтінок, тематичний колір, відтінок та відтінок, наприклад:
| 123 | Якщо не діапазон ("A1"). Interior.ThemeColor = ThemeColorLight2 ТодіДіапазон ("A1"). Інтер'єр. Візерунок = xlЗакінчити Якщо |
Заблоковано
Ця властивість повертає True, якщо клітинка або діапазон заблоковано, False, якщо об’єкт можна змінити під час захисту аркуша, або Null, якщо зазначений діапазон містить як заблоковані, так і розблоковані клітинки. Його також можна використовувати для блокування або розблокування осередків.
У цьому прикладі розблоковуються комірки A1: B2 на Sheet1, щоб їх можна було змінити, коли аркуш захищений.
| 12 | Робочі аркуші ("Аркуш1"). Діапазон ("A1: B2"). Заблоковано = НеправдаРобочі аркуші ("Аркуш1"). Захист |
MergeCells
Встановіть для цієї властивості значення True, якщо вам потрібно об’єднати діапазон. Його значення стає істинним, якщо вказаний діапазон містить об’єднані комірки. Наприклад, якщо вам потрібно об’єднати діапазон C5: D7, ви можете скористатися цим кодом:
| 1 | Робочі аркуші ("Sheet1"). Діапазон ("C5: D7"). MergeCells = True |
Формат числа
Ви можете встановити формат числа в клітинках (ях): Загальні, Номер, Валюта, Бухгалтерський облік, Дата, Час, Відсоток, Дроби, Наукові, Текстові, Спеціальні та Спеціальні.
Ось приклади наукових форматів та форматів відсотків:
| 12 | Діапазон ("A1"). NumberFormat = "0.00E+00"Діапазон ("B1"). NumberFormat = "0,00%" |
NumberFormatLocal
Ця властивість повертає або задає значення варіанта, що представляє код формату для об'єкта як рядок мовою користувача.
Орієнтація
За допомогою цієї властивості можна встановити (або повернути) орієнтацію тексту в клітинках. Його значення може бути однією з таких констант: xlDownward, xlHorizontal, xlUpward, xlVertical або ціле значення від -90 до 90 градусів.
| 1 | Робочі аркуші ("Аркуш1"). Діапазон ("А1"). Орієнтація = -60 |
Батько
Це властивість лише для читання, яка повертає батьківський об’єкт зазначеного об’єкта.
ShrinkToFit
Ця властивість повертає або задає значення варіанта, яке вказує, чи текст автоматично зменшується, щоб відповідати доступній ширині стовпця.
| 1 | Робочі аркуші ("Sheet1"). Діапазон ("A1"). ShrinkToFit = True |
Вертикальне вирівнювання
Ця властивість формату клітинки властивості повертає або задає значення варіанта, що представляє вертикальне вирівнювання для зазначеного об’єкта. Повернені або встановлені константи можуть бути: xlCenter, xlDistributed, xlJustify, xlBottom, xlTop. Наприклад:
| 1 | Робочі аркуші ("Аркуш1"). Діапазон ("А1"). VerticalAlignment = xlTop |
Обернути текст
Ця властивість повертає True, якщо текст обгортається у всіх клітинках у зазначеному діапазоні, False, якщо текст не обгортається у всіх клітинках у зазначеному діапазоні, або Null, якщо зазначений діапазон містить деякі клітинки, які переносять текст та інші клітинки, які цього не роблять.
Наприклад, якщо у вас є такий діапазон клітинок:
цей код нижче поверне Null у вікні Негайного:
| 1 | ? Робочі аркуші ("Аркуш1"). Діапазон ("A1: B1"). WrapText |
