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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 02.12.2009, 18:46   #1
Артур Иваныч
Форумчанин
 
Регистрация: 30.10.2009
Сообщений: 138
По умолчанию Суммирование

Всем Здравствуйте!
Ниже прикреплён файл
мы в нём имеем мини-таблицу, где в фиолетовой строке прописана функция =СУММ(), которая суммирует все жёлтые(!) нижестоячие строки!
имеется кнопка, с помощью которой мы добавляем вниз(перед чёрной строкой) новые жёлтые строки,куда тоже в будущем будут вводиться цифры!
НО как через ВБА, пусть даже если его встроить в код кнопки, сделать так,чтобы =СУММ() в фиолетовой строке сам(!) увеличивал свой диапазон и суммировал ВСЕ жёлтые строки, которые постоянно меняются, то увеличиваются то уменьшаются...
Вложения
Тип файла: rar Лист Microsoft Excel.rar (9.1 Кб, 15 просмотров)
Артур Иваныч вне форума Ответить с цитированием
Старый 02.12.2009, 19:15   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

без ВБА. суммируется все от следующей ячейки, до первой ячейки, содержащей слово "итог" в первой колонке. Для ВБА все равно необходимо будет обьяснить где данные заканчиваются. "Итог" в первой колонке - это теперь у вас служебное слово, ограничивающее размер таблицы. его теперь нельзя заменить на "итоги", "всего" и пр.
Вложения
Тип файла: rar Книга217.rar (9.9 Кб, 22 просмотров)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 02.12.2009, 19:34   #3
Артур Иваныч
Форумчанин
 
Регистрация: 30.10.2009
Сообщений: 138
По умолчанию

ясна
спасибо!
но всё равно на вба хотелось бы
Артур Иваныч вне форума Ответить с цитированием
Старый 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
...
конструкция будет почти такая как Вам хотелось.
Евгений.
Teslenko_EA вне форума Ответить с цитированием
Старый 02.12.2009, 20:20   #5
Артур Иваныч
Форумчанин
 
Регистрация: 30.10.2009
Сообщений: 138
По умолчанию

Teslenko_EA
спасибо!

Последний раз редактировалось Артур Иваныч; 02.12.2009 в 20:22.
Артур Иваныч вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Суммирование рядов в С++ 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