tình hình là em mới vào học thử làm macro nhưng viết thử cái macro giải phương trình bậc 2 thì nó không chạy đúng, mong các bác chỉ hộ em cái lỗi, em tìm h oài chưa ra
Function ptb2(a, b, c)
Dim del, ng As Double
del = b ^ 2 - 4 * a * c
If (del > 0) Then ng = (del ^ 0.5 - b) / 2 Else
ng = "pt vo nghiem:"
ptb2 = ng
End Function
Function ptb2(a, b, c)
Dim del, ng As Double
del = b ^ 2 - 4 * a * c
If (del > 0) Then ng = (del ^ 0.5 - b) / 2 Else
ng = "pt vo nghiem:"
ptb2 = ng
End Function
