时间戳

首页 > 解决方案 > Excel VBA 将单元格内容更新为可点击的超链接

excel - Excel VBA 将单元格内容更新为可点击的超链接

问题描述

我有一个带有编辑表的寄存器。用户选择他们想要更新的记录，代码用另一个工作表中的数据更新报告（工作表“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

标签： excelvba

解决方案

从不使用选择

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

推荐阅读