Kolorowanie komórek w excelu za pomocą VBA

Question

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ę. :)

Answer 1

jeśli varA jest puste  to zaznaczasz na czerwono ale dalej liczysz i masz dzielenie przez 0

przenieś End If po sprawdzaniu pustego na sam koniec - przed End Sub