Специальное копирование без УФ, только значения и формат

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

Специальное копирование без УФ, только значения и формат (Макросы/Sub)

skais

Дата: Воскресенье, 18.06.2017, 13:53 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 236

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

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

Excel 2010

Задам на всякий случай.
Нужен макрос, который скопирует лист на другой новый лист но с определенными условиями.
Копирование должно произойти только значения (без формул и ссылок), с сохранением формата и без УФ.
Сложность в том, чтобы копировать цвета закраски, какие показывает УФ на исходном.
Знаю что можно перебрать все ячейки по порядку и установить DisplayFormat.Interior.color как здесь
Если есть более изящный метод, чем перебор всех ячеек, буду премного благодарен.

К сообщению приложен файл: 3448392.xlsx (9.8 Kb)

Ответить

Michael_S

Дата: Воскресенье, 18.06.2017, 14:25 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 2012

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

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

Excel2016

Без перебора не получится, вот только перебирать не все ячейки, а только те, у которых условный формат:
[vba]

Код

Sub FormatConditionsDelete()
    Dim C As Range
    ActiveCell.SpecialCells(xlCellTypeAllFormatConditions).Select
    For Each C In Selection
        C.Interior.Color = C.DisplayFormat.Interior.Color
    Next
    Cells.FormatConditions.Delete
End Sub

[/vba]

Ответить

skais

Дата: Воскресенье, 18.06.2017, 20:35 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 236

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

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

Excel 2010

Спасибо!

Ответить

Специальное копирование без УФ, только значения и формат (Макросы/Sub)

Страница 1 из 1
1