Программа VBA в Excel

Формулировка задачи:

День добрый! Помогите создать программу:

Необходимо распределить фиксированное число между участниками из расчета их рейтинга.

Допустим есть 100 руб которые нужно распределить между Ивановым, Петровым и Сидоровым, если их рейтинги равны 3,5 и 2 соответственно. Нужно разделить деньги по частям 3,5 и 2 соответственно (33,55 и 22 руб соответственно). Заранее благодарю за всю помощь!

Решение задачи: «Программа VBA в Excel»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub CommandButton1_Click()
Dim n As Integer, m As Integer
Dim f, S, S1, k As Integer, i As Integer
f = Val(InputBox("введите фиксированное число", , 100))
n = 2 'начальная строка диапазона рейтингов
m = 3 'столбец диапазона рейтингов
If f > 0 Then
i = n
S = 0
Do While Cells(i, m) <> 0
S = S + Cells(i, m)
i = i + 1
Loop
S = Round(f / S, 2): Cells(1, 8) = S
k = i - 1
S1 = 0
For i = n To k
Cells(i, m + 1) = Cells(i, m) * S
S1 = S1 + Cells(i, m + 1)
Next i
 Cells(i, m + 2) = "Summ " & S1
Else
MsgBox "!!!"
End If
End Sub