返回列表 上一主題 發帖

[發問] 如何簡化程式?

回復 1# luke
  1. Dim xi As Integer
  2.     For xi = 0 To 8
  3.         fnra = fd & "RRR\" & A.Offset(, -4) & "\LAN" & xi
  4.         fso.copyfolder fnra, fr, True
  5.     Next
複製代碼

TOP

回復 3# c_c_lai
VBA 的說明 及範例
Offset 屬性  Range 物件時用 Offset 屬性。
傳回 Range 物件,用以代表某個指定區域以外的範圍。唯讀。
expression.Offset(RowOffset, ColumnOffset)
  1. Worksheets("Sheet1").Activate
  2. ActiveCell.Offset(rowOffset:=3, columnOffset:=3).Activate
複製代碼
說明如看不懂 多操作幾次範例 修改參數 就會明白
RowOffset         負數為向上移動
ColumnOffset  負數為向左移動

TOP

        靜思自在 : 成功是優點的發揮,失敗是缺點的累積。
返回列表 上一主題