多张sheet表格批量显示与隐藏

阳光暖洋洋

各位大神，求助，希望在索引页实现本工作簿下多张表格的指定显示：
1、我建立了Activex控件的复选框，希望在复选框中勾选，则显示；复选框不勾选，则隐藏；
2、求助如何实现一键显示所有隐藏SHEET。

3190496160

Private Sub CommandButton2_Click()
Dim ar As Variant
Dim d As Object
Dim arr()
Set d = CreateObject("scripting.dictionary")
For Each sh In Sheets
    If sh.Name <> "索引" Then
        d(sh.Name) = ""
    End If
Next sh
For Each ob In ActiveSheet.OLEObjects
    If Left(ob.Name, 8) = "CheckBox" Then
        mc = ob.TopLeftCell.Offset(, -1).Value
        If d.exists(mc) Then
            m = m + 1
            If ob.Object.Value = True Then
                y = y + 1
                Sheets(mc).Visible = True
            Else
                Sheets(mc).Visible = False
            End If
        End If
    End If
Next ob
MsgBox m & Chr(10) & y
End Sub

3190496160

索引中的名称必须跟工作表名称完全一致
成本法评估底稿计算系统-优化.rar (1.23 MB, 下载次数: 13)

2022-12-20 19:56 上传

点击文件名下载附件

阳光暖洋洋

感谢大神，完全满足了我的需求，非常感谢