В диапазоне ячеек А1:А15 задать массив из целых чисел, найти сумму
элементов массива и разделить каждый элемент массива на полученное
значение результат получить в диапазоне ячеек Е1:Е15. Разместить
командную кнопку «Вычислить» и написать к ней процедуру. Результат с
моделируйте на рабочем листе самостоятельно.
Делала в Exс что не так
Sub Лист3_Кнопка1_Щелчок()
Dim s, d, i As Integer 'Описание данных
s = 0 'Начальные присваивания
For i = 1 To 15
s = s + Cells(i, 1)
d = Cells(i, 1) / s
Cells(16, 3) = "Сумма=": Cells(17, 3) = s
Cells(1, 3) = "Деление=": Cells(i, 4) = d
Next
End Sub
Sub Macro()
Dim arr(1 To 15) As Integer
Dim i As Integer
Dim count As Integer
count = 0
For i = 1 To 15
arr(i) = Лист1.Cells(i, 1).Value
count = count + arr(i)
Next i
Worksheets("Лист1").Range("B17") = count
For i = 1 To 15
Лист1.Cells(i, 5) = arr(i) / count
Next i
End Sub
Объяснение: