vba编程代码了解 vba编程代码大全


vba编程代码了解 vba编程代码大全

文章插图
本代码真正的大数据 , 大过滤 , 几百万次的计算可能只有一个号码 , 甚至一个都没有 , 可见 , 通过反复重算 , 光循环就是百万每次每位 , 每位进行2次循环 , 本代码会进入双色球 , 原理是一样的 , 几百万计算 , 只为了找一个号码!甚至一个都找不到 , 要求非常苛刻!
Sub 按钮877_Click()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim cs(), cs1(), cs2(), r1 As Range, r2 As Range, r10 As Range, ax&, i&, j&, m&, p&, k&, k1&, y& ‘不写r as range 结果写不出来
Dim a(1 To 10) As Integer, b(1 To 10) As Integer
ax = [a65536].End(xlUp).Row
Cells(3, 18).Resize(ax * 4, 20).ClearContents
cs = Range(Cells(1, 3), Cells(ax + 1, 8))
cs2 = Range(Cells(1, 19), Cells(ax * 9, 252))
Set r2 = Range(Cells(1, 19), Cells(ax, 126))
q = 0
For p = 1 To 500000 , 代码复杂 , 计算量非常大 , 光循环就是50万每次 , 可能一个都找不出来 , 要求非常苛刻!
‘cs1 = Range(Cells(1, 18), Cells(ax, 18))
‘Set r1 = Range(Cells(1, 18), Cells(ax, 18))
‘Set r10 = Range(Cells(ax, 10), Cells(ax, 19))
本代码 , 原理是一样的 , 几百万计算 , 只为了找一个号码!


    以上关于本文的内容,仅作参考!温馨提示:如遇健康、疾病相关的问题,请您及时就医或请专业人士给予相关指导!

    「四川龙网」www.sichuanlong.com小编还为您精选了以下内容,希望对您有所帮助: