求助VBA怎么计算。谢谢

丸子不是小孩子 · 发表于 2020-7-6 11:12

gsm2008 发表于 2020-7-5 23:58
啊？？？大到什么程度？能不能只计算有用的那些列？这样的话数量就会小些？

你的“第一行”数据有42个1，如果我没搞错概念，42抽30组合一共有11058116888种情况。

丸子不是小孩子 · 发表于 2020-7-6 11:25

排列组合代码建议看一下香川群子的帖，数据太大我这边测试总是出错，附件只实现了：
如果某行满足设定的和值，把对应的"行号"以及这行"1"对应的"列数"罗列出来。

gsm2008 · 发表于 2020-11-3 22:29

丸子不是小孩子发表于 2020-7-6 11:25
排列组合代码建议看一下香川群子的帖，数据太大我这边测试总是出错，附件只实现了：
如果某行满足设定的和 ...

谢谢您，您做的代码完全和我的要求一样，只是没有具体到我的目的，

我想实现120列里，比如我设置的和是35，只允许任意35列相加的和是35，也就是说当任意35列相加只要和不是35那就是不对的

或者120列以任意10列相加，把10列和等于10的列找出来就OK了，谢谢

当家的MAX · 发表于 2020-11-4 07:52

1000行中找出一行，该行中的要有30个单元格的和刚好等于30，这个意思？

gsm2008 · 发表于 2020-11-18 02:06

当家的MAX 发表于 2020-11-4 07:52
1000行中找出一行，该行中的要有30个单元格的和刚好等于30，这个意思？

是的是的，1000行中找出一行，120列以任意10列相加（任意相加的列数可以自己设置），把10列和等于10的列和行找出来就OK了，谢谢

renkangjizhen · 发表于 2020-11-18 08:35

这个简单！按列循环，找到值为1的单元格30次停止即可

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

[求助] 求助VBA怎么计算。谢谢