查詢提示問題(以解決，感謝GBKEE的幫忙) - Excel程式區

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

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

1^# 跳轉到 »

發表於 2010-8-10 08:05 | 顯示全部帖子

回復 5# olisun
On Error Resume Next
d = .Cells(.Range("A4:A").Find(czxm).Row, 1) 這句語法錯誤
因為你使用On Error Resume Next 所以就忽列這一錯誤繼續執行下去

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

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

2^#

發表於 2010-8-10 10:32 | 顯示全部帖子

回復 7# olisun

With Sheets("初看未購原因")  紅字的語法錯誤
Set r = .Range("A4:A" .Range("A65536").End(xlUp).Row)
On Error Resume Next
d = .Cells(.Range("A4:A").Find(czxm).Row, 1) =>應簡化為  d =r.Find(czxm)

這是你要的嗎?
With Sheets("初看未購原因")
Set r = .Range("A4:A" & .Range("A65536").End(xlUp).Row)  ->修正後
On Error Resume Next
d =r.Find(czxm)

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

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

3^#

發表於 2010-8-10 11:18 | 顯示全部帖子

回復 9# olisun
With Sheets("初看未購原因")
Set r = .Range("A4:A" & .Range("A65536").End(xlUp).Row) '
'不要用它On Error Resume Next
If r.Find(czxm) Is Nothing Then
MsgBox "無此週次"
Exit Sub
End If
End With

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

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

4^#

發表於 2010-8-10 11:32 | 顯示全部帖子

回復 11# olisun
請附上檔案看看