excel - 使用 VBA 在 excel 2007 中插入超链接

Question

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

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

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

H1230-01 VEF 1288

如何使用单元格中显示的文本自动插入目标 URL 的超链接？：

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

Answer 1

使用超链接公式示例：

=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