如何限制多个TEXTBOX的输入，使其只能输入数值？

idn

我的窗体中有33个文本框文件，其中一个是输入日期，格式为2012-12-12这种，其余的只能输入数值，即数字加小数点，请问该如何控制这33个文本框文件的输入格式只能是数值呢（或者后面的32个也可以）。
我在网上搜到了一个解决方法，但是将其插入我的代码中，老是提示代码错误，连接如下：
http://www.exceltip.net/thread-28095-1-1-14725.html
哪位高手可以给解释一下，这些代码的意义，还有我觉得好像他说反了，是不是类代码和按钮的代码放反了呢

zhaogang1960

你提供的网址代码太麻烦了，可简单点：

1. Dim Txt() As New clsTxt
   
2. 
   
3. Private Sub UserForm_Initialize()
   
4.     Dim ctl As Control, m&
   
5.     For Each ctl In Me.Controls
   
6.         If TypeName(ctl) = "TextBox" Then
   
7.                 If ctl.Name <> "TextBox1" Then
   
8.                 m = m + 1
   
9.                 ReDim Preserve Txt(1 To m)
   
10.                 Set Txt(m).Txtbox = ctl
    
11.             End If
    
12.         End If
    
13.     Next
    
14. End Sub

复制代码

1. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) '第一个TextBox1日期限制不需要类模块
   
2.     If TextBox1.Text = "" Then Exit Sub
   
3.     If IsDate(TextBox1.Text) = False Then
   
4.         Cancel = True
   
5.         TextBox1.Text = ""
   
6.     End If
   
7. End Sub

复制代码

类模块clsTxt：

1. Public WithEvents Txtbox As MSForms.TextBox
   
2. 
   
3. Private Sub Txtbox_Change()
   
4.     With CreateObject("vbscript.regexp")
   
5.         .Global = True
   
6.         .Pattern = "[^0-9.]+"
   
7.         If .test(Txtbox.Text) Then
   
8.             Txtbox.Text = .Replace(Txtbox.Text, "")
   
9.         End If
   
10.     End With
    
11. End Sub
    

复制代码

zhaogang1960

第一个文本框输入日期，其他所有都只能输入数字
做了一个附件请查看：
如何限制多个TEXTBOX的输入.rar (12.15 KB, 下载次数: 955)

2012-12-13 00:09 上传

点击文件名下载附件

idn

太好了，感谢以上两位，马上实验一下

idn

非常感谢zhaogang1960 。好用的很。
再追问一个问题，如果我想打开窗体时，文本框保留上次输入的数值，即某一单元格的值，并且按照分节号显示，例如，我的textbox2输入-123456.78到单元格b2中，我想让下次打开窗体后，textbox2显示的是-123,456.78,我的代码为textbox2.value=format(range("b2").value,"#,###.00"),请问为什么这个代码不好用

zhaogang1960

idn 发表于 2012-12-13 15:30
非常感谢zhaogang1960 。好用的很。
再追问一个问题，如果我想打开窗体时，文本框保留上次输入的数值，即某 ...

窗体没有记忆能力，需退出窗体时把数据记录在一个载体上面，通常记录在工作表上比较方便，请说明记录在哪一个工作表上面

idn

谢谢zhaogang1960 的热心解答。
我已经指明了存放的工作表，如在上述代码前添加了With worksheets("suodeshui")，目前可以显示b2单元格的数值，但是文本框的格式没有按照我的要求出现分节号？

zhaogang1960

idn 发表于 2012-12-13 16:42
谢谢zhaogang1960 的热心解答。
我已经指明了存放的工作表，如在上述代码前添加了With worksheets("suodes ...

文本框格式化和类模块中的Txtbox_Change相悖，Txtbox_Change会删除其中它认为错误的字符

idn

那么应该如何解决呢，还请版主支招
如果把类模块中的改为可以输入数值、小数点和负号以及分节号，应如何修改代码

zhaogang1960

idn 发表于 2012-12-13 17:32
那么应该如何解决呢，还请版主支招
如果把类模块中的改为可以输入数值、小数点和负号以及分节号，应如何修 ...

我不会正则表达式，实在写不出来pattern表达式

建议你另发一个求助帖

求一个保留数值、小数点和负号以及分节号的正则pattern表达式