盼盼资源网欢迎您--盼盼的家园www.panpan.org

 找回密码
 立即注册
查看: 194|回复: 0

一次性显示所有被隐藏的工作薄的代码

[复制链接]

403

主题

409

帖子

1510

积分

超级版主

Rank: 8Rank: 8

积分
1510
发表于 2018-1-1 21:30:00 | 显示全部楼层 |阅读模式
一次性显示所有被隐藏的工作薄的代码

  Sub ShowAllMySheets()

   MsgBox "使当前工作簿中的所有工作表都显示(即将隐藏的工作表也显示)"

   Dim ws As Worksheet

   For Each ws In Sheets

    ws.Visible = True

   Next ws

  End Sub

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|盼盼资源网