Як я можу отримати клітинку в Excel для автоматичного регулювання її висоти, щоб відповідати вмісту загорнутого тексту? [дублікат]

23

У мене в Excel є комірка із загорнутим текстовим вмістом, і я хочу відформатувати її, щоб її висота була відрегульована відповідно до вмісту, який може охоплювати декілька рядків. Як я можу досягти такої поведінки?

microsoft-excel microsoft-excel-2007

— Манга Лі
джерело

не впевнений у програмі excel 2007, але я використовую програму excel 2003 і там вона автоматично переходить, коли я ввожу багаторядкові дані в комірку, висота рядка встановлюється, коли я натискаю клавішу enter.

— fretje

26

З http://support.microsoft.com/kb/149663

Щоб відрегулювати висоту рядка, щоб вмістити весь текст у комірці, виконайте наступні дії:

Виберіть рядок.

У Microsoft Office Excel 2003 та більш ранніх версіях Excel вкажіть на рядок у меню Формат та натисніть кнопку Автоматично.

У Microsoft Office Excel 2007 перейдіть на вкладку «Головна», у групі «Осередки» виберіть «Формат», а потім виберіть «Автоматично встановити висоту рядків».

Також працює, коли вибрані всі рядки

— vaichidrewar
джерело

11

Спробуйте

Виберіть стовпчик -> стовпець правою кнопкою миші -> Форматування комірок -> вкладка Вирівнювання -> Обертання тексту

— гіперзлам
джерело

2

У комірці вже є таке форматування, і я хочу, щоб комірка також регулювала свою висоту. Я хочу, щоб висота рядка комірки була відрегульована так, щоб був видно весь обгорнутий вміст комірки.

— Манга Лі

3

Я не впевнений, чи зможете ви це зробити так, як зміст комірки зміниться, але як тільки ви закінчите подвійне клацання на межі між номером рядка і тією, що знаходиться нижче, автоматично розміряє його, щоб відповідати вмісту.

— Кол

+1: Це не погана відповідь. Якщо ви вимкнете Wrap Textта знову ввімкнете, Excel змінить розмір висоти рядка відповідно до найвищого рядка. Не підходить, якщо висота рядків динамічно змінюється, але якщо ви маєте справу зі статичним текстом, це повинно бути добре.

— Лі-аун Іп

Це працювало для мене в Excel 2019.

— 猫 IT

4

Зауважте, що автоматичне налаштування не працює на об'єднаних клітинках. Ви повинні це зробити вручну.

Дивіться цю відповідь Microsoft:

Ви не можете використовувати функцію автоматичного підключення для рядків або стовпців, що містять об'єднані комірки в Excel

— абруті
джерело

2

Якщо це не зробити автоматично, помістіть курсор на невеликий рядок між номерами рядків (наприклад: від 1 до 2) та двічі клацніть, це дозволить змінити розмір рядка (безпосередньо над малим рядком, у прикладі: 1) щоб все було видно (з вертикального аспекту).

— Ленс Робертс
джерело

Це те, що ти можеш зробити, коли у тебе мало цього робити, але чим складніше, тим більше доведеться з цим боротися, а це означає марна трата часу та енергії, порушуючи фокус та імпульс через такі завдання. Рішення, яке надає Бертіб, працює як принадність у Excel 2019.

— 猫 IT

0

Ви знаєте макрос? Помістіть наступний код

Application.ActiveCell.WrapText = Істинно

всередині вашої підпрограми Worksheet_SelectionChange.

— Ток
джерело

0

Рішенням VBA є використання наступного:

 Call Application.ActiveCell.AutoFit

— Річардталентний
джерело

0

Єдиний спосіб, коли я можу змусити його працювати так, як очікувалося, - виділити весь аркуш CTRL-A, видалити на панелі інструментів кнопку «Обернути текст», а потім повторно вибрати її. Інші налаштування не змінюються, але кожен рядок тепер має "належну" висоту для свого вмісту.

— простогокористувача
джерело

0

Я створив наступний код VB, щоб змінити розмір рядка заголовка, коли комірка в межах діапазону (B2: B1500), оскільки значення дати вище 28.12.2014 призведе до того, що заголовок відображатиме попередження про те, що ці дати в розкладі часу переходять у 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
джерело