автосумма

[OlegkA]

в процессе работы макроса две переменные получают такие данные
$J$1 и $j$10 как сложить значения в этом диапозоне? т.е как сделать
автосуммирование подставив две эти переменные для диапазона.

пробовал через запись макросов посмореть там ваще фигня какая-то получатеся?

[uhm]

Вот код:

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

    a = "$J$1"
    b = "$J$10"
    t = 0
    For Each i In Range(a & ":" & b)
        t = t + i.Value
    Next i
    Debug.Print t    ' t содержит сумму диапазона



Т. е. используешь оператор "склеивания" строк &.
a & ":" & b дает "$J$1:$J$10"

[OlegkA]

я уже думал о таком варианте, но думаю это лучше

.Formula = "=sum(" & GetAddressFrom & ":" & GetAddressTo & ")"

[buzzz]

Здравствуйте
у меня похожая задача, но мне нужно подсчитать сумму от и до определенной строки

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

    Range("B1").Select
    Selection.End(xlDown).Select
    stroka1 = Selection.Row
    Selection.End(xlDown).Select
    stroka2 = Selection.Row


stroka1 и stroka2 диапазон в котором нужно подсчитать сумму в определенном столбце и записать ее в следующую за stroka2 ячейку