For i = 1 To 8 If Лист3.Cells(i, 36).Value2 > 0 Then СтрокаЛиста2 = СтрокаЛиста2 + 1 Лист2.Cells(СтрокаЛиста2, 2).Value2 = Лист3.Cells(2, 34).Value2 & Лист3.Cells(i, 29).Value2 & ": " & Лист3.Cells(i, 36).Value2 ' Объединение столбцов B:N по текущей строке в Листе2 Лист2.Range(Лист2.Cells(СтрокаЛиста2, 2), Лист2.Cells(СтрокаЛиста2, 14)).Merge
' Применение опции переноса текста Лист2.Range(Лист2.Cells(СтрокаЛиста2, 2), Лист2.Cells(СтрокаЛиста2, 14)).WrapText = True End If Next i
[/vba] [b]Необходимо тут эту строку указать высоту строки в зависимости от количества данных указать высоту строки. У меня есть идея указывать в зависимости от количества символов, к примеру если больше 50 высота такая, если 100 в 2 раза больше, 150 в 3 и т.д..... может кто подскажет? Данные всегда разные, пожет быть 5 символов, а может быть 500.[/b]
Помогите решить такую проблему: [vba]
Код
For i = 1 To 8 If Лист3.Cells(i, 36).Value2 > 0 Then СтрокаЛиста2 = СтрокаЛиста2 + 1 Лист2.Cells(СтрокаЛиста2, 2).Value2 = Лист3.Cells(2, 34).Value2 & Лист3.Cells(i, 29).Value2 & ": " & Лист3.Cells(i, 36).Value2 ' Объединение столбцов B:N по текущей строке в Листе2 Лист2.Range(Лист2.Cells(СтрокаЛиста2, 2), Лист2.Cells(СтрокаЛиста2, 14)).Merge
' Применение опции переноса текста Лист2.Range(Лист2.Cells(СтрокаЛиста2, 2), Лист2.Cells(СтрокаЛиста2, 14)).WrapText = True End If Next i
[/vba] [b]Необходимо тут эту строку указать высоту строки в зависимости от количества данных указать высоту строки. У меня есть идея указывать в зависимости от количества символов, к примеру если больше 50 высота такая, если 100 в 2 раза больше, 150 в 3 и т.д..... может кто подскажет? Данные всегда разные, пожет быть 5 символов, а может быть 500.[/b]aastg2022
По видимому это нужно для строки с объединенными ячейками. Вышел из такой ситуации создав в этой строке, вне зоны видимости и печати (скрыл этот столбец) ячейку равную по размеру объединенной ячейки которую необходимо подгонять. Текст вставлял в обе ячейки и высоту устанавливал по созданной Автоподбором высоты строк. Всё это конечно делалось макросом. Если был бы файл пример показал бы как это делал. А возможно у вас не такой вариант как был у меня.
По видимому это нужно для строки с объединенными ячейками. Вышел из такой ситуации создав в этой строке, вне зоны видимости и печати (скрыл этот столбец) ячейку равную по размеру объединенной ячейки которую необходимо подгонять. Текст вставлял в обе ячейки и высоту устанавливал по созданной Автоподбором высоты строк. Всё это конечно делалось макросом. Если был бы файл пример показал бы как это делал. А возможно у вас не такой вариант как был у меня.gling
gling, да, ту строку что я объединил необходимо расширить так что бы весь текст было видно, по примеру как по ширине если 2 раза клацнуть по краю столбца автоматически ширина выставится, так мне надо по высоте строки, только в этом коде
gling, да, ту строку что я объединил необходимо расширить так что бы весь текст было видно, по примеру как по ширине если 2 раза клацнуть по краю столбца автоматически ширина выставится, так мне надо по высоте строки, только в этом кодеaastg2022