使用 Sub 设置 Class 属性

Question

我正在尝试创建一个Sub，它将接受一个值和一个Class Property，并为我设置Property。

在我的Class (Class1) 我有以下内容：

Option Explicit

Private vValue As String, vTest As String
Public Property Let Value(v As String)
    vValue = v
End Property
Public Property Get Value() As String
    Value = vValue
End Property
Public Property Let Test(v As String)
    vTest = v
End Property
Public Property Get Test() As String
    Test = vTest
End Property

然后我在Module1 中使用以下Sub 调用它

Sub TestSetProperty()
    Dim cl As New Class1

    SetProperty "Test", cl.Value

    Debug.Print "Value:", cl.Value
    Debug.Print "Test:", cl.Test

End Sub

我的SetProperty Sub 包含

Sub SetProperty(v As String, ByRef prop)
    prop = v
End Sub

现在我希望这会将属性传递给 SetProperty Sub 并设置值：

Value:        Test
Test: 

在即时窗口中，但是它会返回

Value:        
Test:         

我怎样才能按预期进行这项工作？

Answer 1

您发布的代码试图通过引用传递方法。这在 VBA 中是不可能的。您可以获得的最接近的是 CallByName 函数

https://docs.microsoft.com/en-us/office/vba/Language/Reference/user-interface-help/callbyname-function