Jak mogę uzyskać komórkę w programie Excel, aby automatycznie dostosowywała wysokość do zawiniętej zawartości tekstowej? [duplikować]

23

Mam komórkę z zawiniętą zawartością tekstową w Excelu i chcę sformatować komórkę, aby jej wysokość dopasowała się do zawartości, która może obejmować kilka wierszy. Jak mogę osiągnąć to zachowanie?

microsoft-excel microsoft-excel-2007

— Manga Lee
źródło

nie jestem pewien co do programu Excel 2007, ale używam programu Excel 2003 i tam idzie to automatycznie, kiedy wprowadzam dane wieloliniowe w komórce, wysokość linii zostaje ustalona po naciśnięciu klawisza enter.

— fretje

26

Od 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ż polecenie Wiersz w menu Format, a następnie kliknij polecenie Autodopasowanie.

W programie Microsoft Office Excel 2007 kliknij kartę Narzędzia główne, kliknij opcję Formatuj w grupie Komórki, a następnie kliknij opcję Dopasuj wysokość wiersza.

Działa również, gdy wszystkie wiersze są zaznaczone

— Vaichidrewar
źródło

11

Próbować

Wybierz kolumnę -> kliknij kolumnę prawym przyciskiem myszy -> Formatuj komórki -> karta Wyrównanie -> Zawiń tekst

— hiperslug
źródło

2

Komórka ma już to formatowanie i chcę, aby komórka również dostosowała swoją wysokość. Chcę, aby wysokość wiersza komórki była dostosowana, aby widoczna była cała zawinięta zawartość komórki.

— Manga Lee

3

Nie jestem pewien, czy możesz to zrobić, gdy zmienia się zawartość komórki, ale po zakończeniu dwukrotnego kliknięcia granicy między numerem wiersza a tym poniżej automatycznie dopasowuje rozmiar do zawartości.

— Kol.

+1: To nie jest zła odpowiedź. Jeśli wyłączysz Wrap Texti ponownie włączysz , Excel zmieni rozmiar wiersza, aby pasował do najwyższego rzędu. Nie nadaje się, jeśli wysokość wierszy zmienia się dynamicznie, ale jeśli masz do czynienia z tekstem statycznym, powinno być OK.

— Li-aung Yip

To działało dla mnie w programie Excel 2019.

— 猫

4

Pamiętaj, że automatyczne dopasowanie nie działa na scalonych komórkach. Musisz to zrobić ręcznie.

Zobacz tę odpowiedź Microsoft:

Nie można użyć funkcji AutoFit dla wierszy lub kolumn zawierających scalone komórki w programie Excel

— abruti
źródło

2

Jeśli nie zrobi tego automatycznie, umieść kursor nad małą linią między numerami wierszy (np. Między 1 a 2) i kliknij dwukrotnie, zmieni to rozmiar wiersza (bezpośrednio nad małą linią, w przykładzie: 1) aby wszystko było widoczne (z pionu).

— Lance Roberts
źródło

Jest to coś, co możesz zrobić, gdy masz mało tego do zrobienia, ale im bardziej skomplikowane, tym bardziej będziesz musiał sobie z tym poradzić, a to oznacza stratę czasu i energii, utratę koncentracji i rozpędu z powodu takich zadań. Rozwiązanie podane przez Bertieba działa jak urok w programie Excel 2019.

— 猫 IT

0

Czy znasz makro? Wprowadź następujący kod

Application.ActiveCell.WrapText = True

wewnątrz podprogramu Worksheet_SelectionChange.

— Toc
źródło

0

Rozwiązaniem VBA jest użycie następujących elementów:

 Call Application.ActiveCell.AutoFit

— richardtallent
źródło

0

Jedynym sposobem, w jaki mogę go uruchomić zgodnie z oczekiwaniami, jest wyróżnienie całego arkusza za pomocą CTRL-A, usunięcie przycisku „Zawiń tekst” na pasku narzędzi, a następnie ponowne wybranie go. Żadne inne ustawienia się nie zmieniają, ale każdy wiersz ma teraz „właściwą” wysokość dla swojej zawartości.

— simpleuser
źródło

0

Utworzyłem następujący kod VB, aby zmienić rozmiar wiersza nagłówka, gdy komórka w zakresie (B2: B1500), ponieważ wartości dat powyżej 28.12.2014 spowodują, że nagłówek wyświetli ostrzeżenie, że te daty w arkuszu czasu przejdą do Tydzień 1 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

— Mickg01
źródło