Question

我想创建代码，当单击该单元格时，会在单元格中插入超链接。

我使用以下代码：

If Target.Column = Range("BL1").Column Then
    If Target.Row > 14 And Target.Value = "Attach" Then

    MsgBox "This is fun"
    Range("BL" & Target.Row).Formula = "=HYPERLINK(""\\UKSH000-file06\purchasing\New_Supplier_Set_Ups_&_Audits\ATTACHMENTS\"" & Range(""B"" & Active.Row).Value & "",""Attached"")"

    End If
End If

我想要的是能够使用文本构建我的超链接路径的一部分，然后使用Range（＆＃34; B＆＃34;＆amp; Active.Row）获取其余的超链接url，这将获得来自活动行上单元格的值，并完成超链接URL。

我得到一个＆＃34;对象未定义错误＆＃34;我这样做的消息。导致该错误的是什么？

Answer 1

引号太多了。

请尝试这个：

Dim ws As Worksheet
ws = Target.Parent

    If Target.Column = Range("BL1").Column Then
        If Target.Row > 14 And Target.Value = "Attach" Then

        MsgBox "This is fun"
        ws.Hyperlinks.Add _
          Anchor:=Range("BL" & Target.Row), _
          Address:="\\UKSH000-file06\purchasing\New_Supplier_Set_Ups_&_Audits\ATTACHMENTS\" & _
                   Range("B" & Active.Row).Value, _
          TextToDisplay:="Attached"

        End If
    End If

Answer 2

由此项引起的代码错误：

& Range(""B"" & Active.Row).Value

内部超链接公式。

当单击单元格时，excel vba插入带有单元格引用的超级链接到单元格中？

2 个答案: