
文章插圖
本代碼真正的大數(shù)據(jù) , 大過濾 , 幾百萬次的計(jì)算可能只有一個(gè)號(hào)碼 , 甚至一個(gè)都沒有 , 可見 , 通過反復(fù)重算 , 光循環(huán)就是百萬每次每位 , 每位進(jìn)行2次循環(huán) , 本代碼會(huì)進(jìn)入雙色球 , 原理是一樣的 , 幾百萬計(jì)算 , 只為了找一個(gè)號(hào)碼!甚至一個(gè)都找不到 , 要求非常苛刻!
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 結(jié)果寫不出來
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 , 代碼復(fù)雜 , 計(jì)算量非常大 , 光循環(huán)就是50萬每次 , 可能一個(gè)都找不出來 , 要求非常苛刻!
‘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))
本代碼 , 原理是一樣的 , 幾百萬計(jì)算 , 只為了找一個(gè)號(hào)碼!
以上關(guān)于本文的內(nèi)容,僅作參考!溫馨提示:如遇健康、疾病相關(guān)的問題,請您及時(shí)就醫(yī)或請專業(yè)人士給予相關(guān)指導(dǎo)!
「愛刨根生活網(wǎng)」www.malaban59.cn小編還為您精選了以下內(nèi)容,希望對您有所幫助:- java源代碼運(yùn)行操作方法 java源代碼怎么運(yùn)行
- html視頻代碼講解 html視頻代碼怎么用
- cam數(shù)控編程軟件 cam軟件有哪些
- 蘇州衛(wèi)生職業(yè)學(xué)院學(xué)校代碼
- html編程代碼大全 html5空格代碼怎么寫
- c語言在線編程網(wǎng)站 c語言在線編程器
- 附講解和思維導(dǎo)圖 java代碼大全及詳解
- vba打開指定excel文件并關(guān)閉操作 vba打開指定excel文件并關(guān)閉
- 分享單片機(jī)編程步驟 c51單片機(jī)編程教程
- python代碼運(yùn)行方式 python代碼怎么運(yùn)行
