Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос на сумму, при неизвестном количестве строк
 
#1
01.12.2013 17:33:09
Такая ситуация, нужен макрос, который будет считать сумму столбца, при неизвестном кол-ве строк... т.е. в разных ситуациях оно будет разным... и в последующюю строку вставляет эту сумму...
 
 
 
#2
01.12.2013 17:34:36
Код
Sub selct()
Dim lLastRow As Long
lLastRow = Cells(Rows.Count, 3).End(xlUp).Row
    Cells(3, lLastRow + 1) = WorksheetFunction.Sum(C2, lLastRo)
End Sub
Написил вот такое.... но что-то он не работает...
 
 
 
#3
01.12.2013 17:36:06
Цитата
Такая ситуация, нужен макрос
Какие проблемы - заказывайте - http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=list&FID=7 ... ;)
ps Есть "Правила", "Приемы", работает "Поиск" - это так, между прочим.
"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
 
 
#4
01.12.2013 17:39:59
Я попросил глянуть что не так... во втором сообщение...
 
 
 
#5
01.12.2013 17:40:34
Вы перепутали местами строки и столбцы: нужно
Код
 Cells(lLastRow + 1,3) = WorksheetFunction.Sum(Тут диапазон)
И оформляйте код тегом.
 
 
 
#6
01.12.2013 17:43:53
Код
Sub selct()
Dim lLastRow As Long
    lLastRow = Cells(Rows.Count, 3).End(xlUp).Row
    Cells(lLastRow + 1, 3) = WorksheetFunction.Sum(lLastRow, C2)
End Sub
Вот такой вариант... вот только не правильно он сумму считает...слишком маленькое число выдает..Такое ощущение что он считает не сумму, а среднее значение..
Изменено: bito - 01.12.2013 17:47:15
 
 
 
#7
01.12.2013 18:29:22
Cells(lLastRow + 1, 3) = WorksheetFunction.Sum(Range("C2:C"&lLastRow))
 
 
 
#8
01.12.2013 19:26:44
bito, я же говорил - ДИАПАЗОН, а где он у Вас?
 
 
 
Страницы: 1
Наверх