属性 | 意义 |
---|---|
Add(range,address,subaddr,tip,display) | 新建并返回链接,参数为单元格,目标地址、子地址、屏幕 tip,链接显示文字 |
Delete() | 删除所有链接 |
Count | 包含链接的数量(在若干个单元格内) |
Item | 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 | 链接到的目标的 表名/序号,行号,列号 |