Question

最有可能是一个非常简单的解决方案，但我正在疯狂地尝试使用Range和Cells的所有不同组合来解决这个问题。

基本上我正在尝试向正在动态选择的单元格添加超链接。

这很好用，我最终会像这样与单元格进行交互：

ActiveSheet.Cells（1，colnum）＆＃39; colNum取自Application.Match

现在我想添加一个指向该单元格的超链接。从我在网上看过的所有例子中，你需要像这样添加它：

If vItm = "Ticket No" Then
With ActiveSheet
    ref = .Cells(2, colNum).Address
    .Hyperlinks.Add Anchor:=**Range(ref)**, Address:="URLGOESHERE=" & dict(vItm), _
        TextToDisplay:=dict(vItm)
    End With
End If

我认为失败的部分是Anchor：=因为它需要一个范围对象。我找不到使用Cells（2，colNum）作为范围对象的方法。我已经尝试了＃34;。地址＆＃34;，我有希望但仍然失败。

请让我摆脱痛苦并教育我！

错误是＆＃34;无效的过程调用或参数＆＃34;

Answer 1

您使用的只是ActiveSheet，而不是范围部分试试：

If vItm = "Ticket No" Then
    ref = ActiveSheet.Cells(2, colNum).Address
    With ActiveSheet.Cells(2, colNum)
        .Hyperlinks.Add Anchor:=ref, Address:="URLGOESHERE=" & dict(vItm), _
        TextToDisplay:=dict(vItm)
    End With
End If

从单元格函数创建范围对象

1 个答案: