excel宏实现工作表索引，点击按钮隐藏/显示对应工作表

excel宏实现工作表索引，点击按钮隐藏/显示对应工作表

当单个excel工作簿有很多工作表时，使用起来会有麻烦，虽然excel提供隐藏工作表功能，但点击及查找并不方便。如果能够在一个工作表中实现目录索引功能，点击按钮即可隐藏/显示对应工作表，会非常方便操作和查看。

一、编写宏

1编写一个点击按钮显示/隐藏工作表的按钮宏

Sub click()
For x = 1 To Sheets.Count
If Sheets(x).name = ActiveSheet.Buttons(Application.Caller).Caption Then
If Sheets(x).Visible = 0 Then
Sheets(x).Visible = -1'设置显示
Else
Sheets(x).Visible = 0'设置隐藏
End If
End If
Next x
End Sub

2编写一个隐藏除了索引外全部工作表的点击宏

Sub 隐藏()
For x = 1 To Sheets.Count
If Sheets(x).name <> "炼金配方索引"  Then
   Sheets(x).Visible = 0
End If
Next x
End Sub