Excel VBA UDF调用Hyperlinks.Add添加ScreenTip出现2015错误如何解决

Excel 对从工作表单元格直接调用的自定义函数（UDF）有严格的权限限制：

• UDF 仅能进行数值计算、向调用它的单元格返回结果，不允许修改工作簿内的其他对象，包括新增超链接、修改工作表结构等操作。
• 你之前修改形状颜色的功能如果能正常运行，大概率是你当时是在 VBA 过程中调用该 UDF，而非在单元格内输入公式触发执行。
• 本次报错的 err2015 就是你代码中返回的 xlErrValue（对应单元格显示为#VALUE!），触发根源就是 sht.Hyperlinks.Add 操作被 UDF 的权限规则禁止。

方案1：改用 Sub 过程执行所有修改操作 #

你之前编写的 Test2 类的 Sub 过程不受上述权限限制，你可以把形状颜色修改、ScreenTip 添加的逻辑都整合到 Sub 中，通过工作表按钮、自定义功能区按钮或者工作表数据变更事件触发执行，完全可以实现数据联动修改形状属性的需求。
示例整合逻辑：

Sub UpdateAllShapes()
    Dim sht As Worksheet
    Dim shp As Shape
    ' 可在这里读取数据表的配置参数
    For Each sht In ActiveWorkbook.Worksheets
        For Each shp In sht.Shapes
            ' 匹配形状名称的判断逻辑
            ' 原有修改颜色的代码
            ' 添加ScreenTip
            sht.Hyperlinks.Add shp, "", "", ScreenTip:="Hello from " & shp.Name
        Next shp
    Next sht
End Sub

方案2：UDF标记+事件异步执行（保留单元格调用习惯） #

如果你需要保留在单元格输入公式触发更新的使用习惯，可以拆分为两步实现：

1. 在UDF中仅记录需要更新的形状信息到全局变量或隐藏的临时存储区域，不执行实际的对象修改操作
2. 绑定Worksheet_Calculate事件，在事件中读取待更新的任务，执行添加超链接、修改颜色等操作

如果对应形状已经添加过超链接，不要重复调用Hyperlinks.Add，直接修改已有超链接的ScreenTip属性即可，避免重复创建超链接导致的异常：

If shp.Hyperlinks.Count > 0 Then
    shp.Hyperlinks(1).ScreenTip = "你的自定义提示"
Else
    sht.Hyperlinks.Add shp, "", "", ScreenTip:="你的自定义提示"
End If

内容的提问来源于stack exchange，提问作者Andrew