创建带有超链接的工作表答案

【问题标题】：Creating sheet with hyperlink创建带有超链接的工作表
【发布时间】：2017-05-15 01:59:07
【问题描述】：

我正在使用下面的代码，复制“模板”工作表并根据从 A5 开始的“主”工作表中的单元格重命名它，并将单元格值复制到新创建的工作表中。

它创建工作表。

我想在创建工作表时添加“主”中的超链接，以便在单击单元格 A5 时。假设A5值为“243”，它将进入“243”的工作表。

Sub AutoAddSheet()

    Dim MyCell As Range, MyRange As Range

    Set MyRange = Sheets("Master").Range("A5")
    Set MyRange = Range(MyRange, MyRange.End(xlDown))

    Application.ScreenUpdating = False

    For Each MyCell In MyRange
        Sheets("Template").Copy After:=Sheets(Sheets.Count)
        With Sheets(Sheets.Count)
           .Name = MyCell.Value
           .Cells(2, 1) = MyCell.Value
        End With
    Next MyCell
    Application.ScreenUpdating = True

End Sub

【问题讨论】：

欢迎来到 SO :)。 1) 你在这里问了两个问题。最好一次只回答一个问题。这样对每个人来说都更容易。也就是说，您可以编辑此问题并发布有关超链接的新问题（请提供更清晰的详细信息。）2) 但是，当我在“主”中添加另一列时，出现了一个错误，因为它无法检查重复 - 你能更具体一点吗？目前尚不清楚您的代码存在什么问题。

标签： excel hyperlink vba

【解决方案1】：

要创建超链接，请在 Next myCell 之前添加以下行：

MyCell.Hyperlinks.Add Anchor:=MyCell, Address:="", SubAddress:="'" & MyCell.Value & "'!A1"

【讨论】：

YowE3K - 非常感谢！