Hyperlinks 集合对象

属性 意义
Add(range,address,subaddr,tip,display) 新建并返回链接,参数为单元格,目标地址、子地址、屏幕 tip,链接显示文字
Delete() 删除所有链接
Count 包含链接的数量(在若干个单元格内)
Item Hyperlink 对象集合

Hyperlink 对象

属性 意义
Follow(newWin) 打开链接,参数是是否开新窗口
Address 链接目标地址
AddToFavorites() 将地址添加到收藏夹

在一个单元格设置链接到另一单元格

Sub SetHyperlink(t1, i, j, t2, a, b)

   Dim ra As Range
   Set ra = ActiveWorkbook.Worksheets(t1).Cells(i, j)
   Address = ActiveWorkbook.Worksheets(t2).Name & "!" & _
             ActiveWorkbook.Worksheets(t2).Cells(a, b).Address(True, True, xlA1)
   ra.Hyperlinks.Add ra, "", Address

End Sub
参数 意义
t1,i,j 设置链接的 表名/序号,行号,列号
t2,a,b 链接到的目标的 表名/序号,行号,列号