在EXCEL中，如何运用类模块进行数据筛选？

1、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!

2、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】

3、会弹出模块编辑窗口！

4、在模块窗口输入以下代码：

Sub 条件判断()

Dim tes As New 判断

tes.条件 = Application.InputBox("请筛选录入条件") * 1

For Each rn In Range("a1", Cells(Rows.Count, 1).End(xlUp))

  Set tes.单元格 = rn

Next

MsgBox tes.取数

5、点击工具栏【插入】按钮，在下拉菜单中选择【类模块】，并在【属性】窗口中将其命名为【判断】，同时写入以下代码。

Private rngs

Public 条件

Property Set 单元格(rng As Range)

If rng >= 条件 Then rngs = rngs + 1

End Property

Property Get 取数()

取数 = rngs

End Property

6、点按键盘上的F8，一步步运行编写的代码！同时可以检查代码是否正确！会弹出以下条件窗口！输入60后，点击【确定】。

7、继续运行代码，可以发现程序在模块和类模块中交替运行！最后判断出符合条件的数值为13个。