セルから範囲オブジェクトを作成する関数

Question

ほとんどの場合、非常に単純な解決策ですが、この問題を解決するために、範囲とセルのさまざまな組み合わせをすべて試してみるのは夢中です。

基本的に、動的に選択されているセルにハイパーリンクを追加しようとしています。

これは正常に動作し、私はそうのような細胞との相互作用終わる：「colNum引数は、今、私はへのハイパーリンクを追加したいApplication.Match

から取られ

ActiveSheet.Cells（1、colNum引数）その細胞。私がオンラインに見てきたすべての例から、あなたはそうのようにそれを追加する必要があります。

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 

私は失敗している部分がアンカーだと思う。それは範囲オブジェクトを必要=として。 Cells（2、colNum）を範囲オブジェクトとして使用する方法が見つかりません。私は "アドレス"を試してみましたが、これは希望でしたが失敗しました。

私を悲惨さから救い、私を教育してください！

エラーは、「無効なプロシージャ呼び出しまたは引数」

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