[已解决][求助]超连接批量修改和相对引用问题!

th945

有2个问题想问问大家,谢谢了!

1、如何批量修改已有的超连接？

2、超连接里的相对引用和绝对引用如何区分！

我只需要在一个工作薄中的两个工作表之间建立超连接。

最佳答案

月排行榜 / 总排行榜

slyrabbit

2008-12-12 00:50

批量修改超级链接需要根据你的实际情况考虑，没有专门的功能。

超级链接中的相对地址就是同目录下的地址，决定地址就是固定目录下的地址

我这有个99版帮我写的批量出来超级链接的过程，希望对你有用

Sub 恢复超级链接()
Dim sh As Worksheet
Dim hh As Hyperlink
For Each sh In ThisWorkbook.Worksheets
    If sh.Hyperlinks.Count Then
        For Each hh In sh.Hyperlinks
            hh.Address = Mid$(hh.Address, InStr(hh.Address, "附件"), 255)
''把这里改成你自己的语句            
        Next
    End If
Next
       
End Sub

跳转到最佳答案楼层

th945

没有人回答啊,有人帮忙解释下塞.

slyrabbit

批量修改超级链接需要根据你的实际情况考虑，没有专门的功能。

超级链接中的相对地址就是同目录下的地址，决定地址就是固定目录下的地址

我这有个99版帮我写的批量出来超级链接的过程，希望对你有用

Sub 恢复超级链接()
Dim sh As Worksheet
Dim hh As Hyperlink
For Each sh In ThisWorkbook.Worksheets
    If sh.Hyperlinks.Count Then
        For Each hh In sh.Hyperlinks
            hh.Address = Mid$(hh.Address, InStr(hh.Address, "附件"), 255)
''把这里改成你自己的语句            
        Next
    End If
Next
       
End Sub