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

生活常识 2023-04-30 10:08生活常识www.baidianfengw.cn

　　本代码真正的大数据，大过滤，几百万次的计算可能只有一个号码，甚至一个都没有，可见，通过反复重算，光循环就是百万每次每位，每位进行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))

　　本代码，原理是一样的，几百万计算，只为了找一个号码！