帖子: 140
主題: 37
精華: 0
積分: 193
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
註冊時間: 2012-3-28
最後登錄: 2015-7-5

2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-4-27 23:09 | 只看該作者

[發問] 如何簡化程式?

各位大大

小弟寫了一些程式如下
  fnra = fd & "RRR\" & A.Offset(, -4) & "\LAN0"
  fnrb = fd & "RRR\" & A.Offset(, -4) & "\LAN1"
  fnrc = fd & "RRR\" & A.Offset(, -4) & "\LAN2"
  fnrd = fd & "RRR\" & A.Offset(, -4) & "\LAN3"
  fnre = fd & "RRR\" & A.Offset(, -4) & "\LAN4"
  fnrf = fd & "RRR\" & A.Offset(, -4) & "\LAN5"
  fnrg = fd & "RRR\" & A.Offset(, -4) & "\LAN6"
  fnrh = fd & "RRR\" & A.Offset(, -4) & "\LAN7"
  fnri = fd & "RRR\" & A.Offset(, -4) & "\LAN8"

  fso.copyfolder fnra, fr, True
  fso.copyfolder fnrb, fr, True
  fso.copyfolder fnrc, fr, True
  fso.copyfolder fnrd, fr, True
  fso.copyfolder fnre, fr, True
  fso.copyfolder fnrf, fr, True
  fso.copyfolder fnrg, fr, True
  fso.copyfolder fnrh, fr, True
  fso.copyfolder fnri, fr, True

  如何簡化程式?

  煩請先進大大指導

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-4-28 06:53 | 只看該作者

回復 1# luke

Dim xi As Integer
For xi = 0 To 8
fnra = fd & "RRR\" & A.Offset(, -4) & "\LAN" & xi
fso.copyfolder fnra, fr, True
Next

複製代碼

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 2012-4-28 07:43 | 只看該作者

本帖最後由 c_c_lai 於 2012-4-28 07:46 編輯

回復 2# GBKEE
A.Offset(, -4) 其中的 Offset(, -4) 指的到底是甚麼含意？為何又使用 -4？前面有時是 "(,:" 、"(0,"、 "(1,"、或是 "(2,"？
不好意思，初淺的我、對 Excel 的某些指令不甚理解？ Offset 是移位之意？
謝謝您！

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-4-28 09:56 | 只看該作者

回復 3# c_c_lai
VBA 的說明及範例
Offset 屬性 Range 物件時用 Offset 屬性。
傳回 Range 物件，用以代表某個指定區域以外的範圍。唯讀。
expression.Offset(RowOffset, ColumnOffset)

Worksheets("Sheet1").Activate
ActiveCell.Offset(rowOffset:=3, columnOffset:=3).Activate

複製代碼

說明如看不懂多操作幾次範例修改參數就會明白
RowOffset 負數為向上移動
ColumnOffset 負數為向左移動

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 2012-4-28 10:26 | 只看該作者

回復 4# GBKEE
RowOffset 負數為向上移動 ' 本身所在欄位不算，再加上移位多少列。
ColumnOffset 負數為向左移動 ' 本身所在欄位不算，再加上移位多少欄。
原來如此，按 Excel F1 說明時，不知是個人資質不佳、還是過笨兒，有時真是有看沒懂。
謝謝您！這回真的懂了，亦即開竅了！

TOP

sleepycat

中學生 Rank: 2

帖子: 13
主題: 2
精華: 0
積分: 54
點名: 0
作業系統: WinXP
軟體版本: excel 2003
閱讀權限: 20
註冊時間: 2012-3-24
最後登錄: 2020-11-12

6^#

發表於 2012-4-29 21:51 | 只看該作者

回復 2# GBKEE

大大您好
我看到這個問題時直觀也是像您這樣簡化
但是我又想到一個問題
您目前的寫法應該只會有fnra這個變數
若考慮到 fnra, fnrb, fnrc, ..... 等這些變數如還是需要
其他地方可能會使用到這些變數名稱
那這樣的話該如何修改會比較好？？

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2012-4-29 22:29 | 只看該作者

回復 6# sleepycat

這就是簡化啊!
把原本需要多個變數改到只需一個變數可以執行

你要問的應該不是這個問題吧!
你是說在迴圈中要得到多個變數來儲存對應的值，對嗎?
這可使用動態陣列來儲存
例如:變數名稱fnra, fnrb, fnrc.....有很多變數
Dim fnr()
for i=0 to 100
ReDim Preserve fnr(i)
fnr(i)=i
next
這樣fnr就是一個含有101個元素的陣列，每個元素就代表一個變數。

學海無涯_不恥下問

TOP

luke

中學生 Rank: 2

帖子: 140
主題: 37
精華: 0
積分: 193
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
註冊時間: 2012-3-28
最後登錄: 2015-7-5

2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章

8^#

發表於 2012-4-29 23:01 | 只看該作者

本帖最後由 luke 於 2012-4-30 19:29 編輯

回復 7# Hsieh

謝謝

TOP