excel vba 将一个文本框TEXTBOX1限定只能输入数字,如果输入其他汉字或者字母提示,输入错误,请输入数字

IfNotIsNumeric(TextBox1)ThenMsgBox"不是数字!"这一句,不够。请补充下。。。谢谢。。。... If Not IsNumeric(TextBox1) Then MsgBox "不是数字!"
这一句,不够。请补充下。。。谢谢。。。
展开
 我来答
刺友互
高粉答主

2020-02-17 · 每个回答都超有意思的
知道答主
回答量:3979
采纳率:100%
帮助的人:73.5万
展开全部

1、首先在开发工具中打开VBA编辑器。

2、在单元格区域当中输入一些内容作为例子。

3、在VBA编辑器中插入模块。

4、在模块当中输入如下代码,然后运行。

5、用快捷键F5运行窗体,分别在三个文本框中输入字符,可以发现“手机号”文本框中除了数字以外所有汉字和字母及“!”、“?”、“*”等符号已被严格限制。

帐号已注销
2020-02-17 · TA获得超过77.1万个赞
知道小有建树答主
回答量:4168
采纳率:93%
帮助的人:167万
展开全部

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

If Not IsNumeric(TextBox1) Then

MsgBox "不是数字!"

Cancel = True

End If

End Sub

Private Sub CommandButton1_Click()

Dim i As Double

i = Format(Replace(TextBox1.Value, "。", "."), "0.00")

Sheet2.Range("A1").Value = i

End Sub

此代码不管textbox1输入的是句号还是点,都将变成点。四舍五入保留两位小数。

扩展资料:

AcceptsReturn 指示在多行TextBox组件中按ENTER键时,是在组件中创建一行新文本还是激活窗体的默认按钮。

AcceptsTab 该值指示在多行文本框组件中按TAB键时,是否在组件中键入一个TAB字符,而不是按选项卡的顺序将焦点移动到下一个组件。

AllowDrop 获取或设置一个值,该值指示组件是否可以接受用户拖放到它上面的数据。

Anchor 获取或设置组件的哪些边缘锚定到其容器边缘。

BackColor 获取或设置组件的背景色。

BackgroundImage 获取或设置在组件中显示的背景图像。

参考资料来源:百度百科-textbox

本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
解0人
2015-11-11 · TA获得超过2389个赞
知道大有可为答主
回答量:1474
采纳率:83%
帮助的人:765万
展开全部

怎麼不够了?你的完整代码贴出来看看?

试试:

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If Not IsNumeric(TextBox1) Then
        MsgBox "不是数字!"
        Cancel = True
    End If
End Sub
更多追问追答
追问
代码复制后,运行时当我输入“3"就出来对话框,”不是数字“。当然3还在上面。
追答
确定可行的,你的代码和上面一模一样?你是如何输入的?能把你的代码和问题界面截图看看吗?
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
小李无刀
2015-11-11 · TA获得超过6359个赞
知道大有可为答主
回答量:8829
采纳率:78%
帮助的人:5017万
展开全部
不能用那些事件,要判断按键事件:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < Asc(0) Or KeyAscii < Asc(9) Then MsgBox "不是数字!"
End Sub
追问
你的这个也不行。。。
追答
搞错一个小于:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii Asc(9) Then MsgBox "不是数字!"
End Sub
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式