Как установить гиперссылку на ячейку A1 каждого места в Excel VBA?

Question

Как состояние мест Excel ...

Есть несколько мест.

Имя первого места "list"

Остальные места можно перемещать по гиперссылке из списка.

имя места - "пример1", "пример2".

Пожалуйста, научите VBA устанавливать гиперссылку на лист "list" на ячейку A1 каждого места

Answer 1

Этот код сгенерирует меню на листе « Список », связанное с ячейкой A1 всех листов.

В тексте ссылки указывается имя листа.

Sub Add_Hyperlink()

 Dim wsSheet As Worksheet

 Worksheets("List").Range("A1").Select
  For Each wsSheet In Worksheets
   ActiveCell.Offset(1, 0).Select
   ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
    wsSheet.Name & "!A1", TextToDisplay:="" & wsSheet.Name
 Next wsSheet

End Sub

Answer 2

Трудно понять, о чем здесь идет речь, поэтому я предполагаю, что вопрос заключается в следующем.

"Как я могу использовать VBA для создания гиперссылки в ячейке A1 на каждом листе рабочей книги, чтобы связать ее с листом со списком имен."

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    If ws.Name = "List" Then
        'Do nothing for the list sheet.
    Else
        ws.Hyperlinks.Add Anchor:=ws.Range("A1"), Address:="", _
              SubAddress:="List!A1", TextToDisplay:="Go to List Sheet"
    End If
Next