Jak zmienić wysokość wiersza w vba (z przykładami)

Możesz użyć następujących metod, aby zmienić wysokość wiersza w Excelu za pomocą VBA:

Metoda 1: Zmień wysokość wiersza

 SubChangeRowHeight ()
Rows(3).RowHeight = 40
End Sub

To konkretne makro zmienia wysokość trzeciego wiersza na 40 .

Uwaga : Domyślna wysokość wiersza w programie Excel to 14,4 .

Metoda 2: Zmień wysokość wielu wierszy

 SubChangeRowHeight ()
Rows(" 1:5 ").RowHeight = 40
End Sub

To konkretne makro zmienia wysokość każdego wiersza z jednego na pięć i na 40 .

Metoda 3: Automatycznie dostosuj wysokość wielu rzędów

 SubChangeRowHeight ()
Rows(" 1:8 ").AutoFit
End Sub

To konkretne makro automatycznie dostosowuje wysokość każdej linii od jednego do ośmiu, tak aby była tak wysoka, jak to konieczne, aby wyświetlić najwyższy tekst w każdej linii.

Poniższe przykłady pokazują, jak w praktyce zastosować każdą z tych metod z następującym zbiorem danych w Excelu:

Powiązane: Jak zmienić szerokość kolumny w VBA

Przykład 1: Zmień wysokość wiersza

Możemy utworzyć następujące makro, aby zmienić wysokość trzeciego wiersza na 40:

 SubChangeRowHeight ()
Rows(3).RowHeight = 40
End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Należy zauważyć, że tylko wysokość trzeciego rzędu została zwiększona do 40, podczas gdy wysokość wszystkich pozostałych rzędów pozostała taka sama.

Przykład 2: Zmień wysokość wielu linii

Możemy utworzyć następujące makro, aby zmienić wysokość każdego wiersza od jednego do pięciu do 40:

 SubChangeRowHeight ()
Rows(" 1:5 ").RowHeight = 40 
End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Należy zauważyć, że wysokość każdego z pierwszych pięciu rzędów zmieniła się na 40, podczas gdy wysokość wszystkich pozostałych rzędów pozostała taka sama.

Przykład 3: Automatyczne dostosowywanie wysokości wielu rzędów

Możemy utworzyć następujące makro, aby automatycznie dostosować wysokość każdej z pierwszych ośmiu linii, tak aby była tak wysoka, jak to konieczne, aby wyświetlić najwyższy tekst w każdej linii:

 SubChangeRowHeight ()
Rows(" 1:8 ").AutoFit
End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Należy pamiętać, że wysokość każdej linii została automatycznie dostosowana tak, aby była tak wysoka, jak to konieczne, aby wyświetlić najwyższy tekst w każdej linii:

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

VBA: Jak znaleźć ostatnio używaną linię
VBA: Jak wstawić linię z formatowaniem
VBA: Jak policzyć liczbę wierszy w zakresie