自動隱藏活頁薄

各位大大

請問如何可以在sheets "HS BANK BOOK #395" 的C3 儲存格輸入"open" 就可以自動將"PV,RV,JV,COA"的工作表自動浮現,
如果C3 儲存格不是"open"的字就會自動非常隱藏?

謝謝

bank book.rar (27.68 KB)

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

2^#

發表於 2021-11-6 11:23 | 只看該作者

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xS As Worksheet, V
With Target
   If .Address <> "$C$3" Then Exit Sub
   V = xlSheetVeryHidden
   If UCase(.Value) = "OPEN" Then V = xlSheetVisible
   Application.ScreenUpdating = False
   For Each xS In Sheets(Array("PV", "RV", "JV", "COA"))
      If xS.Visible <> V Then xS.Visible = V
   Next
End With
End Sub

TOP

mdr0465

中學生 Rank: 2

帖子: 163
主題: 45
精華: 0
積分: 246
點名: 27
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2024-9-14

3^#

發表於 2021-11-6 18:16 | 只看該作者

本帖最後由 mdr0465 於 2021-11-6 18:18 編輯

回復 2# 准提部林

准提部,師兄你好

謝謝你的回覆,

當我輸入"open" 是沒有問題可以隱藏工作表, 但當我在儲存格沒有"open"的文字時就會出現error 請問怎樣可以修改呢?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xS As Worksheet, V
With Target
   If .Address <> "$C$1" Then Exit Sub
   V = xlSheetVeryHidden
   If UCase(.Value) = "OPEN" Then V = xlSheetVisible
   Application.ScreenUpdating = False
   For Each xS In Sheets(Array("PV", "RV", "JV", "COA"))
      If xS.Visible <> V Then xS.Visible = V  ' 問題出現在這一句
   Next
End With
End Sub

謝謝

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

4^#

發表於 2021-11-6 19:35 | 只看該作者

回復 3# mdr0465

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xS As Worksheet, V
With Target
   If .Address <> "$C$1" Then Exit Sub
   V = 2
   If UCase(.Value) = "OPEN" Then V = -1
   Application.ScreenUpdating = False
   For Each xS In Sheets(Array("PV", "RV", "JV", "COA"))
      If xS.Visible <> V Then xS.Visible = V  ' 問題出現在這一句
   Next
End With
End Sub

TOP

mdr0465