標題: 限制輸入資料是日期格式 [打印本頁]

---

作者: enoch    時間: 2012-6-25 11:55     標題: 限制輸入資料是日期格式

本帖最後由 enoch 於 2012-6-25 12:59 編輯

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

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

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

請指教

---

作者: register313    時間: 2012-6-25 13:10

回復 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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)