出勤工资计算公式利用excel对彩票号码进行排列组合(实例1)

2020年11月4日发(作者：桑结加)
利用excel对彩票号码进行排列组合
（实例1）
创建excel文件，按alt+F11编辑宏。利用以
下实例，可对彩票进行分析、自行缩水


实例1：4选3
Sub 组合()
stt = Input Box(请输入4个数并用，隔开。如1,4,6,8,17,20,29,45,60输入

a rr = Split(stt,
num = UBound(arr)
rownum = 2
Range(组数
Range(数一
Range(数二
Range(数三

If (num <> 3) Then
MsgBox 输入数字不是4个
Else
For i = 0 To num
For j = i To num
For k = j To num

If (i = j Or j = k) Then
rownum = rownum
Else
Range(第组
Range(
Range(
Range(

rownum = rownum + 1
End If
Next

Next
Next
End If

End Sub









实例2：5选2
Sub 组合()
stt = Input Box(请输入5个数并用，隔开。如1,4,6,8,17,20,29,45,60输入

a rr = Split(stt,
num = UBound(arr)
rownum = 2
Range(组数
Range(数一
Range(数二
If (num <> 4) Then
MsgBox 输入数字不是5个
Else
For i = 0 To num
For j = i To num
If (i = j) Then
rownum = rownum
Else
Range(第组
Range(
Range(
rownum = rownum + 1
End If

Next
Next
End If

End Sub




实例3：11选5
Sub 组合()
stt = InputBox( 请输入11个数并用，隔开。如1,4,6,8,17,20,29,45,60输入

arr = Split(stt,
num = UBound(arr)
rownum = 2
Range(组数
Range(数一
Range(数二
Range(数三Range(数四
Range(数五

If (num <> 10) Then
MsgBox 输入数字不是11个
Else
For i = 0 To num
For j = i To num
For k = j To num
For l = k To num
For m = l To num

If (i = j Or j = k Or k = l Or l = m) Then
rownum = rownum
Else
Range(第组
Range(
Range(
Range(
Range(
Range(
rownum = rownum + 1
End If
Next
Next
Next
Next
Next
End If

End Sub