Перебрать значения по нарастанию

@Султанов · Регистрация: 25.01.2013

Студворк — интернет-сервис помощи студентам

Добрый день всем!
Я не бухгалтер, и как собирать баланс по счетам тоже не знаю.
Подскажите пожалуйста алгоритм, или есть у кого-нибудь код VBA, которым можно перебирать все значения столбца,суммируя их, до тех пор пока сумма всех строк значений не будет равна итоговой сумме.
Дето в том что дана последовательность цифр с разной подгруппировкой вхождения в группу сумм (обычно в 1С так выкидавает бадланс), в конце столбца выведена сумма значением, каждый раз приходится просматривать последовательность сумм цифр чтобы выйти на итоговую

Допустим стобец состоит из 5 ячеек со значением
в итоге стоит итоговое значчение
необходимо пребрать по следующему алгоритму
если сумма первых двух значений не дает итоговую, цикл удлиняется до 3, теперь перебор идет по трем значения до тех пор пока сумма перебора ячеек не равна будет итоговой

@m-ch · 05.07.2013, 16:59

У меня вручную получилось раскидать (см. вложение), если так нужно, то и макрос лучше писать по этому алгоритму

PS: а лучше выгружать не только числа, но и строки с наименованием, так значительно проще будет

@Igor_Tr · 05.07.2013, 20:03

To Султанов. Извиняюсь, все в гонках. Есть неточности (см. пост #20)
1. "..., удерживаете Ctrl, и щелкаете..." читать как "... , удерживаете Shift, и щелкаете...". Это, думаю, Вы и сами догадались.
2. Sub startSearch(). Сам не понимаю, как я туда два раза сунул вызов процедуры Call recursiveMatch(MaxSoln, .... (строка 61, строка 63). Одну из них удалите.
3. Где-то до 100 строк работает нормально. Дальше идет "перезаполнение" массива (которому это не страшно), но при вставке на лист (больше 255 знаков) начинает ругаться. Удалите/переведите в коменты вот это в Sub startSearch() (строка 73):

mRNG.Offset(0, 1).Resize(ArrLen(Rslt), 1).Value = _
Application.WorksheetFunction.Transpose( Rslt)

Кстати, и быстрее будет работать. Если Вам все-таки нужно эту информацию - скажите, сделаю по другому.
4. Точно затмение на голову. Всем привожу рекомендацию Hugo121, что на сегодня уже нет смысла применять Integer, а сам тут недосмотрел. Только тормозит выполнение. Все Integer замените на Long (на всякий - курсор на Integer в любом месте > Find > Replace > в поле Replace With пишете Long > отмечаете опцию Current Module и нажимаете > Replace All)
Все. Будет летать. Точно. Несколько раз, уже спокойно, проверил.

Новые блоги и статьи Все статьи Все блоги /
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .

@Султанов 54 / 39 / 3 Регистрация: 25.01.2013 Сообщений: 368

	Перебрать значения по нарастанию 03.07.2013, 09:35. Показов 3256. Ответов 21 Метки нет (Все метки) Добрый день всем! Я не бухгалтер, и как собирать баланс по счетам тоже не знаю. Подскажите пожалуйста алгоритм, или есть у кого-нибудь код VBA, которым можно перебирать все значения столбца,суммируя их, до тех пор пока сумма всех строк значений не будет равна итоговой сумме. Дето в том что дана последовательность цифр с разной подгруппировкой вхождения в группу сумм (обычно в 1С так выкидавает бадланс), в конце столбца выведена сумма значением, каждый раз приходится просматривать последовательность сумм цифр чтобы выйти на итоговую Допустим стобец состоит из 5 ячеек со значением в итоге стоит итоговое значчение необходимо пребрать по следующему алгоритму если сумма первых двух значений не дает итоговую, цикл удлиняется до 3, теперь перебор идет по трем значения до тех пор пока сумма перебора ячеек не равна будет итоговой 0