Копирование значений из правил условного форматирования

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Копирование значений из правил условного форматирования (Формулы/Formulas)

Per4ik_01

Дата: Воскресенье, 28.02.2016, 22:54 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2013

Добрый вечер! Нужна Ваша помощь! Фильтрую в табличке слова с помощью условного форматирования, нужно удалить лишние фразы, т.е. выделяю ячейки цветом, в которых содержится определенное слово. Таких слов набралось большое количество и мне нужен список этих слов, как можно их скопировать из правил условного форматирования. Что бы было понятней прикрепляю скрин.. Очень надеюсь на подсказку, т.к. переписывать все это займет очень много времени.

Ответить

Per4ik_01

Дата: Воскресенье, 28.02.2016, 22:55 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2013

вот скрин

К сообщению приложен файл: 3983476.png (45.5 Kb)

Ответить

Per4ik_01

Дата: Воскресенье, 28.02.2016, 22:57 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2013

подчеркнутые слова в списке нужно скопировать, их больше 1000 и переписывать очень уж не хочется

К сообщению приложен файл: 3000697.png (55.5 Kb)

Ответить

_Boroda_

Дата: Воскресенье, 28.02.2016, 23:53 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Запустите на листе макрос, он выведет все условия в столбец С
[vba]

Код

Sub tt()
Dim aa As FormatCondition
    nf_ = Cells.FormatConditions.Count
    If nf_ = 0 Then
        MsgBox "На листе условного форматирования нет"
        Exit Sub
    End If
    For i = 1 To nf_
        If Cells.FormatConditions(i).Type = xlTextString Then
            n_ = n_ + 1
            Range("C" & n_) = Cells.FormatConditions(i).Text
        End If
    Next i
End Sub

[/vba]
Или скопируйте свои значения, вставьте в приложенную книгу и нажмите кнопку.
Потом на всякий случай проверьте на задвоение.

К сообщению приложен файл: 468719.xlsm (17.3 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Per4ik_01

Дата: Понедельник, 29.02.2016, 00:09 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2013

Огромное спасибо!!!!!!!!!!!!!! Выручили!!! Все получилось!))

Ответить

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