返回列表 上一主題 發帖

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

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 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

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
2#
發表於 2011-5-25 21:55 | 顯示全部帖子
回復 3# freeffly
要查 UBOUND 的功能說明可以先將這幾個字 Mark 起來後按 F1 就可以看到了,
UBOUND(陣列名稱) 是取得該陣列的元素數量, 可以作為 ReDim 擴充該陣列大小的依據.

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

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
3#
發表於 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

        靜思自在 : 要比誰更受誰．不要比誰更怕誰。
返回列表 上一主題