自動隱藏活頁薄

mdr0465

各位大大

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

謝謝

mdr0465

回復 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



謝謝

mdr0465

回復 4# 准提部林

准提部林, 你好

可以了, 謝謝你幫忙

mdr0465

回復 4# 准提部林

准提部林,你好
如果我想用同一方法, 但是想將"C3:C100" 的儲存格內里如有數字輸入就將不夠7位數目字的儲存格, 就算動將數字前面補"0" 可以怎樣修改呢?

比如"1233" >>>"0001233"

謝謝

mdr0465

回復  mdr0465

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xS As Worksheet, V
With  ...
准提部林 發表於 2021-11-6 19:35

准提部林,你好
為何我過了一段日子再開啟會失效呢?

mdr0465

回復 9# samwang


Samwang 師兄
請幫忙查看,謝謝

mdr0465

回復 11# samwang


Samwang

可以了, 謝謝你的幫忙