4

下面的示例必须按顺序给出可选参数；因此 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

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

4

1 回答 1

3

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

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

这样你就不必输入任何关于 showheaders 等的信息。

编辑：

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

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
于 2013-08-26T23:09:53.527 回答