VBA 函数 可选参数

Question

我多次调用一段特定的代码，因此我想使用可选参数。 我可以这样写：

Public Sub main()

strA = "A"

'Calling the function
CalculateMe (strA)

End Sub

Public Sub CalculateMe(strA As String)

    Set rs = DB.OpenRecordset("tbl_A")
    rs.MoveFirst
        Do Until rs.EOF
            If rs.Fields(0) = strA Then
                dblA = rs.fields(2).Value
            End If
            rs.MoveNext
        Loop
End Sub

如何更改函数以容纳超过 1 个可选参数？

类似：

Public Sub main()
strA = "A"
strB = "B"

'Calling the function
CalculateMe (strA, strB)

more code
End Sub

Public Sub CalculateMe(Optional strA As String, Optional strB as String)

    Set rs = DB.OpenRecordset("tbl_A")
    rs.MoveFirst
        Do Until rs.EOF
            If rs.Fields(0).Value = strA And rs.Fields(1).Value = strB Then
                dblA = rs.Fields(2).Value
            End If
            rs.MoveNext
        Loop
End Sub

按照 Pankaj Jaju 的建议，我设法将其更改为：

Public Sub main()
strA = "A"
strB = "B"

'Calling the function
dblA = CalculateMe (strA, strB)

End Sub

Public Function CalculateMe(Optional ByVal strA As String, Optional ByVal strB as String)

Set rs = DB.OpenRecordset("tbl_A")
rs.MoveFirst
    Do Until rs.EOF
        If rs.Fields(0).Value = strA And rs.Fields(1).Value = strB Then
            dblA = rs.Fields(2).Value
        End If
        rs.MoveNext
    Loop
End Sub

现在，如何清除可选参数的值？我需要这个来进行一些计算。比如：

Set strA = Nothing

Answer 1

更改您的子并添加ByVal

Public Sub CalculateMe(Optional ByVal strA As String, Optional ByVal strB As String)

Answer 2

Public Sub CalculateMe(Optional varA As Variant, Optional varB as Variant)

摘自Chip Pearson's精彩解释：

可选参数的使用规则：

• 必须存在 Optional 关键字才能使参数成为可选参数。
• 数据类型应该是（但不一定是，见下文）Variant 数据 类型。
• 可选参数必须位于参数末尾 列表。
• IsMissing 函数仅适用于声明的参数 作为Variant。与任何其他数据类型一起使用时，它将返回 False。
• 用户定义类型 (UTD) 不能是可选参数。

示例

Function Test(L1 As Long, L2 As Long, _
    Optional P1 As Variant, Optional P2 As Variant) As String

    Dim S As String

    If IsMissing(P1) = True Then
        S = "P1 Is Missing."
    Else
        S = "P1 Is Present (P1 = " & CStr(P1) & ")"
    End If

    If IsMissing(P2) = True Then
        S = S & "  " & "P2 Is Missing"
    Else
        S = S & "  " & "P2 Is Present (P2 = " & CStr(P2) & ")"
    End If

    Test = S
End Function

这里，L1 和 L2 都是必需的，但 P1 和 P2 是可选的。由于两者都是Variant类型，我们可以使用IsMissing来判断参数是否传入。如果Variant参数被省略，IsMissing返回True，如果Variant参数被省略，则返回False包括。如果可选参数的数据类型是Variant以外的任何数据类型，IsMissing将返回False。

Answer 3

您可以使用 CalculateMe(,strB) 代替

dblA = CalculateMe strB:="B"

Answer 4

我不确定你的意思是“可选”。在您的示例中，您将 args 列为可选，但您仍将 both 参数传递给函数。

在任何情况下，您都可以在这里传递 两个 参数：

Public Sub main()
strA = "A"
strB = "B"

'Calling the function
dblA = CalculateMe(strA, strB)

more code
End Sub

如果您只想传递其中一个参数，请执行以下操作：

dblA = CalculateMe(, strB)

或者：

dblA = CalculateMe(strA)

否则，如果您总是同时传递两个参数，那么让它们Optional 是没有意义的。