Comment définir le lien hypertexte à la cellule A1 de chaque siège dans Excel VBA?

Question

En tant qu'état des sièges d'Excel ...

Il existe plusieurs sièges.

Le nom du premier siège est « liste »

Les autres sièges obtenir possible de se déplacer dans la feuille de lien hypertexte liste.

le nom du siège est "example1", le "example2".

S'il vous plaît enseigner hyperlien VBA paramètre à la feuille « liste » à la cellule A1 de chaque siège

Answer 1

Il est difficile de comprendre ce qui est demandé ici, donc je vais supposer que la question est la suivante. "Comment puis-je utiliser VBA pour créer un lien hypertexte dans la cellule A1 sur chaque feuille d'un classeur pour lier de nouveau à la feuille avec la liste de noms."

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 

Answer 2

Ce code générera un menu sur la 'Liste ' feuille de liaison à la cellule A1 de toutes les feuilles de calcul.

Le texte du lien est défini sur le nom de la feuille de calcul.

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