请教一下各位老师:
我设计了一个用于批量打印统计表的小程序,想在文本框中限制输入的业务编号只能是13位,多了少了都不行。自己试了很多次,就是没能在光标移开这个文本框时才执行判断语句,请各位老师指点一下,谢谢!
谢谢版主大人帮我解决了问题,代码如下,大家一起学习!
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)'文本框字数不超过13
If Len(TextBox1.Value) > 12 Then KeyAscii = 0
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)'文本框字数不小于13
If Len(TextBox1.Value) < 13 Then Cancel = True
End Sub
版主大人写了个更简单的代码:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Value) <> 13 Then Cancel = True
End Sub
谢谢版主大人,我把答案都放到一楼,方便大家学习
PS:我刚刚从baidu上知道了单独限制文本框的最大字数可以用文本框的MaxLength属性解决。
[此贴子已经被作者于-12-21 0:16:26编辑过]