Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.04.2012, 13:56   #1
dzaymko
Пользователь
 
Регистрация: 15.04.2012
Сообщений: 18
По умолчанию замена текста по условию

можно прописать замена текста по условию(что в этой строке есть определенный текст) ???

например:
бренд М456
бренд1 М456
бренд2 М456

надо поменять М456 на Т456 только в строке с текстом бренд1 а в остальных должно остаться M456

Последний раз редактировалось dzaymko; 18.04.2012 в 14:18.
dzaymko вне форума Ответить с цитированием
Старый 18.04.2012, 14:05   #2
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Можно. (не даёт коротко ответить, зараза...
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 18.04.2012, 14:15   #3
dzaymko
Пользователь
 
Регистрация: 15.04.2012
Сообщений: 18
По умолчанию

как если не секрет?
dzaymko вне форума Ответить с цитированием
Старый 18.04.2012, 14:23   #4
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Вручную.
Формулой.
Макросом по событию (может быть обработано много и разных событий).
Макросом по нажатию кнопки.
Внешним скриптом/программой.


Код:
Sub tt()
    Dim cc As Range
    For Each cc In Selection
        If InStr(cc.Value, "бренд1") Then cc.Value = Replace(cc.Value, "М456", "Т456")
    Next
End Sub
webmoney: E265281470651 Z422237915069 R418926282008

Последний раз редактировалось Hugo121; 18.04.2012 в 14:31.
Hugo121 вне форума Ответить с цитированием
Старый 18.04.2012, 14:56   #5
dzaymko
Пользователь
 
Регистрация: 15.04.2012
Сообщений: 18
По умолчанию

Цитата:
Сообщение от Hugo121 Посмотреть сообщение
Вручную.
Формулой.
Макросом по событию (может быть обработано много и разных событий).
Макросом по нажатию кнопки.
Внешним скриптом/программой.


Код:
Sub tt()
    Dim cc As Range
    For Each cc In Selection
        If InStr(cc.Value, "бренд1") Then cc.Value = Replace(cc.Value, "М456", "Т456")
    Next
End Sub

ето работает только когда бренд1 и М456 находятся в одном столбце ! а у меня бренд1 и М456 находятся в разных ! такое можно прописать????
dzaymko вне форума Ответить с цитированием
Старый 18.04.2012, 15:04   #6
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Код:
If InStr(cc.Value, "бренд") Then cc.Offset(, 1).Value = Replace(cc.Offset(, 1).Value, "М456", "T456")
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 19.04.2012, 09:52   #7
dzaymko
Пользователь
 
Регистрация: 15.04.2012
Сообщений: 18
По умолчанию

Цитата:
Сообщение от Hugo121 Посмотреть сообщение
Код:
If InStr(cc.Value, "бренд") Then cc.Offset(, 1).Value = Replace(cc.Offset(, 1).Value, "М456", "T456")
можно целый код ????
dzaymko вне форума Ответить с цитированием
Старый 19.04.2012, 10:24   #8
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

> а у меня бренд1 и М456 находятся в разных
Автофильтр: первый столбец по бренд1, второй столбец по М456
Выделить диапазон, Ctrl+H, заменить M на Т. Все.
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Замена текста Lived08 Microsoft Office Excel 11 28.07.2010 14:20
Форматирование текста по условию BAH4EG Microsoft Office Access 1 04.06.2010 14:30
замена текста designer999 Общие вопросы Delphi 5 23.03.2010 17:31
замена текста zetrix Microsoft Office Excel 0 31.10.2006 07:54