[算表] Excel VBA 篩選無相符資料即停止程式

看板Office作者deanbandon (斯嘎必)時間9年前 (2015/05/22 12:53)推噓0(0推 0噓 5→)

留言5則, 2人參與討論串1/1

軟體: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

05/22 12:58, , 1^F

05/22 12:58, 1^F

→

soyoso

05/22 12:58, , 2^F

05/22 12:58, 2^F

→

soyoso

05/22 12:58, , 3^F

05/22 12:58, 3^F