在Excel的vba中编写一段代码解一元二次方程组

比如在单元格a1输入a，a2输入b，a3输入c，最后求出x1x2的值，也在单元格中显示求详细的代码谢谢... 比如在单元格a1输入a，a2输入b ，a3输入c，最后求出x1 x2的值，也在单元格中显示
求详细的代码
谢谢展开

 我来答

1个回答

#热议# 为什么有人显老，有人显年轻？

jjchangyuan
推荐于2017-12-15 · TA获得超过1.1万个赞

知道大有可为答主

回答量：4278

采纳率：90%

帮助的人：1087万

我也去答题访问个人页

关注

展开全部

给你个自定义函数更方便
Function x1x2(a, b, c As Integer)
If b ^ 2 - 4 * a * c >= 0 Then
x1x2 = "x1=" & (-b + Sqr(b ^ 2 - 4 * a * c)) / 2 / a & " x2=" & (-b - Sqr(b ^ 2 - 4 * a * c)) / 2 / a
Else
MsgBox "参数输入错误，无解！"
End If
End Function

追问

我们还没有学到这么深
所以function啥的看不懂TAT

追答

ALT+F11打开VBA编辑器，双击SHEET1，将以下代码复制粘贴。
a1,a2,a3输入参数，在a4输入结果。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a, b, c As Integer
a = Range("a1").Value
b = Range("a2").Value
c = Range("a3").Value
If a = 0 Then
MsgBox "系数a不能为0，请重新输入"
Exit Sub
End If
If b ^ 2 - 4 * a * c >= 0 Then
   Range("a4") = "x1=" & (-b + Sqr(b ^ 2 - 4 * a * c)) / 2 / a & "   x2=" & (-b - Sqr(b ^ 2 - 4 * a * c)) / 2 / a
   Else
   MsgBox "参数输入错误，无解！"
End If
End Sub