创建按指定条件组合数字的自定义函数

WYS67

yjh_27 发表于 2019-2-17 17:59
1 是的，你可以把它拷贝到一个模块中。
与
指定范围内数字按指定位数全排列的自定义函数

2 按14L修改第4参数默认值后，使用该自定义函数可省略第4参数。与无第4参数一样使用。
是什么意思？

yjh_27

玉阳山人 发表于 2019-2-17 18:18
1 是的，你可以把它拷贝到一个模块中。
与
指定范围内数字按指定位数全排列的自定义函数

改后相当于去掉了第4参数。
参见附件。

玉阳山人

yjh_27 发表于 2019-2-17 18:51
改后相当于去掉了第4参数。
参见附件。

按18楼您的吩咐，只把22楼LTXZH的代码复制粘贴进--指定范围内数字按指定位数全排列的自定义函数
http://club.excelhome.net/thread-1455280-1-1.html
(出处: ExcelHome技术论坛)
和自定义函数PLZH共用模块2里的代码后，出现了7楼第1条反馈的问题--当C1指定为11，C2指定为5时，怎么不显示最后一个组合结果--A:E列07，08，09，10，11；G列0708091011？【测了n在不同数值时的情况，好像只有当C1指定为11时出现这种情况，其它数值时能够显示五个最大数值的组合。】而22楼代码显示的结果准确无误。似乎不能和自定义函数PLZH共用模块2里的代码

yjh_27

玉阳山人 发表于 2019-2-17 19:33
按18楼您的吩咐，只把22楼LTXZH的代码复制粘贴进--指定范围内数字按指定位数全排列的自定义函数
http:// ...

模块2里的代码以本贴为准（有修改），即PLZH共用本帖 模块2里的代码

WYS67

yjh_27 发表于 2019-2-17 19:48
模块2里的代码以本贴为准（有修改），即PLZH共用本帖 模块2里的代码

上面左图E列显示的是正确答案，而右图E列改用模块2代码后计算结果只能显示到E719，中间漏掉了许多号码。是全排列和不重复组合采用的算法不同的结果吧？

似乎自定义函数PLZE和LTXZH不能通用模块2？

玉阳山人

yjh_27 发表于 2019-2-17 19:48
模块2里的代码以本贴为准（有修改），即PLZH共用本帖 模块2里的代码

没花送了.....

yjh_27

WYS67 发表于 2019-2-17 20:08
上面左图E列显示的是正确答案，而右图E列改用模块2代码后计算结果只能显示到E719，中间漏掉了许多号 ...

1. Function PLZH(最小值, 最大值, 指定位数)
   
2. nmin = 最小值
   
3. nmax = 最大值
   
4. n = nmax - nmin + 1
   
5. m = 指定位数
   
6. arr = ArrPC(n, m, 4, nmin, 1)
   
7. If Application.Version = "11.0" Then            '2003版本
   
8.     N3 = Application.Caller.Rows.Count
   
9. Else
   
10.     gsh = Application.ThisCell.Formula
    
11.     Do While gsh = Application.ThisCell.Offset(N3, 0).Formula
    
12.         If Application.ThisCell.Offset(N3, 0).Row = Rows.Count Then Exit Do
    
13.         N3 = N3 + 1
    
14.     Loop
    
15. End If
    
16. ReDim brr(1 To N3, 1 To 1)
    
17. If UBound(arr) > N3 Then k = N3 Else k = UBound(arr)
    
18. For i = 1 To k
    
19.     For j = 1 To UBound(arr, 2)
    
20.     brr(i, 1) = brr(i, 1) & arr(i, j)
    
21. Next j, i
    
22. For ii = i To N3
    
23.     brr(ii, 1) = ""
    
24. Next
    
25. PLZH = brr
    
26. End Function
    

复制代码

WYS67

yjh_27 发表于 2019-2-17 20:22

嗯。27楼的PLZH代码和22楼的LTXZH代码能够共享22楼的ArrPC

万分感谢老师一下午的辛勤劳动！

WYS67

yjh_27 发表于 2019-2-17 18:51
改后相当于去掉了第4参数。
参见附件。

老师：目前国内销售的11选5号码是按出球先后顺序组合【也就是定位组合】的，包括了从小到大和从大到小【但相互之间没有重复号码】的所有组合。而22楼的代码只能执行从小到大的号码组合。
恳请老师编写按出球先后顺序组合的自定义函数
广东11选5类按出球先后顺序组合的自定义函数.zip (42.09 KB, 下载次数: 4)

2019-2-25 06:32 上传

点击文件名下载附件

yjh_27

WYS67 发表于 2019-2-25 06:33
老师：目前国内销售的11选5号码是按出球先后顺序组合【也就是定位组合】的，包括了从小到大和从大到 ...

'mode=1: 不考虑顺序不可重复(组合)：C(n,m)=n!/m!(n-m)!
'mode=2: 不考虑顺序且可重复（可重复组合）：C(n+m-1,m) =(n+m-1)!/m!(n-1)!
'mode=3: 考虑顺序不可重复（排列）：P(n,m)=n!/(n-m)!
'mode=4: 考虑顺序且可重复（m位n进制）：n^m

你要什么，自己选择。
输出时，是按从小到大得顺序。
要大到小得顺序也可以，改一下代码即可。
如增加
'mode=-1: 不考虑顺序不可重复(组合)：C(n,m)=n!/m!(n-m)!
'mode=-2: 不考虑顺序且可重复（可重复组合）：C(n+m-1,m) =(n+m-1)!/m!(n-1)!
'mode=-3: 考虑顺序不可重复（排列）：P(n,m)=n!/(n-m)!
'mode=-4: 考虑顺序且可重复（m位n进制）：n^m


但按出球先后顺序，这个顺序从哪里得到？