使用VBA将超链接插入到Excel 2007中
我的工作表“input”范围“ B11
”已生成目标url:
file:///C:/Results/H1230-01%20VEF%201288.doc
我的工作表“input”范围“ B10
”已生成文本:
H1230-01 VEF 1288
如何自动插入目标url的超链接与单元格中显示的文本?
Worksheets("VEF").Range("m65536").End(xlUp).Offset(1, 0).Select
使用HyperLink公式示例:
=HYPERLINK("path","Text To Display")
或者用代码:
Range.Formula = "=HYPERLINK(""path"",""Text To Display"")
或使用您的实际参考使用这个公式:
=HYPERLINK(B11,B10)
你也可以使用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