|
楼主 |
发表于 2012-5-29 21:04
|
显示全部楼层
无聊的疯子 发表于 2012-5-29 20:19
你的代码太绕了,没仔细测试,应该是工作表没有显示出来的原因吧,
你可以测试,先让他显示了然后再 激活他 ...
现在已经能筛选了 只是改了一下函数 以前用的是with 现在用activate 谢谢你的帮助 还有就是 密码不能为数字问题 无法识别 以前用vlookup是可识别 不过这个问题无所谓 不能用及不能用把 能改最好 还是谢谢疯子兄
- Private Sub shaixuan1()
- Sname = ComboBox1.Text
- Sheets("原数据").Activate
- Range("A2:O4000").AutoFilter Field:=1, Criteria1:=Sname
- End Sub
复制代码
|
|