文本框只能输入数字的规则怎样写?

poplarshine · 发表于 2010-7-23 11:25

文本框只能输入数字的规则怎样写?
未命名.jpg

horse0918 · 发表于 2010-7-23 11:41

在单元格数据格式中输入公式=A1*1

horse0918 · 发表于 2010-7-23 11:49

看错了，不好意思。如果有数字长度限制的话可用：
if not textbox1.text like "#######" then msgbox "......":exit sub
或可用
if textbox1.text like [0-9]*n then.........

poplarshine · 发表于 2010-7-23 12:07

明白，谢谢。。

horse0918 · 发表于 2010-7-23 12:32

Function FindNum(rng As Range) As String
Dim I%
For I = 1 To VBA.Len(rng)
'将单元格中的数字取出
If Mid(rng, I, 1) Like "[0-9]" Then
If FindNum = "" Then
FindNum = Val(Mid(rng, I, Len(rng)))
Else
FindNum = FindNum & "," & Val(Mid(rng, I, Len(rng)))
End If
I = I + Len(Evaluate(Val(Mid(rng, I, Len(rng)))))
End If
Next I
End Function

zhao__feng · 发表于 2010-7-24 10:04

不用做规则,在程序里判断一下就可以,如果是关联表的,把表字段限制一下.

Towerman · 发表于 2010-7-24 15:28

须全是数字： Not Like "*[!0-9]*"
也可以参考下面的详细设置教程:
<在有效性规则中用Like限制文本框的输入>
http://www.accessoft.com/article-show.asp?id=4071

		自动登录	找回密码
密码			免费注册

[求助] 文本框只能输入数字的规则怎样写?