VBA 中的通用集合

VBA 中的通用集合

vba
Dim myCollection As Collection
Set myCollection = New Collection
' 向集合中添加元素
myCollection.Add "Apple"
myCollection.Add "Banana"
myCollection.Add "Orange"
' 访问集合中的元素
MsgBox myCollection(1)  ' 输出第一个元素 "Apple"
' 遍历集合中的元素
Dim item As Variant
For Each item In myCollection
    MsgBox item
Next item
' 删除集合中的元素
myCollection.Remove 2  ' 移除第二个元素 "Banana"

vba
Sub FilterStudents()
    Dim students As Collection
    Set students = New Collection
    
    ' 从 Excel 表格中读取学生信息
    Dim rng As Range
    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A2:C10")
    
    Dim cell As Range
    For Each cell In rng
        Dim student As New Student
        student.Name = cell.Value
        student.Age = cell.Offset(0, 1).Value
        student.Gender = cell.Offset(0, 2).Value
        
        ' 根据条件筛选学生
        If student.Age >= 18 And student.Gender = "Male" Then
            students.Add student
        End If
    Next cell
    
    ' 输出满足条件的学生信息
    Dim stu As Student
    For Each stu In students
        MsgBox "Name: " & stu.Name & vbNewLine & _
               "Age: " & stu.Age & vbNewLine & _
               "Gender: " & stu.Gender
    Next stu
End Sub
Class Student
    Public Name As String
    Public Age As Integer
    Public Gender As String
End Class