Макрос для поиска текста и его выделения другим цветом

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

Макрос для поиска текста и его выделения другим цветом (Формулы/Formulas)

Zizudm

Дата: Вторник, 15.07.2014, 14:45 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 25

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

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

Excel 2010

Есть 2 листа "база" и "категории".
База содержит коды в текстовом формате
Категории перечень кодов.

Нужно создать макрос, для того чтобы:
найти по всему листу "база" значения с всего столбца А листа "категории" и закрасить найденные ячейки красным цветом

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

Ответить

Pelena

Дата: Вторник, 15.07.2014, 15:11 | Сообщение № 2

Группа: Админы

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

Сообщений: 19572

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

Замечаний: ±

Excel 365 & Mac Excel

Обязательно макрос? Условное форматирование не подойдёт?
[p.s.]Если нужен макрос, почему тема в этом разделе?[/p.s.]

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

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Zizudm

Дата: Вторник, 15.07.2014, 15:29 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 25

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

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

Excel 2010

Очень нужен именно макрос

PS: ссори, новичок на форуме не знал в какую тему...)

Ответить

tsap

Дата: Вторник, 15.07.2014, 23:37 | Сообщение № 4

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

Ранг: Участник

Сообщений: 60

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

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

2013

[vba]

Код

Sub paint()
Dim Var_what
Dim Rng_where As Range, c As Range
Dim i As Long

Var_what = ThisWorkbook.Worksheets("Категории").Cells(1, 1).CurrentRegion
Set Rng_where = ThisWorkbook.Worksheets("База").Cells(1, 1).CurrentRegion

     For Each c In Rng_where
         For i = 1 To UBound(Var_what)
             If c.Text = Var_what(i, 1) Then: c.Interior.Color = RGB(220, 150, 100)
         Next
     Next
End Sub

[/vba]

Ответить

Макрос для поиска текста и его выделения другим цветом (Формулы/Formulas)

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