返回列表 上一主題 發帖

限制輸入資料是日期格式

限制輸入資料是日期格式

本帖最後由 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

        靜思自在 : 【生命在呼吸間】佛陀說:「生命在呼吸間。」人無法管住自己的生命,更無法擋住死期,讓自己永住人間。既然生命去來這麼無常,我們更應該好好地愛惜它、利用它、充實它,讓這無常、寶貴的生命,散發它真善美的光輝,映照出生命真正的價值。
返回列表 上一主題