Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/подгонять высоту ячейки по заполняемости - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » подгонять высоту ячейки по заполняемости (Макросы/Sub)
подгонять высоту ячейки по заполняемости
Espada Дата: Четверг, 08.07.2021, 09:44 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

Доброго дня. столкнулся с проблемкой, когда объединяю ячейки в столбцах А и B, и включаю функцию Перенос текста, объединённая ячейка не расширяется и видна только первая строчка. может у кого есть макрос, который способен помочь с этой проблемкой? спасибо
 
Ответить
СообщениеДоброго дня. столкнулся с проблемкой, когда объединяю ячейки в столбцах А и B, и включаю функцию Перенос текста, объединённая ячейка не расширяется и видна только первая строчка. может у кого есть макрос, который способен помочь с этой проблемкой? спасибо
Автор - Espada
Дата добавления - 08.07.2021 в 09:44
R_Dmitry Дата: Четверг, 08.07.2021, 10:39 | Сообщение № 2
Группа: Друзья
Ранг: Участник
Сообщений: 74
Репутация: 34 ±
Замечаний: 0% ±

2010
Добрый день попробуйте так:
[vba]
Код

Sub ResizeRowsMergeCells(cl)
    rH = 15
    h = Len(cl.Text) * 72.5 / cl.MergeArea.Width
    Rows(cl.Row).RowHeight = (h \ rH) * rH + IIf(h - (h \ rH) > 0, rH, 0)
End Sub
Sub test()
    Set cl = Cells(1, 1)
    ResizeRowsMergeCells cl
End Sub

[/vba]

{Skype : RDG_Dmitry} Если программа тебе понятна,значит она уже устарела
 
Ответить
СообщениеДобрый день попробуйте так:
[vba]
Код

Sub ResizeRowsMergeCells(cl)
    rH = 15
    h = Len(cl.Text) * 72.5 / cl.MergeArea.Width
    Rows(cl.Row).RowHeight = (h \ rH) * rH + IIf(h - (h \ rH) > 0, rH, 0)
End Sub
Sub test()
    Set cl = Cells(1, 1)
    ResizeRowsMergeCells cl
End Sub

[/vba]
Автор - R_Dmitry
Дата добавления - 08.07.2021 в 10:39
Espada Дата: Четверг, 08.07.2021, 11:06 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

не выходит, ячейки 11, 12, 13 так и не увеличиваются
К сообщению приложен файл: __.xlsm (16.2 Kb)


Сообщение отредактировал Serge_007 - Четверг, 08.07.2021, 11:08
 
Ответить
Сообщениене выходит, ячейки 11, 12, 13 так и не увеличиваются
Автор - Espada
Дата добавления - 08.07.2021 в 11:06
R_Dmitry Дата: Четверг, 08.07.2021, 12:04 | Сообщение № 4
Группа: Друзья
Ранг: Участник
Сообщений: 74
Репутация: 34 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub test()
For i = 1 To ActiveSheet.UsedRange.Rows.Count
    Set cl = Cells(i, 1)
    ResizeRowsMergeCells cl
Next
End Sub
[/vba]

{Skype : RDG_Dmitry} Если программа тебе понятна,значит она уже устарела
 
Ответить
Сообщение[vba]
Код
Sub test()
For i = 1 To ActiveSheet.UsedRange.Rows.Count
    Set cl = Cells(i, 1)
    ResizeRowsMergeCells cl
Next
End Sub
[/vba]
Автор - R_Dmitry
Дата добавления - 08.07.2021 в 12:04
Espada Дата: Пятница, 09.07.2021, 15:36 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

спасибо, всё получилось
 
Ответить
Сообщениеспасибо, всё получилось
Автор - Espada
Дата добавления - 09.07.2021 в 15:36
concore Дата: Пятница, 09.07.2021, 19:19 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Espada,
скачал Ваш файл. но у меня вообще ни чего не меняется, т.е. строка не расширяется. Может что то не то делаю?
Раздел 4.
К сообщению приложен файл: 9346822.xlsm (15.0 Kb)


Сообщение отредактировал concore - Пятница, 09.07.2021, 19:21
 
Ответить
СообщениеEspada,
скачал Ваш файл. но у меня вообще ни чего не меняется, т.е. строка не расширяется. Может что то не то делаю?
Раздел 4.
Автор - concore
Дата добавления - 09.07.2021 в 19:19
doober Дата: Пятница, 09.07.2021, 21:27 | Сообщение № 7
Группа: Друзья
Ранг: Ветеран
Сообщений: 970
Репутация: 332 ±
Замечаний: 0% ±

Excel 2010
Цитата concore, 09.07.2021 в 19:19, в сообщении № 6 ()
Может что то не то делаю?
А макрос выполнить пробовали?
Все работает

 
Ответить
Сообщение
Цитата concore, 09.07.2021 в 19:19, в сообщении № 6 ()
Может что то не то делаю?
А макрос выполнить пробовали?
Все работает
Автор - doober
Дата добавления - 09.07.2021 в 21:27
concore Дата: Пятница, 09.07.2021, 23:41 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
упс
я думал он сам при наборе будет расширяться автоматически. А что для этого необходимо сделать?
)))))
 
Ответить
Сообщениеупс
я думал он сам при наборе будет расширяться автоматически. А что для этого необходимо сделать?
)))))
Автор - concore
Дата добавления - 09.07.2021 в 23:41
Nic70y Дата: Суббота, 10.07.2021, 10:19 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
del

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Суббота, 10.07.2021, 10:20
 
Ответить
Сообщениеdel
Автор - Nic70y
Дата добавления - 10.07.2021 в 10:19
Мир MS Excel » Вопросы и решения » Вопросы по VBA » подгонять высоту ячейки по заполняемости (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!