更改时 - 从超链接

Question

我有一列超链接 - C列（最多38行），在单元格D5使用此公式导入到另一列D. C列是隐藏的。

=IF(C5="","",HYPERLINK((C5), "Click to Open"))

如果我想删除工作表内容中每次更改的所有超链接的Screentip。

我该怎么做，以下代码无效？

编辑2：

远程屏幕提示或仅在屏幕提示中显示此消息。

“链接将在另一个应用程序中打开”任何事情都会有所帮助。谢谢。

Sub Worksheet_Change(ByVal Target As Range)

Worksheets("Sheet1").Range("A1:D40").Hyperlinks(1).ScreenTip = " "

End Sub

Answer 1

对于已插入超链接：

Sub ScreenTipKiller()
    Dim h As Hyperlink
    For Each h In ActiveSheet.Hyperlinks
        h.ScreenTip = " "
    Next h
End Sub

这不会影响超链接功能屏幕提示。

修改＃1：

要清除 1 列中超链接的屏幕提示，请使用：

Sub ScreenTipKiller()
    Dim h As Hyperlink
    For Each h In ActiveSheet.Hyperlinks
        If h.Parent.Column = 1 Then
            h.ScreenTip = " "
        End If
    Next h
End Sub