Ten samouczek pokaże, jak ustawić wysokość wiersza i szerokość kolumn za pomocą VBA.
Wysokości wierszy i szerokości kolumn programu Excel można zmienić w języku VBA, ustawiając właściwości .RowHeight i .ColumnWidth.
Ustaw szerokość kolumny za pomocą VBA
Makro, aby ustawić szerokość kolumny kolumn od A do E:
| 123 | Podkolumna_szerokość()Kolumny("A:E").ColumnWidth = 30Napis końcowy |
Ustaw wysokość wiersza za pomocą VBA
Makro, aby ustawić wysokość wiersza z rzędu 1:
| 123 | Wysokość wiersza podrzędnego()Wiersze("1:1").Wysokość wiersza = 30Napis końcowy |
Automatycznie dopasuj szerokość kolumny
Excel oferuje możliwość „autodopasowania” szerokości kolumn. Ta funkcja dostosowuje szerokość kolumny tak, aby kolumna (kolumny) była wystarczająco szeroka, aby zmieścić cały tekst znajdujący się w tej kolumnie.
Aby automatycznie dopasować szerokości kolumn w VBA:
| 1 | Kolumny("A:B").Autofit |
Więcej na ten temat pisaliśmy w innym artykule o tym, jak autodopasować kolumnę z VBA, w tym o tym, jak autodopasować wszystkie używane kolumny.
Automatycznie dopasuj wysokość rzędu
Możesz również automatycznie dopasować wysokości wierszy, korzystając z podobnej metody:
| 1 | Wiersze("1:2").Autodopasowanie |
Ustaw szerokość komórki
Możesz także dostosować szerokość kolumn, odwołując się do komórki:
| 1 | Zakres("a1").EntireColumn.ColumnWidth = 20 |
Ustaw wysokość komórki
Lub dostosuj wysokości wierszy, odwołując się do komórki:
| 1 | Zakres("a1").EntireRow.RowHeight = 10 |
Uzyskaj szerokość kolumny
Aby uzyskać szerokość kolumny kolumny:
| 12 | dim iColumnSzerokość jako długaiColumnWidth = column("a").ColumnWidth |
Uwaga: Zwróci to wartość Null, jeśli wszystkie kolumny w zakresie nie mają tej samej szerokości.
Uzyskaj wysokość rzędu
Podobnie możesz uzyskać wysokość wiersza:
| 12 | przyciemnij iRowHeight tak długoiRowHeight = wiersze("1").RowHeight |
