sheet1不显示也没有隐藏

vleexhya

各位老师好！

我有一个代码是对sheet(1)操作的，但运行没有反应。
经查，在VBAproject里有一个sheet1，但是正常看不到，也没有隐藏，只有查看代码才看到。具体见附件。
请各位老师帮忙解惑，多谢！
另外，如果只对显示的第一个表格操作 ，with 。。。end with 调用sheet表的代码如何写，多谢！

半百

代码窗口里，选择sheet1，属性里的Visible值设为-1即显示，0为隐藏，但可以在工作表中点右键选择取消隐藏，2为深度隐藏，只能在代码窗口选择取消隐藏，或用代码设置。

loirol

代码界面按f4调出属性，这种隐藏方式叫深度隐藏，或者跑一遍右边的代码也能恢复

vleexhya

刚在网上搜了一下：
解决excel下表中sheet1 、2等不见的问题
1.点击文件-选项-高级-此工作簿的显示选项（都打✔）
2.视图查看是否隐藏 隐藏了就选择重新隐藏
3若以上都没问题，还是不出现。点击视图-新建窗口就出现了
------------------
用第3条，关闭EXCEL后再打开，看不见的sheet1消失，不知道老师们知道这是怎么产生的吗？如何避免。谢谢！

shiruiqiang

loirol

好家伙，搞半天教他的方法是一点不看

半百

ykcbf1100

附件供参考。。。

ykcbf1100

1. Sub ykcbf()    '//定位可见表的第一个表
   
2.     Set ws = ThisWorkbook
   
3.     Dim c As New Collection
   
4.     For Each sht In ws.Sheets
   
5.         If sht.Visible = -1 Then ' 检查是否为可见工作表
   
6.             c.Add sht.Name
   
7.         End If
   
8.     Next sht
   
9.     MsgBox "可见表的第一个表的表名是：" & c(1)
   
10. End Sub
    

复制代码

vleexhya

loirol 发表于 2025-4-3 09:17
好家伙，搞半天教他的方法是一点不看

老师们的回复可能在审核，我没法看到。所以我网上操作成功后第一时间把方法发上来，以便有类似问题的人看到。