У цьому посібнику буде показано, як встановити висоту рядка та ширину стовпців за допомогою VBA.
Висоту рядків Excel і ширину стовпців можна змінити у VBA, встановивши властивості .RowHeight та .ColumnWidth.
Встановіть ширину стовпця за допомогою VBA
Макрос для встановлення ширина стовпця стовпців від А до Е:
| 123 | Додатковий стовпець_ширини ()Стовпці ("A: E"). Ширина стовпця = 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 = стовпці ("a"). ColumnWidth |
Примітка: Це поверне Null, якщо всі стовпці в діапазоні не мають однакової ширини.
Отримайте висоту ряду
Аналогічно можна отримати висоту рядка:
| 12 | dim iRowHeight до тих пірiRowHeight = рядки ("1"). RowHeight |
