Столкнулся с проблемой при переделывании кода - VB
Формулировка задачи:
Доброго времени суток всем!
Тут образовалась такая проблема: мне дали готовую считающую таблицу, но вскоре она устарела.Нужно поменять баллы которые она будет выдавать на выходе.При смене в разбаловке на листе справочник ничего не изменилось, а как так изменить я не знаю, кто может подсказать?
вот ссылка на файл ,пароль 1234 на VBA:
yadi.sk/d/ndWIZppuFhhQu
Заранее спасибо.
Тут образовалась такая проблема: мне дали готовую считающую таблицу, но вскоре она устарела.Нужно поменять баллы которые она будет выдавать на выходе.При смене в разбаловке на листе справочник ничего не изменилось, а как так изменить я не знаю, кто может подсказать?
вот ссылка на файл ,пароль 1234 на VBA:
yadi.sk/d/ndWIZppuFhhQu
Заранее спасибо.
Решение задачи: «Столкнулся с проблемой при переделывании кода»
textual
Листинг программы
'подтягивание на перекладине
Public Sub Ypr4(r_stolb, i, form)
ball = 0
rezult1 = Cells(i + 8, r_stolb).Value
If rezult1 = "-" Or rezult1 = "" Then GoTo L4_3
If rezult1 = 0 Then
ball = 0
GoTo L4_31
End If
'перерасчет для военной формы одежды
If form = 4 Then
popr = Worksheets("Справочник").Cells(41, 2).Value
rezult = rezult1 + popr
Else
rezult = rezult1
End If
If rezult >= 30 Then
raz = rezult - 30
ball = 100 + raz * 3
GoTo L4_31
End If
If rezult >= 15 And rezult < 30 Then
raz = rezult - 15
ball = 70 + raz * 2
GoTo L4_31
End If
If rezult >= 3 And rezult < 15 Then
raz = rezult - 3
ball = 22 + 4 * raz
GoTo L4_31
End If
If rezult = 2 Then
ball = 16
ElseIf rezult = 1 Then
ball = 6
Else
ball = 0
End If
L4_31: Cells(i + 8, r_stolb + 1).Value = ball
L4_3: End Sub