Vba 将图纸选项卡用作展开/折叠一组选项卡的按钮

我正在使用以下代码（来自）：

突出显示

我试着在没有任何修改的情况下按原样使用代码，它仍然会给我同样的错误

代码中有什么错误？

ShowHide是他给工作表的“vba名称”。 “技术名称”和“显示名称”之间存在差异

一个小小的屏幕截图不仅仅是一句话：

因此，在VBA中，您必须将要“ShowHide”的图纸重命名为“ShowHide”，或者以不同的名称命名，并根据新的选择更改VBA代码中的ShowHide

更新：您必须在代码中对此进行修改

' ShowHide to rename (or rename your sheet under vba with ShowHide)
If ShowHide.Name = "Show My Guts" Then
    ...
    ' ShowHide to rename (or rename your sheet under vba with ShowHide)
    ShowHide.Name = "Hide My Guts"
Else
    For Each sheet In ThisWorkbook.Sheets
        ' ShowHide to rename (or rename your sheet under vba with ShowHide)
        If (sheet.Name <> Results.Name And sheet.Name <> Run.Name And sheet.Name <> ShowHide.Name) Then
            ...
        End If
    Next sheet
    ' ShowHide to rename (or rename your sheet under vba with ShowHide)
    ShowHide.Name = "Show My Guts"
    ...
End If

”要重命名的ShowHide（或使用ShowHide在vba下重命名工作表）
如果ShowHide.Name=“展示我的勇气”，那么
...
'ShowHide以重命名（或使用ShowHide在vba下重命名工作表）
ShowHide.Name=“隐藏我的内脏”
其他的
用于此工作簿中的每张工作表。工作表
'ShowHide以重命名（或使用ShowHide在vba下重命名工作表）
如果（sheet.Name Results.Name和sheet.Name Run.Name和sheet.Name ShowHide.Name），则
...
如果结束
下一页
'ShowHide以重命名（或使用ShowHide在vba下重命名工作表）
ShowHide.Name=“展示我的勇气”
...
如果结束

如果我理解正确，则需要通过替换相应的工作表名称来修改以下行：

如果ShowHide.Name=“Show My Guts”则

，

ShowHide.Name=“Hide My Guts”

，

Sheet4.Activate

，

如果（sheet.Name Results.Name和sheet.Name Run.Name和sheet.Name ShowHide.Name）然后

，

ShowHide.Name=“显示我的勇气”

，

运行。激活

？是的，就是这样。我更新答案以添加您必须更正的行

If ShowHide.Name = "Show My Guts" Then

' ShowHide to rename (or rename your sheet under vba with ShowHide)
If ShowHide.Name = "Show My Guts" Then
    ...
    ' ShowHide to rename (or rename your sheet under vba with ShowHide)
    ShowHide.Name = "Hide My Guts"
Else
    For Each sheet In ThisWorkbook.Sheets
        ' ShowHide to rename (or rename your sheet under vba with ShowHide)
        If (sheet.Name <> Results.Name And sheet.Name <> Run.Name And sheet.Name <> ShowHide.Name) Then
            ...
        End If
    Next sheet
    ' ShowHide to rename (or rename your sheet under vba with ShowHide)
    ShowHide.Name = "Show My Guts"
    ...
End If