你试试这几招
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 跳出你所输入的数值,这样会比较安全