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

WYS67

yjh_27 发表于 2019-4-12 21:02
附件是重复组合，模式选择2

老师：仔细分析了您写的公用代码里的模式选择---'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=5: 没有相邻的数字组合:C(n-m+1,m)=(n-m+1)!/[(n-2m+1)!m!]
'mode=6:要求取出连续自然数组合:C(n-m+1,1)=n-m+1

如果把它作为49楼附件里自定义函数的第四参数--模式选择，那么传统型彩票号码不再需要在代码里修改arr = ArrPC(n, m, 2, nmin, 1)，只需一个自定义函数就能显示所有需要的功能。

  如49楼附件里，输入区域数组公式{  =CTXHM(最小值，最大值，指定位数,模式选择) ，便可根据需要显示符合指定条件的所有号码了！这样平时使用起来肯定更方便！

  能不能根据以上建议，搞个通用的代码？

yjh_27

WYS67 发表于 2019-4-14 15:13
老师：仔细分析了您写的公用代码里的模式选择---'mode=1: 不考虑顺序不可重复(组合)：C(n,m)=n!/m!(n-m)! ...

Function CTXHM(最小值，最大值，指定位数, 模式选择)


arr = ArrPC(n, m, 模式选择, nmin, 1)

WYS67

yjh_27 发表于 2019-4-14 18:51
Function CTXHM(最小值，最大值，指定位数, 模式选择)

嗯。测试了模式选择的1~6，非常满意！通用代码如下：Function CTXHM(最小值, 最大值, 指定位数, 模式选择)
nmin = 最小值
nmax = 最大值
n = nmax - nmin + 1
m = 指定位数
arr = ArrPC(n, m, 模式选择, nmin, 1)
If Application.Version = "11.0" Then            '2003版本
    N3 = Application.Caller.Rows.Count
Else
    gsh = Application.ThisCell.Formula
    Do While gsh = Application.ThisCell.Offset(N3, 0).Formula
        If Application.ThisCell.Offset(N3, 0).Row = Rows.Count Then Exit Do
        N3 = N3 + 1
    Loop
End If
ReDim brr(1 To N3, 1 To 1)
If UBound(arr) > N3 Then k = N3 Else k = UBound(arr)
For i = 1 To k
    For j = 1 To UBound(arr, 2)
    brr(i, 1) = brr(i, 1) & arr(i, j)
Next j, i
For ii = i To N3
    brr(ii, 1) = ""
Next
CTXHM = brr
End Function


模式选择如果再假如有m同号【如3D、排列三的000，111，222......999】，组选三按顺序【如001，010，100~899，989，998】和不按顺序【001~899】之类的组合，那简直就是包罗万象，无所不能了！

yjh_27

WYS67 发表于 2019-4-14 19:55
嗯。测试了模式选择的1~6，非常满意！通用代码如下：Function CTXHM(最小值, 最大值, 指定位数, 模式选择 ...

只看懂了m同号
其他请上附件，说明。
只要有规律，就可以。

WYS67

yjh_27 发表于 2019-4-14 20:03
只看懂了m同号
其他请上附件，说明。
只要有规律，就可以。

感谢老师！其它的虽然都有规律，但我已经不需要了。我只是感叹老师学识渊博，一个参数，能够变化出那么多的排列组合！

WYS67

yjh_27 发表于 2019-4-14 20:03
只看懂了m同号
其他请上附件，说明。
只要有规律，就可以。

m同号的个数就是n【即最小值~最大值】；如3D、排列三组选三的全部号码是270注（类似于组选六的模式3），(最大值+1-最小值)*(最大值-最小值)*m!/(m-1)!；而3D、排列三组选三的不考虑顺序的号码共有90注(最大值+1-最小值)*(最大值-最小值)。

快三的组选三公式同上。

WYS67

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

按指定条件排列.zip (1.67 MB, 下载次数: 3)

2021-2-21 01:33 上传

点击文件名下载附件

老师：如上图所示：B1:B3是自定义函数CTXPL指定的三个参数，B5:B1004是区域数组公式 { =CTXPL(B1,B2,B3)  的计算结果。

为最大限度地拓展自定义函数CTXPL的计算功能，需要增加第四参数--指定排列的数据个数--根据运算规则，第四参数必须<=第三参数（如B列所示，第三参数指定为三位数的号码，最多只能用三个不同的数字组成）

第四参数的运算规则是：1.当指定为0或省略时，代码依旧执行原有的计算功能，仍然显示为B5:B1004的计算结果；2.当指定为1时，则显示为D5:D14【俗称豹子号或三同号】（全部为一个数字组成的号码）的计算结果；2.当指定为2时，则显示为E5:E274【俗称组选三直选或二同号】（全部为两个数字组成的号码-肯定有一个数字重复）的计算结果；3.当指定为3时，则显示为F5:F724【俗称组选六直选或三不同】（组成号码的各数字虽然排列顺序不同，但绝不存在重复）的计算结果.......

排列五与七星彩也遵循上面的运算规则，以此类推。

您看能不能在CTXPL代码的基础上，添加如上所述的第四参数？原代码如下：

'传统型排列
Function CTXPL(最小值, 最大值, 指定位数)
nmin = 最小值
nmax = 最大值
n = nmax - nmin + 1
m = 指定位数
arr = ArrPC(n, m, 4, nmin, 1)
If Application.Version = "11.0" Then            '2003版本
    N3 = Application.Caller.Rows.Count
Else
    gsh = Application.ThisCell.Formula
    Do While gsh = Application.ThisCell.Offset(N3, 0).Formula
        If Application.ThisCell.Offset(N3, 0).Row = Rows.Count Then Exit Do
        N3 = N3 + 1
    Loop
End If
ReDim brr(1 To N3, 1 To 1)
If UBound(arr) > N3 Then k = N3 Else k = UBound(arr)
For i = 1 To k
    For j = 1 To UBound(arr, 2)
    brr(i, 1) = brr(i, 1) & arr(i, j)
Next j, i
For ii = i To N3
    brr(ii, 1) = ""
Next
CTXPL = brr
End Function

WYS67

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

57楼里的第四参数，实际上就是--只显示符合第四参数指定的不重复元素个数的计算结果

yjh_27

WYS67 发表于 2021-2-21 21:23
57楼里的第四参数，实际上就是--只显示符合第四参数指定的不重复元素个数的计算结果

参见附件。

WYS67

yjh_27 发表于 2021-2-22 18:01
参见附件。

yjh_27.zip (1.68 MB, 下载次数: 1)

2021-2-22 22:49 上传

点击文件名下载附件

老师：如上图所示，排列5共有100000注号码，其中由1个元素组成的有10注，2个元素组成的有1350注，3个元素组成的有18000注，4个元素组成的有50400注，5个元素组成的有30240注。

我想，肯定有一个通用的公式，能够计算各指定个数元素组成的号码注数，设元素总数为n，指定位数为s，指定组成号码的元素个数为m；譬如排列5，当m指定为1，则能够组成的单元素注数共有m*n^s个,......那么，用什么公式，当元素个数指定为D3:H3时，可以得出如D4:H4显示的计算结果？