Warning: file_get_contents(/data/phpspider/zhask/data//catemap/3/flash/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
使用Excel VBA添加超链接_Excel_Vba - Fatal编程技术网

使用Excel VBA添加超链接

使用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.

我试图向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.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更改了此答案!