Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Изменение формул с помощью VBA
 
Помогите. Как макросом сделать для выделенных ячеек с этого:
Код
=ЕСЛИ(Protocol!F4=0;"";Protocol!F4)
Вот это:
Код
=Protocol!F4
Изменено: Zimba - 19 Фев 2017 20:49:38
 
Именно скриптом?
Выделить, CTRL+H. Поиск , заменить - в формулах , и совпадение всей ячейки (не знаю как это по русски)
 
Код
Selection.Formula = "=Protocol!F4"
 
Нет это не то
 
Вот что, то мне подсказывает, что F4 там релативный адрес :-)  и оба варианта сгорят :-).
Пример бы в студию.
 
Цитата
Zimba написал: Нет это не то
может файл приложите и покажете что нужно, или будем играть в "то/не то"?
 
У меня есть формулы в ячейках вида:
Код
=ЕСЛИ(МОЙЛИСТ!МОЯЯЧЕЙКА=0;"";МОЙЛИСТ!МОЯЯЧЕЙКА)
Мне надо сделать из этих формул, форумылы вида:
Код
=МОЙЛИСТ!МОЯЯЧЕЙКА
Вот и все, просто их очень много. Что бы не бить руками. Хелп:(
Изменено: Zimba - 19 Фев 2017 22:28:46
 
Цитата
Dima S написал:
может файл приложите и покажете что нужно
Код
For Each TheCell In Selection
   TheCell.Formula = "=" & Mid(TheCell.Formula, InStr(1, TheCell.Formula, "(") + 1, InStr(2, TheCell.Formula, "=") - 1 - InStr(1, TheCell.Formula, "("))
Next
Изменено: БМВ - 20 Фев 2017 00:13:43
 
БМВ,Сработало отлично! Спасибо Вам!
Страницы: 1
Читают тему (гостей: 1)
Наверх