2). Первая программа.
Несмотря на то, что пример, приведенный в этом практическом занятии очень прост, существуют некоторые детали, которые могут показаться вам не совсем понятными. Не беспокойтесь об этом. На следующих занятиях все аспекты будут рассмотрены более подробно. В данный момент достаточно следовать инструкциям и попытаться понять, как работает программа.
Этот пример основан на простом наборе данных, сохраненном в файле FirstProgram.xls. В указанном файле представлены продажи определенной компании по регионам и по месяцам за 3 года (см. рис. 1, на котором некоторые строки скрыты; диапазон В2 :G37 называется SalesRange). Задание предполагает создание программы, которая будет отслеживать продажи в каждом регионе, причем для каждого региона необходимо отобразить сообщение с количеством месяцев, когда продажи превышали определенное пользователем значение (например, $150 000). Выполните такую последовательность действий.
Откройте файл. Запустите Excel и откройте файл FirstProgram. xls.
Перейдите в редактор VBE. Нажмите комбинацию клавиш <Alt+F11> для запуска редактора VBE. Удостоверьтесь, что на экране показано окно Project. Если окно проекта отсутствует на экране, то отобразите его с помощью командыView → Project Explorer (Вид - Окно проекта)).
Добавьте модуль. В окне Project выберите проект FirstProgram.xls и воспользуйтесь командой Insert → Module (Вставка - Модуль) для добавления модуля в проект (модуль автоматически получит название Module1). Этот модуль будет содержать кодVBA.
| А | В | с I | D | Е | F | G |
1 | Месяц | Регион 1 | Регион 2 | Регион 3 | Регион 4 | Регион 5 | Регион 6 |
2 | янв.98 | 144770 | 111200 | 163140 | 118110 | 105010 | 167350 |
3 | фев.98 | 155180 | 155100 | 129850 | 133940 | 140880 | 104110 |
4 | мар.98 | 86230 | 162310 | 142950 | 131490 | 150160 | 158720 |
5 | апр.98 | 148800 | 165160 | 123840 | 141050 | 175870 | 108100 |
6 | май.98 | 157140 | 130300 | 114990 | 128220 | 147790 | 167470 |
7 | июн.98 | 126150 | 163240 | 149360 | 152240 | 167320 | 181070 |
8 | июл.98 | 174010 | 183360 | 122120 | 149730 | 134220 | 135530 |
9 | авг.98 | 171780 | 130050 | 124130 | 134510 | 175590 | 122230 |
10 | сен.98 | 126260 | 162690 | 123960 | 128260 | 172570 | 121300 |
11 | окт.98 | 150250 | 150070 | 97140 | 165670 | 111570 | 159440 |
12 | ноя.98 | 180720 | 146370 | 122200 | 148150 | 106310 | 124800 |
13 | дек.98 | 130140 | 167210 | 179220 | 116150 | 193620 | 124550 |
14 | янв.99 | 145900 | 124890 | 97160 | 139640 | 156140 | 180100 |
15 | фев.99 | 123470 | 127730 | 159030 | 148450 | 158130 | 117560 |
16 | мар.99 | 120950 | 149830 | 127550 | 204700 | 161240 | 156710 |
17 | апр.99 | 121230 | 99890 | 161110 | 129310 | 129360 | 145430 |
18 | май.99 | 162040 | 126700 | 116130 | 170520 | 128640 | 114600 |
19 | июн.99 | 126400 | 97370 | 123920 | 157750 | 136300 | 152650 |
20 | июл.99 | 118190 | 138890 | 119970 | 114250 | 186550 | 168920 |
21 | авг.99 | 166300 | 145580 | 162230 | 63600 | 120780 | 184450 |
Рис. 1. Продажи по регионам и месяцам
4. Создайте процедуру. Щелкните в любом месте окна кода, введите Sub CountHighSales и нажмите клавишу <Enter>. После этого в окне должно появиться соответствующая надпись. Другими словами, вы начали создание процедуры CountHighSales. (Можно использовать любое другое описательное имя.) Добавление ключевого слова Sub сообщает VBA, что создается процедура, поэтому к имени CountHighSales добавляются пустые скобки, а в конце процедуры появляются ключевые слова End Sub — это два обязательных элемента процедуры. Остальная часть кода будет размещена между строками Sub и End Sub. В данном случае процедуру можно рассматривать как фрагмент кода, выполняющий определенную задачу. В приведенном примере только одна процедура.
Yandex.RTB R-A-252273-3
- Курсовое проектирование 1- 10
- Практическое занятие № 1
- План практического занятия
- Указания по проведению практического занятия
- Организационно-методические указания по проведению практического занятия
- 1). Опрос по лекции 1,2.
- 2). Знакомство с vba в Excel
- Практическое занятие № 2
- План практического занятия
- Указания по проведению практического занятия
- 1). Опрос по теме предыдущего занятия по контрольным вопросам.
- 2). Первая программа.
- 5. Введите код. Введите код между строками Sub и End Sub.
- Практическое занятие № 3
- План практического занятия
- Указания по проведению практического занятия
- 1). Опрос по теме предыдущего занятия по контрольным вопросам.
- 2). Изучение нового материала. Выполнение упражнение.
- 1. Комментарии
- 2. Строковые данные
- 3. Функции управления строковыми данными
- 4. Определение объектов, свойств и методов
- Практическое занятие № 4
- План практического занятия
- Указания по проведению практического занятия
- Практическая часть
- Упражнения по программированию по теме «Запись макросов»
- Практическое занятие № 5
- План практического занятия
- Указания по проведению практического занятия
- Практическая часть упражнения по программированию по теме «Условные операторы и циклы»
- Практическое занятие №6
- План практического занятия
- Указания по проведению практического занятия
- Решение задач оптимизации с помощью процедуры «Поиск решения»
- 1. . Применение процедуры Поиск решения.
- Упражнения по программированию по теме «Работа с надстройкой Поиск решения»
- Упражнения по программированию по теме «Массивы»
- Подбор параметра – имитационное моделирование в Excel.
- Практическое занятие №7
- План практического занятия
- Указания по проведению практического занятия
- Практическая часть
- 1. Введение
- 2. Упражнение
- 3. Отладка
- 4. Обработка ошибок
- 5. Резюме
- Практическое занятие №8
- План практического занятия
- Указания по проведению практического занятия
- Упражнения по программированию
- Практическое занятие № 9
- План практического занятия
- Указания по проведению практического занятия
- Практическая часть.