2009-08-25 08:54:21 +0000 2009-08-25 08:54:21 +0000
23
23

Jak mogę uzyskać komórkę w Excelu, aby automatycznie dopasować jej wysokość do zawartości zawijanego tekstu?

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?
Źródło

Odpowiedzi (8)

27
27
27
2012-08-07 04:27:05 +0000

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.
Źródło
11
11
11
2009-08-25 09:02:18 +0000

Spróbuj

Wybierz kolumnę -> kliknij prawym przyciskiem myszy -> Formatuj komórki -> Zakładka Wyrównanie -> Zawijaj tekst
Źródło
4
4
4
2013-06-14 18:06:20 +0000

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

Źródło
2
2
2
2009-08-26 15:28:37 +0000

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).
Źródło
0
0
0
2009-09-22 14:54:57 +0000

Znasz makro? Umieść następujący kod w

Application.ActiveCell.WrapText = Prawdziwy

wewnątrz twojego arkusza roboczego _SelectionChange Subroutine.
Źródło
0
0
0
2013-04-19 21:38:43 +0000

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.
Źródło
0
0
0
2009-10-28 18:13:08 +0000

Rozwiązaniem VBA jest zastosowanie następujących rozwiązań: 

Call Application.ActiveCell.AutoFit
Źródło
0
0
0
2014-11-25 13:39:44 +0000

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
Źródło