如何建立工作簿中表的链接？

2025-12-23 20:37 来源：快学会计网阅读量：285

导读：【问题】如何将工作薄中的全部工作表都在sheet1中建上链接？【解答】代码： Dim Pt As Range Dim i As Integer With Sheet1 Set Pt = .Range(a1) For i = 2 To ThisWorkbook.Worksheets.Count .Hyperlinks.Add Anchor:=Pt

【问题】
　　如何将工作薄中的全部工作表都在sheet1中建上链接？
　　【解答】
　　代码：
　　Dim Pt As Range
　　Dim i As Integer
　　With Sheet1
　　Set Pt = .Range("a1")
　　For i = 2 To ThisWorkbook.Worksheets.Count
　　.Hyperlinks.Add Anchor:=Pt‚ Address:=""‚ SubAddress:=Worksheets(i).Name & "!A1"
　　Set Pt = Pt.Offset(1‚ 0)
　　Next i
　　End With
　　End Sub

上一篇： Excel建立采购成本的分析表
下一篇： Excel-生成不重复的随机数组合

如何建立工作簿中表的链接？

导读：【问题】 如何将工作薄中的全部工作表都在sheet1中建上链接？ 【解答】 代码： Dim Pt As Range Dim i As Integer With Sheet1 Set Pt = .Range(a1) For i = 2 To ThisWorkbook.Worksheets.Count .Hyperlinks.Add Anchor:=Pt

导读：【问题】如何将工作薄中的全部工作表都在sheet1中建上链接？【解答】代码： Dim Pt As Range Dim i As Integer With Sheet1 Set Pt = .Range(a1) For i = 2 To ThisWorkbook.Worksheets.Count .Hyperlinks.Add Anchor:=Pt