Excel UserForm打开时未初始化至复选框未勾选状态的解决问询

问题原因 #

你的代码存在两个核心问题：

1. 先执行Test.Show显示窗体，再设置cbxAdditional = False，此时窗体已完成加载，不会触发复选框的Click事件，导致UI布局停留在设计时或初始加载的状态（看似未勾选但逻辑未执行Else分支）。
2. 未在窗体初始化阶段主动同步复选框状态与对应UI布局。

解决方案 #

步骤1：添加UserForm初始化事件 #

打开UserForm的代码窗口，新增UserForm_Initialize事件过程，在这里完成复选框状态初始化，并手动执行未勾选状态对应的UI调整：

Private Sub UserForm_Initialize()
    ' 初始化复选框为未勾选状态
    Me.cbxAdditional.Value = False
    
    ' 应用未勾选时的UI布局
    Me.Width = 279
    Me.Height = 238.5
    Me.lstDatabase.Width = 240
    Me.txbxName.Visible = False
    Me.txbxComments.Visible = False
End Sub

步骤2：修改打开窗体的代码 #

移除原代码中Show之后的赋值语句，因为初始化事件已处理状态设置：

Sub openform()
    Test.Show
End Sub

可选优化：复用UI调整逻辑 #

为避免代码冗余，可将UI调整逻辑抽为独立子过程，让初始化和点击事件共用：

Private Sub UserForm_Initialize()
    Me.cbxAdditional.Value = False
    UpdateCheckboxUI ' 调用复用的UI调整过程
End Sub

Private Sub cbxAdditional_Click()
    UpdateCheckboxUI ' 调用复用的UI调整过程
End Sub

' 独立的UI调整子过程
Private Sub UpdateCheckboxUI()
    If Me.cbxAdditional.Value Then
        Me.Width = 524
        Me.Height = 238.5
        Me.lstDatabase.Width = 480
        Me.txbxName.Visible = True
        Me.txbxComments.Visible = True
    Else
        Me.Width = 279
        Me.Height = 238.5
        Me.lstDatabase.Width = 240
        Me.txbxName.Visible = False
        Me.txbxComments.Visible = False
    End If
End Sub

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