超級連結方法如下: 第一,按照最常用的方法對“天干”worksheet中的對應名稱建立超連結。 第二,按Alt+F11,啟動VBA編輯,點選左側“天干地支”工作簿下的“天干”worksheet,在右側開啟的編輯框中複製以下程式碼: Private Sub Worksheet_Activate() Dim sht As Worksheet For Each sht In Worksheets If sht.Name <> Sheets(1).Name Then sht.Visible = xlSheetVeryHidden Next sht End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Sheets(Target.Value).Visible = xlSheetVisible Sheets(Target.Value).Select End Sub 第三,執行程式碼並儲存退出。
超級連結方法如下: 第一,按照最常用的方法對“天干”worksheet中的對應名稱建立超連結。 第二,按Alt+F11,啟動VBA編輯,點選左側“天干地支”工作簿下的“天干”worksheet,在右側開啟的編輯框中複製以下程式碼: Private Sub Worksheet_Activate() Dim sht As Worksheet For Each sht In Worksheets If sht.Name <> Sheets(1).Name Then sht.Visible = xlSheetVeryHidden Next sht End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Sheets(Target.Value).Visible = xlSheetVisible Sheets(Target.Value).Select End Sub 第三,執行程式碼並儲存退出。