создать гиперссылку на другую вкладку в том же рабочем листе с тем же индексом в Excel

Question

• У меня есть три вкладки в листе Excel, MAIN, SUB1 и SUB2.

• SUB1 содержит столбец TC со значениями TC1, TC2, ... TC30.

• Хотя SUB2 содержит столбец TC со значениями TC31, TC32, ... TC90.

• Вкладка MAIN содержит столбец TC со значениями TC1 ... TC90.

* Мне нужна универсальная формула так, что если пользователь нажимает на ТС1 (ТК колонке SUB1) гиперссылка должна принять его ТС1 в колонке НК MAIN (и наоборот).

Answer 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