设为首页收藏本站
开启辅助访问 切换到宽版
登录 立即注册
快捷导航
搜索
表格智创网»首页 › 表格智创网 › 实战技术 › 取消隐藏VBA
返回列表 发新帖
查看: 1930|回复: 0

取消隐藏VBA

[复制链接]
nnsea

977

主题

1093

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
15932
发表于 2019-10-22 08:49:47 | 显示全部楼层 |阅读模式
原创表格，已上架到我们店铺，或许有你需要的！<点击进入获取>
Sub 取消隐藏()
For x = 1 To Sheets.Count
If Sheets(x).Name <> "总表" Then
   Sheets(x).Visible = -1
End If
Next x
End Sub

回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

表格智创网

网站简介：表格智创网，是一家以表格设计和技能分享的专业社区，由会计帮帮网投资建设，尽专业，助提高专业技能。

表格智创网欢迎您！

联系我们

  • 工作时间：早上9：00-16：00
  • 客服电话：18668755857
  • 本站网址：www.excelwps.com
  • 淘宝店址：kjbbw.taobao.com

Powered by Discuz! X3.4 © 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表