Greetings All!
Возникла задача следующего характера.
Нужно в выделенном диапазоне листа Excel заменить, к примеру, все формулы A1+B1 на (4+A1+B1)*C1, в том числе если искомая формула А1+В1 является частью большей формулы. Что и на что заменять должно спрашиваться у юзера. Поскольку я в VBA ламер, прошу подсказать:

1. Как перебирать ячейки в выделенном диапазоне?
2. Как показывать форму, где спрашиваются у юзера данные?
3. Как весь этот скрипт встроить в общий шаблон.

Если кто-то предоставит готовый или почти готовый код, я буду очччень благодарен, поскольку это нужно срочно, а я в VBA ни одной толковой вещи ещё не делал.
Всем заранее спасибо.

Пункт 2-й отпадает.

Подскажите хотя бы 1-й пункт! Как перевести на VB такое:

Код

for i:=Selection.Left to Selection.Left+Selection.Width do  for j:=Selection.Top to Selection.Top+Selection.Height do  if Cells[j,i]=...//operation on a cell

Код

Dim Cells(10, 10) As Integer For i = 0 To 10    For j = 0 To 10        If Cells(i, j) = n Then            ' operation on a cell        End If    Next Next

Я исходил из того, что ты не знаешь как это написать в VB, а не в Excel. В Excel я тебе не помощник.
Успехов!

Код

Cells.Replace What:="Что ищем", Replacement:="На что меняем"

Попоробуй так!
А вообще стандартными средствами поиска и замены все это дело очень хорошо отрабатывает
*Удачи*

КолвоСтрок= Selection.Rows.Count
Колонок также
Str = Selection.Row первая строка
Col = Selection.Column первая колонка

Cells(Str, Col) в цикле перебираешь , меняя стр и кол

Пиши на мыло........описывай задачу .......только целеком, сделаю я тебе макрос......БЕСПЛАТНО.....
[email protected]

~FoX~ Эх, где ты был в понедельник... Спасибо за предложение, ловлю на слове. В принципе я эту гадость уже написал, остались детали - помоги лучше скорым ответом здесь, на форуме.