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

freeffly

我想要對樞紐表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)

下載次數: 7

2011-5-24 12:43

luhpro

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

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"

freeffly

回復 2# luhpro



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

luhpro

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

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

freeffly

回復 4# luhpro


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

GBKEE

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

下載 (45.78 KB)

2011-5-27 15:30

freeffly

回復 6# GBKEE


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

GBKEE

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

luhpro

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

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

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

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

GBKEE

回復 9# luhpro

   

下載 (43.88 KB)

2011-5-31 10:35