通过 VBA 实现自动筛选功能？

Private Sub SpinButton1_Change()

Range("d1").Value = SpinButton1.Value

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

 If Target.Column = 4 And Target.Row = 1 Then

       ActiveSheet.Range("A6:F" &10000).AutoFilter Field:=3, Criteria1:=Range("d1").Value, _

      Operator:=xlAnd

 End If

End Sub

*** 作过程按下面

Excel怎样输入数据后对数据表筛选出结果

方法/步骤如下：

1/7分步阅读

1.用VBA程序处理Excel数据文件，用户的数据文件有时处于自动筛选模式，为此，需要检测工作表是否处于该模式，则去掉自动筛选，代码如下：

2/7

2.虽然Selection.AutoFilter也可以加上自动筛选，但筛选位置却可能在当前单元格处，所以要注意，加自动筛选前，现将单元格定位到字段标题处代码

3/7

3.检测其它非活跃的工作表代码

4/7

4.语法错误数据

5/7

5.数据表格显示结果：

6/7

6.返回的数据

7/7

7.Visual Basic for Applications方法代码

---