VBA - 按属性过滤用户定义类的集合字典的最有效方法

使用VBA编程语言时，我们经常需要处理集合或字典对象。这些对象通常包含多个元素，我们需要根据特定的属性对它们进行过滤。在本文中，我们将探讨在VBA中按属性过滤用户定义类的集合或字典的最有效方法。

vba
' 声明Person类
Public Class Person
    Public Name As String
    Public Age As Integer
End Class
' 创建Person对象并添加到集合中
Dim people As New Collection
Dim person1 As New Person
person1.Name = "John"
person1.Age = 25
people.Add person1
Dim person2 As New Person
person2.Name = "Amy"
person2.Age = 30
people.Add person2
Dim person3 As New Person
person3.Name = "Tom"
person3.Age = 28
people.Add person3
' 根据年龄属性过滤Person对象
Dim filteredPeople As New Collection
For Each p In people
    If p.Age >= 30 Then
        filteredPeople.Add p
    End If
Next p
' 输出过滤后的结果
For Each fp In filteredPeople
    Debug.Print fp.Name & " - " & fp.Age
Next fp

vba
' 创建Person对象并添加到字典中
Dim people As New Dictionary
Dim person1 As New Person
person1.Name = "John"
person1.Age = 25
people.Add "person1", person1
Dim person2 As New Person
person2.Name = "Amy"
person2.Age = 30
people.Add "person2", person2
Dim person3 As New Person
person3.Name = "Tom"
person3.Age = 28
people.Add "person3", person3
' 根据年龄属性过滤Person对象
Dim filteredPeople As New Dictionary
For Each key In people.Keys
    If people(key).Age >= 30 Then
        filteredPeople.Add key, people(key)
    End If
Next key
' 输出过滤后的结果
For Each key In filteredPeople.Keys
    Debug.Print filteredPeople(key).Name & " - " & filteredPeople(key).Age
Next key