Страницы: 1
RSS
Макрос для сохранения стиля таблицы при преобоазовании формул в значения, Макрос для сохранения стиля таблицы при преобоазовании формул в значения и удаления пустых строк таблицы
 
Уважамые форумчане, подскажите пожалуйста, как сделать так, что бы стиль таблицы не удалялся, когда макрос преобразует формулы в значения строкой:
Код
ActiveWorkbook.ActiveSheet.UsedRange.Value = ActiveWorkbook.ActiveSheet.UsedRange.Value
 
Код
        ActiveSheet.ListObjects(1).DataBodyRange.Value = ActiveSheet.ListObjects(1).DataBodyRange.Value
        'ActiveWorkbook.ActiveSheet.UsedRange.Value = ActiveWorkbook.ActiveSheet.UsedRange.Value
 
МатросНаЗебре, большое вам человеческое спасибо!
 
Уверены, что именно эта строка удаляет стили? Она никакого отношения к стилям не имеет.
У Вас форматирование слетает при копировании листа как новой книги. Потому что в новой книге палитра стилей применена не дефолтная, а своя.
Цитата
МатросНаЗебре написал:
ActiveSheet.ListObjects(1).DataBodyRange.Value
AndreiSMT, что, это реально сохранило стили в новой книге?  Хотя, может и логично - оставив таблицу, оставили ЕЁ стили. А заменяя формулы значениями во всем листе - затрагиваете другие ячейки и умная таблица удаляется. Если только так это работает.
Изменено: Дмитрий(The_Prist) Щербаков - 06.02.2025 12:08:30
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1
Наверх