Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Добавить =ЕСЛИ к другой формуле на листе
 
Вечер добрый!

Помогите пожалуйста переделать этот код:
Код
Dim c As Range 
For Each c In Selection.SpecialCells(xlCellTypeFormulas) 
c.Formula = "=IFERROR(" & Mid$(c.Formula, 2) & ","""")" 
Next 
На то что бы он к мом ссылкам в ячейках
Код
='0'!J8
добавил:
Код
=ЕСЛИ('0'!J8=0;"";'0'!J8)
Формул очень много, поэтому нужен макрос. Кто может помочь мне тупишке?) PS Смысл данной операции в скрытии ноля в ячейке...
 
Здравствуйте. А в "Параметрах Excel" убрать галку с "Показывать нули в ячейках, которые содержат нулевые значения" не подходит?
 
gling, Здравствуйте, нет
 
Тогда попробуйте так
Код
c.Formula = "=IF(" & Mid$(c.Formula, 2) & "=0,""""," & Mid$(c.Formula, 2) & ")"
 
gling,Спасибо
Страницы: 1
Читают тему (гостей: 1)
Наверх