INPUTBOX 取消後產生錯誤

　頭銜: 街友一族

論壇貢獻勳章

1^# 跳轉到 »

發表於 2011-4-19 14:52 | 顯示全部帖子

Dim A As Date
A = Application.InputBox("請輸入刪除日期", "刪除資料", Format(Sheet1.Range("A1"), "yyyy/mm/dd"))
If A = False Then End

靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。

INPUTBOX 取消後 產生錯誤