VBA에서 UDF 설명을 설정하는 동안 오류가 발생했습니다.

Question

사용자 정의 함수에 대한 설명을 작성하려고합니다. 나는이 코드를 사용하여 아무 문제 없었다 : 나는 24 기능으로 이동하고 그것을 위해 동일한 작업을 수행하고 싶어 할 때

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 

을하지만, 마지막 줄에 다음과 같은 오류 얻을 :

런타임 오류를 '1004': 개체의

방법 'MacroOptions' '_Application'는 여기에

는 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 

Answer 1

Description은 255 자로 제한됩니다. 설명을 11 자까지 줄이십시오.