Този урок ще покаже как да зададете височина на ред и ширина на колоните с помощта на VBA.
Височините и ширините на колоните в Excel могат да се променят във VBA чрез задаване на свойствата .RowHeight и .ColumnWidth.
Задайте ширина на колоната с VBA
Макрос за задаване на ширина на колоната от колони от А до Е:
| 123 | Под колона_Ширина ()Колони ("A: E"). ColumnWidth = 30End Sub |
Задайте височина на реда с VBA
Макрос за задаване на височина на реда от ред 1:
| 123 | Sub RowHeight ()Редове („1: 1“). RowHeight = 30End Sub |
Автоматично настройване на ширината на колоната
Excel предлага възможност за „Автоматично настройване“ на ширините на колоните. Тази функция регулира ширината на колоната, така че колоната (ите) да е достатъчно широка, за да побере целия текст, намерен в тази колона.
За да настроите автоматично ширините на колоните във VBA:
| 1 | Колони ("A: B"). Автоматично напасване |
Написахме повече за това в друга статия за това как да се монтира автоматично колона от VBA, включително как да се монтира автоматично всички използвани колони.
Автоматично регулиране на височината на реда
Можете също така да настроите автоматично височините на редовете, като използвате подобен метод:
| 1 | Редове („1: 2“). Автоматично поставяне |
Задайте ширина на клетката
Можете също да регулирате ширините на колоните, като посочите клетка:
| 1 | Диапазон ("a1"). EntireColumn.ColumnWidth = 20 |
Задайте височина на клетката
Или коригирайте височините на редовете, като посочите клетка:
| 1 | Диапазон ("a1"). EntireRow.RowHeight = 10 |
Получаване на ширина на колоната
За да получите ширината на колоната:
| 12 | dim iColumnWidth толкова дългоiColumnWidth = колони ("а"). ColumnWidth |
Забележка: Това ще върне Null, ако всички колони в диапазона нямат еднаква ширина.
Получаване на височина на реда
По същия начин можете да получите височината на реда:
| 12 | dim iRowHeight толкова дългоiRowHeight = редове ("1"). RowHeight |
