下拉列表选中Other选项时，TextBox文本全选功能不稳定如何解决？

你的代码里TextBox1.Select偶尔失效，核心原因有两个：

• 弹出的MsgBox会抢走焦点，关闭弹窗后焦点大概率回到ComboBox而非TextBox，导致全选命令根本没生效
• Select方法在控件未获得焦点时本身就不稳定，可靠性远不如手动控制选中范围

给你两个可靠的解决方案：

方案1：移除MsgBox，直接实现稳定全选 #

把弹窗去掉，先让TextBox获取焦点，再用SelStart和SelLength精准控制全选范围，这是VBA里实现文本全选最稳定的方式：

Private Sub ComboBox1_Change()
    If ComboBox1.Value = "Other" Then
        TextBox1.Enabled = True
        TextBox1.SetFocus ' 先让文本框获得焦点
        TextBox1.SelStart = 0 ' 选中起始位置设为文本开头
        TextBox1.SelLength = Len(TextBox1.Value) ' 选中长度等于文本总长度
    Else
        TextBox1.Enabled = False
        TextBox1.Value = "Please Specify"
    End If
End Sub

方案2：保留提示但避免抢占焦点 #

如果一定要保留提示，别用MsgBox，改用状态栏提示——这种方式不会抢走TextBox的焦点，也能达到提示效果：

Private Sub ComboBox1_Change()
    If ComboBox1.Value = "Other" Then
        Application.StatusBar = "Please Specify below" ' 状态栏显示提示信息
        TextBox1.Enabled = True
        TextBox1.SetFocus
        TextBox1.SelStart = 0
        TextBox1.SelLength = Len(TextBox1.Value)
    Else
        Application.StatusBar = False ' 恢复默认状态栏状态
        TextBox1.Enabled = False
        TextBox1.Value = "Please Specify"
    End If
End Sub

测试后你会发现，这两种方案都能稳定实现选中"Other"后自动全选TextBox内容的效果，不会出现几次后失效的问题。

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