Одинаковые действия на нескольких листах

[ruavia3]

Мне необходимо заменить одинаковые формулы на разных листах. Как это сделать без обозначения листа и прописывания действий под каждым?

[SAS888]

Можно написать макрос, который, например, будет выводить на экран запрос с двумя полями для ввода. 1-е - формула, которую меняем, 2-е - формула, которой заменяем первую. Жмем кнопку и во всех листах (или, если требуется, в указанных) происходит замена. Устроит?

[viter.alex]

Поиск и замена.

[ruavia3]

SAS888, привет.
Было бы здорово с формами, но ведь их нужно привязывать к книге? Действия аналогичны: нажатию Ctrl+F - Replace (Workbook)

У меня уже есть макрос, который работает примерно так:

Sheets("Sheet1").Select
Cells.Select
Selection.Replace What:="Jan''09\[file1.xls]", Replacement:="Jan''09\[file2.xls]" _
, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat _
:=False, ReplaceFormat:=False

и так далее заменяет 7 формул на листе, потом обозначает следующий лист - Sheets("Sheet2").Select и делает такие же действия.


Вопрос, можно как-нибудь задать блок формул ( 1 формула меняется на 2 формулу, 3 меняется на 4 и т.д.) и применить этот блок замены ко всем листам книги.xls?

[SAS888]

Посмотрите вложение. Откройте Файл. Запустите макрос "Замена_Формул".
Будет выведена форма для заполнения. В ComboBox нужно выбрать файл, в котором требуется заменить формулы (или просто значения). Список файлов будет сформирован из всех открытых книг. Затем в левый TextBox записываем формулу, которую нужно заменить и жмем "ОК". В правый TextBox - то, чем требуется заменить и тоже жмем "ОК". Введенные значения будут заноситься в соответствующие ListBox-ы. После того, как ввод завершен - нажмите "Произвести замену".
Если не выбрана книга, или ListBox-ы пусты, или количество строк, введенных в правую и левую часть, разное, то операция замены произведена не будет (об этом будет выведено сообщение).

[ruavia3]

Спасибо) интересная штука. Я через макрос прописал.

Dim sh As Integer
Dim k As Integer
k = Worksheets.count
For sh = 1 To k

Worksheets(sh).Activate
Cells.Select

(формулу1 - заменяем на формулу 2)
(формулу3 - заменяем на формулу 4)
и так далее

Next sh


End Sub

[SAS888]

Как Вам угодно. Но по-моему, во-первых, с формой проще, во вторых, Ваш макрос должен либо присутствовать в той книге, в которой требуется произвести замену, либо в него нужно дописать опцию выбора книги, что, собственно в предложенном примере и сделано.