使用Excel VBA添加超链接
我试图向excel单元格添加超链接,如下所示,但出现错误:使用Excel VBA添加超链接,excel,vba,Excel,Vba,我试图向excel单元格添加超链接,如下所示,但出现错误: rng.Formula = "=HYPERLINK(cell.Offset(0, 3).Value,"">"")" 基本上,超链接位于另一个单元格中,我希望文本“>”出现在新的超链接单元格中。您缺少一些双引号: Sub dural() Dim rng As Range, cell As Range Set rng = Range("A1") Set cell = Range("A2") rng.
rng.Formula = "=HYPERLINK(cell.Offset(0, 3).Value,"">"")"
基本上,超链接位于另一个单元格中,我希望文本
“>”
出现在新的超链接单元格中。您缺少一些双引号:
Sub dural()
Dim rng As Range, cell As Range
Set rng = Range("A1")
Set cell = Range("A2")
rng.Formula = "=HYPERLINK(""" & cell.Offset(0, 3).Value & ""","">"" )"
End Sub
例如:
尝试使用超链接集合:
Sheet1.Hyperlinks.Add Sheet1.Range("A1"), "http://longLinkAddressHere", , , ">"
rng和细胞之间的关系是什么?无。。。rng是新表中的一个范围。单元格是旧工作表中的一个范围。我的最终公式是这样的,但在运行它时出现错误rng2.Offset(0,1)。公式=“=HYPERLINK(”“&cell.Offset(0,3)。Value&”“,”“>”)如果单元格的定义不那么简单,你确定这种语法有效吗?@JoannaMikalai在公式中使用字符串之前,请尝试MsgBox该字符串。你指的是哪一个字符串?当我在messagebox中输入字符串时,它看起来很好,但当我在语法中使用它时,正如我所说,它会给出一个错误ok,这实际上是完美的!抱歉,Gary更改了此答案!