Клетки във формат VBA

Този урок ще покаже как да форматирате клетки, използвайки VBA.

Форматиране на клетки

Има много свойства, които могат да бъдат зададени за (диапазон от) клетки като тази:

1234567891011 Sub SetCellFormat ()С работни листове ("Sheet1"). Диапазон ("B5: C7").HorizontalAlignment = xlHAlignDistributed.AddIndent = Вярно.Font.FontStyle = "Курсив".NumberFormat = "Общи".Интериор.Цвят = RGB (128, 100, 250)Край сEnd Sub

Нека ги видим по азбучен ред:

AddIndent

Като зададете стойността на това свойство на True, текстът ще бъде автоматично отстъпен, когато подравняването на текста в клетката е настроено, хоризонтално или вертикално, на равно разпределение (вижте HorizontalAlignment и VerticalAlignment).

12345 С работни листове ("Sheet1"). Диапазон ("A1").Ориентация = xlВертикално.VerticalAlignment = xlVAlignDistributed.AddIndent = ВярноКрай с

Граници

Можете да зададете формат на границата на клетка. Вижте тук за повече информация за границите.

Като пример можете да зададете червена пунктирана линия около клетка В2 на лист 1 по следния начин:

1 Работни листове ("Sheet1"). Диапазон ("B2"). BorderAround LineStyle: = xlDash, ColorIndex: = 3

Шрифт

Можете да регулирате формата на шрифта на клетката, като зададете името на шрифта, стила, размера, цвета, като добавите подчертаване и / или ефекти (зачертаване, под- или горни индекси). Вижте тук за повече информация относно клетъчните шрифтове.

Ето няколко примера:

12345 С обхват ("A1: C5"). Шрифт.Name = "Век".FontStyle = "Удебелен".Strikethrough = ВярноКрай с

Формула Скрит

Това свойство връща или задава стойност на вариант, която показва дали формулата ще бъде скрита, когато работният лист е защитен. Например:

1 Работни листове ("Sheet1"). Диапазон ("A1: B1"). FormulaHidden = True

Хоризонтално подравняване

Това свойство за формат на клетъчна собственост връща или задава стойност на вариант, която представлява хоризонталното подравняване за посочения обект. Върнати или зададени константи могат да бъдат: xlGeneral, xlCenter, xlDistributed, xlJustify, xlLeft, xlRight, xlFill, xlCenterAcrossSelection. Например:

1 Работни листове ("Sheet1"). Диапазон ("D3"). HorizontalAlignment = xlRight

IndentLevel

Той връща или задава цяло число между 0 и 15, което представлява нивото на отстъп за клетката или диапазона.

1 Работни листове ("Sheet1"). Диапазон ("A1"). IndentLevel = 7

Интериор

Можете да зададете или да получите върната информация за интериора на клетката: нейният цвят, ColorIndex, Pattern, PatternColor, PatternColorIndex, PatternThemeColor, PatternTintAndShade, ThemeColor, TintAndShade, като този:

123 Ако не е диапазон ("A1"). Интериор.ThemeColor = ThemeColorLight2 ТогаваДиапазон ("A1"). Интериор.Шаблон = xlPatternUpКрай Ако

Заключен

Това свойство връща True, ако клетката или диапазонът са заключени, False, ако обектът може да бъде променен, когато листът е защитен, или Null, ако посоченият диапазон съдържа както заключени, така и отключени клетки. Може да се използва и за заключване или отключване на клетки.

Този пример отключва клетки A1: B2 на Sheet1, така че да могат да се променят, когато листът е защитен.

12 Работни листове ("Sheet1"). Диапазон ("A1: B2"). Заключен = НеверноРаботни листове („Лист1“). Защита

Сливане на клетки

Задайте това свойство на True, ако трябва да обедините диапазон. Стойността му става True, ако определен диапазон съдържа обединени клетки. Например, ако трябва да обедините диапазона на C5: D7, можете да използвате този код:

1 Работни листове ("Sheet1"). Диапазон ("C5: D7"). MergeCells = Вярно

NumberFormat

Можете да зададете числовия формат в клетката (ите) на Общ, Номер, Валута, Счетоводство, Дата, Час, Процент, Дроб, Научен, Текст, Специален и Персонализиран.

Ето примери за научни и процентни формати на числа:

12 Диапазон ("A1"). NumberFormat = "0.00E+00"Диапазон ("B1"). NumberFormat = "0.00%"

NumberFormatLocal

Това свойство връща или задава стойност на вариант, която представлява кода на формата за обекта като низ на езика на потребителя.

Ориентация

Можете да зададете (или да бъдете върнати) текстовата ориентация в клетката (ите) чрез това свойство. Стойността му може да бъде една от тези константи: xlDownward, xlHorizontal, xlUpward, xlVertical или цяло число от -90 до 90 градуса.

1 Работни листове ("Sheet1"). Диапазон ("A1"). Ориентация = -60

Родител

Това е свойство само за четене, което връща родителския обект на определен обект.

Смали до пасване

Това свойство връща или задава стойност на вариант, която показва дали текстът автоматично се свива, за да се побере в наличната ширина на колоната.

1 Работни листове ("Sheet1"). Диапазон ("A1"). ShrinkToFit = Вярно

Вертикално подравняване

Това свойство за формат на клетъчна собственост връща или задава стойност на вариант, която представлява вертикалното подравняване за посочения обект. Връщаните или зададени константи могат да бъдат: xlCenter, xlDistributed, xlJustify, xlBottom, xlTop. Например:

1 Работни листове ("Sheet1"). Диапазон ("A1"). VerticalAlignment = xlTop

WrapText

Това свойство връща True, ако текстът е обвит във всички клетки в определения диапазон, False, ако текстът не е обгърнат във всички клетки в определения диапазон, или Null, ако посоченият диапазон съдържа някои клетки, които обгръщат текст, и други клетки, които не го правят.

Например, ако имате този диапазон от клетки:

този код по -долу ще върне Null в непосредствения прозорец:

1 ? Работни листове ("Sheet1"). Диапазон ("A1: B1"). WrapText
wave wave wave wave wave