Vba 更改时-从超链接中删除所有屏幕提示

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

=IF（C5=“”，”超链接（（C5），“点击打开”）

如果我想删除工作表内容每次更改的所有超链接的屏幕提示。

下面的代码不起作用，我该怎么做？

编辑2：

遥控屏幕提示或仅在屏幕提示中显示此消息

“链接将在另一个应用程序中打开”任何东西都会有帮助。多谢各位

Sub Worksheet_Change(ByVal Target As Range)

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

End Sub

---

对于插入的超链接：

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

---

为什么每次工作表中的任何内容发生变化时，都要从相同的单元格中不断删除相同的屏幕提示？内容是动态的，如果我更改链接，屏幕提示将再次返回。所以我希望VBA在后台处理它。有两种类型的超链接。有1）通过

=HYPERLINK（，）

功能生成的，以及2）通过右键单击、链接、插入超链接生成的。它们不是一回事。好的，谢谢你的信息。但是，您知道如何在excel工作簿的所有超链接中显示相同的屏幕提示吗？屏幕提示：“链接将在另一个应用程序中打开”使用VBA的超链接生成超链接。添加，您可以将屏幕提示设置为您想要的任何内容。@Gary的学生，您可以只修改第（1）列中的链接吗？@Gary的学生，+1，Duh_我找到了；第（1）栏。Hyperlinks@GMalc见我的编辑#1