返回列表 上一主題 發帖

TextBox可以做到驗證資料嗎

stillfish00

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

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題