Witam przychodze z problemem, ponieważ kompletnie jestem zielony w tych sprawach i nie potrafie sobie poradzić z tak błachym zadaniem w EXCELU. Zadaniee daje w załączniku
Tutaj podaje kod który mam uzupełnić
Sub równanie_kwadratowe()
Dim a As Single, b As Single, c As Single, d As Single
a = [A1]
b = [B1]
c = [C1]
If …………… Then
………………………
………………………
If …………… Then
[D1]= ……………
[E1]= ……………
Else
………………………
………………………
End If
Else
………………………
………………………
End If
End Sub
Czy jest ktoś w stanie mi pomóc z tym? Byłbym bardzo wdzięczny.
Pozdrawiam