excel - 在VBA Excel中调用sub中的函数时出现"Object Required"

Question

在我的 Excel VBA 程序中；我有一个名为“ParamCheck”的函数，它获取四个“ double ”变量，检查它们并以“字符串”形式返回消息。

Function ParamCheck(airSpeed As Double, FCUvalue As Double, _
            altitude As Double, terrainElevation As Double) As String

            If airSpeed < MIN_CONTROL_SPEED Then                            
            'check if airspeed is less than 119 ft/min or not
                ParamCheck = "Airspeed is less than minimum control speed"

            ElseIf FCUvalue > FCU_VALUE_LIMIT Then                          
            'check if FCU value if greater than 10 or not
                ParamCheck = "FCU value is greater than limit"

            ElseIf FCUvalue < 0 Then                                        
            'check if FCU vlaue is negative or not
                ParamCheck = "FCU value is negative"

            ElseIf altitude <= terrainElevation Then                        
            'check if altitude is greater that terrain of elevation or not
                ParamCheck = "Altitude is less than terrain elevation"

            Else                                                            
            'if all the parameters are valid print a "Valid" message
                ParamCheck = PARAMS_OK
            End If
End Function

现在我需要在我的子程序中调用这个函数。这是代码

Dim checkParam As String    ' result of validity check of parameters
Set checkParam = ParamCheck(speedAir, valueFCU, aboveSea, elevationTerrain)

运行时它给我这个错误“需要对象”并突出显示“checkParam”

Answer 1

您不需要 String 类型的关键字 Set，这就是原因。

与其他编程语言不同，VBA 将字符串视为数据类型，而不是对象。

关键字Set用于分配对对象(工作表、范围等)的引用。

如果您尝试将引用分配给数据类型，就像您所做的那样，您将收到错误。