Windows. Назначение и команды для работы с Буфером обмена

Общую стоимость проданных билетов по каждому кинотеатру (столбец С) найдем по формуле:

=СУММЕСЛИ('Таблица 1'!$A$3:$A$27;A3;'Таблица  1'!$H$3:$H$27)

8. Для выполнения задания № 7 вызовем мастер диаграмм, выберем тип диаграммы Круговая, возьмем в качестве источника данных данные из отчета.

 

Зададим необходимые параметры и разместим диаграмму на отдельном листе.

4. VBA. 

Написать программу с помощью  оператора цикла Do While …Loop, вычисляющую  в таблице «Сводка за май месяц по кинопрокату» общую сумму проданных билетов 1 категории для кинотеатра «Огонек» и помещающую этот результат в свободную ячейку Excel с поясняющей надписью. Результат выполнения программы проверить соответствующими функциями  Excel.

Решение.

Введем переменную Sum1 для подсчета общей суммы проданных билетов 1 категории.

Переменную смещения строк i будем  использовать для изменения адресации  ячеек, увеличивая каждый раз на единицу.

Реализация данной задачи отражена в программном коде:

Public Sub Сумма()

dim SO as Long

i = 3    'неявно объявляем переменную для номера строки

Sum1 = 0    'обнуляем переменную для суммы

Do While Cells(i, 1) <> "" 'выполняем цикл, пока не встретится пустая ячейка в столбце А

If (Cells(i, 1) = "Огонек") Then   'проверяем условие

SO = SO + Cells(i, 6) ‘суммируем стоимость проданных билетов при выполнении условия

End If            'окончание блока оператора If

i = i + 1         'увеличиваем переменную  смещения  строк для изменения адресов ячеек

Loop              'окончание цикла

Range("A29") = "Кинотеатр Огонек: Общая сумма проданных билетов 1 категории"   'вводим в ячейку А29 поясняющую надпись

Range("A30") = SO  'присваиваем   результат счета ячейке А30

End Sub

Разместим кнопку на рабочем листе. Для этого выведем на экран панель инструментов «Формы», выберем на этой панели элемент управления «Кнопка» и в диалоговом окне «Назначить макрос объекту» выберем программу «Сумма». Дадим кнопке название «Огонек».

Проверка результата выполнения программы в Excel.

В ячейку А33 введем формулу:

=СУММЕСЛИ(A3:A32;"Огонек";F3:F32).

Проверка показывает правильность выполнения.