昨天求助的排列组合问题升级

全党

再次求助，昨天求助的排列组合问题升级，增加一个不同部门的条件。

wanghan519

还用昨天的库，先组合再排列，大概也许是这样

全党

wanghan519 发表于 2023-3-21 10:00
还用昨天的库，先组合再排列，大概也许是这样

看不懂代码

gbgbxgb

哦，看错了。

cjc209

gbgbxgb 发表于 2023-3-21 11:02
楼主附件粗制滥造，我看不出相同的部门在哪里。

部门1 部门2 就是不同部门啊

蓝桥玄霜

改编辑自香川的组合代码：

全党

蓝桥玄霜 发表于 2023-3-21 11:05
改编辑自香川的组合代码：

版主给上传个附件呗，谢谢。

wanghan519

全党 发表于 2023-3-21 10:46
看不懂代码

用现成的库才好懂啊，因为实在用vba写不来递归，所以发现wps能用js库实在是伸手党的福音了
如果报错可能需要wps打开宏编辑器，把工具-选项-编译里两个禁止全局变量的选项需要去掉

代码的意思是：
1. ret是个二维数组，用来存结果，有360行4列。
2. G.combination带两个参数，第一个是代表6行的数组，第二个是取4行，然后对一共15种组合循环，i是每次选出来的4行组合
3. G.permutation带两个参数，第一个是表示从5列里需要取数的位置1，2，3，4，第二个是取4个数排列，然后对24种排列循环，j是4个数的排列
4. 对每个j循环，k对应i里选出来的4个单位的顺序，j[k]对应选哪个部门，所以把选出来的四个人一组放到tmp里，再把这样一组放到ret结果里
5. 最后把结果写入表格
真的很直接，不用动脑想递归

洋务德雷

用的笨办法，分三步走

全党

蓝桥玄霜 发表于 2023-3-21 11:05
改编辑自香川的组合代码：

C:\Users\Administrator\Desktop\222.jpg

老师，结果不太正确，4个人要求不同单位，还要不同部门。比如A1+B2+C3+D4;