[求助]彩票复式组合,各位高手来看看,是否能在EXCEL实现

phantry

b06Ctcrb.rar (1.82 KB, 下载次数: 269)

2007-10-10 19:53 上传

点击文件名下载附件
[求助]彩票复式组合,各位高手来看看,是否能在EXCEL实现

各位再来帮帮忙吧

northwolves

能实现,但使用函数估计比较困难.建议VBA解决

northwolves

DefLng A-N
Sub macro1()
Application.ScreenUpdating = False
[l:q] = ""
Dim s, x(5), arr(1 To 65536, 1 To 6), befit As Boolean
s = [a1].CurrentRegion.Value
For A = 2 To 7
x(0) = s(1, A)
For b = 2 To 7
x(1) = s(2, b)
For c = 2 To 7
x(2) = s(3, c)
For d = 2 To 7
x(3) = s(4, d)
For e = 2 To 7
x(4) = s(5, e)
For f = 2 To 7
x(5) = s(6, f)
befit = True
For i = 0 To 4
For j = i + 1 To 5
If x(i) = x(j) Or Len(x(i)) * Len(x(j)) = 0 Then befit = False: Exit For: Exit For
Next
Next
If befit = True Then
n = n + 1
For i = 1 To 6
arr(n, i) = x(i - 1)
Next
End If
Next f, e, d, c, b, A
[l1].Resize(n, 6) = arr
Application.ScreenUpdating = True
MsgBox "共找到" & n & "种组合,成就五百万梦想!!!"
End Sub

phantry

你写了这么多,我不知加在EXCEL那里

能说明步骤吗

northwolves

ALT+F11,菜单"插入"--->模块--->拷入3楼代码--->ALT+F11返回--->执行宏MACRO1()

phantry

朋友,小弟有点笨,按你说的我好像不能实现

你再说得详细点吗

谢谢

xibeiakang

厉害

wj_guan

能用文字解释一下吗？看不懂的说，遇到类似问题，想解决，谢谢

courageous

哈哈哈！找了一个晚上，终于找到最适合我的了！！谢谢版主！！

peter-chen

good 4 study