---

' Назначение процентов за место для каждого месяца
For i = 1 To 4
    Dim currentVal As Double
    currentVal = oSheet.getCellByPosition(4, i).Value
    place = 0
    
    ' Находим место в отсортированном массиве
    For j = 0 To 3
        If Abs(currentVal - box(j)) < 0.000001 Then
            ' Преобразуем место в проценты
            Select Case j + 1  ' j+1 = место (1,2,3,4)
                Case 1
                    place = 4  ' 4% за 1 место
                Case 2
                    place = 2  ' 2% за 2 место
                Case 3
                    place = 1  ' 1% за 3 место
                Case 4
                    place = 0  ' 0% за 4 место
            End Select
            Exit For
        End If
    Next j
    
    ' Запись процентов в столбец G (индекс 6)
    oSheet.getCellByPosition(6, i).Value = place
Next i