Добрый день!
Помогите пожалуйста решить следующую задачу:
Часто приходится разгребать документы где очень много текта/цифр и тд...из всего это текста мне нужно определенные значения, сейчас я нахожу их с помощью след макроса:
выделяю необходимый мне диапазон, будь то строка, столбец или лист и запускаю этот макрос, ввожу ключевую фразу, которую мне необходимо выделить и он быстренько мне все делает. Но есть потребность выделять эти фразы разными цветами.. и хотелось бы иметь возможность выбора цвета(без переписки макроса ручной замены кода)
Как я это вижу:
1. выделяю нужный мне диапазон
2. вызываю макрос
3. в поле ввожу свою ключевую фразу (и вот здесь бы хотелось иметь возможность выбора цвета,по примеру как это реализовано в самом Excel, например вызов формы (во вложении))
Помогите пожалуйста решить следующую задачу:
Часто приходится разгребать документы где очень много текта/цифр и тд...из всего это текста мне нужно определенные значения, сейчас я нахожу их с помощью след макроса:
Скрытый текст |
---|
Sub Выделить() Application.ScreenUpdating = False Dim c As Range, s$, i&, L& s = InputBox("", "Введите слово", "") If s = "" Then Exit Sub L = Len(s) For Each c In Cells.SpecialCells(xlCellTypeConstants, xlTextValues) i = InStr(1, c, s, vbTextCompare) If i > 0 Then With c.Characters(i, L).Font .Bold = True .Color = vbBlue End With End If Next Application.ScreenUpdating = True End Sub |
Как я это вижу:
1. выделяю нужный мне диапазон
2. вызываю макрос
3. в поле ввожу свою ключевую фразу (и вот здесь бы хотелось иметь возможность выбора цвета,по примеру как это реализовано в самом Excel, например вызов формы (во вложении))