Witam,
Sub Makro()
Dim varA As Double
Dim varB As Double
Dim varC As Double
Dim varDelta As Double
Dim varDeltaPierw As Double
Dim varPierwZero As Double
Dim varPierwOne As Double
Dim varPierwSec As Double
varA = Range("B3").Value
varB = Range("C3").Value
varC = Range("D3").Value
If IsEmpty(Range("B3:D3").Value) = True Then
Range("B3:D3").Interior.Color = RGB(255, 0, 0)
End If
varDelta = (varB ^ 2) - 4 * (varA * varC)
If (varDelta = 0) Then
varPierwZero = (-(varB)) / (2 * varA)
MsgBox ("Delta jest równa zero. Pierwiastek kwadratowy to: " & varPierwZero)
ElseIf (varDelta > 0) Then
varDeltaPierw = Sqr(varDelta)
varPierwOne = (-(varB) - (varDeltaPierw)) / (2 * varA)
varPierwSec = (-(varB) + (varDeltaPierw)) / (2 * varA)
Range("B5").Value = varPierwOne
Range("C5").Value = varPierwSec
Else
MsgBox ("Funkcja nie ma pierwiastków.")
End If
End Sub
Podczas uruchamiania tego makra wyskakuje mi błąd numer 6: "Overflow". Program sprawdza, czy komórki excela nie mają żadnych wartości. Jeśli tak, zaznaczają się na czerwono.
Poproszę o pomoc.
Z góry dziękuję. :)