在 VBA 中设置 UDF 描述时出错
Posted
技术标签:
【中文标题】在 VBA 中设置 UDF 描述时出错【英文标题】:Error while setting UDF description in VBA 【发布时间】:2017-05-19 14:37:49 【问题描述】:我正在尝试为我的用户定义函数进行描述。我使用这段代码没有问题:
Sub RegisterUDF23()
Dim FD As String
FD = "Find the CN value based on landuse and soil type" & vbLf _
& "CNLookup(Landuse As Integer, SoilType As String) As Integer"
Application.MacroOptions macro:="CNLookup", Description:=FD, Category:=14 _
, ArgumentDescriptions:=Array( _
"Integer: (1 to 7)", "String: ""A"", ""B"", ""C"", ""D"" ")
End Sub
但是当我移动到第 24 个函数并想要对其执行相同操作时,我在最后一行收到以下错误:
运行时错误“1004”:
对象“_Application”的方法“MacroOptions”失败
这是第 24 次“RegisterUDF”的代码:
Sub RegisterUDF24()
Dim FD As String
FD = "friction head loss in feet of water per 100 feet of pipe (ft H20 per 100 ft pipe)" & vbLf _
& "HWfriction(roughness As Double, flow As Double, hyd_diameter As Double) As Double" & vbLf _
& "HWfriction = Power(100 / roughness, 1.852) * Power(flow, 1.852) / Power(hyd_diameter, 4.8655) * 0.2083"
Application.MacroOptions macro:="HWfriction", Description:=FD, Category:=14
End Sub
【问题讨论】:
【参考方案1】:Description
似乎限制为 255 个字符。将您的描述缩短 11 个字符以修复它。
【讨论】:
以上是关于在 VBA 中设置 UDF 描述时出错的主要内容,如果未能解决你的问题,请参考以下文章
在 UILocalNotification 中设置 UserInfo 时出错
在 UDF 中设置时,在需要 range.cell 的范围内选择一个单元格