VB中不是控件数据,多个文本框设置,代码简化

zhaogang1960

nmcfbgttyl 发表于 2013-1-9 18:57
完全符合我的想法，谢谢赵老师！
只所以这么晚才回复，是因为前段时间出了车祸，白天在法院打官司了，已 ...

一共120多个文本框，不是控件组，怎样设置从第60个至120个文本框只能输入数字和小数点，且只能输入一个小数点。

我疏忽了一个问题，不是所有的文本框都受这个限制，应该是60——120，共61个文本框，现予以纠正：

1. Dim Txt(60 To 120) As New clsTxt
   
2. 
   
3. Private Sub Form_Load() '前提文本框名Text61、Text62、……Text120
   
4.     Dim i As Integer
   
5.     For i = 60 To 120
   
6.         Set Txt(i).Txtbox = Me.Controls("Text" & i)
   
7.     Next
   
8. End Sub

复制代码

窗体中没有画出这么多文本框，就不上传附件了

nmcfbgttyl

zhaogang1960 发表于 2013-1-9 19:08
我疏忽了一个问题，不是所有的文本框都受这个限制，应该是60——120，共61个文本框，现予以纠正：窗体中 ...

再次谢谢您，
我发现这个问题后自己改过了，没和您说，没想到您这么细心、耐心，又改了一次，谢谢赵老师！
这段时间要不是出了好多的事，一定向您学了很多东西，这是我的损失！

VBA万岁

zhaogang1960 发表于 2013-1-9 19:08
我疏忽了一个问题，不是所有的文本框都受这个限制，应该是60——120，共61个文本框，现予以纠正：窗体中 ...

赵老师，我今天遇到了一个问题与楼主的差不多，只有一点不同，那就是，这些文本框是存在于某个工作表中而不是用户窗体中的。就因为这点不同，让我大费周折也无法解决，所以想请您帮忙看看！谢谢！

VBA万岁

VBA万岁 发表于 2014-5-2 15:34
赵老师，我今天遇到了一个问题与楼主的差不多，只有一点不同，那就是，这些文本框是存在于某个工作表中而 ...

http://club.excelhome.net/forum.php?mod=viewthread&tid=1117745&page=1#pid7611782这个问题的出处见以下链接：

VBA万岁

VBA万岁 发表于 2014-5-2 15:36
http://club.excelhome.net/forum.php?mod=viewthread&tid=1117745&page=1#pid7611782这个问题的出处见以 ...

附件如下：
如何用类限制工作表中的多个文本框只能输入数字.rar (9.98 KB, 下载次数: 28)

2014-5-2 15:42 上传

点击文件名下载附件

zhaogang1960

VBA万岁 发表于 2014-5-2 15:42
附件如下：

类：

1. Public WithEvents Txtbox As MSForms.TextBox
   
2. 
   
3. Private Sub Txtbox_Change()
   
4.     Dim s As String, t As String, a, i As Integer
   
5.     s = Txtbox.Text
   
6.     If InStr(s, ".") Then
   
7.         If Left(s, 1) = "." Then
   
8.             Txtbox.Text = Mid(s, 2)
   
9.         Else
   
10.             a = Split(s, ".")
    
11.             If UBound(a) > 1 Then
    
12.                 t = a(0) & "."
    
13.                 For i = 1 To UBound(a)
    
14.                     t = t & a(i)
    
15.                 Next
    
16.                 Txtbox.Text = t
    
17.             End If
    
18.         End If
    
19.     End If
    
20.     With CreateObject("vbscript.regexp")
    
21.         .Global = True
    
22.         .Pattern = "[^0-9.]+"
    
23.         If .test(s) Then
    
24.             Txtbox.Text = .Replace(s, "")
    
25.         End If
    
26.     End With
    
27.     Txtbox.SelStart = Len(s)
    
28. End Sub
    

复制代码

zhaogang1960

Sheet1：

1. Dim Txt() As New clsTxt
   
2. 
   
3. Private Sub Worksheet_Activate()
   
4.     Call clsStart
   
5. End Sub
   
6. 
   
7. Private Sub Worksheet_Deactivate()
   
8.     Call clsEnd
   
9. End Sub
   
10. 
    
11. Sub clsStart()
    
12.     Dim tb As OLEObject, arr(), i%
    
13.     For Each tb In Me.OLEObjects
    
14.         If TypeName(tb.Object) = "TextBox" Then
    
15.             i = i + 1
    
16.             ReDim Preserve Txt(1 To i)
    
17.             Set Txt(i).Txtbox = tb.Object
    
18.         End If
    
19.     Next
    
20. End Sub
    
21. 
    
22. Sub clsEnd()
    
23.     Erase Txt
    
24. End Sub

复制代码

zhaogang1960

ThisWorkbook：

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Call Sheet1.clsEnd
   
3. End Sub
   
4. 
   
5. Private Sub Workbook_Open()
   
6.     Call Sheet1.clsStart
   
7. End Sub

复制代码

zhaogang1960

请看附件
如何用类限制工作表中的多个文本框只能输入数字.rar (17.86 KB, 下载次数: 47)

2014-5-2 16:06 上传

点击文件名下载附件

VBA万岁

zhaogang1960 发表于 2014-5-2 16:09
请看附件

测试通过，谢谢赵老师！