限制輸入資料是日期格式

enoch

請問如何利用INPUTBOX 限制輸入的資料必需是日期,
而且設定格式是 "DD/MM/YYYY"

另外當用DIM 時, 格式會自動設定為MM/DD/YYYY 應如何修改

輸入日期是用作篩選所有大於指定日期的資料

請指教

register313

回復 1# enoch

1. Sub Test()
   
2.     Dim str
   
3.     Do Until IsDate(str)
   
4.       str = InputBox("請輸入日期：", "日期")
   
5.     Loop
   
6.     [A1] = str
   
7.     [A1].NumberFormat = "dd-mm-yyyy"
   
8. End Sub

複製代碼