每当添加新工作表时，在Excel中创建指向工作表的超链接

我想知道Excel中是否有一个选项，允许您在创建任何其他工作表后，在第一个工作表（我们称之为“主工作表”）中创建指向其他工作表的超链接。因此，一旦我创建了一个新的工作表，它的超链接就会出现在主工作表中。

• 右键单击要链接的单元格，然后单击

  link

• 这将打开插入超链接对话框

• 在左侧，单击

  放置在此文档中

• 选择工作表并输入单元格名称

您可以通过编程方式使用

您可以通过工作簿模块的

新闻单

事件自动将链接添加到新工作表中或从新工作表中添加链接

还可以添加指向外部工作簿的链接，包括在线发布的工作簿

---

下面是一个粗略的代码示例，您可以使用该代码在每次创建新工作表时在“主”工作表上创建链接：

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Dim shtName As String, ws As Worksheet, rg As Range
    shtName = InputBox("Enter name for new worksheet:")
    Sh.Name = shtName
    Set ws = Sheets("main")
    Set rg = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    rg = shtName
    ws.Hyperlinks.Add rg, "", shtName & "!A1", , shtName
End Sub

---

更多信息：

• MS Office支持：
• 救生索：
• TechRecipes：
• MS Office支持：
• MSDN：
• 分区计划大纲图：
• 右键单击要链接的单元格，然后单击

  link

• 这将打开插入超链接对话框

• 在左侧，单击

  放置在此文档中

• 选择工作表并输入单元格名称

您可以通过编程方式使用
您可以通过工作簿模块的

新闻单

事件自动将链接添加到新工作表中或从新工作表中添加链接
还可以添加指向外部工作簿的链接，包括在线发布的工作簿

---

下面是一个粗略的代码示例，您可以使用该代码在每次创建新工作表时在“主”工作表上创建链接：

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Dim shtName As String, ws As Worksheet, rg As Range
    shtName = InputBox("Enter name for new worksheet:")
    Sh.Name = shtName
    Set ws = Sheets("main")
    Set rg = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    rg = shtName
    ws.Hyperlinks.Add rg, "", shtName & "!A1", , shtName
End Sub

---

更多信息：
• MS Office支持：
• 救生索：
• TechRecipes：
• MS Office支持：
• MSDN：
• 分区计划大纲图：
创建工作表菜单 创建工作表菜单

---

我想你必须在VBA中这样做。我想你必须在VBA中这样做。我想OP意味着在创建新工作表时自动创建超链接。@FoxFireandBurnsSandburns-是的，我发布得有点过早，我添加了更多信息和链接。我的观点是，人们可以简单地录制一个宏来捕获添加的工作表，然后在

新闻工作表

事件上运行该宏。确实如此，但我之所以发布它，是因为我看到了否决票，我想这是因为that@FoxfireAndBurnsAndBurns我很感激，谢谢。我添加了一些代码。我认为OP意味着在创建新工作表时自动创建超链接。@FoxFireandBurnsSandburns-是的，我发布得有点过早，我添加了更多信息和链接。我的观点是，人们可以简单地录制一个宏来捕获添加的工作表，然后在

新闻工作表

事件上运行该宏。确实如此，但我之所以发布它，是因为我看到了否决票，我想这是因为that@FoxfireAndBurnsAndBurns我很感激，谢谢。我添加了一些代码。

Private Sub Worksheet_Activate()
  WsMenu
End Sub