2014-12-26 5 views
0

Я использую VBA, чтобы взломать и объединить макрос, чтобы обновить отчет, экспортированный с помощью quickbooks. Я использую вложенную формулу IF для создания фильтра для себя.VBA - Excel - заполнение ячейки вложенным IF

Формулы я использую:

=IF(ISBLANK(I2),IF(ISBLANK(I3),IF(ISBLANK(H2),IF(ISBLANK(H3),"X",""),""),""),"") 

(Это позволит заполнить ячейку с X, если 4 ссылочных клетки являются пустыми, и ничего не делать, если какие-либо из них имеет значение).

Код я попытался это:

Range("N2").Formula = "=IF(ISBLANK(I2),IF(ISBLANK(I3),IF(ISBLANK(H2),IF(ISBLANK(H3),"X",""),""),""),"")" 

Проблема у меня в том, что " перед X читается как конец кода (я думаю); Я получаю ошибку компиляции.

Кто-нибудь может мне помочь?

ответ

0

При использовании формулы первенствовать в VBA код, вы должны осторожны с кавычками:

Проверьте код ниже, он будет работать для вас:

Range("N2").Formula = "=IF(ISBLANK(I2),IF(ISBLANK(I3),IF(ISBLANK(H2),IF(ISBLANK(H3),""X"",""""),""""),""""),"""")" 
+0

Шортер: 'Range (" N2 ") .Formula =" = IF (COUNTBLANK (H2: I3) = 4 "," X "", "" "") "' – pnuts

+0

О, спасибо Pnuts, я тоже признателен за ввод. – Jhatz

Смежные вопросы