返回列表 上一主題 發帖

限制輸入資料是日期格式

限制輸入資料是日期格式

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

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

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

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

請指教

回復 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
複製代碼

TOP

        靜思自在 : 修行要繫緣修心,藉事練心,隨處養心。
返回列表 上一主題