[問題] 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