关于求助VBA少选代码修正，希望有大侠出手！

mooming

此为一小超市一周会员消费记录，号码为会员卡号。现要实现的功能是，当在I1中输入要筛选查询消费次数，点击筛选按钮后，在M列显示一周内消费次数等于I1数值的会员卡卡号，现小弟碰到的问题是当输入的I1值筛选有结果时，M列正常显示，当无符合条件时，提示“运行时错误‘5’：
无效的过程调用或参数”，能否修改代码实现当A2-G500无符合输入I1筛选条件时不报错 而是在M1中显示 9999999呢（因暂时不可能达到这么多会员）

具体见附件 希望有大侠 能帮忙 谢谢 筛选.rar (17.92 KB, 下载次数: 6)

2012-5-24 23:16 上传

点击文件名下载附件

已解决 谢谢大家关注 If r > 0 Then [m1].Resize(r, 1) = Application.Transpose(arr1) Else [m1] = 9999999

mooming

希望有大侠看到 能帮忙 谢谢
或者告诉我 VBA能不能实现这样的功能 谢谢！

zjcat35

1. If r = 0 Then
   
2.         Range("m1") = 9999999
   
3.     Else
   
4.         [m1].Resize(r, 1) = Application.Transpose(arr1)
   
5.     End If

复制代码

这样修改下就好了