如何在函数中指定多个可选参数而不考虑它们的给出顺序

Question

下面的示例可选参数必须按顺序给出；因此 ShowHeaders 必须先于 ValueAdd 等等。如果我想指定 ValueAdd，我*必须*指定 ShowHeaders：

Function Example(Value1, Optional ShowHeaders = "Headers=N", Optional ValueAdd = "Sprd=0")

我希望能够指定一个或多个（相对）较大的可选参数列表：1）但不按顺序，2）不一定是全部。

对于1）我在想，也许可以制作一个通用的参数列表，例如而不是上面的：

Function Example(Value1, Optional Arg1, Optional Arg2)

然后检查 Arg1 最左边的部分是否=“Headers=”或“Sprd=”等，然后对 Arg2 执行相同的操作。这很好，但似乎效率不是很高，我计划创建具有 > 10 个可选参数的 UDF。上面的解决方案也可以解决2），但我只是觉得它的编码不太好。

对于2）我知道我们可以使用

If IsMissing(Arg) Then

但这并没有真正解决我们指定函数的顺序。

Answer 1

您可以将 := 运算符与变量名称一起使用。这样，您只需发送特定于该调用的可选值。使用上面的示例，您可以使用：

Call Example(Value1, ValueAdd := "Sprd=0")

这样您就不必输入有关显示标题等的任何内容。

编辑：

我已经修改了您的示例来处理缺少的参数，以便它们可以用于数学，希望这有帮助。

Function Example(Value1, Optional ValueA, Optional ValueB)

    If IsMissing(ValueB) Then ValueB = 0
    If IsMissing(ValueA) Then ValueA = 0

    Example = (Value1 + ValueA) * ValueB)
    MsgBox (Example)

End Function

Sub TestExample()
    Call Example(2, ValueB:=1)
    Call Example(2, ValueB:=1, ValueA:=6)
End Sub