VBA生成的UserForm控件关闭后消失，如何使其永久保留？

你当前用代码生成的是运行时动态控件，这类控件仅在程序运行期间临时存在，不会被写入UserForm的设计时结构，所以关闭窗体后就会消失。要让控件永久保留，必须通过VBA操作VBIDE对象模型，直接在设计模式下为UserForm添加控件，同时可以批量写入对应的事件代码。

步骤1：开启VBIDE访问权限 #

操作VBIDE需要提前开启信任设置：

• 打开Excel，点击「文件」→「选项」→「信任中心」→「信任中心设置」
• 选择「宏设置」，勾选「信任对VBA工程对象模型的访问」，点击确定

步骤2：编写设计时添加控件的代码 #

下面的代码可以批量生成Label、TextBox和SpinButton，并自动添加SpinButton与TextBox的联动代码：

Sub AddPermanentControlsToUserForm()
    Dim vbProj As Object
    Dim vbComp As Object
    Dim ufDesigner As Object
    Dim ctrlLabel As Object, ctrlTextBox As Object, ctrlSpin As Object
    Dim i As Integer
    Dim topOffset As Integer
    
    ' 指向当前工作簿的VBA工程
    Set vbProj = ThisWorkbook.VBProject
    ' 指向目标UserForm（替换成你的窗体名称，比如UserForm1）
    Set vbComp = vbProj.VBComponents("UserForm1")
    ' 打开窗体的设计器
    Set ufDesigner = vbComp.Designer
    
    topOffset = 20 ' 初始垂直位置
    
    ' 批量生成控件（这里示例生成10组，可修改为你需要的数量）
    For i = 1 To 10
        ' 添加Label
        Set ctrlLabel = ufDesigner.Controls.Add("Forms.Label.1")
        With ctrlLabel
            .Name = "Label_" & i
            .Caption = "项目" & i & ":"
            .Top = topOffset
            .Left = 10
            .Width = 80
            .Height = 18
        End With
        
        ' 添加TextBox
        Set ctrlTextBox = ufDesigner.Controls.Add("Forms.TextBox.1")
        With ctrlTextBox
            .Name = "TextBox_" & i
            .Top = topOffset
            .Left = 100
            .Width = 100
            .Height = 18
        End With
        
        ' 添加SpinButton
        Set ctrlSpin = ufDesigner.Controls.Add("Forms.SpinButton.1")
        With ctrlSpin
            .Name = "SpinButton_" & i
            .Top = topOffset
            .Left = 210
            .Width = 30
            .Height = 18
            .Min = 0
            .Max = 100
        End With
        
        ' 写入SpinButton的联动代码
        AddSpinButtonEventCode vbComp.CodeModule, i
        
        topOffset = topOffset + 30 ' 每组控件的间距
    Next i
    
    ' 调整窗体高度以容纳所有控件
    vbComp.Properties("Height") = topOffset + 20
End Sub

Sub AddSpinButtonEventCode(codeMod As Object, ctrlIndex As Integer)
    Dim codeLine As Integer
    Dim eventCode As String
    
    ' 获取代码模块的最后一行位置
    codeLine = codeMod.CountOfLines + 1
    
    ' 生成Change事件代码
    eventCode = "Private Sub SpinButton_" & ctrlIndex & "_Change()" & vbCrLf & _
               "    Me.TextBox_" & ctrlIndex & ".Value = Me.SpinButton_" & ctrlIndex & ".Value" & vbCrLf & _
               "End Sub" & vbCrLf & vbCrLf
    
    ' 插入代码到模块中
    codeMod.InsertLines codeLine, eventCode
End Sub

关键说明 #

• 运行代码前请确保目标UserForm处于关闭状态，否则无法打开设计器进行修改。
• 若要使用早期绑定获得智能提示，可引用「Microsoft Visual Basic for Applications Extensibility 5.3」库（工具→引用），此时可将代码中的Object类型替换为具体的VBIDE对象类型（如VBProject、VBComponent）。
• 批量生成数百个控件时，建议合理设置控件间距和窗体的ScrollHeight属性，避免控件超出窗体可视范围。
• 控件命名采用索引后缀（如Label_1），可避免与已有控件重名，同时方便后续维护事件代码。

内容的提问来源于stack exchange，提问作者Almesi