Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel VBA函数=函数参数?_Excel_Vba - Fatal编程技术网

Excel VBA函数=函数参数?

Excel VBA函数=函数参数?,excel,vba,Excel,Vba,下面是一个带有switch语句的示例函数,但我很难理解函数如何与提供的参数相等 Function getnumber(value, method) As String Dim i, j As Integer Dim rtn As String j = 0 Select Case method Case 0: getnumber = value Case 1: rtn = "" For i = 1 To

下面是一个带有switch语句的示例函数,但我很难理解函数如何与提供的参数相等

Function getnumber(value, method) As String
    Dim i, j As Integer
    Dim rtn As String
    j = 0
    Select Case method
    Case 0:


    getnumber = value


    Case 1:
        rtn = ""
        For i = 1 To Len(value)
            If IsNumeric(Mid(value, i, 1)) Then
                j = j + 1
                rtn = rtn & Mid(value, i, 1)
            Else
                If j > 3 Then Exit For
                j = 0
                rtn = ""
            End If
        Next
        If rtn = "" Then getnumber = "" Else getnumber = rtn
    Case Else:
        MsgBox ("Invalid method in getnumber")
    End Select
End Function
getnumber=value真让我困惑。其中getnumber是函数,value是getnumber函数的参数


有什么想法吗?

在VBA中,您可以使用语法YourFunctionName=ValueToReturn指定函数的返回值


因此,getnumber=value只是将value设置为要从函数返回的值。

在VBA中,使用语法YourFunctionName=ValueToReturn指定函数的返回值


因此,getnumber=value只是将value设置为要从函数返回的值。

getnumber=value是返回值-如果调用getnumbervalue方法,调用代码将收到值。这与您的问题无关,但函数缺少大量变量标注。Dim i,j As Integer应该是Dim i As Integer,j As Integer,value和method也应该被标注,我认为是Variant或String,而Integergetnumber=value是返回值-如果调用getnumbervalue,调用代码将接收值,方法。与你的问题无关,但你的函数缺少很多变量的维数。Dim i,j作为整数应该是Dim i作为整数,j作为整数,值和方法也应该被标注,我认为是变量或字符串和整数