Выделение слов в ячейке - на определенном расстоянии.

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

Выделение слов в ячейке - на определенном расстоянии. (Макросы/Sub)

RipVanWinkel

Дата: Вторник, 06.06.2017, 12:28 | Сообщение № 1

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

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

Сообщений: 65

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

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

Excel 2010

Добрый день, уважаемые специалисты по экселю.
Помогите решить вопрос.

У меня есть макрос выделения слов в текстовой ячейке C18.
В настоящий момент в ячейке C18 - выделяются все встречающиеся заданные слова.
Макрос срабатывает на событие Worksheet_Change - в ячейках D16 и E16 - куда записываются слова, которые надо выделить.

Как изменить макрос, чтобы он выделял два слова "день" и "вечер", но при условии, что расстояние между этими словами - не более 4 символов.
(если два одинаковых слова стоят рядом - например "вечер - вечер" - то они не должны выделяться, поскольку - это одинаковые слова)

К сообщению приложен файл: 5752739.xlsm (16.3 Kb)

Сообщение отредактировал RipVanWinkel - Вторник, 06.06.2017, 12:30

Ответить

RAN

Дата: Вторник, 06.06.2017, 14:20 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

[vba]

Код

Sub Мяу()
    Dim objRegExp As Object, oMath As Object
    Dim s$, i&
    Set objRegExp = CreateObject("VBScript.RegExp")
    objRegExp.Global = True: objRegExp.IgnoreCase = True: objRegExp.MultiLine = False
    objRegExp.Pattern = "день[\s\S]{1,4}вечер"
    s = Selection.Value
    If objRegExp.test(s) Then
        Set oMath = objRegExp.Execute(s)
        For i = 0 To oMath.Count - 1
            Selection.Characters(Start:=oMath(i).Firstindex + 1, Length:=Len(oMath(i))).Font.ColorIndex = 3
        Next
    End If
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Kuzmich

Дата: Вторник, 06.06.2017, 14:21 | Сообщение № 3

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

Ранг: Ветеран

Сообщений: 717

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

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

Excel 2003

Всегда ли два слова "день" и "вечер" встречаются в ячейке парами?

Ответить

RipVanWinkel

Дата: Вторник, 06.06.2017, 15:06 | Сообщение № 4

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

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

Сообщений: 65

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

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

Excel 2010

RAN, не работает.
Выделяет слова - только если - слово "день" стоит первым.
Если слово "вечер" идет перед словом "день" - макрос никак на эту связку не реагирует.

К сообщению приложен файл: 5649669.xlsm (19.2 Kb)

Ответить

RipVanWinkel

Дата: Вторник, 06.06.2017, 15:07 | Сообщение № 5

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

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

Сообщений: 65

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

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

Excel 2010

Цитата Kuzmich, 06.06.2017 в 14:21, в сообщении № 3 ()

Всегда ли два слова "день" и "вечер" встречаются в ячейке парами?

Нет, они могут идти кучей - "вечер, день, вечер, день, вечер, день".
Поскольку здесь расстояние между словами - меньше 4 символов - то выделить нужно всю эту связку.