Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Сумма столбца в VBA
 
#1
29.01.2014 12:10:44
Здравствуйте , подскажите пожалуйста как подсчитать сумму 7 столбца в vba?
Код
Dim s As Long
s = Cells(Rows.Count, 7).End(xlUp).Row + 1
пытаюсь определить последнюю запуленною ячейку и добавить строчку для итога но дальше дело не идет(
Изменено: kare - 21.12.2017 16:04:37
 
 
 
#2
29.01.2014 13:00:30
Можно так:
Код
For I = 1 To Cells(Rows.Count, 7).End(xlUp).Row
    Itog = Itog + Cells(I, 7).Value
Next I
Cells(Cells(Rows.Count, 7).End(xlUp).Row + 1, 7) = Itog
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
29.01.2014 13:03:25
Код
Cells(s,7)=Application.Sum(Range(Cells(1,7), Cells(s-1,7)))
 
 
 
#4
29.01.2014 13:04:14
Вариант:
Код
Sub SummColumn()
Dim s As Long
    s = Cells(Rows.Count, 7).End(xlUp).Row
    Cells(s + 1, 7) = Application.WorksheetFunction.Sum(Range(Cells(2, 7), Cells(s, 7)))
End Sub
 
 
 
#5
29.01.2014 13:28:32
Kuzmich,Юрий М, Sanja,  СПАСИБО! ВСЕ ТРИ ВАРИАНТА ПОДХОДЯТ)
 
 
 
#6
21.12.2017 14:23:03
Здравствуйте. Столкнулся с похожей задачей, но есть нюанс. Сумма в ячейке должна быть прописана формулой, т.к. значения в столбце могут изменяться.
на данный момент код выглядит так

Код
Sub abc() 
Dim r&    
    r = Cells(Rows.Count, 4).End(xlUp).Row + 1      
      Application.Sum(Range(Cells(2, 4), Cells(r, 4)))
 
 
 
#7
21.12.2017 14:52:28
Цитата
Сумма в ячейке должна быть прописана формулой
Код
Sub iSumma()
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 4).End(xlUp).Row
Cells(iLastRow + 1, 4).Formula = "=Sum(D2:D" & iLastRow & ")" & "" 'сумма
End Sub
 
 
 
#8
21.12.2017 16:19:21
Kuzmich, спасибо! Заработало)
Тоже пытался решить через конкатенацию, но коряво: через 'FormulaR1C1'.
 
 
 
Страницы: 1
Читают тему
Наверх