Excel VBA 將單元格內容更新為可點擊的超鏈接

Question

我有一個有編輯表的寄存器。 用戶選擇他們想要更新的記錄，代碼使用另一個工作表中的數據更新報告（工作表“EditEx”）。 問題是有幾個指向共享點/文件夾的鏈接也被召回。 工作表正確更新（在所需單元格中顯示完整 url -“H21”），但它不是可點擊的超鏈接。 我只是無法讓它工作。

這是我的代碼的結尾，有人可以幫忙嗎？ 謝謝。

'   Refresh and unhide all rows
    ActiveWorkbook.RefreshAll
    Sheets("EditEx").Select
    ActiveWindow.SmallScroll Down:=-120
    Rows("29:160").Select
    Selection.EntireRow.Hidden = False
    Rows("32:56").Select
    Rows("32:56").EntireRow.AutoFit
    Rows("76:105").Select
    Rows("76:105").EntireRow.AutoFit
    Rows("125:154").Select
    Rows("125:154").EntireRow.AutoFit
' ISSUE IS HERE
    Range("H21").Hyperlinks.Add Anchor:=Selection, Address:=Selection

'   select first input cell
    Range("C6:D6").Select

    MsgBox ("Record Retrieved. Make your changes and ensure you click 'Save Changes' to update the Master Registers")

End Sub

Answer 1

從不使用選擇

ActiveSheet.Hyperlinks.Add Anchor:=Range("H21"), _
Address:=Range("H21").Value, _
TextToDisplay:=Range("H21").Value