excel - 将一个子中的两个结果传递给另一个子

Question

我正在尝试传递 x 的结果和 y来自子 returnIntegerAndBoolean转testing1 .

在这种情况下，用户可以运行 sub testing1并返回结果“4true”，但这不起作用:

Public Sub returnIntegerAndBoolean(ByRef x As Integer, Byref y As Boolean)

x = 2
x = x + 2

If x > 5 Then
  y = False
Else
  y = True
End If

End Sub

Sub testing1()

Dim a As Integer
Dim b As Boolean

returnIntegerAndBoolean a = x, b = y
MsgBox a & b

End Sub  

有人可以看看吗？

Answer 1

您的调用语法不正确，您传递了评估的结果(a 等于 x)并从 bool 中获得了令人讨厌的自动转换，而不是类型错误。

代替:

returnIntegerAndBoolean a = x, b = y

利用:

returnIntegerAndBoolean a, b

或者，如果您想记下参数:

returnIntegerAndBoolean x:=a, y:=b