Wpis z mikrobloga

#vba #programowanie #pytanie #excel

Może ktoś będzie wiedział dlaczego mi nie chce skompilować tej funkcji. Wywala error "next without for"

Function dzieci(n As Long) As Integer 'zadanie5

Dim licz, ile As Long

For ile = 0 To n

liczba = Rnd()

If liczba = 1 Then

licz = licz + 1

If liczba = 0 Then

licz = licz

End if

Next ile

If licz <= 3 Then

dzieci = 1

Else

dzieci = 0

End If

End Function

Jak pętla jest pusta to oczywiście w porządku. Jak już mu wrzuce te ify to nie potrafi tego skompilować.. ;/
  • 4