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

Вход

Регистрация

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

 

= Мир MS Excel/запрет автоподбора высоты строки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » запрет автоподбора высоты строки (Макросы/Sub)
запрет автоподбора высоты строки
emkub Дата: Пятница, 24.05.2019, 03:04 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте, друзья!
Нет-нет, да и нужна такая штука. Но решения пока не нашёл.
В общем, в чём суть. Имеется любой макрос со строкой типа:
[vba]
Код
Cells(i,1)=Cells(i,7)
[/vba]
Практически всегда в ячейках текст. При этом, часто и густо, при выполнении макроса автоматически подбирается высота строки к обрабатываемой ячейке. И не важно, включено обновление экрана или нет. Это ОЧЕНЬ тормозит выполнение макроса.
Вопрос. Как запретить экселю автоподбор высоты ячейки/стрроки?
 
Ответить
СообщениеЗдравствуйте, друзья!
Нет-нет, да и нужна такая штука. Но решения пока не нашёл.
В общем, в чём суть. Имеется любой макрос со строкой типа:
[vba]
Код
Cells(i,1)=Cells(i,7)
[/vba]
Практически всегда в ячейках текст. При этом, часто и густо, при выполнении макроса автоматически подбирается высота строки к обрабатываемой ячейке. И не важно, включено обновление экрана или нет. Это ОЧЕНЬ тормозит выполнение макроса.
Вопрос. Как запретить экселю автоподбор высоты ячейки/стрроки?

Автор - emkub
Дата добавления - 24.05.2019 в 03:04
bmv98rus Дата: Пятница, 24.05.2019, 09:38 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4098
Репутация: 766 ±
Замечаний: 0% ±

Excel 2013/2016
emkub,Не воспроизвести, пример в студию. Конечно в слепую можете еще и Application.EnableEvents задействовать, но с примером будет проще понять что у вас и как.


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщениеemkub,Не воспроизвести, пример в студию. Конечно в слепую можете еще и Application.EnableEvents задействовать, но с примером будет проще понять что у вас и как.

Автор - bmv98rus
Дата добавления - 24.05.2019 в 09:38
_Boroda_ Дата: Пятница, 24.05.2019, 09:53 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Просто до вставки "дерните" высоту ячейки. Вручную поставьте то же значение, которое стоит автоматом. Примерно так
[vba]
Код
Sub tt()
    With Cells(1, 1)
        .RowHeight = .RowHeight
        .Value = Cells(1, 7)
    End With
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПросто до вставки "дерните" высоту ячейки. Вручную поставьте то же значение, которое стоит автоматом. Примерно так
[vba]
Код
Sub tt()
    With Cells(1, 1)
        .RowHeight = .RowHeight
        .Value = Cells(1, 7)
    End With
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 24.05.2019 в 09:53
bmv98rus Дата: Пятница, 24.05.2019, 11:08 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4098
Репутация: 766 ±
Замечаний: 0% ±

Excel 2013/2016
ну или .WrapText = False


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщениену или .WrapText = False

Автор - bmv98rus
Дата добавления - 24.05.2019 в 11:08
emkub Дата: Пятница, 24.05.2019, 11:40 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Благодарю! Буду проверять.
 
Ответить
СообщениеБлагодарю! Буду проверять.

Автор - emkub
Дата добавления - 24.05.2019 в 11:40
emkub Дата: Среда, 09.10.2019, 00:38 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Продолжу свою эпопею :)
Время от времени проверял вышеперечисленные способы. Что-то работало, что-то нет. Но, к сожалению, в качестве универсального решения эти способы мне не подошли. Бывает, просто вставляешь текст в ячейку/столбец/строку вручную (ctrl+c / ctrl+v) и понеслась... пол часа ожидания, пооооока он соизволит подогнать высоту строк под вставленный текст.
Вот сейчас попробовал сделать тоже самое, что советовал _Boroda_, но чуть под другим ракурсом. ПЕРЕД редактированием сделал такую процедуру: ctrl+a (выделить все данные), мышкой "отредактировал" высоту строки, т.е. чуть вниз и чуть вверх, что бы значение так и осталось на 15-ти. Вставил текст, который перед этим несколько раз автоматически менял высоту, и... о чудо ничего не стало меняться! все строки остались стандартного размера!
Откатаю этот способ, и если всё в норме, сделаю отдельную кнопочку макроса с этим действием :)

_Boroda_, bmv98rus, СПАСИБО! Возможно это конец многолетней проблемы.
 
Ответить
СообщениеПродолжу свою эпопею :)
Время от времени проверял вышеперечисленные способы. Что-то работало, что-то нет. Но, к сожалению, в качестве универсального решения эти способы мне не подошли. Бывает, просто вставляешь текст в ячейку/столбец/строку вручную (ctrl+c / ctrl+v) и понеслась... пол часа ожидания, пооооока он соизволит подогнать высоту строк под вставленный текст.
Вот сейчас попробовал сделать тоже самое, что советовал _Boroda_, но чуть под другим ракурсом. ПЕРЕД редактированием сделал такую процедуру: ctrl+a (выделить все данные), мышкой "отредактировал" высоту строки, т.е. чуть вниз и чуть вверх, что бы значение так и осталось на 15-ти. Вставил текст, который перед этим несколько раз автоматически менял высоту, и... о чудо ничего не стало меняться! все строки остались стандартного размера!
Откатаю этот способ, и если всё в норме, сделаю отдельную кнопочку макроса с этим действием :)

_Boroda_, bmv98rus, СПАСИБО! Возможно это конец многолетней проблемы.

Автор - emkub
Дата добавления - 09.10.2019 в 00:38
Мир MS Excel » Вопросы и решения » Вопросы по VBA » запрет автоподбора высоты строки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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