Public Sub Ypr62(r_stolb, i, form)
rezult = Cells(i + 8, r_stolb).Value
If rezult = "" Then GoTo L62_3
If rezult = "сош" Then
    ball = 0
    GoTo L62_31
End If
Call Preob(rezult, tm_rez1)
'перерасчет для военной формы одежды
If form = 4 Then
    popr = Worksheets("Справочник").Cells(41, 13).Value
    tm_rez = tm_rez1 - popr
Else
    tm_rez = tm_rez1
End If
If tm_rez <= 590 Then
    raz = 590 - tm_rez
    ball = 100 + raz \ 3
    GoTo L62_31
End If
If tm_rez <= 594 And tm_rez > 590 Then
    raz = 594 - tm_rez
    ball = 98 + raz \ 2
    GoTo L62_31
End If
Select Case tm_rez
    Case 597, 596, 595
        ball = 97
    Case 600, 599, 598
        ball = 96
    Case 603, 602, 601
        ball = 95
    Case 607, 606, 605, 604
        ball = 94
End Select
If tm_rez <= 628 And tm_rez > 607 Then
    raz = 628 - tm_rez
    ball = 87 + raz \ 3
    GoTo L62_31
End If
Select Case tm_rez
    Case 630, 629
        ball = 86
    Case 633, 632, 631
        ball = 85
End Select
If tm_rez <= 690 And tm_rez > 633 Then
    raz = 690 - tm_rez
    ball = 66 + raz \ 3
    GoTo L62_31
End If
If tm_rez <= 714 And tm_rez > 690 Then
    raz = 714 - tm_rez
    ball = 60 + raz \ 4
    GoTo L62_31
End If
If tm_rez <= 756 And tm_rez > 714 Then
    raz = 756 - tm_rez
    ball = 62 + raz \ 3
    GoTo L62_31
End If
Select Case tm_rez
    Case 760, 759, 758, 757
        ball = 45
        GoTo L62_31
End Select
If tm_rez <= 850 And tm_rez > 760 Then
    raz = 850 - tm_rez
    ball = 30 + raz \ 6
    GoTo L62_31
End If
If tm_rez <= 900 And tm_rez > 850 Then
    raz = 900 - tm_rez
    ball = 25 + raz \ 10
    GoTo L62_31
End If
If tm_rez <= 1130 And tm_rez > 900 Then
    Set rng = Sheets("Справочник").Range("AA121:AA351").Find(what:=tm_rez)
    If Not (rng Is Nothing) Then
        strok = Mid(rng.Address, 5)
    Else
        MsgBox "не найден"
    End If
    ball = Sheets("Справочник").Cells(strok, 26).Value
End If
If tm_rez > 1130 Then ball = 0
L62_31: Cells(i + 8, r_stolb + 1).Value = ball
L62_3: End Sub