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

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

Приложение Excel содержит более 400 встроенных функций рабочего листа и объект Application позволяет вызывать их при помощи конструкции вида:

Application.ФункцияРабочегоЛиста(Аргументы)

1. 1 способ (стандартный алгоритм)
2. Подготовка исходных данных. Лист1 переименуйте в «Пример1».Диапазон ячеек А1:А10 заполните целыми числами.
3. Подготовка текста программы. Войдите в редактор VBA. На экране появится окно проекта. В окне проекта вставьте модуль.
4. В модуле вставьте новую процедуру с именем Сумма1способ.

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

Public Sub Сумма1способ ()

Dim i as Byte,Sum as Integer

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

With Sheets(“Пример1”)

For i=1 то 10

Sum= Sum +.Cells(i,1)

Next i

‘Вывод результата

.Cells (2,3)=”Сумма =”:.Cells (2,4)=Sum

End With

End Sub

6. 2 способ (применение функции)

Public Sub Сумма2способ ()

Не нашли, что искали? Воспользуйтесь поиском: