1、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!
2、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】
3、会弹出模块编辑窗口！
4、在模块窗口输入以下代码：Sub 条件判断()Dim tes As New 判断te衡痕贤伎s.条件 = Application.InputBox烫喇霰嘴("请筛选录入条件") * 1For Each rn In Range("a1", Cells(Rows.Count, 1).End(xlUp)) Set tes.单元格 = rnNextMsgBox tes.取数
5、点击工具栏【插入】按鸵晚簧柢钮，在下拉菜单中选择【类模块】，并在【属性】窗口中将其命名为【判断】，同时写入以下代码。Private rngsPublic 条件Property Set 单元格(rng As Range)If rng >= 条件 Then rngs = rngs + 1End PropertyProperty Get 取数()取数 = rngsEnd Property
6、点按键盘上的F8，一曰搬嚏嘀步步运行编写的代码！同时可以检查代码是否正确！会弹出以下条件窗口！输入60后，点击【确定】。
7、继续运行代码，可以发现程序在模块和类模块中交替运行！最后判断出符合条件的数值为13个。
