|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
22.09.2011, 14:17 | #1 |
Новичок
Джуниор
Регистрация: 22.09.2011
Сообщений: 2
|
необходимо суммирование изменяемого диапазона
Всем день добрый.
Долго думал, решил спросить совета на форуме. Дело в чем: мне необходимо посчитать значение каждой ячейки в неком заданном диапазоне. Вопрос в том, что при смещении вниз по строкам мне необходимо считать сумму нескольких верхних значений, которые постоянно увеличиваются. Для примера, это примерно такой формулой может выражаться (где i - rows.count): Е(сумма, от i до n) Range(Cells(iRow - i, iColumn - i), Cells(iRow - i, iColumn + i)), т.е., например, для n-ой строки должно быть такое выражение: Range(Cells(iRow - 1, iColumn - 1), Cells(iRow - 1, iColumn + 1))+Range(Cells(iRow - 2, iColumn - 2), Cells(iRow - 2, iColumn + 2))+...+Range(Cells(iRow - n, iColumn - n), Cells(iRow - n, iColumn + n)). Я никак понять не могу, как в VBA эту функцию реализовать. ПС может, непонятно объяснил, физический смысл в следующем: мне нужно посчитать сумму "воронки", где нижняя точка перевернутого треугольника - это ячейка, в которой должна считаться сумма всех ячеек, входящих в воронку. ППС пример не выкладываю, или не знаю, как сделать... написал в VBE следующее (там, где range, там и необходимо, чтобы считало сумму в увеличивающихся рядах): Sub count() Dim iRow As Long, iColumn As Long, i As Long For iRow = 1 To 20 For iColumn = 1 To 40 For i = 0 To iRow - 1 Worksheets("книга1").Cells(iRow + 22, iColumn).Value = _ Range(Cells(iRow - i, iColumn - i), Cells(iRow - i, iColumn + i)) Next i Next iColumn Next iRow End Sub ПППС приложил файл, там кратко нарисовал, как должен макрос работать. Если кто может, объясните хотя бы в целом, как это можно реализовать. Заранее спасибо. |
22.09.2011, 15:38 | #2 |
Новичок
Джуниор
Регистрация: 22.09.2011
Сообщений: 2
|
(((
хм... замороченно объяснил? или слишком много хочу?))
|
22.09.2011, 17:50 | #3 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 616
|
Пробуем:
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Суммирование диапазона по условиям состоящим в свою очередь из двух и более признаков | alexsampler | Microsoft Office Excel | 5 | 23.08.2011 01:52 |
Суммирование с неизвестным окончанием диапазона | Stalin37 | Microsoft Office Excel | 7 | 21.07.2010 12:00 |
Суммирование ячеек с заданного диапазона листов | skivpokemon | Microsoft Office Excel | 18 | 05.06.2010 01:14 |
Суммирование НЕ диапазона, а конкретный ячеейк через VBA | Артур Иваныч | Microsoft Office Excel | 8 | 23.11.2009 11:49 |
Вызов изменяемого exception в InterBase | soleil@mmc | SQL, базы данных | 8 | 09.04.2009 13:50 |