[已解決]自動篩選問題

本帖最後由 like_azure 於 2011-6-13 11:53 編輯

'本程序自動篩選顧客名稱為BOTTM, 人員代號為3的資料錄
Sub vbaAFilter()
Dim Rng As Range '自動篩選結果範圍
Dim theRow As Range '各區域的資料列
Dim theArea As Range '各區域範圍
With Sheets("Orders") '在Orders工作表中
Set Rng = .UsedRange '所有資料範圍
Rng.AutoFilter Field:=2, Criteria1:="BOTTM" '篩選出顧客為BOTTOM者
Rng.AutoFilter Field:=3, Criteria1:="3" '再篩選出員工代號為3者
'設定篩選結果範圍
Set Rng = Rng.Resize(Rng.Rows.Count - 1).Offset(1, 0).SpecialCells(xlCellTypeVisible)
End With
'遍歷篩選結果範圍各AREA
For Each theArea In Rng.Areas
'遍歷各AREA的各列
For Each theRow In theArea.Rows
theRow.Select '選定此列
MsgBox theRow.Address '顯示此列的位址
Next
Next
Rng.AutoFilter '解除自動篩選狀態
End Sub

複製代碼

請問各位大大，上面程式碼是參考crdotlin大大的範例(http://blog.xuite.net/crdotlin/excel/11049893)，
小弟在運用的時候，卻遇到如果沒有符合篩選條件的時候，
就會在Set Rng = Rng.Resize(Rng.Rows.Count - 1).Offset(1, 0).SpecialCells(xlCellTypeVisible)這行當掉，
錯誤訊息：執行階段錯誤'1004' 找不到所要找的儲存格

請問各位大大要怎麼解決這個問題呢？

50 字節以內
不支持自定義 Discuz! 代碼

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2011-6-8 22:12 | 只看該作者

本帖最後由 luhpro 於 2011-6-8 22:19 編輯

回復 1# like_azure
Sub vbaAFilter()
.
.
.
On Error GoTo Skip
With Sheets("Orders") '在Orders工作表中
.
.
.
End With
For Each theArea In Rng.Areas
.
.
.
Next

Skip:
Rng.AutoFilter '解除自動篩選狀態
On Error GoTo 0
End Sub

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章