[问题] vba发现表单有空白,跳出msbox,并停止

楼主: waiter337 (给开司一罐苏格登)   2016-09-22 18:40:24
(若是和其他不同软件互动之问题 请记得一并填写)
软件:
版本:
目前textbox1 是vba表单中的一个姓名输入位置
当我发现他没输入东西,或者为数字跟标点符号时
原设定为"新增资料"的按扭
按下之后会发现错误,跳出msbox,并停止vba的运作
(甚至是当输入完成换行时,输入不符规格,就会自动跳出警告视窗)
目前卡住不会写
If TextBox1.Value = False Then
end if
目前google"停止 vba 宏"大神
大部份都是停止excel显示错误警告视窗的宏
求高手支援
另外问一下
我总共有
TextBox1.Value = False
TextBox2.Value = False
TextBox3.Value = False
TextBox4.Value = False
TextBox5.Value = False
TextBox6.Value = False
TextBox7.Value = False
TextBox8.Value = False
TextBox9.Value = False
TextBox10.Value = False
TextBox11.Value = False
TextBox12.Value = False
TextBox13.Value = False
TextBox14.Value = False
这些需要判断
是需要每个各做一次,还是有一次找寻的方法
但我猜可能还是得一个一个做
因为警告视窗得显示未输入的空白格子
作者: Metal5566 (咩陀56)   2016-09-22 20:37:00
UNLOAD userform1
楼主: waiter337 (给开司一罐苏格登)   2016-09-22 21:22:00
If TextBox1.Text = "" Then MsgBox ("旧车主空白")Exit SubEnd If有时后会跳出 有END IF 却没有 IF好像是不用end if 的 if种类我删掉继续hkhk43继续测已解决
作者: soyoso (我是耀宗)   2016-09-23 09:39:00
循环,内判断textbox是否为空白,如只跳最前面那次的话就当第1笔空白时,执行msgbox讯息,再执行回文的exit sub
楼主: waiter337 (给开司一罐苏格登)   2016-09-23 15:18:00
循环写出不同的叙述 是否要在增加一个变量还是说用exit for
作者: soyoso (我是耀宗)   2016-09-23 15:27:00
用controls来指定到textbox的名称如档案内textbox后为连续流水号,可用"textbox" & ii的方式
楼主: waiter337 (给开司一罐苏格登)   2016-09-23 15:36:00
等下研究一下如果改用补助栏Msgbox("a" & ii) 然后补助栏放在其他页面a1~a14Controls 目前还没用过 我先google一下
作者: soyoso (我是耀宗)   2016-09-23 15:43:00
抱歉,补助栏是?辅助栏吗?Msgbox("a" & ii) 然后补助栏放在其他页面a1~a14是指msgbox引内储存格a1~a14的值吗?
楼主: waiter337 (给开司一罐苏格登)   2016-09-23 15:47:00
作者: soyoso (我是耀宗)   2016-09-23 15:47:00
如果引用储存格的值,写法上就不正确了应是range或cells来指定
楼主: waiter337 (给开司一罐苏格登)   2016-09-23 17:14:00
抱歉,我还是写不出来
作者: soyoso (我是耀宗)   2016-09-23 17:24:00
controls方面吗?如果是的话类似http://imgur.com/a/ahfAT
楼主: waiter337 (给开司一罐苏格登)   2016-09-23 18:08:00
太感谢了麻烦帮我看一下这样写有没有其他问题
作者: soyoso (我是耀宗)   2016-09-23 18:28:00
label方面要实际是否调整流水号同textbox因原本提供的档案内是无对应上的
楼主: waiter337 (给开司一罐苏格登)   2016-09-23 18:30:00
是的 后来我又重新调整过了表单上的排序Label1会对上textbox1另外
作者: soyoso (我是耀宗)   2016-09-23 21:27:00
循环于各frame内,判断controls为OptionButton是否有任一个被选取

Links booklink

Contact Us: admin [ a t ] ucptt.com