Добавить =ЕСЛИ к другой формуле на листе

Пользователь

Сообщений: 248 Регистрация: 01.01.2017

18.02.2017 18:20:02

Вечер добрый!

Помогите пожалуйста переделать этот код:

Код
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 Смысл данной операции в скрытии ноля в ячейке...

gling Пользователь Сообщений: 4260 Регистрация: 01.01.1970	#2 18.02.2017 18:45:49 Здравствуйте. А в "Параметрах Excel" убрать галку с "Показывать нули в ячейках, которые содержат нулевые значения" не подходит?

Zimba Пользователь Сообщений: 248 Регистрация: 01.01.2017	#3 18.02.2017 19:09:26 gling, Здравствуйте, нет

Пользователь

Сообщений: 4260 Регистрация: 01.01.1970

18.02.2017 19:29:02

Тогда попробуйте так

Код
c.Formula = "=IF(" & Mid$(c.Formula, 2) & "=0,""""," & Mid$(c.Formula, 2) & ")"

Zimba Пользователь Сообщений: 248 Регистрация: 01.01.2017	#5 18.02.2017 20:02:14 gling,Спасибо