У меня есть ячейка с обернутым текстовым содержимым в Excel, и я хочу отформатировать ячейку так, чтобы ее высота регулировалась в соответствии с содержимым, которое может растянуться на несколько строк. Как я могу добиться такого поведения?
С http://support.microsoft.com/kb/149663
Чтобы настроить высоту строки для размещения всего текста в ячейке, выполните следующие действия:
Выберите строку.
В Microsoft Office Excel 2003 и в более ранних версиях Excel наведите курсор на Row в меню Format, а затем нажмите кнопку AutoFit.
В Microsoft Office Excel 2007 перейдите на вкладку Home (Главная), в группе Cells (Ячейки) выберите Format (Формат), а затем AutoFit Row Height (Автоподгонка высоты строк).
Также работает, когда выбраны все строки.
Обратите внимание, что автофит не работает на объединенных ячейках. Вы должны сделать это вручную.
См. ответ Microsoft: Нельзя использовать функцию автофитинга для строк или столбцов, которые содержат объединенные ячейки в Excel .
Если это не происходит автоматически, то поместите курсор на маленькую линию между номерами рядов (например: между 1 и 2) и сделайте двойной щелчок, это изменит размер рядов (непосредственно над маленькой линией, в примере: 1) так, чтобы все было видно (с вертикальной стороны).
Единственный способ заставить его работать так, как я ожидал - это выделить весь лист с помощью CTRL-A, нажать кнопку “Обернуть текст” на панели инструментов, а затем перевыбрать его. Никакие другие настройки не меняются, но каждая строка теперь является “правильной” высотой для ее содержимого.
Решение VBA заключается в следующем:
Call Application.ActiveCell.AutoFit
Я создал следующий VB код для изменения размера строки заголовка, когда ячейка находится в пределах диапазона (B2:B1500), потому что значения дат выше 12/28/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