VBA使用超鏈接創建表格

這是我第一個VBA項目。我正在使用下面的代碼，複製「模板」工作表，並根據從「A5」開始的「主」工作表中的單元格對其重命名，並將單元格值複製到新創建的工作表。VBA使用超鏈接創建表格

它迄今爲止創建工作表，我想創建工作表時，添加從「主」的超鏈接，以便當我點擊單元格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

來源

2016-12-30 Simon M

歡迎來到SO :)。 ** 1）**你在這裏問了兩個問題。如果你一次只堅持一個問題，這是最好的。這對每個人都更容易。也就是說，你可以編輯這個問題併發佈一個關於超鏈接的新問題（並且請提供更加清晰的細節。）** 2）** *但是當我在「主」中添加另一列時，出現了錯誤不檢查重複* - 你可以請更具體。目前還不清楚您的代碼存在什麼問題。 –

爲了創建超鏈接，只需添加以下行在您之前Next myCell：

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

來源

2016-12-30 22:18:33 YowE3K

YowE3K - 非常感謝！ –

VBA使用超鏈接創建表格

回答

相關問題