帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-5-24 12:44 | 只看該作者

[發問] (已解決)在不相鄰的工作表做同樣動作

本帖最後由 freeffly 於 2012-2-22 17:01 編輯

我想要對樞紐表B~樞紐表E做同樣的動作
都是複製該張工作表然後修改複製後的工作表名稱然後對複製的樞鈕作群組
有兩各問題
1.用for I =2 to sheets.count 的方式處理好像要讓工作表再一起才能這樣做
如果工作表沒有在一起，可是知道是哪幾工作表名稱要處理有方式讓程式碼簡化嗎
目前是對這些工作表一各一各處理不是用迴圈的方式
2.如果將這些工作表排在一起再用迴圈的方式如for I =2 to sheets.count 處理
複製後的工作表名稱在修改時是不一樣的這各是不是只能在迴圈處理完之後再個別修改
還是可以寫進迴圈?
譬如樞紐表B複製後可能由樞紐表B(2)改成地區別樞紐表C(2)可能改成產品別

不知道這樣的說明各位大大能明白嗎?

樞紐.rar (4.89 KB)

樓主熱帖

字典兩各字還真難理解

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2011-5-24 22:39 | 只看該作者

本帖最後由 luhpro 於 2011-5-24 22:41 編輯

類似這種不依照順序只針對工作表名稱做處理的需求其實最適合用陣列來處理了.

Sub nn()
  Dim vSheetName
  Dim iI%

  vSheetName = Array("樞紐表A", "樞紐表C", "樞紐表E", "樞紐表F")
  For iI = 0 To UBound(vSheetName)
Debug.Print vSheetName(iI)
  Next iI
End Sub

若要動態新增工作表名稱到陣列內請使用以下方式 :
ReDim Preserve vSheetName(UBound(vSheetName) + 1)
vSheetName(UBound(vSheetName)) = "樞紐表G"

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

3^#

發表於 2011-5-25 21:00 | 只看該作者

回復 2# luhpro

陣列我有想到
不過UBOUND這個我就不太會
Debug.Print vSheetName(iI) 這句是什麼意思?
明天上班再來試試看
謝謝大大喔

字典兩各字還真難理解

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

4^#

發表於 2011-5-25 21:55 | 只看該作者

回復 3# freeffly
要查 UBOUND 的功能說明可以先將這幾個字 Mark 起來後按 F1 就可以看到了,
UBOUND(陣列名稱) 是取得該陣列的元素數量, 可以作為 ReDim 擴充該陣列大小的依據.

至於 Debug.print 則是我們在程式設計階段(用VBA編輯器) 按 F8 單步執行以追蹤程式執行過程及變化時,
將一些變數內容或想要看到的資訊透過程式直接顯示在 "即時運算" 視窗的指令,
此功能近似 DOS 視窗指令中的 Echo,
跟 MsgBox 也很像只是資訊所顯示的地方不同.
之所以用此指令是因為不知道你想要怎麼運用那些資料,
那麼只要能顯示出來正確的內容也就表示你能隨意套用它們了.

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

5^#

發表於 2011-5-27 14:56 | 只看該作者

回復 4# luhpro

我都在懷疑是版本問題還是安裝不完全
有些說明查不到
謝謝大大解說

字典兩各字還真難理解

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兔年全勤獎章

6^#

發表於 2011-5-27 15:30 | 只看該作者

回復 5# freeffly
"我都在懷疑是版本問題還是安裝不完全"

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

7^#

發表於 2011-5-27 17:35 | 只看該作者

回復 6# GBKEE

有的沒選項
有的點下去不會出現內容
很怪

字典兩各字還真難理解

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兔年全勤獎章

8^#

發表於 2011-5-27 20:00 | 只看該作者

回復 7# freeffly
"有的沒選項" 是何意思??
"有的點下去不會出現內容" 在何處點下,是何字句?

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

9^#

發表於 2011-5-30 22:18 | 只看該作者

本帖最後由 luhpro 於 2011-5-30 22:35 編輯

回復  GBKEE
有的沒選項
   有的點下去不會出現內容
   很怪
freeffly 發表於 2011-5-27 17:35

剛開始學 Excel 的時候我也有你所說的這種困擾.
尤其是我剛開始用的是公司統一購買的Excel 2000 版本,
所有的VBA指令查詢只秀 10 個項目給你看,
查詢某些字直接就是跟你說找不到資料,
查詢某些字秀出來的又好像跟所查的字不太搭嘎.

現在用2003秀的項目多了,
但也搞不懂查個 application 為什麼沒把 application屬性與 application物件排在最上面還要仔細的找才找的到?
為什麼查 sheet 看到的東西會比查 sheets 還要少?(就算是查 sheet1 也比它多很多)

上述這類情形其實對初學者來說挫折感會比較大. (習慣了網頁搜尋的模式會覺得 Excel 查詢實在有點笨)
所以啦... 多上 "麻辣家族" 爬文或許學的會比較快...

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兔年全勤獎章

10^#

發表於 2011-5-31 10:35 | 只看該作者

回復 9# luhpro

TOP