在EXCEL中，如何运用类模块选取数据极小值？

电脑壹台

office办公软件

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

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

会弹出模块编辑窗口！

在模块窗口输入以下代码：ub test1()Dim dd As New 类2dd.条件 = Application.InputBox('请输入条件', '欢迎') * 1For Each rn In [a1:a9] Set dd.单元格 = rnNextMsgBox dd.极小值(2)End Sub

点击工具栏【插入】按钮，在下拉菜单中选择【类模块】，同时写入以下代码。Public 条件Private rngsPrivate nDim ccProperty Set 单元格(rng As Range)If rng > 条件 Then  n = n + 1  If n = 1 Then Set rngs = rng  Set rngs = Union(rngs, rng)End IfEnd PropertyFunction 极小值(k As Integer)极小值 = WorksheetFunction.Small(rngs, k)End Function

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

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