[發問] 在VBA中，如何使用巨集隱藏部份工作表、及取消隱藏全部工作表？

請問各位先進在VBA中，如何使用巨集隱藏部份工作表、及取消隱藏全部工作表？
假設有15個工作表，A組1.2.3工作表、B組4.5.6工作表、C組7.8.9工作表、D組10.11.12工作表、E組13.14.15
巨集1：A、B工作表不隱藏，其他C、D、E工作表隱藏。
巨集2：A、C工作表不隱藏，其他B、D、E工作表隱藏。
巨集3：A、D工作表不隱藏，其他B、C、E工作表隱藏。
巨集4：A、E工作表不隱藏，其他B、C、D工作表隱藏。

有找到隱藏/取消隱藏的VBA，但不知如何執行部份、全部
Sub UnhideSheet()
Sheets("Sheet1").Visible = True
End Sub

Sub HideSheet()
Sheets("Sheet1").Visible = False
End Sub

請各位先進不吝指教。謝謝。

goner

中學生 Rank: 2

帖子: 22
主題: 1
精華: 0
積分: 71
點名: 48
作業系統: Windows 11
軟體版本: Office 2021
閱讀權限: 20
性別: 男
註冊時間: 2021-12-10
最後登錄: 2024-4-26

2^#

發表於 2022-12-20 15:12 | 顯示全部帖子

感謝Andy2483先進的解答
以上VBA程式碼基本上可以使用，有將V替換掉，輸入0、4正常運作。
V = ",工作表1,工作表2,工作表3,工作表4,工作表5,工作表6,工作表7,工作表8,工作表9,工作表10,工作表11,工作表12,工作表13,工作表14,工作表15"
配合 Sub 收集15個工作表名() 替換成
V = [A1]

但使用上輸入1、2、3皆會在這行出現錯誤 Sheets(G3).Visible = False ，錯誤提示 [陣列索引超出範圍]，
錯誤後 E組工作表不會執行到隱藏。

'執行下列程式碼可取得 15個工作表名的字串
Sub 收集15個工作表名()
Dim i&, Na$
For i = 1 To 15
Na = Na & "," & Sheets(i).Name
Next
Workbooks.Add <<測試時無使用新增工作表，在原活頁簿新增 [工作表1] 使用遇以上問題。
[A1] = "V = """ & Na & """"
End Sub
'把 15個工作表名的字串與上方紅字置換掉

請問如何調整解決，謝謝。:)

TOP

goner

中學生 Rank: 2

帖子: 22
主題: 1
精華: 0
積分: 71
點名: 48
作業系統: Windows 11
軟體版本: Office 2021
閱讀權限: 20
性別: 男
註冊時間: 2021-12-10
最後登錄: 2024-4-26

3^#

發表於 2022-12-20 16:54 | 顯示全部帖子

本帖最後由 goner 於 2022-12-20 16:55 編輯

感謝Andy的熱心幫忙以及各位的回覆，現在找到原因囉^^
檢視 [區域變數] 視窗，發現其中有個變數多了一個 "雙引號，而導致無法正確判斷工作表名稱，調整後已可正常使用功能。

Option Explicit
Sub 工作表顯示隱藏控制()
Application.ScreenUpdating = False
Dim N%, i&, xR, V, Y, Z, No, G1, G2, G3
No = InputBox("請輸入 0~4 數字!", "工作表顯示隱藏控制", 0)
If No < 0 Or No > 4 Then Exit Sub
Set Y = CreateObject("Scripting.Dictionary")
V = [A1] ' 這裡配合巨集收集15個工作表名() 使用，蒐集目前活頁簿所有工作表名稱。
V = Split(V, ",")
For Each xR In [A1:E1]
Z = Split(xR.Address, "$")(1)
Y(Z) = Array(V(1 + N), V(2 + N), V(3 + N))
N = N + 3
Next
For Each xR In ActiveWorkbook.Worksheets
xR.Visible = True
Next
If No = 0 Then GoTo 111:
Select Case No
Case 1: G1 = Y("C"): G2 = Y("D"): G3 = Y("E")
Case 2: G1 = Y("B"): G2 = Y("D"): G3 = Y("E")
Case 3: G1 = Y("B"): G2 = Y("C"): G3 = Y("E")
Case 4: G1 = Y("B"): G2 = Y("C"): G3 = Y("D")
End Select
Sheets(G1).Visible = False
Sheets(G2).Visible = False
Sheets(G3).Visible = False
111:
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Set Y = Nothing
Erase V
End Sub
'執行下列程式碼可取得 15個工作表名的字串
Sub 收集15個工作表名()
Dim i&, Na$
For i = 1 To 15
Na = Na & "," & Sheets(i).Name
Next
'Workbooks.Add ' 以原有活頁簿使用，所以不新增活頁簿。
[A1] = "V=""" & Na & "" ' 這裡有做調整。原[A1] = "V = """ & Na & """" 變數會多了一個 "雙引號，而導致無法正確判斷工作表名稱。
End Sub
'把 15個工作表名的字串與上方紅字置換掉