[求助]文本框只输入数字

作者：金字塔来源：cxh99.com 发布时间：2016年07月25日

咨询内容： 我在百度查了答案，但放在金字塔用似乎用不了。测试了一下，貌似是因为KEYPRESS事件没有响应。
我是这样测试的：Sub UserForm1_txtWeight_KeyPress(KeyAscii) call application.MsgOut (1)End Sub
按理如果有反应的话，消息框应该会显示1吧
为什么KEYPRESS事件没反应呢？
金字塔客服： txtWeight是什么？改为如下代码试下
Sub UserForm1_KeyPress(KeyAscii) call application.MsgOut (1)End Sub
用户回复： 非常感谢
网友回复： 为何还是无法限制只输入数字呢？代码如下
Sub UserForm1_KeyPress(KeyAscii) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0End Sub