INPUTBOX 取消後 產生錯誤

hugh0620

Dear 大大~

         小弟在操作INPUTBOX時,產生一些問題
      在SHEET1.RANGE("A1") = 2011/4/10  (請先行在該位上輸入任一日期)
         在執行下面程式時,若按確定,不會有問題,但若是按下取消則會產生錯誤
      請大大有教於我~ 謝謝唷~

      SUB XX()
                Dim A As Date
                 A = InputBox("請輸入刪除日期", "刪除資料", Sheet1.Range("A1"))
        END SUB

oobird

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

GBKEE

回復 1# hugh0620
Sub XX()
    Dim A As Variant
    A = InputBox("請輸入刪除日期", "刪除資料", Sheet1.Range("A1"))
End Sub

hugh0620

回復 2# oobird


    謝謝 oobird 大大~
            你的方式符合我後續要處理的工作~
            因為我需要A要保持DATE的格式~
            方便我用FIND去找到同日期的資料~

    再次感謝~  也學會這一招~
    大大的作法是使用application來產生true與false的方式排除掉當A是一個FALSE

hugh0620

回復 3# GBKEE

     Dear GBKEE 大大
         很抱歉沒有交待清楚問題~
             A的資料格式要保持日期格式~
             大大的改法~ 會使A變成字串的格式~
             我後續的作業無法使用~

           還是謝謝大大的教導~

GBKEE

回復 5# hugh0620

1. Sub Ex()
   
2.         Dim A As Variant
   
3.         Do While Not IsDate(A)
   
4.             A = InputBox("請輸入刪除日期", "刪除資料", Sheet1.Range("A1"))
   
5.         Loop
   
6. End Sub

複製代碼

hugh0620

回復 6# GBKEE


    Dear GBKEE 大大~
            我試過你新的方式~
            但是結果會產生若A不是日期的話~ 就會一直跳出輸入視窗~
            這樣就是要強迫一定要輸入資料~ 不適合使用~
            有時會應該執行後~ USER會不想要執行這個指令~

           以上~ 謝謝大大

GBKEE

回復 7# hugh0620

加上離開迴圈的條件
   

1. Sub Ex()
   
2.     Dim A As Variant
   
3.     Do While Not IsDate(A)
   
4.         A = InputBox("請輸入刪除日期", "刪除資料", Sheet1.Range("A1"))
   
5.         If A = "" Then Exit Do
   
6.     Loop
   
7. End Sub

複製代碼

hugh0620

回復 8# GBKEE


    Dear GBKEE大大~

            感恩呀~ 這樣可以了~ 一次學兩招不同的應用~ 謝謝大大們~