帖子: 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

超級版主 Rank: 8 Rank: 8

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

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

中學生 Rank: 2

帖子: 65
主題: 15
精華: 0
積分: 87
點名: 1
作業系統: WINDOWS10
軟體版本: 2019
閱讀權限: 20
性別: 男
註冊時間: 2010-7-26
最後登錄: 2024-1-31

6^#

發表於 2010-8-20 18:46 | 只看該作者

謝謝二位大哥的解說

TOP