Jak ustawić szerokość kolumny arkusza kalkulacyjnego Excel za pomocą VBA?

Zaktualizowano: sierpień 2021; Działa na Excel 365, 2019, 2016.

W dzisiejszym samouczku automatyzacji programu Excel dowiemy się, jak szybko zmienić szerokość kolumny arkusza roboczego według potrzeb – ale programowo przy użyciu VBA (Visual Basic for Applications).

Warunki wstępne

Aby napisać kod VBA, musisz przede wszystkim upewnić się, że karta programisty jest włączona. Jeśli nie masz pewności co do procedury, zapoznaj się z naszą szczegółową procedurą .

• Na komputerze z systemem Windows otwórz program Microsoft Excel .
• Na głównej Wstążce hit Developer .
• Naciśnij polecenie Visual Basic . Spowoduje to otwarcie edytora VBA .
• W eksploratorze projektów po lewej stronie podświetl konkretny arkusz, do którego wstawisz swój kod. Alternatywnie możesz wstawić nowy moduł lub dodać nasz kod do istniejącego modułu VBA.

Ustawianie szerokości jednej kolumny

W tym przykładzie wybierzemy jedną kolumnę w aktywnym arkuszu i odpowiednio ją zmodyfikujemy.

• Korzystając z edytora VBA, skopiuj następujący kod do arkusza lub modułu.

Sub Set_Column_Width()

Dim MySheet As Worksheet
Set MySheet = ActiveSheet

' Select one or multiple columns, set your column width as needed

With MySheet.Columns("B")

    .ColumnWidth = 50
End With

End Sub

• Uruchom swój kod, naciskając F5 lub wybierz Uruchom >> Uruchom Sub lub Formularz.
• Zapisz swoją pracę, klikając Plik >> Zapisz lub ikonę Dysku.

Zmień szerokość zakresu wielu kolumn

W tym przykładzie wybieramy zakres kolumn , a następnie zmieniamy szerokość.

Możesz zastosować kod w taki sam sposób, jak opisano w poprzedniej sekcji.

Sub Set_Column_Range_Width()

Dim MySheet As Worksheet

Set MySheet = ActiveSheet

' Set your column width as needed
With MySheet.Range("A:F")

    .ColumnWidth = .ColumnWidth * 1.5
End With

End Sub

Następne kroki

Zaczynasz od VBA? Koniecznie zajrzyj do podstaw VBA dla przewodnika Excel .