VBA 用户窗体数组

【问题标题】：VBA UserForm ArrayVBA 用户窗体数组
【发布时间】：2009-10-22 18:28:45
【问题描述】：

目前，我有一个 Excel 电子表格，其中包含一些数据和一个命令按钮，该按钮创建一个显示该数据子集的用户窗体。用户窗体的设计方式使数据更易于查看。我遇到的问题是我希望命令按钮创建我的用户窗体的多个实例，以便每个窗体可以显示一组不同的数据。

我对 VBA 还很陌生，因此我将不胜感激任何建议或只是我入门的地方。谢谢。

【问题讨论】：

【解决方案1】：

确保UserForm 的ShowModal 属性设置为False，否则一次只能显示UserForm 的一个实例。

之后，就这么简单：

Dim ufArray(0 To 4) As UserForm1
Dim i As Integer

For i = 0 To 4
    Set ufArray(i) = New UserForm1
Next i

For i = 0 To 4
    Load ufArray(i)
    ufArray(i).Show
Next i

显示UserForm1的五个独立副本

【讨论】：

太棒了！非常感谢。这正是我想要的。