　暱稱: VBA向前衝

帖子: 558
主題: 58
精華: 0
積分: 625
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-5-17

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-4-19 14:38 | 只看該作者

INPUTBOX 取消後產生錯誤

Dear 大大~

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

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

樓主熱帖

學習才能提升自己

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2011-4-19 14:52 | 只看該作者

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2011-4-19 14:55 | 只看該作者

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

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 558
主題: 58
精華: 0
積分: 625
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-5-17

4^#

發表於 2011-4-19 15:55 | 只看該作者

回復 2# oobird

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

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

學習才能提升自己

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 558
主題: 58
精華: 0
積分: 625
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-5-17

5^#

發表於 2011-4-19 15:59 | 只看該作者

回復 3# GBKEE

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

         還是謝謝大大的教導~

學習才能提升自己

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2011-4-19 16:20 | 只看該作者

回復 5# hugh0620

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

複製代碼

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 558
主題: 58
精華: 0
積分: 625
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-5-17

7^#

發表於 2011-4-19 17:00 | 只看該作者

回復 6# GBKEE

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

         以上~ 謝謝大大

學習才能提升自己

TOP

GBKEE