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

Объяснение:

Answer 2

Предполагается, что вы хотите создать макрос в Excel, который будет выполнять описанные вами операции с массивом чисел в диапазоне ячеек A1:A15 и размещать результаты в диапазоне ячеек E1:E15.

Вот исправленный вариант вашего кода:

vbaCopy code
Sub Лист3_Кнопка1_Щелчок()
    Dim s As Integer, d As Double, i As Integer ' Описание данных
    s = 0 ' Начальное присваивание

    For i = 1 To 15
        s = s + Cells(i, 1).Value ' Сумма элементов массива
    Next i

    For i = 1 To 15
        d = Cells(i, 1).Value / s ' Разделение каждого элемента на сумму
        Cells(i, 5).Value = d ' Размещение результата в столбце E
    Next i

    Cells(16, 3).Value = "Сумма=" ' Метка "Сумма="
    Cells(17, 3).Value = s ' Вывод суммы в ячейку C17
    Cells(1, 3).Value = "Деление=" ' Метка "Деление="
End Sub

Этот код будет выполнять следующие действия:

1. Вычислять сумму элементов массива в диапазоне A1:A15.
2. Разделять каждый элемент массива на полученную сумму.
3. Размещать результат деления в диапазоне E1:E15.
4. Выводить сумму в ячейку C17.
5. Выводить метку "Сумма=" в ячейку C16 и метку "Деление=" в ячейку C1.

Вы можете создать командную кнопку в Excel и связать ее с этим макросом, чтобы запускать его по щелчку на кнопке.