Tag: 需要

“运行时错误”424“：Object Required”

我想要一个函数采取两个参数，一个search单元格和一个单元格进行search，其中search单元格包含一个逗号分隔的列表。 我想要testing每个元素，看它是否在“search”单元格中。 例如： List_of_String: word1, word2, word3 Where_to_Search: bbbbbword1 'Return TRUE' Where_to_Search: bbbbhhhhhmmmmm 'Return FALSE 我已经写了： Function Search_in_String(List_of_Strings_to_Search As String, Where_to_Search As String) String_array = Split(List_of_Strings_to_Search, ",") Dim is_in_num As Integer Dim is_in As Boolean is_in = False For i = 0 To (UBound(String_array) – 1) is_in_num = InStr(Where_to_Search, Trim(String_array(i))) If is_in_num > 0 Then […]

修剪返回所需的错误424对象

我试图使function，使2超文本字段。 代码如下： Option Explicit Sub AddLink() Dim MyPath Dim MyChar Dim i As Integer Dim myString Dim numbers Dim siteID Dim MyWB Dim siteAddress MyPath = "SomeFilePath\" MyChar = "\" For i = 2 To 4000 Step 1 myString = Range("B" & i).Value numbers = myString.TrimStart(MyChar) siteID = Range("F" & i).Value MyWB = "WO_" & […]

调用VBA Excel中的子函数时，“Object Required”

在我的Excel的VBA程序; 我有一个名为“ParamCheck”的函数，它会得到四个“double”variables，检查它们并将消息返回为“string”。 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 […]