excel vba在单元格被点击时插入单元格引用的超链接？

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 

我要的是能够建立部分文本超链接我的路径，然后得到的超级链接URL的使用范围（“B”休息& Active.Row），它将从活动行的单元格中获取值并完成超链接url。

当我这样做时，出现“对象未定义错误”消息。什么导致了这个错误？

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 

内超链接公式。