VBA - 有条件地调用具有某些可选参数的函数的解决方法

使用 VBA 编程语言时，我们经常需要调用具有可选参数的函数。可选参数是指在调用函数时可以选择是否传入的参数。然而，有时候我们想根据某些条件来决定是否传入可选参数。本文将介绍一种解决这个问题的方法。

vba
Sub TestCallByCondition()
    Dim obj As Object
    Dim methodName As String
    Dim optionalArg As Variant
    Dim result As Variant
    
    ' 初始化对象和方法名
    Set obj = CreateObject("SomeClass")
    methodName = "SomeMethod"
    
    ' 根据条件决定是否传入可选参数
    If condition Then
        optionalArg = "OptionalValue"
    Else
        optionalArg = Missing ' 不传入可选参数
    End If
    
    ' 调用函数
    result = CallByName(obj, methodName, VbMethod, optionalArg)
    
    ' 处理返回结果
    ' ...
End Sub

vba
Option Explicit
Class Calculator
    Public Function Add(ByVal num1 As Double, ByVal num2 As Double, Optional ByVal offset As Double = 0) As Double
        Add = num1 + num2 + offset
    End Function
End Class
Sub TestCallByCondition()
    Dim calc As Object
    Dim methodName As String
    Dim num1 As Double
    Dim num2 As Double
    Dim offset As Variant
    Dim result As Double
    
    ' 初始化对象和方法名
    Set calc = New Calculator
    methodName = "Add"
    
    ' 输入两个数
    num1 = InputBox("请输入第一个数：")
    num2 = InputBox("请输入第二个数：")
    
    ' 根据条件决定是否传入偏移量
    If num1 > num2 Then
        offset = 10
    Else
        offset = Missing ' 不传入偏移量
    End If
    
    ' 调用函数
    result = CallByName(calc, methodName, VbMethod, num1, num2, offset)
    
    ' 显示结果
    MsgBox "计算结果为：" & result
End Sub