返回列表 上一主題 發帖

如何利用VBA去驗證 表單上面的欄位屬性

Jared

帖子
103 
主題
30 
精華
0 
積分
139 
點名
0  
作業系統
wondows XP 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
來自
彰化 
註冊時間
2013-2-21 
最後登錄
2015-6-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-8-8 16:04 | 顯示全部帖子

如何利用VBA去驗證 表單上面的欄位屬性

想請問一下大大
如果想要驗證輸入的欄位：
     1. 輸入內容必須為日期。
     2. 指定輸入的時間必須為2013/1/1 ~ 2013/12/31。
     3. 如果輸入8/8，會自動更新為2013/8/8。

我用錄製操作的程式碼
  1. Sub Macro14()
  2. '
  3. ' Macro14 Macro
  4. '
  5. '
  6.     With Selection.Validation
  7.         .Delete
  8.         .Add Type:=xlValidateDate, AlertStyle:=xlValidAlertStop, Operator:= _
  9.         xlBetween, Formula1:="1/31/2013", Formula2:="12/31/2013"
  10.         .IgnoreBlank = True
  11.         .InCellDropdown = True
  12.         .InputTitle = ""
  13.         .ErrorTitle = "請輸入正確的格式"
  14.         .InputMessage = ""
  15.         .ErrorMessage = _
  16.        "1.您輸入的不是日期。" & Chr(10) & "2.您的日期格式錯誤，正確規格為YYYY/MM/DD。" &Chr(10) & "3.您輸入的日期未介於2013/1/1~2013/12/31之間。" &Chr(10) &""
  17.         .IMEMode = xlIMEModeOff
  18.         .ShowInput = True
  19.         .ShowError = True
  20.     End With
  21. End Sub
複製代碼
但是要怎麼修改放在表單裡面呢?
希望大大指導一下 ><
收藏 分享
Jared

Jared

帖子
103 
主題
30 
精華
0 
積分
139 
點名
0  
作業系統
wondows XP 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
來自
彰化 
註冊時間
2013-2-21 
最後登錄
2015-6-26 
2#
發表於 2013-8-9 09:22 | 顯示全部帖子
回復 2# stillfish00


    感謝大大的協助 ^^
    想請問一下大大
    驗證日期 必須包覆在 Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    這個程式碼的屬性下面嗎? (@@)
Jared

TOP

Jared

帖子
103 
主題
30 
精華
0 
積分
139 
點名
0  
作業系統
wondows XP 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
來自
彰化 
註冊時間
2013-2-21 
最後登錄
2015-6-26 
3#
發表於 2013-8-9 11:42 | 顯示全部帖子
回復 4# stillfish00


    ^^ 謝謝大大的解答
    我知道了
Jared

TOP

        靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。
返回列表 上一主題