В диапазоне ячеек А1:А15 задать массив из целых чисел, найти сумму элементов массива и...

Question

В диапазоне ячеек А1:А15 задать массив из целых чисел, найти сумму элементов массива и разделить каждый элемент массива на полученное значение результат получить в диапазоне ячеек Е1:Е15. Разместить командную кнопку «Вычислить» и написать к ней процедуру. Результат с моделируйте на рабочем листе самостоятельно. Делала в Exсel помогите что не так 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

Answer 1

Ответ:

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

Объяснение: