Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
59
Добавлен:
12.04.2015
Размер:
310.78 Кб
Скачать

Организация запуска приложения

Теперь программа работает хорошо, реагирует на неправильные данные, не ошибается, однако запускать ее уж очень неудобно. Пока через весь этот частокол меню доберешся … проще вручную цифры переставить.

Есть очень удобный способ организации запуска приложений пользователя в VBA: установить на инструментальной линейке системы собственную кнопку и закрепить за ней запуск Вашей программы.

Делается это так:

на листе EXCEL выберите меню ВИД-ПАНЕЛИ ИНСТРУМЕНТОВ-НАСТРОЙКА

Появится окно, в котором следует выбрать закладку КОМАНДЫ (рисунок 21). Среди категорий команд выбрать ЭЛЕМЕНТЫ УПРАВЛЕНИЯ (или МАКРОСЫ), а в разделе Команды – элемент КНОПКА. Элемент КНОПКА надо «ухватить» мышкой (нажать на элементе КНОПКА левую клавишу мыши, удерживать ее) и перетащить элемент КНОПКА на одну из инструментальных панелей EXCEL вверху экрана.

Затем следует щелкнуть правой кнопкой мыши на изображении установленной кнопки и Вы получите меню для настройки этой кнопки (рисунок 22). Здесь можно выбрать и установить вид иконки на кнопке, а главное – назначить на кнопку макрос (процедуру) которую эта кнопка должна запускать. Выберите в этом меню последнюю строку с режимом «Назначить макрос» и Вы получите окно со списком всех макросов (рисунок 13). Выберите в этом окне нашу процедуру Poradok и нажмите Enter. Закройте Все окна настройки панелей инструментов. Теперь Ваше приложение окончательно готово для сдачи «заказчику».

Проведите последний тест: выделите на листе EXCEL произвольную таблицу с числовыми данными и нажмите на созданную Вами кнопку. Должна сработать Ваша программа и числа в выделенной области отсортироваться по возрастанию.

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

Если оба теста прошли успешно, значит Вы правильно набрали и отладили программу.

Успехов вам в дальнейшем освоении и использовании vba! задания на лабораторную работу

  1. Изучить изложенный выше теоретический материал по составу и порядку использования инструментария для разработки прикладных приложений в среде Visual Basic for Application.

  2. Разработать и представить преподавателю действующее приложение в соответствии с заданием в таблице 1.

Таблица 1

вар

Содержание задания :

используя VBA Вам следует написать макрос

1

Макрос заполнения выделенной области случайными числами в диапазоне от 1 до 100

2

Макрос вычисления среднего геометрического по выделенным данным на листе EXCEL

3

Макрос вычисления интеграла методом трапеций по двум строкам выделенной таблицы, при этом первая строка содержит данные функции X, а вторая – данные Y

4

Макрос построения календаря на листе EXCEL по указанному году и месяцу

5

Макрос приведения прямоугольной области выделенных данных к верхней треугольной матрице

6

Макрос переворота матрицы (транспонирования матрицы)

7

Макрос перечеркивания выделенной области документа Z-образной чертой

8

Макрос, который в выделенной таблице представляет все отрицательные числа синим цветом, положительные - красным, нулевые - белым

9

Макрос, отделяющий в заданной таблице целую часть чисел от дробной и размещающей их в двух разных таблицах

10

Макрос, представляющий целое число в выделенной ячейке прописью в строке ниже.

11

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