не могу в VBA присвоить ячейке формулу

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
bed_bug
Сообщения: 2
Зарегистрирован: 20 дек 2007, 09:19

Sheets(list1).Cells(13, 5).Formula ="=ЕСЛИ($G$5=3;'НУ_5.2.10.'!D13;ЕСЛИ($G$5=6;'НУ_5.2.10.'!D14;ЕСЛИ($G$5=9;'НУ_5.2.10.'!D15;ЕСЛИ($G$5=12;'НУ_5.2.10.'!D16;0))))-'БУ_11.1.'!E7*-1"

Выдается ошибка, но если скопировать эту строку и просто вставить в ячейку, то ошибки не выдается. Что за проблема, может кто знает.

Причем как не пробовал с помошью макроса вставить в формулу текст со словом ЕСЛИ выдается ошибка.

Офис 2003 SP 3

Всем спасибо!
Dim_ok
Сообщения: 51
Зарегистрирован: 03 июл 2007, 09:17

Sheets("list1").Cells(13, 5).FormulaLocal=
list1 в кавычках если это не переменная
Аватара пользователя
DzenDen1
Сообщения: 38
Зарегистрирован: 29 ноя 2007, 12:03

Попробуй заменить свое ЕСЛИ на IF
А вообще включи макрорекордер напиши свою формулу , зайди и подправь, ВСЕ так делаем...
Аватара пользователя
DzenDen1
Сообщения: 38
Зарегистрирован: 29 ноя 2007, 12:03

Код: Выделить всё

Sheets("list1").Cells(13, 5).FormulaLocal=
bed_bug
Сообщения: 2
Зарегистрирован: 20 дек 2007, 09:19

Всем спасибо!

попробую если, что имя листа не принципиально.

помогло использование "=if(1=1,1,2)" например.
Ответить