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

作者：绿色风分类：时间：2022-08-17 浏览：135

楼主 liuguansky	Q:现在有多个ACTIVEx文本框控件，想实现它们全部都只能输入数字和最多一个小数点，即只能输入数值，如何编写代码？[因为不知道有多少个TEXTBOX，不能一个一个去写事件代码] A;用如下代码可以实现：类模块代码： Private WithEvents t As MSForms.TextBox Private Sub t_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) '限制只可以输入数字，不可输入字母和其他符号 Select Case KeyAscii Case 48 To 57 Case 46 If InStr(1, t.Text, ".") Then KeyAscii = 0 End If Case Else KeyAscii = 0 End Select End Sub Private Sub t_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) '限制中文输入 With CreateObject("vbscript.regexp") .Global = True .Pattern = "[^0-9.]+" If .test(t.Text) Then t.Text = .Replace(t.Text, "") End If End With End Sub Public Sub tk(i As OLEObject) '获取oleboject对象 Set t = i.Object End Sub 按钮代码： Dim Ar(1 To 100) As TT '定义数组类 Sub justest() Dim j As OLEObject, K As Byte For Each j In Sheet1.OLEObjects If TypeName(j.Object) = "TextBox" Then '如果为TEXTBOX控件 j.Object.Text = "" '清空文本框 K = K + 1: Set Ar(K) = New TT '同时创建类实体 Ar(K).tk j '给类实体赋值，激活事件。 End If Next End Sub
2楼 JOYARK1958	謝謝提供學習下載中
3楼水星钓鱼	学习
4楼 398829134	楼主厉害，学习了
5楼 icenotcool
6楼 wumin88838	相关资料需要多研究下。

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表