Макрос для "заменить"

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

Макрос для "заменить" (Формулы/Formulas)

meiv

Дата: Среда, 21.05.2014, 09:09 | Сообщение № 1

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

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

Сообщений: 13

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

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

Excel 2010

Добрый день!
Подскажите текст макроса для автоматизации следующего:
В ячейке А1 пишем старый текст (что заменить)
В ячейке А2 пишем новый текст (на что заменить)
На листе есть ячейки с формулами, в теле которых присутствует часть "старого текста" который необходимо заменить на "новый текст" (например ссылку Z:\январь\01.xlsx нужно заменить на Z:\февраль\02.xlsx)

Нужно чтобы работало так:
1) Вписываем новый и старый текст
2) Выделяем нужные ячейки
3) Жмем кнопку макроса, формулы изменяются.
4) Вписываем другой старый и новый текст (для других формул)
5) Выделяем нужные ячейки
6) Жмем кнопку макроса
и т.д.

Можно такое реализовать?
Спасибо!

Ответить

Hugo

Дата: Среда, 21.05.2014, 09:56 | Сообщение № 2

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

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

Сообщений: 3859

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

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

365

Зачем макрос? Это можно делать стандартной заменой - пишите всё туда, жмите кнопку там.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

meiv

Дата: Четверг, 22.05.2014, 12:36 | Сообщение № 3

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

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

Сообщений: 13

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

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

Excel 2010

Фишка в том что в ячейках с новым и старым текстом данные будут подставляться формулами (или очередным макросом)
Хочется просто выделять и жать кнопку

Ответить

_Boroda_

Дата: Четверг, 22.05.2014, 12:49 | Сообщение № 4

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

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

Сообщений: 16957

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так?
[vba]

Код

Sub tt()
Cells.Replace What:=[A1], Replacement:=[A2]
End Sub

[/vba]

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