1234
返回列表 上一主題 發帖

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

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2018-7-3 11:29 | 只看該作者

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

Dear 大大
         
           對於Find的使用，經常還是會卡卡的，
           經常需要計算生產區間的工作天，所以，會常使用到Find，
           確定生產開始與結束的日期，再進行分析。
           
           所以，有沒有大大可以有資料或範本能更清楚的說明Find的正確使用方式，
           避免會卡到這個問題。
           
            下圖是執行上的錯誤。
             並附上檔案，請大大協助解決。
            
             FIND_的應用問題.zip (103.31 KB)
收藏 分享
學習才能提升自己

mhl9mhl9

帖子
214 
主題
74 
精華
0 
積分
296 
點名
0  
作業系統
win7 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
hk 
註冊時間
2013-6-17 
最後登錄
2018-11-3 
31#
發表於 2018-8-17 00:21 | 只看該作者
回復 1# hugh0620
不用find而用match就簡單許多了>>>>A=worksheetfunction.match([W3],[G:G],0)>>>>A是第A行
lmh

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
30#
發表於 2018-8-7 16:55 | 只看該作者
若用FIND一直有困擾, 可改用MATCH函數
Dim ST&
ST = Range("W3")
A = Application.Match(ST, [G:G], 0)
If IsError(A) Then MsgBox "找不到 W3 的日期!!!": Exit Sub
MsgBox A

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
29#
發表於 2018-8-7 16:43 | 只看該作者
假設第一次開啟EXCEL後,並未執行任何的搜尋動作,
只進行這檔案的FIND, 而有時可, 有時不可(確定尋找值是存在的),
則應不是搜尋條件參數的問題了~~

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
28#
發表於 2018-8-7 07:38 | 只看該作者
本帖最後由 GBKEE 於 2018-8-7 07:47 編輯

回復 25# hugh0620

Range.Find 方法
說明中的 l 備註
如果沒有找到符合的儲存格，則此方法會傳回 Nothing。Find 方法不會影響選取範圍或作用儲存格。
每次使用此方法時，都會儲存 LookIn、LookAt、SearchOrder 及 MatchByte 的設定。如果下次呼叫此方法時不指定這些引數的值，便會使用儲存值。如果設定這些引數，將會變更 [尋找] 對話方塊中的設定，而修改 [尋找] 對話方塊中的設定，則會變更省略這些引數時所使用的儲存值。若要避免發生問題，每次使用此方法時，請明確設定這些引數。您可以使用 FindNext 及 FindPrevious 方法，重複進行搜尋。

修改19#檔案的程式
  1. Private Sub CommandButton1_Click()
  2. Dim ST As Date
  3. Dim ED As Date
  4. Dim a As Range
  5. ST = 工作表7.Range("W3")
  6. ED = 工作表7.Range("X3")
  7. Set a = 工作表7.Range("G3:G10000").Find(ST, LookIn:=xlValues)
  8. MsgBox a Is Nothing  &"  找不到 " & ST
  9. 'Find 尋找日期, 資訊的類型,為公式.
  10. Set a = 工作表7.Range("G3:G10000").Find(ST, LookIn:=xlFormulas)
  11. MsgBox a Is Nothing &"  找到 " & ST
  12. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
27#
發表於 2018-8-6 21:05 | 只看該作者
回復 25# hugh0620
這裡有一篇不知是否有幫助？
https://excelmacromastery.com/excel-vba-find/#Using_SearchFormatwith_Find
請看：Using SearchFormat with Find 篇及其範例
其中有一句：
Application.FindFormat.Clear
可清除前次設定的 Find Format

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
26#
發表於 2018-8-6 18:19 | 只看該作者
本帖最後由 stillfish00 於 2018-8-6 18:20 編輯

回復 25# hugh0620
Find 參數說明 : https://msdn.microsoft.com/zh-tw ... e-find-method-excel

自己簡單試幾種寫法， 除了第二種會Fail如同之前講的，其他都能成功吧。
  1. Sub TestCases()
  2.     Dim ST As Date
  3.     Dim ED As Date
  4.     ST = 工作表7.Range("W3")
  5.     ED = 工作表7.Range("X3")
  6.     With 工作表7
  7.         Set A = .Range("G3:G10000").Find(What:=ST, After:=.[G3], LookIn:=xlFormulas, LookAt:=xlWhole)
  8.         If Not A Is Nothing Then Debug.Print "#1", A.Row Else Debug.Print "#1", "Find Fail"
  9.         Set A = .Range("G3:G10000").Find(What:=ST, After:=.[G3], LookIn:=xlValues, LookAt:=xlWhole)
  10.         If Not A Is Nothing Then Debug.Print "#2", A.Row Else Debug.Print "#2", "Find Fail"
  11.         Set A = .Range("G3:G10000").Find(What:=Format(ST, "yyyy/mm/dd"), After:=.[G3], LookIn:=xlValues, LookAt:=xlWhole)
  12.         If Not A Is Nothing Then Debug.Print "#3", A.Row Else Debug.Print "#3", "Find Fail"
  13.         Set A = .Range("G3:G10000").Find(What:=.Range("W3").Text, After:=.[G3], LookIn:=xlValues, LookAt:=xlWhole)
  14.         If Not A Is Nothing Then Debug.Print "#4", A.Row Else Debug.Print "#4", "Find Fail"
  15.     End With
  16. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
25#
發表於 2018-8-4 09:04 | 只看該作者
回復  hugh0620
我知道為啥結果不一樣了。
你可以試試先按Ctrl+F，你能跑是因為你目前的選項是在搜尋'公 ...
stillfish00 發表於 2018-8-3 23:09



         Ctrl+F的方式，在遇到問題的時候，也有試著用過這樣的方式，
        也有寫設定LookIn:=xlValues，但也測試過，不行!!
        
         有沒有一個Find跟Format的相關參數上的說明跟範例，
         能更方便了解如何使用!!
         (不熟悉規範及使用方式，應用上，就會很卡!! 也需要這方面的求助跟指導)
學習才能提升自己

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
24#
發表於 2018-8-3 23:09 | 只看該作者
回復 23# hugh0620
我知道為啥結果不一樣了。
你可以試試先按Ctrl+F，你能跑是因為你目前的選項是在搜尋'公式' ，我的是在搜尋'內容'所以執行時有Error

Find 的參數有很多是Optional，但是當你沒指定這些參數時，他會以上次使用的值作為預設值。
這裡的上次包含使用者有用到Ctrl+F搜尋時選擇的選項。

所以，用Find的話最好還是明確指定這些參數。
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
23#
發表於 2018-8-3 15:17 | 只看該作者
回復  hugh0620
沒這回事，19# 檔案還是會出現錯誤。
stillfish00 發表於 2018-8-3 10:39


   
      測試結果.gif
     
     修正後，檔案是可以被正常執行!!
     不了解，檔案還是會出現錯誤??
     是否可以截圖或是上傳GIF檔看一下!!
學習才能提升自己

TOP

        靜思自在 : 真正的愛心，是照顧好自己的這顆心。
1234
返回列表 上一主題