автоматический подгон ячеек по высоте (с переносом слов)

Guest

Гость

14.01.2010 20:52:17

Подскажите пожалуйста,

На защищенном листе необходимо сделать подгон ячейки по высоте.

То есть при введении какого-либо текста, он должен полностью умещаться в ячейке, при этом должна изменятся только высота.

Спасибо!

VovaK

Пользователь

Сообщений: 1716 Регистрация: 01.01.1970

14.01.2010 21:43:21

Возможно я ошибаюсь, полагая, что в VBA у ячейки нет свойства, позволяющего отследить количество строк перенесенного текста (.WrapText = True). А без возможности отслеживать количество и высоту строк задача не решаема средствами VBA.

Sorry....

тухачевский Гость	#3 14.01.2010 21:49:21 Target Unprotect Selection.Rows.AutoFit protect или при постановке защиты галка на форматирование строк не для объединения с ним чуть сложнее

Igor67

Пользователь

Сообщений: 3786 Регистрация: 21.12.2012

14.01.2010 21:59:42

Правым мышом по ярлыку листа - исходный текст и вставляем простенький макрос:)))

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'если выделено больше 1 ячейки - выход
ActiveSheet.Unprotect
With Target 'с ячейкой форматируем
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext 'перенос по словам
.MergeCells = False 'объединение ячеек
End With
Target.EntireRow.AutoFit 'автоподбор высоты строки содержащей ячеку

End Sub

Igor67 Пользователь Сообщений: 3786 Регистрация: 21.12.2012	#5 14.01.2010 22:01:07 Блин забыл, перед выходом вставляем ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True и только потом End Sub

Читают тему