首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

VBA Excel:如何将类放入数组

VBA Excel中,要将类放入数组,需要遵循以下步骤:

  1. 创建一个类模块:
    • 打开VBA编辑器(Alt + F11)。
    • 在“项目资源管理器”窗口中,右键点击该工作簿,选择“插入” > “类模块”。
    • 在代码窗口中,定义类的属性和方法。
  • 声明一个数组变量来存储类的实例:
    • 在标准模块(Module)中,使用以下语法声明一个类的数组变量:Dim myArray() As ClassName
    • 这里的ClassName是你在第一步中创建的类的名称。
  • 初始化类的实例并将其添加到数组中:
    • 使用Set关键字初始化类的实例,并将其分配给数组中的相应索引。例如:Set myArray(0) = New ClassName

以下是类放入数组的示例:

首先,在VBA编辑器中创建一个类模块,命名为"Person",并添加以下代码:

代码语言:txt
复制
Private name As String

Public Sub SetName(ByVal newName As String)
    name = newName
End Sub

Public Function GetName() As String
    GetName = name
End Function

接下来,在标准模块中,声明一个Person类的数组变量,并初始化类的实例并添加到数组中:

代码语言:txt
复制
Sub Test()
    Dim people() As Person
    ReDim people(0 To 1) ' 调整数组大小以适应两个元素

    ' 初始化类的实例并将其添加到数组中
    Set people(0) = New Person
    people(0).SetName "John Doe"

    Set people(1) = New Person
    people(1).SetName "Jane Smith"

    ' 获取并显示数组中的类实例的名称
    MsgBox "Person 1: " & people(0).GetName & vbCrLf & "Person 2: " & people(1).GetName
End Sub

此示例中,我们创建了一个名为Person的类,该类具有一个私有变量name、一个公共方法SetName和一个公共函数GetName。然后,在Test()过程中,我们声明了一个Person类的数组变量people(),并使用ReDim语句将其大小调整为两个元素。接着,我们初始化两个Person类的实例并将其添加到数组中。最后,我们使用GetName方法获取数组中的类实例的名称,并在消息框中显示。

对于这个问题,腾讯云并没有提供特定的产品或链接。然而,腾讯云提供了一系列云计算和开发相关的产品,如云服务器、对象存储、数据库等。您可以在腾讯云官方网站(https://cloud.tencent.com/)上找到更多相关信息。

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

没有搜到相关的视频

领券