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

Вход

Регистрация

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

 

= Мир MS Excel/Копирование значений из правил условного форматирования - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Копирование значений из правил условного форматирования (Формулы/Formulas)
Копирование значений из правил условного форматирования
Per4ik_01 Дата: Воскресенье, 28.02.2016, 22:54 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - Per4ik_01
Дата добавления - 28.02.2016 в 22:54
Per4ik_01 Дата: Воскресенье, 28.02.2016, 22:55 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
вот скрин
К сообщению приложен файл: 3983476.png(46Kb)
 
Ответить
Сообщениевот скрин

Автор - Per4ik_01
Дата добавления - 28.02.2016 в 22:55
Per4ik_01 Дата: Воскресенье, 28.02.2016, 22:57 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
подчеркнутые слова в списке нужно скопировать, их больше 1000 и переписывать очень уж не хочется
К сообщению приложен файл: 3000697.png(55Kb)
 
Ответить
Сообщениеподчеркнутые слова в списке нужно скопировать, их больше 1000 и переписывать очень уж не хочется

Автор - Per4ik_01
Дата добавления - 28.02.2016 в 22:57
_Boroda_ Дата: Воскресенье, 28.02.2016, 23:53 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 9381
Репутация: 3951 ±
Замечаний: 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(17Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЗапустите на листе макрос, он выведет все условия в столбец С
[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]
Или скопируйте свои значения, вставьте в приложенную книгу и нажмите кнопку.
Потом на всякий случай проверьте на задвоение.

Автор - _Boroda_
Дата добавления - 28.02.2016 в 23:53
Per4ik_01 Дата: Понедельник, 29.02.2016, 00:09 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Огромное спасибо!!!!!!!!!!!!!! Выручили!!! Все получилось!))
 
Ответить
СообщениеОгромное спасибо!!!!!!!!!!!!!! Выручили!!! Все получилось!))

Автор - Per4ik_01
Дата добавления - 29.02.2016 в 00:09
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Копирование значений из правил условного форматирования (Формулы/Formulas)
Страница 1 из 11
Поиск:

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