[已解决]设置输入限制

cyj153

请教老师：
       在UserForm1窗口中有80个TextBox控件，如何设置为只能输入纯数值，否则提示输入数据错误！谢谢！

最佳答案

月排行榜 / 总排行榜

today0427

2016-12-30 09:27

用类模块做就可以了

1. Option Explicit
   
2. Dim mytxt(1 To 4) As New 文字框
   
3. Private Sub UserForm_Initialize()
   
4.   Dim x As Integer
   
5.   For x = 1 To 4
   
6.    Set mytxt(x).txt = Me.Controls("textbox" & x)
   
7.   Next x
   
8.   End Sub
   

复制代码

因为我示例中只做了4个文本框，所以我这里是(1 To 4) ，你自己在窗体中添加多少个文本框，就把这个4改成文本框的数量就行了，注意改两个地方
第一个  Dim mytxt(1 To 4) As New 文字框  把这个4改一下
第二个   For x = 1 To 4  把这个4也改一下

跳转到最佳答案楼层

苏子龙

IsNumeric判断下就可以了吧

望帝春心

“在UserForm1窗口中有80个TextBox控件”那不成马蜂窝了吗？楼上老师说得很对

today0427

用类模块做就可以了

1. Option Explicit
   
2. Dim mytxt(1 To 4) As New 文字框
   
3. Private Sub UserForm_Initialize()
   
4.   Dim x As Integer
   
5.   For x = 1 To 4
   
6.    Set mytxt(x).txt = Me.Controls("textbox" & x)
   
7.   Next x
   
8.   End Sub
   

复制代码

因为我示例中只做了4个文本框，所以我这里是(1 To 4) ，你自己在窗体中添加多少个文本框，就把这个4改成文本框的数量就行了，注意改两个地方
第一个  Dim mytxt(1 To 4) As New 文字框  把这个4改一下
第二个   For x = 1 To 4  把这个4也改一下