Question

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

到目前为止，它创建工作表，我想在创建工作表时添加“Master”的超链接，这样当我点击单元格A5（让A5值为“243”时，它会转到“243”的工作表。我尝试了几种方法，但无法使其正常工作。

谢谢你＆amp;新年快乐！

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

Answer 1

要创建超链接，请在Next myCell：

之前添加以下行

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

VBA创建包含超链接

1 个答案: