Правильный автоподбор высоты строки

[agregator]

Здравствуйте, уважаемые программисты. Стандартный автоподбор высоты строки Excel 2003 делает ошибку (во вложениии, выдаёт высоту 45, хотя надо 30). Можно ли решить этот вопрос с помощью макроса.

[Казанский]

Почитайте http://www.planetaexcel.ru/forum.php?thread_id=19253

[agregator]

Спасибо за ответы. Уточню вопрос. В ячейке простой текст, ячейка необъединённая.
В варианте с объединёнными ячейками, в итоге, всё равно используется стандартный автоподбор высоты и даёт высоту 45 вместо 30.
Может есть другой способ вычеслить высоту строки.

[IgorGO]

может вот так?

Sub SetStrHeight()
  Dim w As Single, c As Long: w = 0
  With Sheets(Sheets.Count).Cells(1)
    If ActiveCell.MergeCells Then
      For c = ActiveCell.MergeArea.Cells(1).Column To _
        ActiveCell.MergeArea.Cells(ActiveCell.MergeArea.Cells.Count).Column
        w = w + ActiveCell.MergeArea.Cells(c).EntireColumn.ColumnWidth: Next
      .Value = ActiveCell.Value
      .EntireColumn.ColumnWidth = w
      .WrapText = True
      ActiveCell.EntireRow.RowHeight = .Height
      .ClearContents
    End If
  End With
End Sub

алгоритм простой:
1. взял данные из активной ячейки, положил в ячейку (1) последнего листа
2. собрал общую ширину обеьединенной ячейки
3. назначил эту ширину ячейке (1)
4. задал для (1) формат "переносить по словам" (эксель задаст ей нужную высоту)
5. назначил активной ячейке высоту как у (1)

[agregator]

IgorGO, Ваш алгоритм тоже выдаёт высоту строки 45.
Условие: ширина столбца-94, шрифт-Arial, размер-12, текст-"Перевести с 10.09.2011 по 24.09.2011, с личного согласия, в бригаду №3 по графику работы №15 водителя а/м, Управления эксплуатации №2 Кукунова С.В.(таб. № Т3203);"

[agregator]

Интересно, как это делается в Worde.

[agregator]

IgorGO, напишите по такому алгоритму:
1. Установить высоту 1 строки, т.е. 15
2. Выполнить автоподбор ширины столбца
3. Измерить полученную ширину,
поделить её на 1,035, (получено опытным путем)
поделить на первоначальную ширину 94,
округлить в большую сторону до целого числа,
умножить на высоту 1 строки 15,
получаем 30
4. Ставим ширину столбца 94, и высоту строки 30

[nilem]

Вот интересно, если удалить ; в конце предложения, то Ексель сам делает автофит строки. Почему?

[IgorGO]

В ячейке простой текст, ячейка необъединённая.

в необьединенной ячейка эксель сам подбирает высоту. достаточно выставить "переносить по словам". и не надо париться ни с какими макросами.

[agregator]

Дело в том, что Excel иногда неправильна подбирает высоту как в "Автоподбор моё вложение к вопросу", т.е. одна лишняя пустая строчка в ячейке. И приходится руками выравнивать строку. Так же для объединенных ячеек.
Я пишу распоряжения, пункты создаю через форму, надо чтобы выглядело как в Worde. (Ячейки объединённые , но суть дела не меняется, надо получить правильную высоту)