Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.93/58: Рейтинг темы: голосов - 58, средняя оценка - 4.93
0 / 0 / 0
Регистрация: 18.07.2014
Сообщений: 16

Сумма всех комбинаций значений из столбца чисел

18.07.2014, 16:44. Показов 12728. Ответов 45
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Задача для функции:
  1. Выделяем столбец, состоящий из чисел.
  2. Необходимо суммировать все возможные комбинации из чисел этого столбца.
  3. Записать суммы всех комбинаций в столбец

Например n=4:
1
2
3
4
Кликните здесь для просмотра всего текста
суммы
3
4
5
5
6
7
6
7
8
9
10
Надеюсь, что ничего не забыл


Знаю о существовании топика ПОДБОР всех возможных комбинаций СУММЫ ячеек, но так как я полный дилетант в VBA, я не смог подкорректировать дельные советы по свой случай.

Прикрепляю файл, для которого это нужно провернуть.
123.xls
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
18.07.2014, 16:44
Ответы с готовыми решениями:

Сумма всех чисел из одного столбца ListBox
Как узнать итоговую сумму всех товаров? данные в листбокс заносятся из другой формы, следовательно товаров может быть разное количество....

Сумма вероятностей всех возможных комбинаций
Здравствуйте. Объясните, пожалуйста. Например, есть три символа, каждому присвоена вероятность, а в сумме эти вероятности дают...

Сумма произведений чисел комбинаций для k из n
Есть набор чисел. Их количество равно n. Нужно просчитать количество комбинаций для k из n (т.е., например, для 5 из 8). Это решил 3-мя...

45
0 / 0 / 0
Регистрация: 18.07.2014
Сообщений: 16
25.07.2014, 09:23  [ТС]
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от SoftIce Посмотреть сообщение
попробуйте все Integer заменить на Long
Это просто восхитительно! Только сейчас возникла возможность это опробовать и, что очень классно, количество элементов в столбце не ограничена 65 тыс. Скажите, в топике было упомянуто ограничение для 2003 экселя в виде 65 тыс. элементов. Как алгоритм будет себя чувствовать в старых версиях экселя. У меня, к сожалению, отсутствует возможность это апробировать.
0
25.07.2014, 18:03

Не по теме:

Цитата Сообщение от SoftIce Посмотреть сообщение
попробуйте все Integer заменить на Long
OMG, лучший ответ! это наверное гением нужно быть...

0
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
25.07.2014, 18:17
Цитата Сообщение от Антихакер32 Посмотреть сообщение
OMG, лучший ответ! это наверное гением нужно быть...
Где ты видишь лучший ответ? Разуй глаза. Я просто подсказал человеку.
2
25.07.2014, 18:26

Не по теме:

SoftIce, друг, -к тебе притензий нет, я удивляюсь тому, что восхищаются типами данных,
как это было писанно в сообщении #41

0
6180 / 945 / 313
Регистрация: 25.02.2011
Сообщений: 1,381
Записей в блоге: 1
27.07.2014, 10:47
Какова конечная задача вывод всех возможных сумм? поиск оптимального варианта?

Решал задачу, подбор слагаемых под нужную сумму различными способами. Выкладывал на ExcelWorld, ссылку не даю во избежания нарушения правил, найти очень легко, достаточно набрать в яндексе "подбор слагаемых под нужную сумму". (Файл на киберфоруме тоже выкладывал Сложить некоторые из заданных чисел, чтобы получить в сумме число 24012)

Выкладываю еще раз.

Одно из решений - "Ограниченный перебор" позволяет выводить все подходящие решения. при этом если не нужна конкретная сумма а нужно вывести все варианты сочетания ограниченного количества чисел, то необходимо задать искомую сумму превышающую сумму всех слагаемых и задать такой же допуск, ограничив при этом количество слагаемых.
0
6180 / 945 / 313
Регистрация: 25.02.2011
Сообщений: 1,381
Записей в блоге: 1
27.07.2014, 10:53
Пытаюсь прицепить файл, что то не цепляется, говорит, что уже есть такой.
Попытка №2
Вложения
Тип файла: zip Подбор под сумму2.zip (51.2 Кб, 31 просмотров)
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
27.07.2014, 10:53
Помогаю со студенческими работами здесь

Выборка подмножества комбинаций без повторов из множества всех комбинаций перестановок
Собственно вопрос. Существует ли алгоритм нахождения без перебора уникальных комбинаций в сортированном множестве всех возможных...

Даны списки чисел, нужно вывести список всех возможных комбинаций чисел, составляющих эти списки
Даны списки чисел, нужно вывести список всех возможных комбинаций чисел, составляющих эти списки (элемент из списка 1, элемент из списка 2...

Найти количество комбинаций, при которых сумма чисел на двух бочонках окажется равна заданному числу
Здравствуйте, помогите пожалуйста с программой, начинающий). Один способ придумал простой, но нужен ещё один. Не знаю что можно ещё...

Сумма значений одного столбца
Надо подсчитать на какую сумму сделал заказ столик Хотелось бы, чтоб было так: нажимаю на запрос он открывает мне окно где надо ввести...

Сумма всех ячеек столбца
Добрый день, уважаемые форумчане. С VBA давно не сталкивался. Возник уж совсем глупый вопрос, как найти сумму элементов столбца в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
46
Ответ Создать тему
Новые блоги и статьи
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru