Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Подбор под сумму из нескольких значений?
 
#1
01.11.2011 15:05:39
Подскажите пожалуйста, как подобрать из цифр например:  
1  
2  
3  
4  
5  
6  
7  
8  
9  
сумму 15  
 
что бы эксель показал варианты типа 3+8+4 или 7+6+1 и т.д.
 
 
 
#2
01.11.2011 15:07:10
т.е. 6+7+2  :)
 
 
 
#3
01.11.2011 15:12:21
У меня  post_235937 показал 6+9 :)
 
 
 
#4
01.11.2011 16:09:46
Вариант решения подобных задач формулами, выдает все варианты
 
 
 
#5
01.11.2011 16:10:14
Или макросом
 
 
 
#6
01.11.2011 16:11:47
Все варианты:  
=1+2+3+4+5  
=2+3+4+6  
=1+3+5+6  
=4+5+6  
=1+3+4+7  
=1+2+5+7  
=3+5+7  
=2+6+7  
=1+2+4+8  
=3+4+8  
=2+5+8  
=1+6+8  
=7+8  
=1+2+3+9  
=2+4+9  
=1+5+9  
=6+9
 
 
 
#7
01.11.2011 16:39:34
А можно подробнее пожалуйста. Я вообще не догоняю что такое макросы :) и что такое пост.....
 
 
 
#8
01.11.2011 16:46:44
Сообразительнее нужно быть - слово "post_" тут 3 раза уже написано :)
 
 
 
#9
01.11.2011 16:54:29
Да наверное нужно. легко говорить когда давно с этим сталкиваешься, а когда впервые, то по любому приходится спрашивать здесь. Т.к. больше негде. Так что извиняйте за глупые вопросы, но для новичка в этом вопросе это просто необходимость. В екселе я наковырял "многое" и "многое" знаю. Но вот с макросами не сталкивался ни разу. Пришло время попробовать.
 
 
 
#10
01.11.2011 16:59:54
Я просто нашёл у себя сохранённый файл с форума "Задача о рюкзаке формулой post_235937.rar", проверил - работает.  
Решил, что Вы и сами можете забить в поиск по форуму его оригинальное название "post_235937" - как-то не подумал, что не поймёте, извините :(  
Кстати, позже поискал - файл на месте.
 
 
 
#11
01.11.2011 17:27:14
<< .. я наковырял "многое" и "многое" знаю. >>  
 
 
Всем начинающим рекомендуется пройти через приёмы. Тогда вопросы будут по существу.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#12
21.03.2012 20:21:06
Извините старую тему выкопал ..в макросе МСН стоит ограничение на 24 числа а мне надо больше типа 52 ...можно как то макрос подправить ... правда работать будет видимо 100 лет
 
 
 
#13
22.03.2012 14:32:39
На большое количество значений никак?
 
 
 
#14
22.03.2012 15:10:35
Макимум до чего дошлёпал код - 32:  
 
Sub tt()  
Dim Komb&  
For CVal = 1 To 52  
Komb = 2 ^ CVal - 1  
Next  
End Sub
 
 
 
#15
22.03.2012 15:11:25
макрос от Слэна
 
 
 
#16
22.03.2012 15:13:35
Не, 32 много... 31!  
Но комп грузит серъёзно и надолго. Всё ещё работает...
 
 
 
#17
22.03.2012 15:57:36
Похоже от слэна это то что надо ..мне надо ОДИН раз подобрать .... все Вармианты непричем ... хотя хотелось бы иметь таки 2-3 варианта подюора не больше. Спасибо
 
 
 
#18
23.03.2012 06:32:27
Вариант, попытка скрестить ужа с ежом - переборный алгоритм с "жадным"
 
 
 
#19
23.03.2012 07:00:01
Нашёл у себя ошибку. В функции Analyse класса Nearest надо вместо  
FTable("FStart").Value = endIndex - 1  
поставить  
FTable("FStart").Value = endIndex + 1
 
 
 
#20
23.03.2012 09:52:22
Спасибо то что нужно для целей бухгалтерии  все варианты по большому счету и не нужны
 
 
 
#21
24.07.2012 07:43:13
Спасибо Слэну за макрос подбора суммы!  
Он мне очень помог в одной из программ.  
И работает, на удивление, очень быстро.  
Вот только алгоритм не понял - слишком много букв) но это не главное)
 
 
 
Страницы: 1
Наверх