VBNet - Форум - Замена числа в формуле при помощи макроса

Вопрос: Замена числа в формуле при помощи макроса Добавлено: 29.01.11 16:45

Автор вопроса: sov105

Доброе время суток всем! Есть вопрос есле нетрудно помогите пожайлуста.
Есть формула =ЕСЛИ(I3=5;2222;ЕСЛИ(I3=6;3333))
Как сделать чтобы цыфры 2222 и 3333 при вводе в другую ячейка цифор изменялись? Например А1 набиваю цифры 5555 и при выполнение макроса формула изменялась на =ЕСЛИ(I3=5;5555;ЕСЛИ(I3=6;3333))
Заранее блогадарен всем за ответы...
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: Jasmin Вопросов: 23 Ответов: 417	Профиль \| \| #1	Добавлено: 30.01.11 11:46
	Это замена 2222 на 5555: MyFormula = Range("E7").Formula 'здесь можно указать сразу формулу в текстовом виде =ЕСЛИ(I3=5,2222,ЕСЛИ(I3=6,3333)) Point1 = InStr(1, MyFormula, ",") 'указать разделитель условий в формуле Point2 = InStr(Point1 + 1, MyFormula, ",") Point3 = InStr(Point2 + 1, MyFormula, ",") If Range("A1").Value <> "" Then Range("E7").Formula = Left(MyFormula, Point1) & Range("A1").Value & Mid(MyFormula, Point2) Ответить

Номер ответа: 2 Автор ответа: sov105 Вопросов: 2 Ответов: 3	Профиль \| \| #2	Добавлено: 30.01.11 15:42
	Спасибо за ответ попробую применить. Но следом возник новый вопрос. Есть таблица вней несколько столбцов в каждом столбце раскрывающейся список с именем. На другом листе этой же книги есть еще несколько таблиц созданых под каждое имя из раскрывающегося списка. Вопрос: можно ли зделать так что при выборе из списка имени даные копировальсь бы в таблицу на другом листе под тоже имя и если первоя сторока уже занята то переходила на вторую? И если можно то неприменяя макросов. Ответить

Страница: 1 |