返回列表 上一主題 發帖

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

olisun

帖子
65 
主題
15 
精華
0 
積分
87 
點名
1  
作業系統
WINDOWS10 
軟體版本
2019 
閱讀權限
20 
性別
男 
註冊時間
2010-7-26 
最後登錄
2024-1-31 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-8-20 14:06 | 只看該作者

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

本帖最後由 olisun 於 2010-8-20 15:57 編輯

幫忙註解一下，謝謝!
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$E$2" Then Exit Sub
Dim i&, Myr&, col%, Arr, Arr1(1 To 6, 1 To 12), Arrth
Application.ScreenUpdating = False
Myr = Sheets("成交客戶").[a65536].End(xlUp).Row
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)-------這一句是甚麼意思
        If Arr(i, col) = "" Then Exit For
        If Arr(i, col) < Target.Value Then
收藏 分享

chiahuo
　暱稱: chiahuo

中學生Rank: 2

帖子
183 
主題
46 
精華
0 
積分
322 
點名
0  
作業系統
win 7 
軟體版本
office 2013 
閱讀權限
20 
性別
男 
註冊時間
2010-6-18 
最後登錄
2017-9-26 
2#
發表於 2010-8-20 14:47 | 只看該作者
沒寫註解什麼，看來只有高手中高手才知道
小弟是excel程式初學者，請多多指教

TOP

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
133 
主題
9 
精華
0 
積分
147 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2024-11-11 
3#
發表於 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

帖子
133 
主題
9 
精華
0 
積分
147 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2024-11-11 
4#
發表於 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

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
259  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-30 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2010-8-20 18:18 | 只看該作者
本帖最後由 Hsieh 於 2012-3-14 08:23 編輯

CurrentRegion
傳回 Range 物件，該物件代表目前的區域。目前區域是指以任意空白列及空白欄的組合為邊界的範圍
Arrth = Sheets("退戶客戶").[a1].CurrentRegion
就是把跟a1儲存格相連的範圍存成陣列Arrth
For col = 1 To UBound(Arr, 2) Step 6
因為Arr是A3:R?這範圍的陣列
所以是Arr(1 TO ?-3,1 TO 18)這是因為由範圍直接寫入陣列所以下標從1開始
UBound(Arr, 2)就是Arr的第2維上標界就等於18
Step 6就是每次跳6欄
For i = 1 To UBound(Arr)
UBound(Arr)就是第一維上標界
就是依照每列資料一一跑完
學海無涯_不恥下問

TOP

olisun

帖子
65 
主題
15 
精華
0 
積分
87 
點名
1  
作業系統
WINDOWS10 
軟體版本
2019 
閱讀權限
20 
性別
男 
註冊時間
2010-7-26 
最後登錄
2024-1-31 
6#
發表於 2010-8-20 18:46 | 只看該作者
謝謝二位大哥的解說

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題