Пример 3

Создать процедуру для выполнения следующих действий:

1. Записать в массив Р(2,5) данные, хранящиеся в ячейках А1:Е2 листа Excel с именем Первый.

2. Найти сумму элементов каждой строки массива и записать в массив c именем S.

3. Вывести окно с сообщением «Сумма» I -й «строки равна» S (I).

Решение.

Для этого:

1. Открыть новый файл;

2. Переименовать Лист1 в Первый (щелчок правой клавишей по Лист1 – Переименовать – ввести имя Первый).

3. Заполнить ячейки A1:Е2 значениями

11 5 -1 4 8

4 0 -9 -8 2

4.

Public Sub ДвумерныйМассив ()

Dim P(2, 5), S(2) As Integer

Dim I, J As Integer

Dim Задание As Object

Set Задание = Worksheets("Первый ")

‘Переписываем массив из таблицы

For I = 1 To 2

For J = 1 To 5

P(I, J) = Задание.Cells(I, J)

Next

Next

‘Считаем суммы элементов по строкам

For I = 1 To 2

S(I) = 0

For J = 1 To 5

S(I) = S(I) + P(I, J)

Next

MsgBox (“Сумма” & I & “-й строки равна” & S(I)) Next

End Sub

5. Сохранить файл с именем «Задание3».

6. Запустить программу на выполнение и проверить результат счета (сумма первой строки равна 27, а второй -11).