• Najnowsze pytania
  • Bez odpowiedzi
  • Zadaj pytanie
  • Kategorie
  • Tagi
  • Zdobyte punkty
  • Ekipa ninja
  • IRC
  • FAQ
  • Regulamin
  • Książki warte uwagi

Kolorowanie komórek w excelu za pomocą VBA

Aruba Cloud VPS - 50% taniej przez 3 miesiące!
0 głosów
2,285 wizyt
pytanie zadane 23 września 2017 w Visual Basic przez Adam Domański Początkujący (370 p.)

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

1 odpowiedź

0 głosów
odpowiedź 24 września 2017 przez jeremus Maniak (59,720 p.)
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

Podobne pytania

0 głosów
1 odpowiedź 343 wizyt
0 głosów
1 odpowiedź 1,131 wizyt
pytanie zadane 10 maja 2017 w Visual Basic przez Dece Nowicjusz (140 p.)

93,093 zapytań

142,053 odpowiedzi

321,490 komentarzy

62,435 pasjonatów

Motyw:

Akcja Pajacyk

Pajacyk od wielu lat dożywia dzieci. Pomóż klikając w zielony brzuszek na stronie. Dziękujemy! ♡

Oto polecana książka warta uwagi.
Pełną listę książek znajdziesz tutaj

Wprowadzenie do ITsec, tom 1 Wprowadzenie do ITsec, tom 2

Można już zamawiać dwa tomy książek o ITsec pt. "Wprowadzenie do bezpieczeństwa IT" - mamy dla Was kod: pasja (użyjcie go w koszyku), dzięki któremu uzyskamy aż 15% zniżki! Dziękujemy ekipie Sekuraka za fajny rabat dla naszej Społeczności!

...