MS Excel VBA

[Satana94]

Неправильно рассчитывает стипендию.
Код:

Sub n()
b = 100 ' Базовая
i = 2
Do While Cells(i, 1) > " "
k2 = 0: k4 = 0: k5 = 0
For j = 1 To 4 ' Подсчет количество двоек
If Cells(i, j + 2) = 2 Then k2 = k2 + 1
If Cells(i, j + 2) = 4 Then k4 = k4 + 1
If Cells(i, j + 2) = 5 Then k5 = k5 + 1
Next j
If k5 = 5 Then
Stip = b * 2
Else
If k5 + k4 = 5 Then
Stip = b * 1.3
Else
If k2 > 0 Then
Stip = 0
Else
Stip = b
End If
End If
End If
Cells(i, 9) = Stip
i = i + 1
Loop
End Sub

[Satana94]

Вот результат

[kuklp]

Может к картинке рамочку узорную пририсовать?

[Aleksandr H.]

Сообщение от Satana94

Вот результат

Ета чё за результат? Правильный или результат запроса?
Если правильный то он ...хм.. неправильный: почему в цикле

For j = 1 To 4    ' Подсчет количество двоек
            If Cells(i, j + 2) = 2 Then k2 = k2 + 1

на первой итерации J = 1 + 2 = 3 тобишь А(1) В(2) С(3), а на скрине в С - какая-то дичь?

предметов 4(!) а ты суммируешь "4"+"5" и вдруг ето даст больше 5, тогда ученик суперБотан тогда повышенная стипуха