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

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Массовая замена текста на текст с другим цветом (Макросы/Sub)

evokharkov

Дата: Среда, 29.11.2017, 12:30 | Сообщение № 1

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

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

Сообщений: 24

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

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

Excel 2010

Добрый день.

Есть 1тыс.+ строк с текстом в котором содержится "#H".
Необходимо "#H" заменить на "#H",т.е. это значение залить белым цветом, при этом не захватывая другой текст и главное не удалять "#H".
Пробовал через "Ctrl+H", оно весь текст заливает.
Можно ли это осуществить через макрос?

Спасибо за внимание.
Файл прикрепил.

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

Ответить

sboy

Дата: Среда, 29.11.2017, 13:19 | Сообщение № 2

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

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

Сообщений: 2566

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

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

Excel 2010

Добрый день.
[vba]

Код

Sub qweqwe()
    For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        q = InStr(1, Cells(r, 1), "#H", vbTextCompare)
            If q Then Cells(r, 1).Characters(Start:=q, Length:=2).Font.ThemeColor = xlThemeColorDark1
    Next r
End Sub

[/vba]

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

Яндекс: 410016850021169

Ответить

_Boroda_

Дата: Среда, 29.11.2017, 13:28 | Сообщение № 3

Группа: Модераторы

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

Сообщений: 16674

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

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

2003; 2007; 2010; 2013 RUS

Так нужно? Перекрашивает в заранее выделенном диапазоне (вдруг не везде нужно?)
[vba]

Код

Sub tt()
    Dim d_ As Range
    Application.ScreenUpdating = 0
    For Each d_ In Selection
        x_ = InStr(d_, "#H")
        If x_ Then
            d_.Characters(Start:=x_, Length:=2).Font.ThemeColor = xlThemeColorDark1
        End If
    Next d_
    Application.ScreenUpdating = 1
End Sub

[/vba]
[offtop]Блин, отвлекся сюда http://www.excelworld.ru/forum/2-36267-238714-16-1511950692 и забыл выложить

А так почти одинаково получилось

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

evokharkov

Дата: Среда, 29.11.2017, 15:34 | Сообщение № 4

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

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

Сообщений: 24

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

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

Excel 2010

Спасибо, оба ответа отличные!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Массовая замена текста на текст с другим цветом (Макросы/Sub)

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