VBA 限制多个textbox 只能输入数字，小数，负数 。

37623412

各位大神， 我的界面有大量的TEXTBOX ，没有用数组控件。
我要限制textbox只能输入数字，小数和负数。
帮我看看 代码那里有问题。
运行无效果，还是可以输入中英文字符。

Dim m_currentTextBox As TextBox
Private Sub Form_Initialize()
Me.KeyPreview = True
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)

If m_currentTextBox Is Me.ActiveControl And IsNumeric(Chr(KeyAscii)) = False And KeyAscii <> 46 Then KeyAscii = 0

End Sub

hehex

VBA 在语言上不直接支持控件数组。
而且你限制Ascii 码的代码应用的事件恐怕是不行的，那个事件是针对窗体的按键。Form_keypress
如果是针对文本框 TextBox_keypress 那一定是可以的，但是你有几十个文本框，就要重写几十个事件，这是不现实的。
解决方案有2种(我设想的未必对，提供一条思路）
第一种是直接解决的方法：
利用类模块做一个文本框控件数组的类，定义该类的事件，类似keypress 但是对象是你类模块的文本控件数组类。你的文本框都可以是new 的这个类模块的对象。理论大体如此，但是鉴于俺的类模块还没有入门只能纸上谈兵。

第二种思路是间接解决方法：
即在录入时不限制，而在提交的时候进行检验，如果某文本框内不是数字，就报错不予提交。
这样只要能模拟解决控件数组的问题，能让所有文本框循环就可以做到了。（建议你所有的提示信息使用label 窗体控件，这样可以避免和文本框混淆）
下面是我设计的模拟控件数组循环片段，思路来自百度，自己也没调试，仅仅希望能对你有所帮助：
这样仅用一段代码就可以循环你所有的文本框控件了。

1. Dim shp As OLEObject, mark As String, text_in As String
   
2.     mark = "TextBox" '建议你的文本框都用TextBox 开头后面不同这样容易取巧
   
3.     For Each shp In .OLEObjects '在所有控件中进行循环
   
4.         If InStr(shp.Name, mark) > 0 Then '如果控件的名称中出现了TextBox 即为一个文本框
   
5.            '之所以使用工作表函数isnumber 是因为vba 函数isnumeric 对空值夜判断为真，懒的加一个条件了
   
6.            '下面判断语句很简单，如果文本框内容不是数值就直接填0,你可以根据需要进行程序控制的更改
   
7.            If (Not WorksheetFunction.IsNumber(shp.Object.Text)) Then shp.Object.Text = 0
   
8.             
   
9.         End If
   
10.     Next

复制代码

37623412

谢谢，我一直想写个公共类，调用不行吗。 点击事件的时候遍历？

hehex

37623412 发表于 2013-3-6 15:12
谢谢，我一直想写个公共类，调用不行吗。 点击事件的时候遍历？

我觉得这个问题应该是用类模块来解决是正理。但是类模块对新手来说比较复杂，我也还没入门，不会写。
类模块里用With events 可以定义事件，做一个文本框控件数组的类，定义一个key press 事件，你所有的文本框都可以调用这个事件，就可以稍作修改你顶楼的代码就工作了。
理论上是如此，实际操作的话，知识欠缺太多。

37623412

还是谢谢你啊  继续求大神   

zhaogang1960

短信收到，需要类模块，请参考下面我回复的帖子：
VB中不是控件数据,多个文本框设置,代码简化
http://club.excelhome.net/thread-968033-1-1.html

zhaogang1960

针对你的要求——有负号，重新写了一个，请测试
类模块clsTxt：

1. 
   
2. Public WithEvents Txtbox As MSForms.TextBox
   
3. 
   
4. Private Sub Txtbox_Change()
   
5.     Dim s As String, t As String, a, i As Integer
   
6.     s = Txtbox.Text
   
7.     If InStr(s, ".") Then '仅保留一个小数点，且不在最左边
   
8.         If Left(s, 1) = "." Then
   
9.             Txtbox.Text = Mid(s, 2)
   
10.         Else
    
11.             a = Split(s, ".")
    
12.             If UBound(a) > 1 Then
    
13.                 t = a(0) & "."
    
14.                 For i = 1 To UBound(a)
    
15.                     t = t & a(i)
    
16.                 Next
    
17.                 Txtbox.Text = t
    
18.             End If
    
19.         End If
    
20.     End If
    
21.     If InStr(s, "-") Then '仅保留一个负号，且在最左边
    
22.         a = Split(s, "-")
    
23.         If Left(s, 1) <> "-" Then
    
24.             Txtbox.Text = Replace(s, "-", "")
    
25.         Else
    
26.             If InStr(Mid(s, 2), "-") Then Txtbox.Text = "-" & Replace(s, "-", "")
    
27.         End If
    
28.     End If
    
29.     With CreateObject("vbscript.regexp") '最后只保留数字，小数点，负号
    
30.         .Global = True
    
31.         .Pattern = "[^0-9.-]+"
    
32.         If .test(s) Then
    
33.             Txtbox.Text = .Replace(s, "")
    
34.         End If
    
35.     End With
    
36.     Txtbox.SelStart = Len(s)
    
37. End Sub
    
38. 
    

复制代码

zhaogang1960

还有其他辅助代码，都写在窗体里面，请看附件
限制多个textbox 只能输入数字，小数，负数.rar (13.39 KB, 下载次数: 368)

2013-3-7 23:02 上传

点击文件名下载附件

37623412

感谢赵刚老师的帮助，受教了。 衷心祝愿您万事如意。

37623412

代码已测试，完全符合要求。