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

Вход

Регистрация

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

 

= Мир MS Excel/Массовая замена текста на текст с другим цветом - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Массовая замена текста на текст с другим цветом (Макросы/Sub)
Массовая замена текста на текст с другим цветом
evokharkov Дата: Среда, 29.11.2017, 12:30 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Добрый день.

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

Спасибо за внимание.
Файл прикрепил.
К сообщению приложен файл: 1625652.xlsx(11Kb)
 
Ответить
СообщениеДобрый день.

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

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

Автор - evokharkov
Дата добавления - 29.11.2017 в 12:30
sboy Дата: Среда, 29.11.2017, 13:19 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1174
Репутация: 294 ±
Замечаний: 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(18Kb)
 
Ответить
СообщениеДобрый день.
[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]

Автор - sboy
Дата добавления - 29.11.2017 в 13:19
_Boroda_ Дата: Среда, 29.11.2017, 13:28 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11852
Репутация: 4911 ±
Замечаний: 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
 
Ответить
СообщениеТак нужно? Перекрашивает в заранее выделенном диапазоне (вдруг не везде нужно?)
[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_
Дата добавления - 29.11.2017 в 13:28
evokharkov Дата: Среда, 29.11.2017, 15:34 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Спасибо, оба ответа отличные!
 
Ответить
СообщениеСпасибо, оба ответа отличные!

Автор - evokharkov
Дата добавления - 29.11.2017 в 15:34
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Массовая замена текста на текст с другим цветом (Макросы/Sub)
Страница 1 из 11
Поиск:

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