VBNet - Форум - Суммирование c неопределёнными границами

Вопрос: Суммирование c неопределёнными границами Добавлено: 23.04.09 14:09

Автор вопроса: Nefo | ICQ: 267171676

Добрый день
Не подскажет ли кто, как просуммировать данные в столбце, если конечная ячейка не определена конкретно
Верхняя граница суммируемой области задаётся как resultarea.resize(1,1).offset(1,2)
Нижняя граница
resultarea.resize(1,1).offset(iRow,2)

iRow=1 To rows
rows=resultarea.Rows.Count

Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: Jasmin Вопросов: 23 Ответов: 417	Профиль \| \| #1	Добавлено: 23.04.09 18:49
	Начальное значение конечной ячейки = 1. Потом в цикле Do, пока конечная ячейка не удовлетворяет условию, сложить и следующая попытка определить конечную ячейку. Примерно так. Ответить

Номер ответа: 2 Автор ответа: mai Вопросов: 0 Ответов: 24	Профиль \| \| #2	Добавлено: 24.04.09 02:10
	Nefo, Вы как–то странно определяете границы диапазона суммирования. Sub СуммаСтолбец() With Sheets("лист1") начСтрока = 5 'номер начальной строки суммируемого диапазона столбец = 3 'номер столбца суммируемого диапазона 'находим номер последней заполненной строки lastRow = .Cells(Rows.Count, столбец).End(xlUp).Row 'суммируем данные в столбце от ячейки в строке начСтрока до ячейки в строке lastRow сумма = WorksheetFunction.Sum(Range(.Cells(начСтрока, столбец), _ .Cells(lastRow, столбец))) End With End Sub Ответить

Номер ответа: 3 Автор ответа: Nefo ICQ: 267171676 Вопросов: 1 Ответов: 1	Профиль \| \| #3	Добавлено: 24.04.09 13:51
	Спасибо. Немного под себя переиначил - получилось. Ответить

Страница: 1 |