活頁簿能用陣列同時隱藏或出現嗎？ - Excel程式區

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

1^# 跳轉到 »

發表於 2016-5-2 13:17 | 顯示全部帖子

回復 3# ML089

這要三表同時狀態才行,
若是 1,0,1 執行後 0,1,0 還是有一張未隱藏!
不然就以第一張表為依據來判斷!!!

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

2^#

發表於 2016-5-2 14:04 | 顯示全部帖子

回復 6# c_c_lai

ARR = Array("工作表2", "工作表3", "工作表4")
TF = 1 + Sheets(ARR(0)).Visible
For Each xS In ARR
　　Sheets(xS).Visible = TF
Next

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

3^#

發表於 2016-5-3 13:01 | 顯示全部帖子

回復 12# chaoyiho

Arr = Array("Sheet2", "Sheet3", "Sheet4")

( 藍色字段 ) 之內放入指定的工作表[名稱], 以" "包覆, 以[逗點]分隔!!!

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

4^#

發表於 2016-5-3 14:23 | 顯示全部帖子

回復 14# chaoyiho

Dim arr, xS, tf
arr = Array("Sav", "Exh", "J.C.W", "P.C.O", "Pmax", "Stuffing Box", "F.O.", "Liner", "總表")
tf = 1 + Sheets(arr(0)).Visible
For Each xS In arr
　　Sheets(xS).Visible = tf
Next