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

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

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

Макрос выделения строк с указанным словом (Макросы/Sub)

FirEx

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

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

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

Сообщений: 4

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

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

Excel 2007

Добрый день, форумчане!
Не подскажите можно ли макросом выделить строку с указанным словом? Пытался в Разработчике вручную записать "Условное форматирование" выделение строки цветом, но почему-то макрос не воспроизводится или некорректно записывается. Помогите, пожалуйста. Слово "Солнце", например

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

Ответить

Валерьянка

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

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

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

Сообщений: 71

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

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

Excel 2010

Например так?
[vba]

Код

Sub Poisk()
         Columns(1).FormatConditions.Delete
PoiskSlov = InputBox("Введите слово", "", "")
         Columns(1).FormatConditions.Add Type:=xlTextString, String:=PoiskSlov, TextOperator:=xlContains
         Columns(1).FormatConditions(Columns(1).FormatConditions.Count).SetFirstPriority
         With Columns(1).FormatConditions(1).Interior
             .PatternColorIndex = xlAutomatic
             .Color = 65535 ' цвет по вкусу
         End With
         Columns(1).FormatConditions(1).StopIfTrue = False
End Sub

[/vba]

Выделяет ячейку в столбце1 (при помощи УФ) если содержатся искомые значения (н-р слово/часть слова или буквы - вне зависимости от используемого регистра)

Сообщение отредактировал Валерьянка - Воскресенье, 20.07.2014, 23:57

Ответить

Hugo

Дата: Воскресенье, 20.07.2014, 23:12 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3547

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

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

365

Если задача "выделить строку с указанным словом" - то зачем УФ? Цикл по столбцу, проверка наличия слова, окраска. Или поиск слова в диапазоне find/findnext (см. помощь) и окраска.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Валерьянка

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

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

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

Сообщений: 71

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

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

Excel 2010

Или так?
[vba]

Код

Sub Poisk2()
        With Cells.Interior
            .Pattern = xlNone
        End With
znach = InputBox("Введите слово", "", "")
s = Range("a" & Rows.Count).End(xlUp).Row
For st = 1 To s
If znach = Range("a" & st).Text Then
        With Rows(st).Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 65535 ' цвет на Ваше усмотрение
        End With
Else
End If
Next
End Sub

[/vba]
Выделит строку если значение в ячейки столбца 1 равно указанному слову (Слово целиком с учетом регистра)

Сообщение отредактировал Валерьянка - Воскресенье, 20.07.2014, 23:58

Ответить

zaranim

Дата: Среда, 17.04.2019, 10:42 | Сообщение № 5

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

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

Сообщений: 1

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

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

Excel 2016

Добрый день!

Подскажите, как реализовать тот же макрос, только результатом должно быть не выделение ячеек цветом, а:
1 вариант: выбор всех ячеек с искомым словом;
2 вариант: удаление всех ячеек с искомым словом.

Ответить

Pelena

Дата: Среда, 17.04.2019, 12:07 | Сообщение № 6

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

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

Сообщений: 19344

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

Замечаний: ±

Excel 365 & Mac Excel

zaranim, прочитайте Правила форума и создайте свою тему. Эта тема закрыта

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

Ответить

Макрос выделения строк с указанным словом (Макросы/Sub)

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