Question

如何让VBA窗体上的文本框保持输入焦点？

窗体上有几个文本框，如何使其中一个文本框中输入内容仅在满足一定条件(比如只能输入数字1~100)时，才能到下一个文本框？

Answer 1

参考代码：

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Value < 1 Or TextBox1.Value > 100 Then
        Cancel = True     '输入值不在 1~100 范围内时, 禁止焦点转移到另一个控件, 保留在当前控件
    End If
End Sub

 原理：在 Exit 事件中执行判断，如果不满足指定条件，则把 Cancel 参数值设置为 True 来阻止焦点移出控件

Answer 2

最好加个msgbox 提示用户