標題: TextBox可以做到驗證資料嗎 [打印本頁]

---

作者: bear0925900003    時間: 2014-2-20 18:19     標題: TextBox可以做到驗證資料嗎

請問各問大大TextBox要如何能達到驗證資料的效果
EX：TextBox內只能輸入與儲存格A1~A10相同之資料，若不相同自動跳出MsgBox "資訊輸入不正確，請重新輸入！"，然後將TextBox內之資料清空。

---

作者: stillfish00    時間: 2014-2-20 19:00

本帖最後由 stillfish00 於 2014-2-20 19:07 編輯

回復 1# bear0925900003

1. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
2.   Dim x
   
3.   x = Application.Match(TextBox1.Value, Range("A1:A10"), 0)
   
4.   If IsError(x) Then MsgBox "資訊輸入不正確": TextBox1.Value = "": Cancel = True
   
5. End Sub

複製代碼

---

作者: bear0925900003    時間: 2014-2-21 10:40

回復 2# stillfish00

太強了~感恩喔

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)