!Viper! писал(а):А как ругаецца то? Приведи побольше кода для лучшего понимания. Может быть покатит такой вариант:
Cells(1,1).Formula = "=SUM(....)"
нет не покатит... заранее не знаю сколько надо этих СУММ и прочее + число месяцев висчитывать надо!
там постоянно разные формулы... вот пример как у меня программа сгенерировала формулу:
SUM(Амортизация!$B$8:$B$20)/13*2,2% + (SUM(Амортизация!$B$20:$B$32) + Итоги!$E$6)/13*2,2%
это без равно....
эта строка лежит в str, str типа Variant (пробовал и String)
если я сейчас ее присвою таким методом как я делаю :
Sheets("Итоги").Range(Sheets("Итоги").Cells(11, 5), Sheets("Итоги").Cells(11, 5)).Formula = str
то как строка она присвоится без проблем!
Если я сделаю так:
Sheets("Итоги").Range(Sheets("Итоги").Cells(11, 5), Sheets("Итоги").Cells(11, 5)).Formula = "=" + str
или же заренее в str поставлю знак = то выдает такую ошибку:
Application-defined or object defined error
а вот... если поможет - страница - Итоги, в ячейки которой я присваиваю формулу не активна и я чейка тоже....
но я думаю это не обязательно... доступ то я имею к этой ячейки?! Хотя кто поймет этот VBA