Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Проверка таблицы с текстом по множественным ключам и заливка пересечений
 
#1
14.03.2019 17:40:50
Всем привет
Подскажите пож-та, как можно решить такую задачу с помощью макроса?

Дано:
Есть таблица с большим количеством текстовых строк  (скажем 1000 строк) и есть набор ключей (определенные слова) более 50 штук.

Задача быстро проверить все строки по этим ключам - и если в строке содержится слово ключ (хотя бы одно из слов-ключей) - залить такую ячейку цветом. По принципу Текстовый фильтр - Строка содержит значение.
Проверять вручную займет очень много времени с учетом большого количества ключей.

Есть ли какой то макрос, который поможет быстро это сделать?
Заранее спасибо.
 
 
 
#2
14.03.2019 17:44:59
а если просто УФ
=SUM(--ISNUMBER(FIND($G$2:$G$8;B3)))
По вопросам из тем форума, личку не читаю.
 
 
 
#3
14.03.2019 17:45:09
paul999, можно через УФ..вдруг подойдет
Код
=ЕСЛИОШИБКА(ПРОСМОТР(2;1/ПОИСК($G$2:$G$8;B1);$G$2:$G$8);1)<>1
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#4
14.03.2019 17:49:14
Тоже в УФ
Код
=СУММПРОИЗВ(СЧЁТЕСЛИ(B3;"*"&$G$2:$G$8&"*"))
 
 
 
#5
14.03.2019 17:50:44
Я бы сделал через PQ - чтобы на выходе был признак для каждой ячейкт, по которому будет подсветка. Она будет ссылаться на таблицу PQ..  
 
 
 
#6
14.03.2019 17:52:05
А я- макросом для примера! :)
Код
Sub T()
    Dim objC As Range
    For Each objC In Range("G2:G" & Cells(Rows.Count, "G").End(xlUp).Row)
        If Not Range("b3").CurrentRegion.Find(objC) Is Nothing Then
            Range("b3").CurrentRegion.Find(objC).Interior.Color = vbGreen
        End If
    Next objC
End Sub
Кому решение нужно - тот пример и рисует.
 
 
 
#7
14.03.2019 17:52:25
gling, 12345 и 12345

paul999,   строгого и строго это учитывать или строгого  - отдельное слово. Иными словами нужно ли искать только совпадение слово в слово.
Изменено: БМВ - 16.03.2019 17:50:02
По вопросам из тем форума, личку не читаю.
 
 
 
#8
14.03.2019 18:34:26
Всем спасибо
Сработало
 
 
 
Страницы: 1
Наверх