Excel VBA中如何设置每个座位的A1单元格的超链接？答案

【问题标题】：How to set the hyperlink to the A1 cell of each seat in Excel VBA?Excel VBA中如何设置每个座位的A1单元格的超链接？
【发布时间】：2010-11-24 05:53:34
【问题描述】：

作为Excel席位的状态......

有多个座位。

第一个座位名称是“列表”

其他座位可以从列表表中的超链接中移动。

座位名称分别为“example1”、“example2”。

请教VBA设置超链接到“列表”表到每个座位的A1单元格

【问题讨论】：

标签： excel vba hyperlink

【解决方案1】：

这里的问题很难理解，所以我假设问题如下。

“如何使用 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

【讨论】：

【解决方案2】：

此代码将在“列表”工作表上生成一个菜单，链接到所有工作表的单元格 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

【讨论】：