Jak zawijać tekst za pomocą vba (z przykładem)

Możesz użyć właściwości WrapText w VBA, aby zawijać tekst w określonych komórkach w arkuszu Excel.

Oto trzy typowe sposoby wykorzystania tej właściwości w praktyce:

Metoda 1: Zawiń tekst określonej komórki

 Sub UseWrapText()
Range(" B2 ").WrapText = True
End Sub

Metoda 2: Zawiń tekst komórki w określonym zakresie

 SubUseWrapText ()
Range(" B2:B11 ").WrapText = True
End Sub

Metoda 3: Zawiń tekst wszystkich komórek w arkuszu

 Sub UseWrapText()
Cells.WrapText = True
End Sub

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

Chodźmy!

Przykład 1: Zawijanie tekstu określonej komórki za pomocą języka VBA

Możemy utworzyć następujące makro, aby zawinąć tekst tylko w komórce B2 :

 Sub UseWrapText()
Range(" B2 ").WrapText = True
End Sub

Po uruchomieniu tego makra możemy kliknąć komórkę B2 i sprawdzić, czy w grupie Wyrównanie na karcie Strona główna na górnej wstążce włączona jest opcja Zawijaj tekst :

Musimy jednak skrócić długość kolumny B i zwiększyć wysokość wiersza 2, aby faktycznie zobaczyć zawinięty tekst:

Możemy teraz łatwo zobaczyć, że tekst w komórce B2 jest zawijany, podczas gdy tekst we wszystkich pozostałych komórkach w kolumnie B nie jest zawijany.

Przykład 2: Zawijanie tekstu komórki w określonym zakresie przy użyciu języka VBA

Możemy utworzyć następujące makro, aby zawijać tekst w każdej komórce w zakresie B2:B11 :

 Sub UseWrapText()
Range(" B2:B11 ").WrapText = True
End Sub

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

Widzimy, że każda komórka w zakresie B2:B11 zawiera teraz zawinięty tekst.

Przykład 3: Zawijaj tekst wszystkich komórek arkusza za pomocą języka VBA

Możemy utworzyć następujące makro, aby zawijać tekst w każdej komórce arkusza:

 Sub UseWrapText()
Cells.WrapText = True
End Sub

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

Widzimy, że każda komórka w arkuszu zawiera teraz zawinięty tekst.

Uwaga : Pełną dokumentację właściwości WrapText języka VBA można znaleźć tutaj .

Dodatkowe zasoby

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

VBA: Jak zmienić kolor czcionki
VBA: Jak zamienić znaki w ciągu znaków
VBA: Jak wstawić linię z formatowaniem