史上最酷的Excel VBA 组合算法代码

天地有雪 · 发表于 2014-10-24 17:13

收藏学习了！感谢香川老师分享！

笃行至 · 发表于 2014-11-6 17:24

香川群子老师：如何实现两列数中分别取3个数的组合，且组合之和大于50，小于100，望老师帮写下代码！！
谢谢香川群子老师！！！

香川群子 · 发表于 2014-11-6 18:51

笃行至发表于 2014-11-6 17:24
香川群子老师：如何实现两列数中分别取3个数的组合，且组合之和大于50，小于100，望老师帮写下代码！！
谢 ...

请重新上附件。

目前附件中的元素不是数字，无法计算组合之和。

笃行至 · 发表于 2014-11-7 11:21

谢谢香川群子老师，我已修改了，请看

香川群子 · 发表于 2014-11-7 16:29

笃行至发表于 2014-11-7 11:21
谢谢香川群子老师，我已修改了，请看

A组、B组的取数可以任意调整。
计算A组+B组各自组合取数之和，输出和值在目标范围内的所有结果。

使用了嵌套递归组合算法。

3 3.zip (14.94 KB, 下载次数: 177)

笃行至 · 发表于 2014-11-7 17:36

香川群子发表于 2014-11-7 16:29
A组、B组的取数可以任意调整。
计算A组+B组各自组合取数之和，输出和值在目标范围内的所有结果。

香川群子老师您真是牛人，以后遇到什么问题还要讨教你，拜托了！！！

笃行至 · 发表于 2014-11-8 09:44

香川群子发表于 2014-11-7 16:29
A组、B组的取数可以任意调整。
计算A组+B组各自组合取数之和，输出和值在目标范围内的所有结果。

香川群子老师，若在上述附件中同时再增加几个组合筛选条件，即1、 4>=组合中偶数的个数>=3; 2、 4>= 组合中大于15的个数的>=3 ; 3、 1>=组合中连续数的个数>=0 如何解决？！

jwp2011 · 发表于 2014-11-11 17:17

有点疑问，这个拿来做什么用？

笃行至 · 发表于 2014-11-11 17:35

jwp2011 发表于 2014-11-11 17:17
有点疑问，这个拿来做什么用？

买彩票，我想把中奖几率高的组合筛选出来，不过符合条件太多，然后从中再随机抽出几个组合碰碰运气吧

sdhuch · 发表于 2014-11-11 18:16

学习中，谢谢赐教！

		自动登录	找回密码
密码			免费注册

[原创] 史上最酷的Excel VBA 组合算法 代码