返回列表 上一主題 發帖

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

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2018-7-4 14:06 | 顯示全部帖子
回復 10# hugh0620
Application.CountA([AB10:AM10000])=0,沒有資料,當然Find(K)找不到
  1. For K = MS01 To ME02
  2. MsgBox Application.CountA([AB10:AM10000])
  3. Set C = 工作表7.Range("AB10:AM10000").Find(K)
  4.     TE01 = C.Offset(0, 0).Row
  5. DS = 0
  6.     For L = A To B
  7.    
  8.         If Range("I" & L) = K Then
  9.            DS = DS + Range("O" & L)
  10.         End If
  11.     Next
  12. 1
  13.     C.Offset(1, 0) = DS
  14.     D = D + 1
  15. Next
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題