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

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.

Jak ustawić szerokość kolumny arkusza kalkulacyjnego Excel za pomocą 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 .


Messenger nie może otworzyć załącznika lub linku? Oto co robić

Messenger nie może otworzyć załącznika lub linku? Oto co robić

Messenger nie może otworzyć załącznika lub linku? Dowiedz się, jak rozwiązać ten problem dzięki sprawdzonym krokom i wskazówkom.

Jak utworzyć grupę kontaktów lub listę dystrybucyjną w programie Outlook

Jak utworzyć grupę kontaktów lub listę dystrybucyjną w programie Outlook

Dowiedz się, jak szybko stworzyć grupę kontaktów w Outlook, aby efektywnie zarządzać swoimi wiadomościami e-mail. Oszczędzaj czas z naszą szczegółową instrukcją.

[NAPRAWIONO] Błąd 740 Żądana operacja wymaga podwyższenia systemu Windows 10

[NAPRAWIONO] Błąd 740 Żądana operacja wymaga podwyższenia systemu Windows 10

Dowiedz się, jak rozwiązać problem z błędem 740 żądana operacja wymaga podniesienia Windows 10 problemów z rozwiązaniami przedstawionymi w tym artykule.

Jak włączyć lub wyłączyć uprawnienia witryny w Microsoft Edge

Jak włączyć lub wyłączyć uprawnienia witryny w Microsoft Edge

Jeśli chcesz mieć większą kontrolę nad tym, które witryny próbują uzyskać dostęp na Twoim komputerze, oto jak skutecznie zarządzać uprawnieniami witryny w Microsoft Edge.

5 najlepszych emulatorów PS4 dla systemu Windows 10/11 do zainstalowania w 2022 r.

5 najlepszych emulatorów PS4 dla systemu Windows 10/11 do zainstalowania w 2022 r.

Poznaj najlepsze emulatory PS4 na PC, które pozwolą Ci grać w gry na konsole PlayStation 4 za darmo na komputerach z Windows.

Jak naprawić „Nieznany wyjątek oprogramowania (0xe0434352)”?

Jak naprawić „Nieznany wyjątek oprogramowania (0xe0434352)”?

Odkryj możliwe rozwiązania, aby naprawić błąd wyjątku nieznanego oprogramowania (0xe0434352) w systemie Windows 10 i 11 podany tutaj…

Jak usunąć animacje z prezentacji PowerPoint

Jak usunąć animacje z prezentacji PowerPoint

Jak usunąć animacje z prezentacji PowerPoint, aby dostosować ją do profesjonalnych standardów. Oto przydatne wskazówki.

Napraw niedziałające Wicked Whims 6 łatwych rozwiązań

Napraw niedziałające Wicked Whims 6 łatwych rozwiązań

Radzenie sobie z Wicked Whims, które nie działają w Sims 4. Wypróbuj 6 skutecznych rozwiązań, takich jak aktualizacja modów i więcej.

Napraw kontroler PS4 nie ładuje się [8 łatwych ROZWIĄZAŃ]

Napraw kontroler PS4 nie ładuje się [8 łatwych ROZWIĄZAŃ]

Odkryj jak naprawić problem z kontrolerem PS4, który się nie ładuje. Sprawdź 8 prostych rozwiązań, w tym testy kabli, portów oraz reset kontrolera.

Operacja nie została zakończona pomyślnie, ponieważ plik zawiera wirusa [NAPRAWIONO]

Operacja nie została zakończona pomyślnie, ponieważ plik zawiera wirusa [NAPRAWIONO]

Dowiedz się, jak naprawić Operacja nie zakończyła się pomyślnie, ponieważ plik zawiera wirusa Windows 11/10 i nie można otworzyć żadnego pliku…