本帖最後由 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 |
發表於 2010-8-20 14:06
| 
