Алгоритм определения суммы в диапазоне ячеек

Обозначим переменную для хранения суммы - SUM

SUM=0 REM обнуление переменной суммы

FORi=l TO N

SUM=SUM+Cells(I,l)

NEXT i

Алгоритм определения количества элементов с заданными свойствами Обозначим переменную для хранения значений с заданными свойствами - СНЕТ

REM обнуление счетчика

СНЕТ -0:

FOR i=l TO N

IF Cells(I,1)<условие сравнения> THEN СНЕТ=СНЕТ+1

NEXT i

Алгоритм определения номера строки значения с заданными свойствами

Обозначим переменную для хранения номера строки - NOM

NOM =0

FOR i=l TO N

IF Cells(I,1)<условие сравнения> THEN NOM = i

NEXT i

Алгоритм определения максимального и минимального значения в диапазоне ячеек

Обозначим переменную для хранения максимального значения - МАХ

МАХ =А(1,1)

MIN =Cells(l,l)

FORi=2 TO N

IF Cells(I,l)> MAX THEN MAX = Cells(I,l)

IF Cells(I,l)< MIN THEN MIN = Cells(I,l)

NEXT i

Для удобства составления и чтения программ рекомендуется давать имена переменным в соответствии с их смысловым содержанием, например МАХ - обозначение максимального значения или MIN - обозначение минимального значения.

II. Выполните задание, следуя инструкциям.

Задание. Напишите программу вычисления суммы чисел, находящихся в диапазоне ячеек А1:А10 и выведите результаты вычисления с поясняющимися надписями в ячейки C2:D2.

Подготовка исходных данных.

1. Откройте новую книгу Excel. Лист1 переименуйте в «Пример 1».

2. Диапазон ячеек А1:А10 заполните произвольными целыми числами.

Подготовка текста программы

3. Войдите в редактор VBA. На экране появится окно проекта. В окне проекта вставьте модуль.

4. В модуле вставьте новую процедуру с именем Primer 1.

5. Наберите текст программы.

Public Sub Primerl ()

Dim i as Byte, Sum as Integer

Sum=0 'Вычисление суммы

With Sheets("Пример 1")

For i=lто 10