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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос по поиску и выделению найденных слов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос по поиску и выделению найденных слов (Макросы/Sub)
Макрос по поиску и выделению найденных слов
MulleR Дата: Вторник, 04.12.2018, 18:51 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день!

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

Спасибо!
К сообщению приложен файл: 3160265.xlsx(51.2 Kb)
 
Ответить
СообщениеДобрый день!

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

Спасибо!

Автор - MulleR
Дата добавления - 04.12.2018 в 18:51
krosav4ig Дата: Вторник, 04.12.2018, 21:38 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1729
Репутация: 728 ±
Замечаний: 0% ±

Excel 2007,2010,2013
MulleR, не совсем понятно, что и как должно выделяться. Выделите вручную в примере как должно получиться


(_)Õvõ(_)
 
Ответить
СообщениеMulleR, не совсем понятно, что и как должно выделяться. Выделите вручную в примере как должно получиться

Автор - krosav4ig
Дата добавления - 04.12.2018 в 21:38
Kuzmich Дата: Вторник, 04.12.2018, 21:48 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 383
Репутация: 75 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код
Sub iColorWord()
Dim i As Long
Dim iLastRow As Long
Dim FoundCell As Range
Dim FAdr As String
   iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
   Range("B2:B" & iLastRow).Interior.ColorIndex = xlColorIndexNone
With Worksheets("Лист2")
   iLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
  For i = 2 To iLastRow
    Set FoundCell = Columns(2).Find(.Cells(i, "B"), , xlValues, xlWhole)
     If Not FoundCell Is Nothing Then
      FAdr = FoundCell.Address
      Do
       Cells(FoundCell.Row, "B").Interior.ColorIndex = 6
       Set FoundCell = Columns(2).FindNext(FoundCell)
      Loop While FoundCell.Address <> FAdr
     End If
  Next
End With
End Sub
[/vba]
Запускать при активном листе Лист1
 
Ответить
Сообщение[vba]
Код
Sub iColorWord()
Dim i As Long
Dim iLastRow As Long
Dim FoundCell As Range
Dim FAdr As String
   iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
   Range("B2:B" & iLastRow).Interior.ColorIndex = xlColorIndexNone
With Worksheets("Лист2")
   iLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
  For i = 2 To iLastRow
    Set FoundCell = Columns(2).Find(.Cells(i, "B"), , xlValues, xlWhole)
     If Not FoundCell Is Nothing Then
      FAdr = FoundCell.Address
      Do
       Cells(FoundCell.Row, "B").Interior.ColorIndex = 6
       Set FoundCell = Columns(2).FindNext(FoundCell)
      Loop While FoundCell.Address <> FAdr
     End If
  Next
End With
End Sub
[/vba]
Запускать при активном листе Лист1

Автор - Kuzmich
Дата добавления - 04.12.2018 в 21:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос по поиску и выделению найденных слов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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