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

Вход

Регистрация

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

 

= Мир MS Excel/Специальное копирование без УФ, только значения и формат - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Специальное копирование без УФ, только значения и формат (Макросы/Sub)
Специальное копирование без УФ, только значения и формат
skais Дата: Воскресенье, 18.06.2017, 13:53 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 40% ±

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

Автор - skais
Дата добавления - 18.06.2017 в 13:53
Michael_S Дата: Воскресенье, 18.06.2017, 14:25 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1831
Репутация: 343 ±
Замечаний: 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]


ЯД: 41001136675053
WM: R389613894253
 
Ответить
СообщениеБез перебора не получится, вот только перебирать не все ячейки, а только те, у которых условный формат:
[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]

Автор - Michael_S
Дата добавления - 18.06.2017 в 14:25
skais Дата: Воскресенье, 18.06.2017, 20:35 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Спасибо!
 
Ответить
СообщениеСпасибо!

Автор - skais
Дата добавления - 18.06.2017 в 20:35
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Специальное копирование без УФ, только значения и формат (Макросы/Sub)
Страница 1 из 11
Поиск:

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