[已解决]快速显示筛选结果

lujianwkx

各位大侠：
　　我是一名会计，现在要将1年的银行回单根据金额找到对应的凭证号。由于单据太多，一个一个筛选太花时间。
　　希望可以在Ａ1输入银行单据金额（如100），可以用宏实现自动显示借方或贷方有100的行，
　　要求：
　　　1.在一个工作表中显示（即不希望将显示结果在ＳＨＥＥＴ2中）
　　　2.可以多次重复查询（即查询100后直接录入200即可出现200的结果，无需取消筛选后显示全部再执行）
　　　3.最好可以实现我在查询结果中选择到我所需要的100后按ＣＴＲＬ+Ｚ功能键可以将其100单元格底色变为黄色（证明此金额已找到回单，以便最终看哪些金额缺少回单）
　　　明天就要完成这个工作，否则周末要加班了，
　　　在此先谢谢各位高手！！

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-14 15:08

如果你一定要用两位小数来筛选多位小数，就在辅助列做下功课。附件可以以两位小数筛选。
你试下7513.97

跳转到最佳答案楼层

lujianwkx

有高手可以帮帮我吗？

大灰狼1976

做个辅助列不就好了，何必舍易求难。

lujianwkx

大灰狼1976 发表于 2017-4-14 13:34
做个辅助列不就好了，何必舍易求难。

借方和贷方的问题可以用辅助列来解决。但主要是想自动筛选出结果。否则一次一次的点筛选太麻烦了，想输完金额后自动显示结果。确实因为手上1年的付款凭证都在这，太多了

大灰狼1976

附件请测试，在A1内容被清除时会显示所有数据，但是有个问题，你单元格内虽然显示的是两位小数，
但实际上小数位很多，如果A1单元格输入的是两位小数的近似值时，将筛选不到所需的数据。
你可以用100和200做测试，然后试试再小数的就知道了

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Address <> [a1].Address Then Exit Sub
   
4. If Target = "" Then UsedRange.AutoFilter Field:=10: Exit Sub
   
5. UsedRange.AutoFilter Field:=10, Criteria1:=Format([a1], "0.00")
   
6. End Sub

复制代码

大灰狼1976

如果你一定要用两位小数来筛选多位小数，就在辅助列做下功课。附件可以以两位小数筛选。
你试下7513.97

大灰狼1976

单元格涂色什么的就不做了，change事件用多了容易出问题，特别是在用户并不懂VBA的情况下。
另，ctrl+z是撤消的快捷键，不好随便修改。

lujianwkx

大灰狼1976 发表于 2017-4-14 15:08
如果你一定要用两位小数来筛选多位小数，就在辅助列做下功课。附件可以以两位小数筛选。
你试下7513.97

很好用，谢谢