jackdream

幫忙註解一下，謝謝!
Application.ScreenUpdating = False '不触發其它事件的代碼
olisun 發表於 2010-8-20 14:06

Application.ScreenUpdating = False '不触發其它事件的代碼
這句應該是..關掉螢幕更新(程式運作時,畫面不會跟著更換,可以增快一些速度)

如果是要關掉觸發事件..
可改用 Application.EnableEvents = False

jackdream

幫忙註解一下，謝謝!
Arr = Sheets("成交客戶").Range("a3:r" Myr)
Arrth = Sheets("退戶客戶").[a1].CurrentRegion-------這一句是甚麼意思
For col = 1 To UBound(Arr, 2) Step 6-------這一句是甚麼意思
    For i = 1 To UBound(Arr)-------這一句是甚麼意思
olisun 發表於 2010-8-20 14:06

試著解釋看看,如有錯誤,還請諸位大大修正,感謝!

Arr = Sheets("成交客戶").Range("a3:r" Myr)
'這句應該修正為 Arr = Sheets("成交客戶").Range("a3:r" & Myr)

Arrth = Sheets("退戶客戶").[a1].CurrentRegion
'將 Sheets("退戶客戶") 有資料的區域放入 Arrth 裡面

For col = 1 To UBound(Arr, 2) Step 6
'依據 (Arr,2) 的內容,放入 col 裡面,每次間隔為 6
'第一筆 col 為 Sheets("成交客戶") 在 B3 欄位的值,第二筆為 B9 欄位的值..以此類推

For i = 1 To UBound(Arr)
'依照陣列資料筆數進行作業
'假設 Arr 共有 10 筆,則進行 10 次迴圈
'若依您的程式,迴圈次數決定於 Sheets("成交客戶").[a65536].End(xlUp).Row -2