返回列表 上一主題 發帖

限制輸入資料是日期格式

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-6-25 11:55 | 只看該作者

限制輸入資料是日期格式

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

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

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

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

請指教
收藏 分享

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 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
複製代碼

TOP

        靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。
返回列表 上一主題