VBA Excel2013:从另一个UserForm分配数组值

VBA Excel 2013是一种用于Microsoft Excel 2013的编程语言，它可以通过编写宏来自动化和定制Excel工作簿中的各种操作。在VBA Excel 2013中，可以使用UserForm来创建自定义的用户界面，通过该界面可以与用户进行交互。

要从另一个UserForm分配数组值，可以按照以下步骤进行操作：

1. 首先，在VBA编辑器中打开两个UserForm的代码窗口。可以通过按下Alt + F11键来打开VBA编辑器，然后在“项目资源管理器”中找到并双击要编辑的UserForm。
2. 在第一个UserForm的代码窗口中，声明一个数组变量并为其分配值。例如，可以使用以下代码声明一个名为myArray的数组，并将值分配给它：

Dim myArray(1 To 3) As Variant
myArray(1) = "Value 1"
myArray(2) = "Value 2"
myArray(3) = "Value 3"

1. 在第一个UserForm中，编写一个将数组值传递给第二个UserForm的过程。可以使用以下代码示例：

Private Sub TransferArrayValues()
    UserForm2.myArray = myArray
    UserForm2.Show
End Sub

在上述代码中，我们将第一个UserForm中的myArray值传递给第二个UserForm的myArray变量，并通过调用UserForm2的Show方法显示第二个UserForm。

1. 在第二个UserForm的代码窗口中，声明一个与第一个UserForm中的数组相同的数组变量。例如，可以使用以下代码在第二个UserForm中声明名为myArray的数组：

Public myArray() As Variant

请注意，此处的数组声明必须是公共的（Public），以便从第一个UserForm中访问。

1. 在第二个UserForm的代码窗口中，编写一个将接收到的数组值显示在界面上的过程。例如，可以使用以下代码示例：

Private Sub DisplayArrayValues()
    For i = LBound(myArray) To UBound(myArray)
        ListBox1.AddItem myArray(i)
    Next i
End Sub

在上述代码中，我们使用一个ListBox控件（名为ListBox1）将接收到的数组值逐个添加到列表框中。

这样，当在第一个UserForm中调用TransferArrayValues过程时，它将把数组值传递给第二个UserForm，并在第二个UserForm中显示出来。

推荐的腾讯云相关产品和产品介绍链接地址：

• 腾讯云函数（云原生、后端开发）：https://cloud.tencent.com/product/scf
• 腾讯云数据库（数据库）：https://cloud.tencent.com/product/cdb
• 腾讯云服务器（服务器运维）：https://cloud.tencent.com/product/cvm
• 腾讯云音视频（音视频、多媒体处理）：https://cloud.tencent.com/product/vod
• 腾讯云人工智能（人工智能）：https://cloud.tencent.com/product/ai
• 腾讯云物联网（物联网）：https://cloud.tencent.com/product/iotexplorer
• 腾讯云移动开发（移动开发）：https://cloud.tencent.com/product/mad
• 腾讯云对象存储（存储）：https://cloud.tencent.com/product/cos
• 腾讯云区块链（区块链）：https://cloud.tencent.com/product/baas
• 腾讯云虚拟专用网络（网络通信、网络安全）：https://cloud.tencent.com/product/vpc
• 腾讯云元宇宙（元宇宙）：https://cloud.tencent.com/product/um

请注意，以上链接仅供参考，具体的产品选择应根据实际需求和情况进行评估。