Программа 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.867 из 5