Question

我有很多超链接，我想为每个超链接分配一个宏，而Worksheet_FollowHyperlink只捕获插入的超链接，但不捕获HYPERLINK（）函数。所以我希望我的插入超链接没有任何内容，所以当我按下它们时没有任何反应。或者我希望他们自己参考。但是，当我只是将一个复制到另一个细胞时，它仍然指的是其父细胞。所以我必须编辑一个新的，因此它引用了它的新单元格。而且我还有可以复制和编辑的超链接。我需要这个，因为我不希望超链接跳过我到父超链接的单元格。

提前致谢

Answer 1

最好使用HYPERLINK（）函数。您可以将它用于您想要的内容：

=HYPERLINK("#HyperlinkClick()", "Text you want to Display")

注意开头的＃。 这很重要。

现在创建一个名为HyperlinkClick的函数：

Function HyperlinkClick()

    Set HyperlinkClick = Selection
    'Do whatever you like here...
    MsgBox "You clicked on cell " & Selection.Address(0, 0)

End Function

就是这样。

Answer 2

良好的解决方案Excel Hero但并不适用于所有事情：我尝试制作一种轮廓，但不可能在功能中隐藏一行：没有任何反应！但如果使用按钮直接调用相同的代码，一切正常。这是我的考验：

Function test()

Set test = Selection

 Dim i, j, state As Integer
state = Selection.Value
i = Selection.Row + 1
j = i

If state = "6" Then

    Do Until ActiveSheet.Cells(j, 7).Value = 1 Or ActiveSheet.Cells(j, 4).Value = ""
        j = j + 1
    Loop
    ActiveSheet.Rows(i & ":" & j - 1).EntireRow.Hidden = True
    Debug.Print "test group: " & i & ":" & j - 1
Else
    Do Until ActiveSheet.Cells(j, 7).Value = 1 Or ActiveSheet.Cells(j, 4).Value = ""
        j = j + 1
    Loop
    ActiveSheet.Rows(i & ":" & j - 1).EntireRow.Hidden = False
    Debug.Print "test ungroup: " & i & ":" & j - 1
End If

结束功能

我的debug.print给了我这个：

测试组：4：26

Answer 3

选择一组单元格并运行：

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

Answer 4

我刚刚成立了一个解决方案。如果我将插入的超链接引用到其他工作表中的某个单元格然后使其非常隐藏（xlSheetVeryHidden），则它的工作原理非常完美。现在我的超链接引用了Neverland，宏也捕获了它们。谢谢大家的光临。

excel超链接到什么都没有

4 个答案: