Problem w Visual basicu w exelu.
Error 11
Division by zero
Linijka pogrubiona wyskakuje
Private Sub UserForm_Click()
Dim opr_dostosowane As Integer
Dim liczba_rat As Integer
Dim opr_nominalne As Integer
opr_dostosowane = (opr_nominalne / (12 / okres_kapit))
liczba_rat = okres_kred / okres_rat
Bardzo proszę o szybką pomoc ?
prawdopodobnie okres_kapit dla jakiś danych wynosił 0, dzielenie przez 0 nie jest operacją matematycznie zdefiniowaną dla liczb całkowitych. Drugą możliwością jest, że 12/okres_kapit wyniosło zero na skutek tego, że okres_kapit > 12. Dzielenie w liczbach całkowitych pozostaje liczbą całkowitą i wynosi 0.
Private Sub CommandButton1_Click()
Dim kredyt As Single
kredyt = CommandButton1.Value
CommandButton1.Caption = kredyt & " PLN"
End Sub
Private Sub Frame1_Click()
End Sub
Private Sub Frame3_Click()
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub Label5_Click()
End Sub
Private Sub OptionButton1_Click()
stale = OptionButton1.Value
End Sub
Private Sub OptionButton2_Click()
malejace = OptionButton2.Value
End Sub
Private Sub ScrollBar1_Change()
kredyt = ScrollBar1.Value
Label3.Caption = kredyt & " PLN"
End Sub
Private Sub ScrollBar2_Change()
okres_kred = ScrollBar2.Value
Label1.Caption = "Okres kredytowania: " & okres_kred & " msc."
End Sub
Private Sub ScrollBar3_Change()
okres_kapit = ScrollBar3.Value
Label2.Caption = "Kapitalizacja co: " & okres_kapit & " msc."
End Sub
Private Sub ScrollBar4_Change()
okres_rat = ScrollBar4.Value
Label4.Caption = "Okres płatnosci raty co: " & okres_rat & " msc."
End Sub
Private Sub ScrollBar5_Change()
opr_nominalne = ScrollBar5.Value / 100
Label5.Caption = opr_nominalne & " %"
End Sub
Private Sub UserForm_Click()
opr_dostosowane = (opr_nominalne / (12 / okres_kapit))
liczba_rat = okres_kred / okres_rat
If stale Then
For n = 1 To 120
rata1 = (kredyt * ((1 + opr_dostosowane) ^ liczba_rat) * opr_dostosowane) / (((1 + opr_dostosowane) ^ liczba_rat) - 1)
czesc_kapitalowa1 = kredyt * (opr_dostosowane / (((1 + opr_dostosowane) ^ liczba_rat) - 1)) * ((1 + opr_dostosowane) ^ (okres_kred - 1))
czesc_odsetkowa1 = rata - czesc_kapitalowa
Next
End If
If malejace Then
For n = 1 To 120
rata2 = (kredyt / liczba_rat) * (1 + (liczba_rat - okres_kred + 1) * opr_dostosowane)
czesc_kapitalowa2 = kredyt / liczba_rat
czesc_odsetkowa2 = (kredyt / liczba_rat) * ((liczba_rat - okres_kred + 1) * opr_dostosowane)
Next
End If
End Sub
Private Sub UserForm_Initialize()
Label3.Caption = kredyt & " PLN"
Label5.Caption = opr_nominalne & " %"
End Sub
Witam, mam problem z wynikiem, po naciśnięciu buttonu wynik jest 0 PLN. Może źle wstawiłem wzrór w cześć Private Sub UserForm_Click() ? Zna ktoś się, jestem zielony w tym.