Mam komórkę z zawijanym tekstem w Excelu i chcę sformatować komórkę tak, aby jej wysokość dopasowała się do zawartości, która może rozciągać się na kilka linii. Jak mogę osiągnąć takie zachowanie?
Z http://support.microsoft.com/kb/149663
Aby dopasować wysokość wiersza do całego tekstu w komórce, wykonaj następujące kroki:
Wybierz wiersz.
W programie Microsoft Office Excel 2003 i we wcześniejszych wersjach programu Excel, wskaż Wiersz w menu Format, a następnie kliknij przycisk AutoFit.
W Microsoft Office Excel 2007 kliknij zakładkę Home, kliknij Format w grupie Komórki, a następnie kliknij AutoFit Row Height.
Również działa po wybraniu wszystkich wierszy.
Zauważ, że autofit nie działa na połączonych komórkach. Musisz to zrobić ręcznie.
Zobacz tę odpowiedź Microsoftu: Nie możesz używać funkcji AutoFit dla wierszy lub kolumn, które zawierają połączone komórki w programie Excel
Jeśli nie zrobi tego automatycznie, umieść kursor nad małą linią pomiędzy numerami wierszy (np. pomiędzy 1 a 2) i kliknij dwukrotnie, spowoduje to zmianę rozmiaru wiersza (bezpośrednio nad małą linią, w przykładzie: 1), tak aby wszystko było widoczne (od strony pionowej).
Jedynym sposobem, aby działał on zgodnie z oczekiwaniami, jest podświetlenie całego arkusza za pomocą CTRL-A, odblokowanie przycisku “Zawiń tekst” na pasku narzędzi, a następnie ponowne wybranie go. Żadne inne ustawienia nie ulegają zmianie, ale każdy wiersz jest teraz “odpowiednią” wysokością dla jego zawartości.
Rozwiązaniem VBA jest zastosowanie następujących rozwiązań:
Call Application.ActiveCell.AutoFit
Stworzyłem następujący kod VB, aby zmienić rozmiar wiersza nagłówka, gdy komórka znajduje się w zakresie (B2:B1500), ponieważ wartości dat powyżej 12/28/2014 spowodowałyby, że nagłówek zawierałby ostrzeżenie, że daty te, w arkuszu czasu, będą widoczne w tygodniu 1 roku 2015:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
' The variable KeyCells contains the cells that will
' cause an Action when they are changed.
Set KeyCells = Range("B2:B1500")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
' Change the height of the header row when one of the defined cdlls is changed
Rows("1:1").EntireRow.AutoFit
End If
End Sub