m选n 排列组合_自定义函数

yjh_27 · 发表于 2014-5-15 23:54

本帖最后由 yjh_27 于 2014-5-20 21:49 编辑

'****************************************************************
'功能：组合相关
'函数名：  YjhCombin
'参数1： m       组合元素
'          数值型：    元素总数，返回序号表示的位置数组（n列）
'          数组或单元格：源元素，返回源元素的组合数组（1列）
'
'参数2： n       n元素组合
'参数3： InsWd    分隔符。可省略，默认为：" "
'参数4： k       输出控制，可省略，默认为：0
'          0          输出全部组合
'          >0          输出k号组合
'          组合结果    输出对应组合顺序号
'参数5： R       元素重复控制，可省略，默认为：1
'          0          有重复
'          1          无重复
'返回值：  组合、组合顺序号
'使用方法：arr = YjhCombin(10,5)
'

'****************************************************************
'功能：排列相关
'函数名：  YjhPermut
'参数1： m       排列元素
'          数值型：    元素总数，返回序号表示的位置数组（n列）
'          数组或单元格：源元素，返回源元素的排列数组（1列）
'
'参数2： n       n元素排列
'参数3： InsWd    分隔符。可省略，默认为：" "
'参数4： k       输出控制，可省略，默认为：0
'          0          输出全部排列
'          >0          输出k号排列
'          排列结果    输出对应排列顺序号
'参数5： R       元素重复控制，可省略，默认为：1
'          0          有重复
'          1          无重复
'返回值：  排列、排列顺序号
'使用方法：arr = YjhPermut(10,5)
'

香川群子 · 发表于 2014-5-16 00:25

和我3年前的帖子一样的效果？
http://club.excelhome.net/thread-731832-1-1.html

yjh_27 · 发表于 2014-6-4 00:28

本帖最后由 yjh_27 于 2014-6-13 16:27 编辑

1L 附件无法下载，才发现。

补充内容 (2015-3-12 14:54):
应用
如何用按钮实现随机排列
http://club.excelhome.net/thread-1190488-1-1.html

补充内容 (2023-12-12 14:28):
更新参见
n取m 自定义函数随机组合排列分组分配
https://club.excelhome.net/thread-1526867-1-1.html
(出处: ExcelHome技术论坛)

ak47ok · 发表于 2014-8-2 21:11

yjh_27 发表于 2014-6-4 00:28
1L 附件无法下载，才发现。

学习了，我试了13选11、好象代码运行出错，等我再试试，谢谢！

ak47ok · 发表于 2014-8-2 21:15

试了两个附件都运行出错：1004
我上个附件、是13选11的全部组合。麻烦老师指导、谢谢！

yjh_27 · 发表于 2014-8-10 10:40

ak47ok 发表于 2014-8-2 21:15
试了两个附件都运行出错：1004
我上个附件、是13选11的全部组合。麻烦老师指导、谢谢！

重复元素时组合数：1352078

超03版范围。

不重复元素，F1单元格请选择1

ak47ok · 发表于 2014-8-10 13:21

yjh_27 发表于 2014-8-10 10:40
重复元素时组合数：1352078

超03版范围。

这个明白，但我上的附件已不是2003版的格式了。看看老师如何修改代码、谢谢！

yjh_27 · 发表于 2014-8-10 14:49

ak47ok 发表于 2014-8-10 13:21
这个明白，但我上的附件已不是2003版的格式了。看看老师如何修改代码、谢谢！

我的 03+补丁打不开你的附件

yjh_27 · 发表于 2014-12-14 16:10

计算单元格内字符串(组合)的所有排列
http://club.excelhome.net/thread-1172636-1-1.html

补充内容 (2015-1-4 22:47):
怎样由一个一维数组生成二维数组？
http://club.excelhome.net/thread-1177136-1-1.html

pfz008 · 发表于 2018-3-11 23:32

各位老师，我用它来运行汉字组合出错了，帮我看看好吗

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

[原创] m选n 排列组合_自定义函数

评分

[原创] m选n 排列 组合_自定义函数

评分

[原创] m选n 排列组合_自定义函数