eric093

中學生 Rank: 2

帖子: 77
主題: 30
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-7-14
最後登錄: 2018-10-3

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-3-1 23:19 | 只看該作者

請問怎麼排除這個偵錯

請問因為公司需要，所以需要將訂單時間為訂單日期12點前的訂單刪除，
我寫了個巨集，是可以執行，但是，若這個檔案已被執行後
再點巨集後，就會出現偵錯！
我在想是因為12點前的訂單已被刪除，所以它無法判別如下執行，
請問有辦法排除這個偵錯嗎？

Book3.rar (212.62 KB)

樓主熱帖

新人一枚

heavenweaver

中學生 Rank: 2

帖子: 48
主題: 6
精華: 0
積分: 60
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-8-13
最後登錄: 2023-2-7

2^#

發表於 2014-3-2 11:16 | 只看該作者

你自己已經提供兩種選擇可用：
(1)增加一個時間超過12點就不執行巨集的判斷式。
(2)增加一個檢查無訂單存在就不執行巨集的判斷式。
(1) or (2) 成立，不執行巨集。

很抱歉，我是小學生，不能下載檔案，是個小屁孩！

TOP

eric093

中學生 Rank: 2

帖子: 77
主題: 30
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-7-14
最後登錄: 2018-10-3

3^#

發表於 2014-3-2 13:08 | 只看該作者

回復 2# heavenweaver

謝謝提醒！我再解決了

新人一枚

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兔年全勤獎章

4^#

發表於 2014-3-2 14:20 | 只看該作者

回復 3# eric093

If Not xrange Is Nothing Then
xrange.EntireRow.Delete
MsgBox "更新完成" & Now()
Else
MsgBox "無須更新"
End If

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

eric093

中學生 Rank: 2

帖子: 77
主題: 30
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-7-14
最後登錄: 2018-10-3

5^#

發表於 2014-3-3 10:45 | 只看該作者

回復 4# GBKEE

謝謝版大，我也是這麼改的！

新人一枚

TOP

請問怎麼排除這個偵錯

請問怎麼排除這個偵錯

樓主熱帖

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]