返回列表 上一主題 發帖

[發問] 活頁簿能用陣列同時隱藏或出現嗎？

chaoyiho

帖子
51 
主題
9 
精華
0 
積分
65 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
20 
註冊時間
2016-3-30 
最後登錄
2016-7-21 
1# 跳轉到 »
發表於 2016-5-3 12:29 | 顯示全部帖子
回復  c_c_lai


ARR = Array("工作表2", "工作表3", "工作表4")
TF = 1 + Sheets(ARR(0)).Visible
F ...
准提部林 發表於 2016-5-2 14:04


所以請教前輩 像是我這樣的落落長表單，也可以用您的方式做隱藏嗎?
  1. Sheets("Sav").Select
  2.     ActiveWindow.SelectedSheets.Visible = False
  3.     Sheets("Exh").Select
  4.     ActiveWindow.SelectedSheets.Visible = False
  5.     Sheets("J.C.W").Select
  6.     ActiveWindow.SelectedSheets.Visible = False
  7.     Sheets("P.C.O").Select
  8.     ActiveWindow.SelectedSheets.Visible = False
  9.     Sheets("Pmax").Select
  10.     ActiveWindow.SelectedSheets.Visible = False
  11.     Sheets("Stuffing Box").Select
  12.     ActiveWindow.SelectedSheets.Visible = False
  13.     Sheets("F.O.").Select
  14.     ActiveWindow.SelectedSheets.Visible = False
  15.     Sheets("Liner").Select
  16.     ActiveWindow.SelectedSheets.Visible = False
  17.     Sheets("總表").Select
複製代碼

TOP

chaoyiho

帖子
51 
主題
9 
精華
0 
積分
65 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
20 
註冊時間
2016-3-30 
最後登錄
2016-7-21 
2#
發表於 2016-5-3 13:57 | 顯示全部帖子
回復 13# 准提部林

謝謝前輩的回答 可是我不明白的是
  1. Dim arr As Variant, xS As Variant

  3.     Static tf As Boolean

  5.    
  6.     tf = Not tf

  8.     arr = Array("Sav", "Exh", "J.C.W", "P.C.O", "Pmax", "Stuffing Box", "F.O.", "Liner", "總表")

  10.         tf = 1 + Sheets(arr(0)).Visible
  11.         
  12.     For Each xS In arr
  13.    
  14.         Sheets(xS).Visible = tf
複製代碼
為何這樣的設定之下跟其他東西結合後會出現錯誤代碼91呢?



應該是跟其他程式碼無關才對阿?

TOP

chaoyiho

帖子
51 
主題
9 
精華
0 
積分
65 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
20 
註冊時間
2016-3-30 
最後登錄
2016-7-21 
3#
發表於 2016-5-3 14:46 | 顯示全部帖子
回復 15# 准提部林

嘗試過後的確可行!!

又學到知識了 感謝前輩!!

另外我有發問一個新問題

也是跟這個有關係

如果前輩不嫌麻煩 還請前輩至新問題指教

非常感謝!

TOP

chaoyiho

帖子
51 
主題
9 
精華
0 
積分
65 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
20 
註冊時間
2016-3-30 
最後登錄
2016-7-21 
4#
發表於 2016-5-4 08:36 | 顯示全部帖子
回復 17# c_c_lai

謝謝前輩的回答
我會持續的鑽研!
有問題也請其輩不厭其煩的指教!
謝謝前輩

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題