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

Jared

想請問一下大大
如果想要驗證輸入的欄位：
     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

複製代碼

但是要怎麼修改放在表單裡面呢?
希望大大指導一下 ><

stillfish00

回復 1# Jared

1. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   
2.   Const START_DATE = "2013/1/1"
   
3.   Const END_DATE = "2013/12/31"
   
4.   
   
5.   If TextBox1 = vbNullString Then Exit Sub  '未填忽略
   
6.      
   
7.   If IsDate(TextBox1) Then
   
8.     If CDate(TextBox1) > DateValue(START_DATE) And CDate(TextBox1) < DateValue(END_DATE) Then
   
9.         TextBox1 = Format(TextBox1, "yyyy/m/d")
   
10.     Else
    
11.       MsgBox "您輸入的日期未介於" & START_DATE & "~" & END_DATE & "之間。"
    
12.       Cancel = True
    
13.     End If
    
14.   Else
    
15.     MsgBox "您的日期格式錯誤，正確規格為YYYY/MM/DD。"
    
16.     Cancel = True
    
17.   End If
    
18. End Sub

複製代碼

Jared

回復 2# stillfish00


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

stillfish00

回復 3# Jared
TextBox1 : 表單上用來輸入日期的文字方塊
TextBox1_Exit : 該文字方塊的Exit事件，表示當使用者打完日期後按tab或enter離開該文字方塊時會自己觸發，參數的cancel可設定使其不失去駐點(文字游標留在該文字方塊)。

前面的Code要放在該表單的程式碼頁面。

Jared

回復 4# stillfish00


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