Excel VB的Hyperllink在第一张表resthide

我有一个有110个工作表的工作簿。

第一张纸是主要的，其中包含到其他纸张的超链接。 我需要编写一个应该隐藏除第一个主表以外的其他表的代码。 在完成我的工作后，它应该去第一张表，rest其他隐藏。 我得到了下面的代码：

Private Sub Worksheet_Activate() Dim sh As Worksheet For Each sh In ThisWorkbook.Sheets If sh.Name <> "Summary" Then sh.Visible = xlSheetHidden End If Next sh End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Select Case Target.Address Case "$A$1" Sheets("100% Complete").Visible = True Sheets("100% Complete").Activate Case "$A$2" Sheets("Almost Complete").Visible = True Sheets("Almost Complete").Activate End Select End Sub 

但为此我必须写110个案例。 任何可以避免这种情况或取代大小写的东西？

Answer 1

 Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink) Dim x As Integer With Target x = InStr(.Range, "!") If x > 0 Then Worksheets(Left(.Range, x - 1)).Visible = xlSheetVisible Else Worksheets(.Range).Visible = xlSheetVisible End If End With End Sub