[已解决]用同一快捷键实现单列数据的筛选与取消筛选的功能

dawin

如题，已经对该宏设置快捷键CTRL+B,现在已经能实现对摁第一次时对所选取的单元格进行筛选，如选择100，摁快捷键，则将所有成绩为100的选择出来。现在要添加实现的功能是，再选择100的时候摁快捷键，会取消此列的自动筛选。

如果有多个列参与筛选时，只取消当前列的自动筛选，其他列的自动筛选不取消。如成绩筛选100后，对姓名筛选丁，取消丁的筛选时，成绩100的筛选，还得保留。即，由最下面的图片恢复到上面一个图片的筛选状态。


最后的实现动画。


[ 本帖最后由 dawin 于 2010-7-21 16:53 编辑 ]

Zamyi

Dim Ist As Boolean
Sub 筛选()
If Ist Then
ActiveCell.CurrentRegion.AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell.Value
Else
ActiveCell.CurrentRegion.AutoFilter
End If
Ist = Not Ist
End Sub

dawin

谢谢
不过你给的代码实现不了第二个功能，就是先选取100，选择丁，出现第二个图的效果。

我加了一句Field:=ActiveCell.Column，能够实现那个功能，但是还是有点小问题，就是连续对不同列的值进行筛选的时候，得多执行一次宏。
凑合用着先，以后我再自己琢磨加点逻辑判断。
谢谢。

1. Dim Ist As Boolean
   
2. Sub 筛选()
   
3. If Ist Then
   
4. ActiveCell.CurrentRegion.AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell.Value
   
5. Else
   
6. ActiveCell.CurrentRegion.AutoFilter Field:=ActiveCell.Column
   
7. End If
   
8. Ist = Not Ist
   
9. End Sub

复制代码

dawin

自己又优化了一下，还是有一点点小问题。

1. 
   
2. Dim col1%, Ist As Boolean
   
3. Sub 筛选()
   
4. If col1 = ActiveCell.Column Then
   
5.    If Ist = True Then
   
6.    ActiveCell.CurrentRegion.AutoFilter Field:=ActiveCell.Column
   
7.    Ist = False
   
8.    Else
   
9.    ActiveCell.CurrentRegion.AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell.Value
   
10.    Ist = True
    
11.    End If
    
12. Else
    
13. ActiveCell.CurrentRegion.AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell.Value
    
14. Ist = True
    
15. col1 = ActiveCell.Column
    
16. End If
    
17. End Sub
    

复制代码