ВУЗ:
Составители:
Рубрика:
14
Реализация данной задачи отражена в программном коде:
Public Sub Доходы_ВО()
Dim k As Integer, s As Long ‘объявляется переменная k целого типа для подсчета
сотрудников, переменная s (длинное целое число) для суммирования доходов
i = 3 ‘неявно объявляем переменную для номера строки
s = 0 ‘обнуляем первоначальную сумму
k = 0 ‘присваиваем первоначальное значение переменной, считающей
сотрудников
Do While Cells(i, 2) <> "" ‘выполняем цикл, пока не
встретится пустая ячейка в
столбце В (т.е. конец списка фамилий: <> ""означает не равно пустой ячейке).
If Cells(i, 6) = "высшее" Then ‘проверяем условие
s = s + Cells(i, 8) ‘суммируем доходы при выполнении условия
k = k + 1 ‘подсчитываем число сотрудников при выполнении условия
End If ‘окончание блока оператора If
i = i + 1 ‘увеличиваем переменную смещения строк для изменения адресов ячеек
Loop 'окончание цикла
Range("H") = "Сумма доходов сотрудников с ВО" ‘вводим в ячейку I1
поясняющую надпись
Range("l2") = s ‘присваиваем вычисленную сумму ячейке I2
Range("J1") = "Количество сотрудников с ВО" ‘вводим в ячейку J1
поясняющую надпись
Range("J2") = k ‘присваиваем результат счета ячейке J2
End Sub
Для быстрого и удобного запуска программ и макросов на рабочем листе можно
поместить
кнопку (или любой графический объект). Назначенные кнопке программа или
макрос в этом случае запускаются автоматически при щелчке кнопки или графического
объекта. Для добавления кнопки на лист необходимо вывести на экран панель
инструментов "Формы", нажать на этой панели элемент управления "Кнопка", с
помощью мыши придать элементу управления на листе нужный размер
и в диалоговом
окне "Назначить макрос объекту" выбрать нужный макрос или программу в поле Имя
макроса. При добавлении другого элемента управления щелкните его правой кнопкой
мыши и выберите команду " Назначить макрос в контекстном меню ".
БИБЛИОГРАФИЧЕСКИЙ СПИСОК
1. Гарнаев А.Ю. Самоучитель VBA. – СПб.: БХВ-Петербург, 2003. – 512 с.
2. Гарнаев А.Ю. Excel, VBA, Internet в экономике
и финансах. СПб.: БХВ-
Петербург, 2001.
3. Демидова Л.А., Пылькин А.Н. Программирование в среде Visual Basic for
Application. М.: Телеком, 2004.
4. Уокенбах Д. Профессиональное программирование на VBA в Excel 2002. Пер. с
англ. – М.: Издательский дом «Вильямс», 2003. –784 с.
5. Блатнер П., Ульрих Л. и др. Использование Microsoft Excel 2000. Специальное
издание.: Пер. с англ.: Уч. пос. – М.: Издательский дом
«Вильямс», 2000. –1024 с.
