為什麼這篇Excel 篩選 程式鄉民發文收入到精華區：因為在Excel 篩選 程式這個討論話題中，有許多相關的文章在討論，這篇最有參考價值！作者deanbandon (斯嘎必)看板Office標題[算表] Excel VBA 篩選無相符資料...
軟體:Excel
版本:2010
各位大午安
想詢問用VBA篩選資料若無相符資料即停止程式並跳出錯誤訊息該如何寫?
目前卡在IF那邊.....XD
Sheets("COPTH").Select
Selection.AutoFilter FIELD:=14, Criteria1:=Worksheets("輸入").Cells(3, 12).Value
Selection.AutoFilter FIELD:=15, Criteria1:=Worksheets("輸入").Cells(3, 13).Value
IF ???????? THEN
Sheets("輸入").Select
MsgBox "請重新確認單別&單號!"
Exit Sub
END IF
本來有詢問到
Dim rng As Range
Set rng = ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
If rng.Areas.Count > 1 Or rng.Rows.Count > 1 Then
但研究半天，區域變數地方的Areas跟Rows的數字都不會變動,
跪求解惑~~~謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 59.120.54.199
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1432270408.A.D18.html
→ soyoso: 設個迴圈，例如 for i = 1 to rng.areas.count 05/22 12:58
→ soyoso: cnt = cnt + rng.areas(i).rows.count 05/22 12:58
→ soyoso: next 05/22 12:58
→ soyoso: 接著就可以接if了，如果cnt=1就是無篩選到資料 05/22 13:00
→ deanbandon: 感謝Ｓ大～～～～ 05/24 01:36