限制文本框内输入字符串长度

利用文本框的MaxLength属性，可以限制文本框内的数据长度。一般情况下，在用户窗体的初始化事件中对文本框的这个属性进行设置。当然，也可以在文本框的属性窗口直接设置该属性。

以下程序限定文本框最多只能输入10个字符。

private sub UserForm_Initialize()
    TextBox2.MaxLength=10
    TextBox2.ControlTipText="最大长度不超过 10"
End Sub

效果如下：

限制只能输入负号，阿拉伯数字和小数点

利用文本框的KeyPress事件，可以限制只能在文本框输入数字，小数点和负号。如果输入其他字符，则无效。参考以下案例：

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) And KeyAscii <> Asc(".") And KeyAscii <> Asc("-") Then
        KeyAscii = 0
        Beep
    End If
End Sub