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 .

Imbir 2.7.53.0

Ginger to darmowy moduł do sprawdzania pisowni i gramatyki.

Bloki

Blocks to intelektualna gra przeznaczona dla uczniów klas trzecich szkół podstawowych, służąca ćwiczeniu umiejętności wykrywania i wzroku. Nauczyciele objęli ją programem wspierania nauczania informatyki.

Prezi 6.26

Prezi to darmowa aplikacja, która umożliwia tworzenie cyfrowych prezentacji, zarówno online, jak i offline.

Mathway

Mathway to bardzo przydatna aplikacja, która pomoże Ci rozwiązać wszystkie problemy matematyczne, które wymagają bardziej złożonego narzędzia niż kalkulator wbudowany w Twoje urządzenie.

Prezenter Adobe

Adobe Presenter to oprogramowanie do e-learningu wydane przez firmę Adobe Systems, dostępne na platformie Microsoft Windows jako wtyczka Microsoft PowerPoint.

Tukan 2.3.0

Toucan to edukacyjna platforma technologiczna. Pozwala nauczyć się nowego języka podczas przeglądania popularnych, codziennych stron internetowych.

ENetViet 24.2

eNetViet to aplikacja, która pomaga rodzicom połączyć się ze szkołą, w której uczą się ich dzieci, aby mogli lepiej zrozumieć aktualną sytuację edukacyjną swojego dziecka.

Duolingo

Duolingo - Ucz się języków za darmo, czyli po prostu Duolingo, to program edukacyjny, który pozwala uczyć się i ćwiczyć wiele różnych języków.

Szybkie pisanie

RapidTyping to wygodne i łatwe w użyciu narzędzie do nauki obsługi klawiatury, które pomoże Ci poprawić szybkość pisania i zmniejszyć liczbę błędów ortograficznych. Dzięki lekcjom zorganizowanym na wielu różnych poziomach RapidTyping nauczy Cię, jak pisać na klawiaturze lub doskonalić istniejące umiejętności.

Typ matematyczny 7.4.10.53

MathType to interaktywne oprogramowanie do równań opracowane przez projektanta Design Science (Dessci), które umożliwia tworzenie i dodawanie adnotacji do notacji matematycznej na potrzeby przetwarzania tekstu, prezentacji, e-learningu itp. Ten edytor jest również używany do tworzenia dokumentów TeX, LaTeX i MathML.