Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.07.2011, 14:13   #1
Серёга0629
Форумчанин
 
Регистрация: 21.04.2011
Сообщений: 128
По умолчанию Сумма в диапазоне, при переменной

Здрасте!
помогите реализовать макрос:
нужно найти сумму в диапазоне, по каждому месяцу, НО, в чём прикол, верхнюю ячейку отсчёта я знаю, а вот нижняя будет менятся каждый месяц, я написал макрос который останавливается на следующей пустой строчке. Строку я обозначил переменной х, столбец у. Мне надо найти сумму от С3:х - как это прописать?

Код:
Sub ppp()
Dim lLastRow As Long
Sheets("125в").Select
lLastRow = Sheets("125в").Cells(Rows.Count, 2).End(xlUp).Row
Sheets("125в").Cells(lLastRow + 1, 2).Select
x = ActiveCell.Row 'строка
y = ActiveCell.Column 'столбец
ActiveSheet.Cells(x, 1) = "Итого:"
iSumma = Application.Sum([x:C3]) - не получается!!!! 
ActiveSheet.Cells(x, 3) = iSumma   
End Sub
Спасибо!
Серёга0629 вне форума Ответить с цитированием
Старый 20.07.2011, 14:18   #2
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

iSumma = Application.Sum(range("C3:C" & lLastRow))
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 20.07.2011, 14:33   #3
Серёга0629
Форумчанин
 
Регистрация: 21.04.2011
Сообщений: 128
По умолчанию

Цитата:
Сообщение от Казанский Посмотреть сообщение
iSumma = Application.Sum(range("C3:C" & lLastRow))
Спасибо!!!))))

и так ещё можно:
Код:
iSumma = Application.Sum(Range("C3:C" & x))
Серёга0629 вне форума Ответить с цитированием
Старый 20.07.2011, 14:40   #4
Серёга0629
Форумчанин
 
Регистрация: 21.04.2011
Сообщений: 128
По умолчанию

Цитата:
Сообщение от Серёга0629 Посмотреть сообщение
и так ещё можно:
Код:
iSumma = Application.Sum(Range("C3:C" & x))
при такой формуле при нескольких запусках всё суммируется и сумма расёт!
Серёга0629 вне форума Ответить с цитированием
Старый 20.07.2011, 14:57   #5
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Ну разумеется, ведь так Вы включаете ячейку с суммой в диапазон суммирования.
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Значение переменной при многопользовательском режиме santekalex Microsoft Office Access 1 09.02.2011 22:22
неправильная работа при инициализации переменной }|{opa KopHeB Помощь студентам 0 02.02.2011 04:32
Сумма при заданных условиях + Ранг Acro Microsoft Office Excel 2 14.04.2009 00:03
Вычисление суммы при переменном диапазоне Million Microsoft Office Excel 1 23.09.2008 15:42
Потеря переменной при выходи из процедуры Kaz Помощь студентам 3 07.06.2007 03:24