VBA中Userform对象的varg参数具体作用是什么？

一、先搞懂varg的本质 #

你在编辑器里输入UserForms(时看到的varg，根本不是用来给Userform初始化传参的——它是VBA内置的UserForms集合的.Item()属性参数，作用是从这个集合里定位已加载的表单实例。

UserForms集合是VBA自动帮你维护的，所有**已经加载（不管显不显示）**的Userform实例都会被放进这个集合里。你用varg可以通过两种方式取实例：

• 用数字索引：比如UserForms(1)就是集合里第一个加载的表单
• 用实例名称：比如UserForms("MyUserForm")，但如果有多个同名实例，只能拿到第一个

你之前想用它传初始化变量失败太正常了，因为它从设计上就不是干这个的。

二、有没有其他序列化索引Userform的方式？ #

你提到的用变量创建多实例的方法：

Dim uf1 As MyUserForm, uf2 as MyUserform
Set uf1 = New MyUserform
Set uf2 = New Myuserform

这是VBA里创建独立表单实例的标准操作，每个变量对应完全独立的实例，状态互不干扰，也是最推荐的方式。

至于和varg相关的序列化索引，其实就是用内置的UserForms集合，但它有不少局限：

1. 只包含已加载的实例——如果用New创建了实例但没调用.Show或.Load，根本不会进这个集合
2. 索引是动态的，一旦某个实例被卸载，后面的实例索引会自动往前挪，稳定性差
3. 多个同名实例没法通过名称精准区分，只能靠数字索引

如果想要更可控的序列化索引，不如自己建个自定义集合来管理：

' 标准模块里的代码
Private UserFormPool As Collection

Sub SetupUserForms()
    Set UserFormPool = New Collection
    ' 添加实例到自定义集合，还能给每个实例加个自定义键名
    Dim uf1 As MyUserForm, uf2 As MyUserForm
    Set uf1 = New MyUserForm
    UserFormPool.Add uf1, "Form_Order"
    Set uf2 = New MyUserForm
    UserFormPool.Add uf2, "Form_Customer"
End Sub

' 按键名或索引取实例
Function GetForm(ByVal keyOrIndex As Variant) As MyUserForm
    Set GetForm = UserFormPool(keyOrIndex)
End Function

这种方式比依赖内置的UserForms集合灵活多了，你可以自己定索引规则，还能管理没加载的实例。

内容的提问来源于stack exchange，提问作者K.Dᴀᴠɪs