[AlexV]

Имеем:

Код:

[Выделить все]

...
Dim rng As Range
...
tmptxt = "СУММ(" & Data_Arr(ij)(5) & ")"
Set rng = SWorkBook.Sheets.Item(i).Cells(j, 6)
rng.FormulaR1C1=tmptxt

В элементах массива Data_Arr(ij)(5) забит текст типа "лист1!F6;лист11!F7;лист2!F8;лист3!F9", т.е в формате "имя листа!адрес ячейки;...". Все нормально работает, в результате в ячейку записывается текст типа "СУММ(лист1!F6;лист11!F7;лист2!F8;лист3!F9)", и если вручную перед СУММ вбить знак равенства, то в ней появляется работающая формула суммы ячеек с разных листов. Если ж попытаться знак "=" этот вбить программно, в переменную :

Код:

[Выделить все]

tmptxt = "=СУММ(" & Data_Arr(ij)(5) & ")"

, то получаем ошибку "Application-defined or object-defined error".
Где здесь собака порылась? Может, для ввода формул другие методы надо использовать?

Попробовал иначе данные по ячейкам собирать... теперь переменная tmptxt содержит текст типа:
"лист1!F6+лист11!F7+лист2!F8+лист3!F9"
Опять таки, при ручном добавлении "=" в ячейку формула образуется корректно, если же tmptxt = "=лист1!F6+лист11!F7+лист2!F8+лист3!F9", то в ней ошибка: "ячейка содержит нераспознанный текст." А все адреса ячеек почему-то заключаются в одинарные кавычки "=лист1!'F6+'..."


Ладно, "я тебя породил, я тебя и отвечу..." Надо использовать не rng.FormulaR1C1=tmptxt, а rng.FormulaLocal = tmptxt
Тогда все пучком...

[Mikka]

Сообщение от AlexV Ладно, "я тебя породил, я тебя и отвечу..." Надо использовать не rng.FormulaR1C1=tmptxt, а rng.FormulaLocal = tmptxt Тогда все пучком...

Или вместо

Код:

[Выделить все]

tmptxt = "=СУММ(" & Data_Arr(ij)(5) & ")"

Применить английский эквивалент формулы, т.е.:

Код:

[Выделить все]

tmptxt = "=SUM(" & Data_Arr(ij)(5) & ")"