利用Find找日期，出現錯誤!!

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

11^# 跳轉到 »

發表於 2018-7-4 14:06 | 只看該作者

回復 10# hugh0620
Application.CountA([AB10:AM10000])=0,沒有資料,當然Find(K)找不到

For K = MS01 To ME02
MsgBox Application.CountA([AB10:AM10000])
Set C = 工作表7.Range("AB10:AM10000").Find(K)
TE01 = C.Offset(0, 0).Row
DS = 0
For L = A To B
If Range("I" & L) = K Then
DS = DS + Range("O" & L)
End If
Next
1
C.Offset(1, 0) = DS
D = D + 1
Next

複製代碼

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

TOP

doom834

中學生 Rank: 2

帖子: 20
主題: 5
精華: 0
積分: 61
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 台灣桃園
註冊時間: 2010-9-1
最後登錄: 2019-4-26

12^#

發表於 2018-7-27 13:48 | 只看該作者

加入 is nothing
Set A = Sheets("行事曆").Range("G3:G10000").Find(ST)
If A Is Nothing Then
'自行加入找不到ST這個字串或數字時的動作
Else
A = A.Offset(0, 0).Row
End If

TOP

a5007185

　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生 Rank: 2

帖子: 108
主題: 1
精華: 0
積分: 113
點名: 0
作業系統: Win 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2017-9-7
最後登錄: 2019-2-27

論壇榮譽勳章論壇贊助勳章

13^#

發表於 2018-7-28 00:24 | 只看該作者

回復 10# hugh0620

誠如GBKEE超級版主所言，
Find之所以出現問題，
是因為你尋找的範圍沒有資料，
Find找不到你變數K的值，
你應該要修改一下[AB10:AM10000]的範圍。

另外，你Find的值導向 TE01 這個變數，
但是這個變數再後面也都沒有再出現，
所以是有點摸不著頭緒。

如果你需要其他協助，
建議你可以把你的整個邏輯跟目的跟版上熱心大大們分享，
我相信你可以得到很好的回饋的！

祝你順心 : )

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

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

14^#

發表於 2018-8-3 08:55 | 只看該作者

回復 13# a5007185

   嗨!! 你可能誤解了，提供的檔案，是針對我一開始PO的文，
            A、B的部分在執行的過程中產生錯誤，而非去討論下半段資料的範圍。
            A、B的資料是有的，但還是發生錯誤。
            因為，在每次撰寫FIND時，這個問題一直重複性的發生。

            下半段的部分，只是最初我在測試統計區間資料時，在同一個SHEET做簡單的模擬，
            後來，工具做好後，沒有再去修正這個部分!!

            其實設計的邏輯，就如同程式碼的內容，主要是：統計區間的工作天數!!
            後害塞到每一筆資料中(開始日、結束日)。這個部分就下是半段的部分，這個是沒有問題的!!

學習才能提升自己

TOP

a5007185

　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生 Rank: 2

帖子: 108
主題: 1
精華: 0
積分: 113
點名: 0
作業系統: Win 10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 臺灣
註冊時間: 2017-9-7
最後登錄: 2019-2-27

論壇榮譽勳章論壇贊助勳章

15^#

發表於 2018-8-3 09:15 | 只看該作者

回復 14# hugh0620

抱歉，我稍微整理以上各位大大表述的意見。

Find函數如果該範圍找不到你的目標的時候，
函數會回饋「Nothing」，
而既然Set A = Nothing，
當然A就不會有Row的屬性，
所以程式才會跳錯，
這就是你問題的所在。

所以為了避免這個問題，
在執行 A = A.Offset(0, 0).Row 之前先檢查A是否存在，
若不存在則跳出訊息並停止程式運作。

Set A = 工作表7.Range("G3:G10000").Find(ST)
If A Is Nothing Then
MsgBox "A部分輸入的日期不存在": Exit Sub
Else
A = A.Offset(0, 0).Row
End If
Set B = 工作表7.Range("G3:G10000").Find(ED)
If B Is Nothing Then
MsgBox "A部分輸入的日期不存在": Exit Sub
Else
B = B.Offset(0, 0).Row
End If

複製代碼

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

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

16^#

發表於 2018-8-3 09:43 | 只看該作者

回復 12# doom834

      嗨，謝謝你的提醒，不加入is nothing 是故意的，
               為什麼不加入，由於，在計算生產的負載情況，不能計算錯誤，
               情願讓程式在跑時候，發現錯誤，無法執行下去，使用者就會反應!!

學習才能提升自己

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

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

17^#

發表於 2018-8-3 10:14 | 只看該作者

回復 15# a5007185

      嗨!! 可能還是沒有清楚提問的問題!!

               問題點：資料有，但卻發生找不到資料的問題。

               而非是探討，資料沒有時的處置!!

學習才能提升自己

TOP

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

18^#

發表於 2018-8-3 10:14 | 只看該作者

了解A 是否有物件:
Set A = ......
if not A is Nothing then ..........

TOP

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

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

19^#

發表於 2018-8-3 10:24 | 只看該作者

FIND_的應用問題_已經修正.zip (104.04 KB)

                           同一樣的檔案，相同A、B的設定，下半段做了小調整，整個程式是可以被執行的。
                           但我還是不能理解的是，為什麼當初A、B會出現Nothing (但資料上明明有)，
                           我後來的處理是，把
                              Set A = 工作表7.Range("G3:G10000").Find(ST) <=不動
                                    A = A.Offset(0, 0).Row          <=A改成A01，A01 = A.Offset(0, 0).Row
                           重新RUN，就可以RUN，A也沒有再發生Nothing的情況。
                           然後，A01 = A.Offset(0, 0).Row 又改回A = A.Offset(0, 0).Row
                           試著在run，也沒有發生問題。

                           雖是，問題被解決，但我還是不了解，到底是怎麼回事，
                           是哪個環節、或是設定上的需要如何調整!!
                           這是我疑惑的地方，有請大大指教!!

學習才能提升自己

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

20^#

發表於 2018-8-3 10:38 | 只看該作者

回復 17# hugh0620
G欄資料格式是自訂而非日期，Find時會當成字串來比，但你傳入Find的ST是Date，所以找不到。
要嘛傳入ST前再format轉成字串
要嘛G欄格式都改日期

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

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

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