软件: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的数字都不会变动,
跪求解惑~~~谢谢

设个循环，例如 for i = 1 to rng.areas.countcnt = cnt + rng.areas(i).rows.countnext接着就可以接if了，如果cnt=1就是无筛选到资料

感谢Ｓ大～～～～