在 Excel 中具有相同索引的同一工作表中创建指向另一个选项卡的超链接

【问题标题】：create a hyperlink to another tab in the same worksheet having same index in Excel在 Excel 中具有相同索引的同一工作表中创建指向另一个选项卡的超链接
【发布时间】：2013-03-04 09:36:11
【问题描述】：

我在名为 MAIN 、SUB1 和 SUB2 的 Excel 工作表中有三个选项卡。
SUB1 包含一个 TC 列，其值为 TC1、TC2、...TC30。
而 SUB2 包含一个 TC 列，其值为 TC31、TC32、...TC90。
MAIN 选项卡包含一个 TC 列，其值为 TC1...TC90。

*我需要一个通用公式，这样如果用户点击 TC1（SUB1 的 TC 列），一个超链接应该将它带到 MAIN 的 TC 列中的 TC1 （反之亦然）。

【问题讨论】：

标签： excel excel-2007 excel-formula excel-2010 vba

【解决方案1】：

试试这个代码。您需要将其放在ThisWorkbook 模块中：

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Dim wsTarget As Worksheet
    If Left(Target, 2) <> "TC" Then Exit Sub

    On Error GoTo ErrorHandler1
    If UCase(Left(Sh.Name, 3)) = "SUB" Then
        Set wsTarget = Sheets("Main")
    Else
        Set wsTarget = Sheets("SUB" & _
            IIf(CInt(Mid(Target.Value, 3)) <= 30, 1, 2))
    End If
    wsTarget.Activate
    On Error GoTo ErrorHandler2

    wsTarget.Cells.Find(Target.Value, wsTarget.Range("A1")).Activate
    Exit Sub

ErrorHandler1:
    MsgBox "Cannot identify target sheet from " & Target
    Exit Sub
ErrorHandler2:
    MsgBox "Cannot find " & Target & " in sheet " & wsTarget.Name
End Sub

【讨论】：