Программа 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д