VBA限制窗体TEXT控件输入内容的一个综合示例

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

楼主 xmyjk	Q:vba窗体录入限制输入框中只能输入指定内容 A: Private Sub 输入框A_Change() If Not 输入框A.Text Like "[258]" Then 输入框A.Text = "" End Sub Private Sub 输入框B_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not (输入框B.Text Like "#.#" Or 输入框B.Text Like "#.##" Or 输入框B.Text Like "##.#" Or 输入框B.Text Like "##.##") Then 输入框B.Text = "" End Sub Private Sub 输入框C_Change() If 输入框C.Text Like "[!一-龥]" Then 输入框C.Text = "" End Sub Private Sub 输入框D_Change() If 输入框D.Text Like "[!A-Za-z]" Then 输入框D.Text = "" End Sub Private Sub 输入框E_Change() If Not IsNumeric(输入框E.Text) Then 输入框E.Text = "" Else If 输入框E.Text * 2 - Int(输入框E.Text * 2) <> 0 Or 输入框E.Text Like ".0*" Then 输入框E.Text = "" End If End Sub Private Sub 退出窗体_Click() Unload Me End Sub ｖｂａ窗体录入限制输入框中只能输入指定内容.zip
2楼 0Mouse	弦月很擅长用Like啊！简单词，大作用！学习学习！
3楼 yjzstar	LIKE语句要好好学习下了，马上收藏！
4楼 yjwdjfqb	就是，就是，版主很厉害哟，几句就搞定了
5楼老糊涂
6楼 wss0002	留个脚印，学习一下!谢谢

免责声明

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

评论列表