Question

用vb或者vba在excel里编一个排列组合的小程序

在EXCEL中有三行数据，第一组A1~k1：1~11，第二组A2~k2：12~22，第三组A3~k3：23~33，然后在另外5个格子中A4~C4有由用户自由填入1~6的数字,，并判断A4~C4三个格子的和为6，D4和E4输入的数据要求为D4<E4，且21<D4<242,21<E4<242，然后分别从第一组去取A4个数，加上第二组B4个数，加上第三组C4个数，由三组中去除的数组成一个新的6个数字的组合，最后把所有取得的组合罗列出。并判断组合中的数相加是否大于D4小于E4格子的值，如果在此区间，则列出，如果不在忽略。最后如果没有结果就返回一个0
说明：A4~C4自由输入数字，我的目的是让用户输入在三个组选取数字的个数，如A4:1，B4：2，C4：3，这样既可，但是要判断是否加起来等于6，不能多也不能少，不等于就提示错误。这里纠正一下，D4和E4输入的数据要求为D4<E4，且21<D4<242,21<E4<242。

如果A4~C4输入的数字为1,2,3，那么就是从第一组去1个数，第二组去2个数，第三组取3个数，然后成为一个6个数的组合，并且列出来。你可以列在一个格子里面，也可以分列6个格子里面，但是我试过，列在一个格子里面后面进行数据筛选的时候比较麻烦，希望列在六个格子

Answer 1

把问题讲具体点。
第1，A1——J1只有10个数
第2，另外5个格子中A4~E4有由用户自由填入1~6的数字，并判断A4~C4三个格子的和为6，是什么意思？
第3，然后分别从第一组去取A4个数，加上第二组B4个数，加上第三组C4个数，由三组中去除的数组成一个新的6个数字的组合，最后把所有取得的组合罗列出。是什么意思？
第4，并判断组合中的数相加是否大于D4小于E4格子的值，D4,E4最大值才为6
你将组合中的数字相加，明显是大于E4的。没看懂你的问题

追问

3、就是如果A4~C4输入的数字为1,2,3，那么就是从第一组去1个数，第二组去2个数，第三组取3个数，然后成为一个6个数的组合，并且列出来。你可以列在一个格子里面，也可以分列6个格子里面，但是我试过，列在一个格子里面后面进行数据筛选的时候比较麻烦，希望列在六个格子
4、见2。

追答

还有点不明白，第四点，将组合中的数相加，应该是恒大于6的数。
那就是没有满足大于D4，小于E4的组合啊。

Answer 2

make