Excel工作表按钮首次点击失效问题排查（附VBA代码）

你的代码核心问题是执行顺序错误，导致首次点击时控件设置不生效：

• UserForm1.Show默认是模态显示，执行到这行代码时，当前按钮的点击事件会暂停，直到你关闭UserForm1，才会继续执行后面的ListBox和TextBox赋值操作。此时赋值是给已经关闭的表单控件，所以首次打开表单时看不到变化。
• 第二次点击时，表单实例可能还留在内存中（比如首次关闭只是Hide而不是Unload），这时候赋值会直接作用到内存里的控件，打开表单后就能看到效果。

修复方案 #

方案一：调整代码执行顺序 #

先加载表单、设置所有控件属性，再显示表单，确保打开时控件已配置完成：

Private Sub CommandButton1_Click()
    ' 检查表单是否已加载，未加载则先加载到内存
    If Not UserForm1.Visible Then Load UserForm1
    
    ' 先设置所有控件属性
    UserForm1.MultiPage1.Value = 2
    UserForm1.ListBox2.Selected(1) = True
    UserForm1.TextBox16.Value = 84
    
    ' 最后显示表单
    UserForm1.Show
End Sub

方案二：把初始化逻辑移到表单事件中 #

将控件设置代码放到UserForm的Activate事件里，每次表单显示时自动执行初始化：

1. 打开UserForm1的代码模块，添加以下代码：

Private Sub UserForm_Activate()
    Me.MultiPage1.Value = 2
    Me.ListBox2.Selected(1) = True
    Me.TextBox16.Value = 84
End Sub

2. 按钮代码简化为：

Private Sub CommandButton1_Click()
    UserForm1.Show
End Sub

额外注意事项 #

默认情况下，点击表单右上角叉号只会隐藏表单（Hide），不会从内存中卸载（Unload），可能导致后续出现异常。建议在表单中添加关闭事件，确保关闭时彻底卸载：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
        Cancel = True ' 取消默认关闭行为
        Me.Hide
        Unload Me ' 彻底卸载表单，释放内存
    End If
End Sub

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