Суммирование - Microsoft Office Excel

Артур Иваныч · 02.12.2009, 18:46

Всем Здравствуйте!
Ниже прикреплён файл
мы в нём имеем мини-таблицу, где в фиолетовой строке прописана функция =СУММ(), которая суммирует все жёлтые(!) нижестоячие строки!
имеется кнопка, с помощью которой мы добавляем вниз(перед чёрной строкой) новые жёлтые строки,куда тоже в будущем будут вводиться цифры!
НО как через ВБА, пусть даже если его встроить в код кнопки, сделать так,чтобы =СУММ() в фиолетовой строке сам(!) увеличивал свой диапазон и суммировал ВСЕ жёлтые строки, которые постоянно меняются, то увеличиваются то уменьшаются...

IgorGO · 02.12.2009, 19:15

без ВБА. суммируется все от следующей ячейки, до первой ячейки, содержащей слово "итог" в первой колонке. Для ВБА все равно необходимо будет обьяснить где данные заканчиваются. "Итог" в первой колонке - это теперь у вас служебное слово, ограничивающее размер таблицы. его теперь нельзя заменить на "итоги", "всего" и пр.

Артур Иваныч · 02.12.2009, 19:34

ясна
спасибо!
но всё равно на вба хотелось бы

Teslenko_EA · 02.12.2009, 20:02

Здравствуйте Артур Иваныч.
добавив в предложенную Игорем процедуру CommandButton1_Click пару строк:

Код:

...
    Dim i%
    lLastRow = rFndRng.Row
    For i = 1 To 4
        Cells(1, i).FormulaR1C1 = "=SUM(R2C" & i & ":R" & lLastRow - 1 & "C" & i & ")"
    Next
...

конструкция будет почти такая как Вам хотелось.

Евгений.

Артур Иваныч · 02.12.2009, 20:20

Teslenko_EA
спасибо!

02.12.2009, 20:02	#4
Teslenko_EA Участник клуба Регистрация: 10.08.2009 Сообщений: 1,796	Здравствуйте Артур Иваныч. добавив в предложенную Игорем процедуру CommandButton1_Click пару строк: Код: `... Dim i% lLastRow = rFndRng.Row For i = 1 To 4 Cells(1, i).FormulaR1C1 = "=SUM(R2C" & i & ":R" & lLastRow - 1 & "C" & i & ")" Next ...` конструкция будет почти такая как Вам хотелось. Евгений.

02.12.2009, 20:20	#5
Артур Иваныч Форумчанин Регистрация: 30.10.2009 Сообщений: 138	Teslenko_EA спасибо! Последний раз редактировалось Артур Иваныч; 02.12.2009 в 20:22.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Суммирование рядов в С++	defol-777	Помощь студентам	2	05.05.2010 11:10
Суммирование ссылок	mephist	Microsoft Office Excel	2	30.07.2009 16:50
Суммирование	SlavaSH	БД в Delphi	15	22.01.2009 12:29
суммирование от и до....	snakezx	Microsoft Office Excel	1	28.11.2008 15:38
Суммирование значений БД	Andi2118	БД в Delphi	3	12.10.2008 20:25

02.12.2009, 19:34	#3
Артур Иваныч Форумчанин Регистрация: 30.10.2009 Сообщений: 138	ясна спасибо! но всё равно на вба хотелось бы