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 取消後 產生錯誤