将 3 个值中的 1 个传递给 Sub

Question

我想更新 Sub 中的单个（3 个中的 1 个）变量。

3 个变量已经赋值，但我想更新其中一个变量。

请参阅下面的脚本，了解在不同 Macros 中的 sub 之间传递 strings 的简单示例

在宏 1 中

Sub Sub1()

Text1 = "First Text"
Text2 = "Second Text"
Text3 = "Third Text"

Call Macro2.Sub2(Text1, Text2, Text3)

End Sub

在宏 2 中

Public PassedText1, PassedText2, PassedText3 As String
Sub Sub2(ByVal r1 As String, ByVal r2 As String, ByVal r3 As String)

PassedText1 = r1
PassedText2 = r2
PassedText3 = r3

End Sub
'=======================

我知道我可以在 Macro2 中创建另一个 sub，然后我可以传递一个 string，然后将它分配给 Public 变量。

如果没有其他方法？

我想到了类似的东西：

Sub Sub3()

SomeText = "New Text"

Call Sub2(r1:=SomeText)

End Sub

Answer 1

如果你这样定义你的子，你可以使用你建议的：

Sub Sub2(Optional ByVal r1 As Variant, Optional ByVal r2 As Variant, Optional  ByVal r3 As Variant)

因此，每个参数Optional ByVal r1 As Variant 有 2 处更改：

1. Optional 会说话

2. As Variant，因为您需要使用 IsMissing() 方法测试参数是否存在于您的调用中，但为此需要将参数定义为 Variant

对于 proc 中的 3 个参数，就像这样：

If Not IsMissing(r1) Then PassedText1 = r1