Jak zmienić szerokość kolumny w vba (z przykładami)

Aby zmienić szerokość kolumn w Excelu za pomocą VBA, możesz użyć następujących metod:

Metoda 1: Zmień szerokość kolumny

 SubChangeColumnWidth ()
Columns(" B ").ColumnWidth = 20
End Sub

To konkretne makro zmienia szerokość kolumny B na 20 .

Uwaga : Domyślna szerokość kolumny w programie Excel to 8,29 .

Metoda 2: Zmień szerokość wielu kolumn

 SubChangeColumnWidth ()
Columns(" B:D ").ColumnWidth = 20
End Sub

To konkretne makro zmienia szerokość wszystkich kolumn w zakresie od B do D do 20 .

Metoda 3: Automatycznie dostosuj szerokość wielu kolumn

 SubChangeColumnWidth ()
Columns(" B:D ").AutoFit
End Sub

To konkretne makro automatycznie dostosowuje szerokość każdej kolumny w zakresie od B do D, aby była tak szeroka, jak jest to konieczne do wyświetlenia najdłuższej komórki w każdej kolumnie.

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

Przykład 1: zmień szerokość kolumny

Możemy utworzyć następujące makro, aby zmienić szerokość kolumny B na 20:

 SubChangeColumnWidth ()
Columns(" B ").ColumnWidth = 20
End Sub

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

Należy zauważyć, że tylko szerokość kolumny B (kolumny „Punkty”) zmieniła się na 20, podczas gdy szerokość wszystkich pozostałych kolumn pozostała taka sama.

Przykład 2: Zmień szerokość wielu kolumn

Możemy utworzyć następujące makro, aby zmienić szerokość kolumn B na D na 20:

 SubChangeColumnWidth ()
Columns(" B:D ").ColumnWidth = 20
End Sub

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

Należy zauważyć, że szerokość każdej kolumny od B do D zmieniła się na 20, podczas gdy szerokość kolumny A pozostała taka sama.

Przykład 3: Automatyczne dostosowywanie szerokości wielu kolumn

Możemy utworzyć następujące makro, aby automatycznie dostosować szerokość każdej kolumny od A do D, tak aby była tak szeroka, jak to konieczne, aby wyświetlić najdłuższą komórkę w każdej kolumnie.

 SubChangeColumnWidth ()
Columns(" A:D ").AutoFit
End Sub

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

Należy pamiętać, że szerokość każdej kolumny została automatycznie dostosowana tak, aby była tak szeroka, jak to konieczne, aby wyświetlić najdłuższą komórkę w każdej kolumnie.

Dodatkowe zasoby

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

VBA: Jak policzyć liczbę użytych kolumn
VBA: Jak znaleźć ostatnio używaną kolumnę
VBA: jak usunąć kolumny