Jak automatycznie dopasować szerokość kolumny w programie Excel?
W programie Excel możesz dostosować szerokość kolumny, aby szybko dopasować zawartość komórki, używając Automatycznie dopasuj szerokość funkcja. Czasami chciałbyś, aby szerokość kolumny była automatycznie aktualizowana na podstawie najdłuższego tekstu w tej kolumnie, to znaczy, gdy wprowadzasz jakiś długi ciąg tekstowy w komórce, szerokość kolumny zostanie automatycznie zmieniona w celu dopasowania do długości zawartości. Czy można sobie z tym poradzić w programie Excel?
Automatycznie dopasuj szerokość kolumn za pomocą kodu VBA
Automatyczne dopasowanie szerokości kolumn za pomocą klawiszy skrótów
Automatycznie dopasuj szerokość kolumn za pomocą kodu VBA
Wydaje się, że automatyczna aktualizacja szerokości kolumny wraz z długością zawartości komórki jest interesującą sztuczką, możesz użyć następującego kodu VBA, aby ją zakończyć.
1. Przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.
2. Następnie kliknij dwukrotnie Ten zeszyt Projekt VBA obiekty w lewym okienku, aby otworzyć pusty moduł, a następnie skopiuj i wklej następujący kod VBA do modułu:
Kod VBA: automatycznie dopasowana kolumna z w skoroszycie
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Update 20141127
Dim xCol, xoutCol
xCol = Target.Column
If xCol > 52 Then
xoutCol = Chr(Int((xCol - 1) / 52) + 64) & _
Chr(Int((xCol - 27) / 26) + 64) & _
Chr(Int((xCol - 27) Mod 26) + 65)
ElseIf xCol > 26 Then
xoutCol = Chr(Int((xCol - 1) / 26) + 64) & _
Chr(Int((xCol - 1) Mod 26) + 65)
Else
xoutCol = Chr(xCol + 64)
End If
Columns(xoutCol & ":" & xoutCol).AutoFit
End Sub
3. Następnie zapisz i zamknij ten kod, a teraz, gdy wprowadzisz długi tekst do komórki, szerokość kolumny zostanie automatycznie dopasowana do zawartości.
Automatyczne dopasowanie szerokości kolumn za pomocą klawiszy skrótów
Jeśli masz wiele kolumn, w których część zawartości komórki jest ukryta, jak pokazano na zrzucie ekranu, chcesz jednocześnie zmienić szerokość kolumn, aby dopasować ich zawartość. Pomocne mogą być następujące klawisze skrótów.
1. Wybierz zakres danych, dla którego chcesz zmienić szerokość kolumny.
2. Przytrzymaj inny i naciśnij H + O + I, a teraz szerokości Twoich kolumn zostały natychmiast automatycznie dopasowane do ich zawartości. Zobacz zrzut ekranu:
Uwaga: Jeśli korzystasz z programu Excel 2003 i wcześniejszych wersji, musisz użyć następujących klawiszy skrótu: ALT + O + C + A.
Podobne artykuły:
Jak automatycznie dopasować wysokość wiersza scalonych komórek w programie Excel?
Jak zmienić rozmiar wysokości wiersza lub szerokości kolumny, aby dopasować tekst w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!