彩票代码VBA写的
本代码真正的大数据,大过滤,几百万次的计算可能只有一个号码,甚至一个都没有,可见,通过反复重算,光循环就是百万每次每位,每位进行2次循环,本代码会进入双色球,原理是一样的,几百万计算,只为了找一个号码!甚至一个都找不到,要求非常苛刻!
Sub按钮877Click()
Application。ScreenUpdatingFalse
Application。EnableEventsFalse
Dimcs(),cs1(),cs2(),r1AsRange,r2AsRange,r10AsRange,ax,i,j,m,p,k,k1,y不写rasrange结果写不出来
Dima(1To10)AsInteger,b(1To10)AsInteger
ax〔a65536〕。End(xlUp)。Row
Cells(3,18)。Resize(ax4,20)。ClearContents
csRange(Cells(1,3),Cells(ax1,8))
cs2Range(Cells(1,19),Cells(ax9,252))
Setr2Range(Cells(1,19),Cells(ax,126))
q0
Forp1To500000,代码复杂,计算量非常大,光循环就是50万每次,可能一个都找不出来,要求非常苛刻!
cs1Range(Cells(1,18),Cells(ax,18))
Setr1Range(Cells(1,18),Cells(ax,18))
Setr10Range(Cells(ax,10),Cells(ax,19))
本代码很快会进入双色球,原理是一样的,几百万计算,只为了找一个号码!