к формуле добавить формулу

[27102014]

Всем привет!
Возникла такая задача:
макросом в ячейку вставляется формула СУММ

Worksheets("Лист2").Range("A1") = "=SUM('Лист1'!A1:A5)"

Нужно к формуле СУММ('Лист1'!A1:A5) при соблюдении условия добавить макросом еще формулу сложения, чтобы получилось так
Лист2 ячейка А1 = СУММ('Лист1'!A1:A5) + СУММ('Лист1'!B1:B5)

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

[AleksandrH]

Worksheets("Лист2").Range("B1").Formula = "=SUM('Лист1'!A1:A5)"

не?

[27102014]

Александр, не правильно поняли вопрос (а может я не очень толково описал задачу) - нужно к формуле прибавить еще формулу.
если бы считали макросом, то это выглядело бы так

cell (1,1) = cell (1,1).value +cell (2,1).value

но мне нужно чтобы результатом работы макроса стали формулы, а не результат

[Hugo121]

Какие проблемы написать

Worksheets("Лист2").Range("A1") = "=SUM('Лист1'!A1:A5) + SUM('Лист1'!B1:B5)"

[27102014]

Сообщение от Hugo121

Какие проблемы написать

Worksheets("Лист2").Range("A1") = "=SUM('Лист1'!A1:A5) + SUM('Лист1'!B1:B5)"

проблема в том, что сколько раз и по каким строкам произвести сложение неизвестно

[AleksandrH]

For i = 1 to N
    strFormula = strFormula & "+Sum(Диапазон_i)"
next i
range("A1").formula = strFormula

а диапазоны тогда лучше через R1C1 вычислять

[Hugo121]

Сообщение от 27102014

проблема в том, что сколько раз и по каким строкам произвести сложение неизвестно

Вы будете удивлены, но нам тоже неизвестно...

[27102014]

Сообщение от Hugo121

Вы будете удивлены, но нам тоже неизвестно...

мне тоже неизвестно, но Вас наверное тоже удивит, что эти параметры вычисляются в макросе
не стал выкладывать весь код, интересует только вопрос как собрать в ячейке данные из СУММ + СУММ + СУММ

[27102014]

Сообщение от AleksandrH

For i = 1 to N
    strFormula = strFormula & "+Sum(Диапазон_i)"
next i
range("A1").formula = strFormula

а диапазоны тогда лучше через R1C1 вычислять

не нравится мне стиль ячеек R1C1, пользуюсь функцией для преобразования цифр в буквы)

Спасибо, Ваш код подошел, единтвенное добавил в начало переменную

strFormula = "=0"

[AleksandrH]

Чё за функция? Можна посмотреть?