发布网友 发布时间:2022-06-13 09:52
共2个回答
热心网友 时间:2023-10-13 02:02
在你的执行超链接事件中首、尾加入下面的代码试试看效果如何:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Application.EnableEvents = False '禁止中断再次发生
Application.ScreenUpdating = False '禁止屏幕刷新
…………' 你的代码内容
Application.ScreenUpdating = True '恢复屏幕刷新
Application.EnableEvents = True '恢复中断
End Sub
热心网友 时间:2023-10-13 02:02
我觉得直接在change事件里面判断单元格编辑后是否包含超链接内容,如果包含则不执行任何代码。