请选择时期:
怀孕准备 怀孕 分娩 宝宝0-1岁 宝宝1-3岁 宝宝3-6岁

vba编程代码了解(vba编程实例速成150例)

来源: 最后更新:24-07-01 06:07:14

导读:本代码真正的大数据,大过滤,几百万次的计算可能只有一个号码,甚至一个都没有,可见,通过反复重算,光循环就是百万每次每位,每位进行2次循环,本代码会进入双色球,原理是一样的,几百万计算,只为了找一个号码

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

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

标签: [db:关键词]  

免责声明:本文系转载,版权归原作者所有;旨在传递信息,其原创性以及文中陈述文字和内容未经本站证实。

本文地址:http://www.jxyuer.com/news/jiaodian/477909.html

声明: 本站文章均来自互联网,不代表本站观点 如有异议 请与本站联系 联系邮箱:jxyuer#foxmail.com (请把#替换成@)

关于我们 | 广告服务 | 网站合作 | 免责声明 | 联系我们| 网站地图

© 2022-2024 江西育儿网 all rights reserved. 沪ICP备2023005727号-3