Табличный процессор Microsoft Excel Визуальное программирование на языке Visual BASIC

Microsoft Excel Файлы, созданные в Excel, называются книгами и имеют расширением «xls» В окне Проводника представлены значком с зеленой буквой X. Запустить программу можно: - щелчком по ярлыку - через главное меню: Пуск Все программы Microsoft Office Microsoft Office Excel 2003.

При создании какого-либо приложения (даже пустого) на языке VBA в среде MS Excel нам не требуется создавать свои объекты, так как мы сразу получаем в готовом виде огромное количество различных объектов с готовыми свойствами и методами. Таким образом, нам необходимо только научиться получать доступ к имеющимся объектам. Microsoft Excel

Иерархия объектов Application (сам Excel) Workbooks (коллекция открытых книг) Workbooks (1) Workbooks(2)Workbooks(3) Workbooks (коллекция открытых книг) Workbooks (1) Workbooks(2)Workbooks(3) Worksheets (коллекция листов) Worksheets (1)Worksheets (2)Worksheets (3) Worksheets (коллекция листов) Worksheets (1)Worksheets (2)Worksheets (3) Range (Диапазон ячеек) Range («A1»)Range («A1:D5») Range (Диапазон ячеек) Range («A1»)Range («A1:D5») Cells (Одна ячейка листа) Cells (1,3) – третья ячейка первой строки Cells (Одна ячейка листа) Cells (1,3) – третья ячейка первой строки Cells (одна ячейка диапазона) Сеlls (1,3) – третья ячейка первой строки диапазона Cells (одна ячейка диапазона) Сеlls (1,3) – третья ячейка первой строки диапазона

Примеры получения доступа Application. Workbooks(«Книга1.xls»). Worksheets(«Лист1»).Range («A1:D5»). Сеlls (1,3) Application. Workbooks(«Книга1.xls»). Worksheets(«Лист2»).Range («С5») Application. Workbooks(«Смета.xls»). Worksheets(«Лист1»).Сеlls (1,3)

Свойства объекта Cells Cells (y,x).Font.Name = ArialИзменение типа шрифта Cells (y,x).Font.Size = 14Изменение размера шрифта Cells (y,x).Font.Bold = TrueВключение жирности Cells (y,x).Font.Italic = FalseВыключение курсива Cells (y,x).Font.Color = RGB(0,255,0)Изменение цвета шрифта Cells(y,x).Interior.Color=RGB(0,255,0)Назначение цвета фона Cells (y,x).Font.Interior.ColorIndex =0Цвет фона «0», нет заливки Cells (y,x).Borders.LineStyle =0Тип границы («нет границы») Cells (y,x). Borders.ColorIndex =0Цвет линий («нет цвета») Cells (y,x).VerticalAlignment =2Выравнивание по центру (по вертикали) Cells (y,x).HorisontalAlignment =3Выравнивание по центру (по горизонтали) Cells (y,x).NumberFormat = 0.00Выводить два знака после запятой

Свойства объекта Range Объект Range имеет свойства примерно такие же, как объект Cells

Методы объектов Cells и Range Range (диапазон).ClearОчистка содержимого и формата диапазона или ячейки Cells (y,x). Clear Range (диапазон).ClearContents Очистка только содержимого диапазона или ячейки Cells (y,x). ClearContents Range (диапазон).ClearFormatОчистка только формата диапазона или ячейки Cells (y,x). ClearFormat Range (диапазон).SelectВыделение указанного диапазона или ячейки Range (диапазон).DeleteУдаление указанного диапазона или ячейки Range (диапазон).CopyКопирование указанного диапазона или ячейки Range (диапазон).PasteВставка содержимого указанного диапазона или ячейки из буфера обмена Range (диапазон).CutВырезает содержимое указанного диапазона или ячейки в буфер обмена Range(диапазон1).AutoFillDesti nation:= Range(диапазон2) Автозаполнение диапазона 2 какой-либо прогрессией

События WorkBook_OpenПрограммный код срабатывает при открытии книги WorkSeets_ActivateПрограммный код срабатывает при активации определенного листа WorkSeets_DeActivateПрограммный код срабатывает при дезактивации определенного листа WorkSeets_SelectionChangeПрограммный код срабатывает при изменении выделенного листа WorkSeets_CalculateПрограммный код срабатывает при пересчете содержимого листа

ПРАКТИЧЕСКАЯ РАБОТА 1 Дано два числа Требуется найти их сумму Разность Произведение

ПРАКТИЧЕСКАЯ РАБОТА 1 Откройте MS Excel Заполните лист следующим образом:

ПРАКТИЧЕСКАЯ РАБОТА 1 Чтобы вставить кнопку, нужно включить панели инструментов: «Visual Basic» «Элементы управления»

Следите, чтобы был включен режим конструктора

ПРАКТИЧЕСКАЯ РАБОТА 1 Вставьте объект CommandButton

ПРАКТИЧЕСКАЯ РАБОТА 1 Для изменения текста внутри выделите кнопку и откройте окно свойств

Написание программного кода

Запуск программы Перейдите к листу MS Excel Отключите режим конструктора Введите данные в ячейки Нажмите кнопку «Вычислить» Должно получиться следующее:

Запуск программы

ПРАКТИЧЕСКАЯ РАБОТА 1 Сохраните созданный файл в папке Рабочий стол/Учебная/9 класс/ [Ваша параллель]/Ваша фамилия] Назовите файл Арифметика.xls Покажите работу учителю Практическая работа окончена

ПРАКТИЧЕСКАЯ РАБОТА 2 Откройте файл Арифметика.xls, созданный на прошлом уроке Попробуйте осуществить неверный ввод данных Нажмите кнопку «Вычислить»

ПРАКТИЧЕСКАЯ РАБОТА 2

Нажмите кнопку Debug – «Отладка» Обратите внимание, что ошибка произошла при выполнении действий

ТИПЫ ЧИСЛОВЫХ ПЕРЕМЕННЫХ Integer – целые числа Long – длинные целые числа Single – вещественные числа одинарной точности Double – вещественные числа двойной точности

ПРАКТИЧЕСКАЯ РАБОТА 2 Остановите отладку кнопкой Reset Измените программу таким образом:

ПРАКТИЧЕСКАЯ РАБОТА 2 Оператор DIM описывает тип переменной

ПРАКТИЧЕСКАЯ РАБОТА 2 Запустите программу и увидите, что ошибка теперь произошла при вводе данных

ПРАКТИЧЕСКАЯ РАБОТА 2 Для исключения ошибок запишем процедуру проверки типа данных в ячейках Если он не совпадет с Double, то выведем сообщение об ошибке

ПРАКТИЧЕСКАЯ РАБОТА 2 Проверка типа переменных Досрочный выход из программы Сообщение об ошибке

ПРАКТИЧЕСКАЯ РАБОТА 2 Запустите программу снова Попробуйте осуществить неверный ввод данных Нажмите кнопку «Вычислить»

ПРАКТИЧЕСКАЯ РАБОТА 2 Сохраните изменения в файле Покажите программу учителю Практическая работа окончена

Спасибо за внимание!