Question

我的工作表“输入”范围“B11”已生成目标网址：

file:///C:/Results/H1230-01%20VEF%201288.doc

我的工作表“输入”范围“B10”生成了文字：

H1230-01 VEF 1288

如何在单元格中自动插入目标网址的超链接以及显示的文字？：

Worksheets("VEF").Range("m65536").End(xlUp).Offset(1, 0).Select

Answer 1

使用HyperLink公式示例：

=HYPERLINK("path","Text To Display")

或使用代码：

Range.Formula = "=HYPERLINK(""path"",""Text To Display"")

或使用您的实际参考使用此公式：

=HYPERLINK(B11,B10)

Answer 2

此外，您可以使用Hyperlink.Add方法，例如Excel-Help

中的此示例

With Worksheets("VEF")
    .Hyperlinks.Add Anchor:=.Range("m65536").End(xlUp).Offset(1, 0), _
        Address:=.Range("B11"), _
        ScreenTip:="Microsoft Web Site", _
        TextToDisplay:=.Range("B10")
End With

With Worksheets(1)
    .Hyperlinks.Add Anchor:=.Range("a5"), _
        Address:="http://example.microsoft.com", _
        ScreenTip:="Microsoft Web Site", _
        TextToDisplay:="Microsoft"
End With

使用VBA将超链接插入excel 2007

2 个答案: