返回列表 上一主題 發帖

[發問] 幫忙註解一下，謝謝!

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
130 
主題
8 
精華
0 
積分
143 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-8-3 
1# 跳轉到 »
發表於 2010-8-20 14:56 | 顯示全部帖子
幫忙註解一下，謝謝!
Application.ScreenUpdating = False '不触發其它事件的代碼
olisun 發表於 2010-8-20 14:06


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

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

TOP

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
130 
主題
8 
精華
0 
積分
143 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-8-3 
2#
發表於 2010-8-20 16:46 | 顯示全部帖子
幫忙註解一下，謝謝!
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

TOP

        靜思自在 : 一個人不怕錯，就怕不改過，改過並不難。
返回列表 上一主題