VBA函数=函数参数?

时间:2013-03-25 11:39:39

标签: 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 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 函数的参数

有什么想法吗?

1 个答案:

答案 0 :(得分:6)

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

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