详情页设计 Excel VBA 代码-显示工作表与隐藏工作表

应用场景：返回主页面，显示某一个工作表，其余工作表均隐藏，即始终只显示一个工作表。

以下代码显示或者说是回到名称为“Main“的工作表，可以把它放到一个命令按钮里：

'代码基本逻辑：首先，我们把要显示的工作表激活并显示出来，把它的名称存在'一个变量（curSht）中，然后对所有工作表名称进行循环比对，把名称不同于'curSht的所有工作表给它深度隐藏。注意：深度隐藏（xlSheetVeryHidden）后，'用鼠标右键不能取消隐藏。而xlSheetHidden则可以用鼠标右键取消隐藏,详见'代码。Sub BackTo()    Dim Sht As Worksheet     Dim curSht As String    On Error Resume Next    Sheets("Main").Activate    ActiveSheet.Visible = xlSheetVisible   '显示工作表    curSht = ActiveSheet.Name    '遍历所有工作表，详情页设计隐藏不需要显示的工作表    For Each Sht In Excel.ThisWorkbook.Worksheets          If Sht.Name <> curSht Then           '设置工作表对象的Visible属性            'Sht.Visible = xlSheetHidden            Sht.Visible = xlSheetVeryHidden        End If     NextEnd Sub

或者放在某一个模块里，在命令按钮里调用：

图片

隐藏其他工作表，这个跟上面的有点类似，可以用在如下场景：除当前工作表外，还有其他工作表处于显示状态，我现在只要显示当前工作表，其他工作表给我隐藏起来：

Sub xHide()    Dim Sht As Worksheet    Dim curSht As String    curSht = ActiveSheet.Name    ActiveSheet.Visible = xlSheetVisible    For Each Sht In Excel.ThisWorkbook.Worksheets         If Sht.Name <> curSht Then            Sht.Visible = xlSheetVeryHidden        End If    NextEnd Sub

显示所有工作表：

图片

See you next time! 本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。