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

Question

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

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

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

ActiveSheet.Cells(1, colnum) ' 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) 作为范围对象的方法。我已经尝试过“.Address”，我对此充满希望，但仍然失败。

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

错误是“无效的过程调用或参数”

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