Изменение формата слова в тексте

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

Изменение формата слова в тексте (Макросы/Sub)

temnoo

Дата: Среда, 29.03.2017, 14:06 | Сообщение № 1

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

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

Сообщений: 57

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

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

Excel 2007

Добрый день. Необходимо макросом - кнопкой, изменять в активной ячейке слово "сдел" на слово "сдал" и перекрашивать его в темно-зеленый цвет.

Было:
5 Огнев.
сдел

Стало:
5 Огнев.
сдал

Спасибо.

Ответить

KuklP

Дата: Среда, 29.03.2017, 14:15 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Запишите рекордером, кто мешает?

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

_Boroda_

Дата: Среда, 29.03.2017, 14:16 | Сообщение № 3

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

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

Сообщений: 17006

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

    With Selection
        If .Count <> 1 Then Exit Sub
        If .Value <> "сдел" Then Exit Sub
        .Value = "сдал"
        .Font.Color = -16744448
    End With

[/vba]

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

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

Ответить

temnoo

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

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

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

Сообщений: 57

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

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

Excel 2007

Цитата _Boroda_, 29.03.2017 в 14:16, в сообщении № 3 ()

Так нужно?

Может я не правильно указал в примере, но:

5 Огнев.
сдел

Находиться в одной ячейке. Поэтому пока данный макрос не работает.

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

Ответить

_Boroda_

Дата: Среда, 29.03.2017, 16:01 | Сообщение № 5

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

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

Сообщений: 17006

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Тогда так
[vba]

Код

    With Selection
        If .Count <> 1 Then Exit Sub
        n_ = InStr(.Value, "сдел")
        If n_ = 0 Then Exit Sub
        .Value = Replace(.Value, "сдел", "сдал")
        .Font.ColorIndex = xlAutomatic
        .Characters(Start:=n_, Length:=4).Font.Color = -16744448
    End With

[/vba]

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

Ответить

temnoo

Дата: Четверг, 30.03.2017, 10:04 | Сообщение № 6

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

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

Сообщений: 57

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

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

Excel 2007

Цитата _Boroda_, 29.03.2017 в 16:01, в сообщении № 5 ()

Тогда так

Спасибо большое!

Ответить

Изменение формата слова в тексте (Макросы/Sub)

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