установка высоты строки по количеству символов

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

установка высоты строки по количеству символов (Макросы/Sub)

aastg2022

Дата: Понедельник, 20.11.2023, 19:29 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 12

Репутация: 0 ±

Замечаний: 20% ±

2021

Помогите решить такую проблему:
[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]

Ответить

gling

Дата: Понедельник, 20.11.2023, 21:26 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2563

Репутация: 706 ±

Замечаний: 0% ±

2010

По видимому это нужно для строки с объединенными ячейками. Вышел из такой ситуации создав в этой строке, вне зоны видимости и печати (скрыл этот столбец) ячейку равную по размеру объединенной ячейки которую необходимо подгонять. Текст вставлял в обе ячейки и высоту устанавливал по созданной Автоподбором высоты строк. Всё это конечно делалось макросом. Если был бы файл пример показал бы как это делал. А возможно у вас не такой вариант как был у меня.

ЯД-41001506838083