如何在Excel中识别二次方程的实根？

简介

在Microsoft Excel中处理大型数据集可能很困难，尤其是在您必须从复杂方程式中查找准确值时。Excel提供了一种极好的方法来加快此处理速度，用户可以在Visual Basic中创建用户定义函数并在指定的单元格中调用它。UDF是解决复杂数学方程式的有效方法。在本文中，我们将学习如何通过用户定义函数确定二次方程的根。

使用Visual Basic代码评估二次方程的根

步骤1

打开所需的电子表格，并在A1:D2范围内输入以下条目。

步骤2

按ALT +F11键打开VBE窗口，移动到“插入”选项卡，然后单击“模块”选项，如下所示：

步骤3

在新模块中编写UDF：

Function quad_roots(r1, r2, r3)
'compute the formula'
t = (r2 * r2) - (4 * r1 * r3)
Select Case t
Case 0: quad_roots = 1
Case Is > 0: quad_roots = 2
Case Else: quad_roots = 0
End Select
End Function