返回列表 上一主題 發帖

TextBox可以做到驗證資料嗎

bear0925900003

帖子
55 
主題
17 
精華
0 
積分
79 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
註冊時間
2013-7-17 
最後登錄
2020-12-31 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-2-20 18:19 | 只看該作者

TextBox可以做到驗證資料嗎

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

bear0925900003

帖子
55 
主題
17 
精華
0 
積分
79 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
註冊時間
2013-7-17 
最後登錄
2020-12-31 
3#
發表於 2014-2-21 10:40 | 只看該作者
回復 2# stillfish00

太強了~感恩喔
你猜!!

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 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
複製代碼

TOP

        靜思自在 : 得理要饒人，理直要氣和。
返回列表 上一主題