В этом руководстве будет показано, как установить высоту строки и ширину столбца с помощью VBA.
Высоту строк и ширину столбцов Excel можно изменить в VBA, задав свойства .RowHeight и .ColumnWidth.
Установить ширину столбца с помощью VBA
Макрос для установки ширина колонки столбцов от A до E:
123 | Sub Column_Width ()Столбцы ("A: E"). Ширина столбца = 30Конец подписки |
Установить высоту строки с помощью VBA
Макрос для установки высота строки строки 1:
123 | Sub RowHeight ()Ряды ("1: 1"). RowHeight = 30Конец подписки |
Ширина столбца автозаполнения
Excel предлагает возможность «Автозаполнения» ширины столбцов. Эта функция регулирует ширину столбца так, чтобы столбцы были достаточно широкими, чтобы вместить весь текст, найденный в этом столбце.
Чтобы автоматически подогнать ширину столбцов в VBA:
1 | Столбцы ("A: B"). Автоподбор |
Мы писали больше об этом в другой статье о том, как автоматически подогнать столбец из VBA, в том числе о том, как автоматически подогнать все используемые столбцы.
Автоподбор высоты строки
Вы также можете автоматически подогнать высоту строк, используя аналогичный метод:
1 | Ряды ("1: 2"). Автоподбор |
Установить ширину ячейки
Вы также можете настроить ширину столбца, указав ячейку:
1 | Диапазон ("a1"). CompleteColumn.ColumnWidth = 20 |
Установить высоту ячейки
Или отрегулируйте высоту строки, указав ячейку:
1 | Диапазон ("a1"). CompleteRow.RowHeight = 10 |
Получить ширину столбца
Чтобы получить ширину столбца столбца:
12 | dim iColumnWidth до тех пор, покаiColumnWidth = columns ("a"). ColumnWidth |
Примечание. Это вернет Null, если все столбцы в диапазоне не имеют одинаковой ширины.
Получить высоту строки
Точно так же вы можете получить высоту строки:
12 | dim iRowHeight до тех пор, покаiRowHeight = rows ("1"). RowHeight |