Подбитие сумм столбцов
Подведение итогов столбца в VBA реализуется просто. первая ячейка с данными (без заголовка) нам известна, нужно определить программно последнюю ячейку столбца, конвертировать этот диапазон в адрес и вставить в виде формулы:
Sub SummColumn()
s = Cells(Rows.Count, 3).End(xlUp).Row
Set oRange = Range(Cells(2, 3), Cells(s, 3))
Cells(s + 1, 3).Formula = "=SUM(" & oRange.Address & ")"
End Sub
Данный код вставляет итоговые данные под столбец Сумма реестра документов, суммируя данные со 2-й до последней заполненной ячейки. Формула вставляется "живая" с абсолютной адресацией.
Если живые формулы не нужны, а просто значение итога, реализация еще проще:
Sub SummColumn2()
Cells(s + 1, 3) = WorksheetFunction.Sum(Range("С:С"))
End Sub
Задача. Подведите итоги ранее рассчитанного столбца Сумма без НДС в файле Реестр документов.
Sub SummColumn()
s = Cells(Rows.Count, 3).End(xlUp).Row
Set oRange = Range(Cells(2, 3), Cells(s, 3))
Cells(s + 1, 3).Formula = "=SUM(" & oRange.Address & ")"
End Sub
Данный код вставляет итоговые данные под столбец Сумма реестра документов, суммируя данные со 2-й до последней заполненной ячейки. Формула вставляется "живая" с абсолютной адресацией.
Если живые формулы не нужны, а просто значение итога, реализация еще проще:
Sub SummColumn2()
Cells(s + 1, 3) = WorksheetFunction.Sum(Range("С:С"))
End Sub
Задача. Подведите итоги ранее рассчитанного столбца Сумма без НДС в файле Реестр документов.
Комментарии
Отправить комментарий