如何用VBA判断指定单元格为空时自动隐藏此工作表

李佑义

用VBA判断每个工作表B4单元格为空时自动隐藏此工作表，有数据时自动展现。

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.8.2
   
2.     Application.ScreenUpdating = False
   
3.     For Each sht In Sheets
   
4.         If Val(sht.Name) Then
   
5.             st = sht.[b4].Value
   
6.             If st <> Empty Then
   
7.                 sh.Visible = -1
   
8.             Else
   
9.                 sh.Visible = 0
   
10.             End If
    
11.         End If
    
12.     Next
    
13.     Application.ScreenUpdating = True
    
14.     MsgBox "OK！"
    
15. End Sub
    
16. 
    

复制代码

李佑义

ykcbf1100 发表于 2024-8-2 16:50
参与一下。。。

运行错误

小凡、、、

李佑义 发表于 2024-8-2 17:59
运行错误

Visible = -1 和=0 前面是sht.  不是sh，上面大佬应该敲太快漏了

ykcbf1100

小凡、、、 发表于 2024-8-2 18:06
Visible = -1 和=0 前面是sht.  不是sh，上面大佬应该敲太快漏了

对的，疏忽了。

ykcbf1100

李佑义 发表于 2024-8-2 17:59
运行错误

5楼正解。
我改一下吧。

李佑义

ykcbf1100 发表于 2024-8-2 18:36
5楼正解。
我改一下吧。

十分感谢大佬