返回列表 上一主題 發帖

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

stillfish00

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

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2013-8-9 10:12 | 顯示全部帖子
回復 3# Jared
TextBox1 : 表單上用來輸入日期的文字方塊
TextBox1_Exit : 該文字方塊的Exit事件，表示當使用者打完日期後按tab或enter離開該文字方塊時會自己觸發，參數的cancel可設定使其不失去駐點(文字游標留在該文字方塊)。

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

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題