excel超链接不指向任何内容
excel超链接不指向任何内容
提问于 2015-10-14 07:11:02
我有很多超链接，我想给每个超链接分配一个宏，Worksheet_FollowHyperlink只捕获插入的超链接，而不是HYPERLINK()函数。因此，我希望我插入的超链接不引用任何内容，这样当我按下它们时，什么都不会发生。或者我想让他们引用他们自己。但是当我只是将一个单元格复制到另一个单元格时，它仍然引用它的父单元格。所以我必须编辑一个新的单元格，这样它就会引用它的新单元格。我也有上百个超链接要复制和编辑。我需要它，因为我不想让超级链接跳到父超级链接的单元格。
提前感谢
回答 4
Stack Overflow用户
发布于 2015-10-14 07:24:02
您最好使用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请确保将此函数放在标准代码模块中。
就这样。
Stack Overflow用户
发布于 2018-04-29 09:08:28
很好的解决方案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 IfEnd函数
我的debug.print给了我这个：
测试组: 4:26
Stack Overflow用户
发布于 2015-10-14 07:25:43
选择一组单元格并运行：
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/33114093
复制相关文章
相似问题
腾讯云开发者
