你試試這幾招
1.
format(myenter,"yyyy/mm/dd")
看要加在inputbox裡面
或者在寫一行
myenter = format(myenter,"yyyy/mm/dd")
(補充,如果2017/01/01,要改成2017/1/1的話,請用"yyyy/m/d")
2.
試試看用datavalue,將日期改成文字
譬如
myenter = datavalue(myenter)
補充一
建議程式多寫個
VBA判斷工作表是否存在的函數 (請google,有很多)
找不到就回頭繼續重新輸入 (用goto)
補充二
建議輸入完後用 msgbox 跳出你所輸入的數值,這樣會比較安全