Question

我已经创建了一个宏，允许我双击一个超链接，它会根据我点击的单元格显示来自另一张表的信息。

现在我想自动化超链接过程，我需要的是一个宏，它将获取一个名称列表并将所有这些单元格超链接到它们自己。到目前为止，我有一个宏，它超链接激活的单元格，但返回值为0但是超链接（第一组代码）

我将包括我通过手动添加宏来记录的宏

Sub HyperLinkME()

frmla = "=HYPERLINK(" + Chr(34) + "#'" + ActiveSheet.name + "'!" +ActiveCell.Address + Chr(34) + "," + ActiveCell.Address + ")"
ActiveCell.Formula = frmla

End Sub

我录制的宏如下：

Sub ManualHyperlink()
'
' ManualHyperlink Macro
'
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
    "Schedule!A3", TextToDisplay:="dale"
End Sub

提前感谢您提供任何帮助！

Answer 1

Select一些单元格运行：

Sub HyperAdder()
   For Each r In Selection
      ActiveSheet.Hyperlinks.Add Anchor:=r, Address:="", SubAddress:=r.Parent.Name & "!" & r.Address(0, 0), TextToDisplay:="myself"
   Next r
End Sub

在单元格中插入超链接以跳转到自己。

要保留单元格的内容，请使用：

Sub HyperAdder()
    Dim r As Range, s As String
    For Each r In Selection
        If Len(r.Text) = 0 Then
            s = "X"
        Else
            s = r.Text
        End If
        ActiveSheet.Hyperlinks.Add Anchor:=r, Address:="", SubAddress:=r.Parent.Name & "!" & r.Address(0, 0), TextToDisplay:=s
    Next r
End Sub

宏将单元格超链接到自身

1 个答案: