Question

VBA property get/let/set 可以带多个参数吗? 还有怎么给它们赋值?

Answer 1

您好，

这个可以实现，但是必须按照顺序写出参数，请看以下例子：

Person.cls

Option Explicit

Private mintAge As Long

Public Property Get Age(ByVal pName As String) As Integer
    Age = mintAge
End Property

' ---------------
' 1. pName  姓名.
' 2. intAge 年龄.
' ---------------
Public Property Let Age(ByVal pName As String, ByVal intAge As Integer)
    mintAge = intAge
End Property

Module.bas

Option Explicit

Sub Demo1()
    Dim per As New Person
    
    With per
        ' 给姓名为张三的人赋上年龄 36 岁.
        .Age("张三") = 36
        
        ' 打印张三这个人的年龄.
        Debug.Print .Age("张三")
    End With
End Sub

Sub Demo2()
    ' 实例化两个人.
    Dim per(1) As New Person
    
    per(0).Age("李四") = 36
    per(1).Age("王五") = 32
    
    Debug.Print "李四的年龄是："; per(0).Age("李四")
    Debug.Print "王五的年龄是："; per(1).Age("王五")
End Sub

关键注意点就是：

Get、Let 语句中添加的参数位置要对应，比如

Get 语句中的参数 pName 位于第一个，那么 Let 语句中的 pName 也要位于第一个。

PS：上面只是个简单的演示，希望你能够在实际应用中做到举一反三。

Answer 2

属性可以带参数，且可以带任意个数，比如在sheet1的代码中定义以下属性。为了方便起见，我虽然定义了两个参数，但实际只用了一个。注意get 和 let、set的参数的数量、名称、类型必须一致，对let或set，参数的排列顺序是自己的参数排在前面。

Dim arr(1 To 2) As String

Public Property Get a(n As Integer, n1 As Integer) As String
    a = arr(n)
End Property

Public Property Let a(n As Integer, n1 As Integer, ByVal vNewValue As String)
    arr(n) = vNewValue
End Property

然后在其他地方就可以这样调用属性（注意只用了第一个参数，第二参数随便写的）

Private Sub CommandButton1_Click()
    Sheet1.a(1, 88) = "我"
    Sheet1.a(2, 24) = "你"
    
    MsgBox Sheet1.a(1, 32)
    MsgBox Sheet1.a(2, 55)
End Sub

这时会弹出两次对话框，分别显示 我 和 你。