我正在构建用户定义函数。
我得到一个错误
公式中使用的值是错误的数据类型
我正在尝试构建一个添加注释的功能，还将注释添加到另一位置，因为注释总是成对出现。
Public Function AddComments(vesselCell As Variant, shopCell As Variant, comment As String) As Variant
Range(vesselCell).AddComment (comment)
Worksheets("Shop").Range(shopCell).Value = comment
End Function
我已经将它挑出引起问题的第三行代码。
当前的设置是“容器单元”，将注释添加到工作表中，然后“商店”工作表具有一个供注释的栏目。
假设vesselCell和shopCell都是Range对象，Range(vesselCell)并且Worksheets("Shop").Range(shopCell)是问题的一部分。
做他们Range，不是Variant。
vesselCell.AddComment comment
shopCell.Value = comment
现在，此代码在UDF中不合法。使您的过程成为一个Sub过程（删除As Variant返回类型），然后从其他VBA代码中调用它，或将其附加到图形或按钮的OnAction属性上。
用户定义的函数接受输入，计算结果，然后将结果返回给调用单元：您的代码不返回任何内容，强烈表明aFunction在这里不合适。
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句