Федеральное агентство по образованию

Государственное образовательное учреждении е высшего

профессионального образования

Уфимский государственный авиационный технический университет

Филиал в г. Нефтекамске

Кафедра электромеханики
ОТЧЁТ ПО ЛАБОРАТОРНОЙ РАБОТЕ №1

ОСНОВЫ ВИЗУАЛЬНОГО ПРОРАММИРОВАНИЯ В СРЕДЕ VBA

по дисциплине

«Введение в визуальное программирование»
Выполнили: студент гр. ЭССН-208 Юрков Е.В.

студент гр. ЭССН-210 Шайсламов А.Ф.

Проверил: Валеев А.Р.
Нефтекамск 2008
Цель работы:

Целью данной работы является изучение основ программирования в среде VBA и принципов взаимодействия средств визуального программирования с приложением Microsoft Office Excel.
Задание

Разработать диалоговую форму, которая автоматически открывается при загрузке рабочей книги. При нажатии на кнопку «Сформировать» должны быть созданы новые рабочие листы, каждый из которых содержит шаблон MeasureResults. Форма содержит элемент управления Текстовое поле (TextBox), в которое пользователь вводит количество новых рабочих листов. Вновь созданным рабочим листам присвоить имена Эксперимент №1, Эксперимент №2… и т.д. (использовать свойство Name объекта Worksheets). Создание новых рабочих листов должно завершиться выводом сообщения, в котором содержится информация о количестве созданных рабочих листов. Рабочую книгу сохраните под именем Книга1_3.xls.

Листинг программы

Раздел «Эта книга»
Private Sub Workbook_Open()

    Dialog1.Show

End Sub
Раздел «Modules»
Sub MeasureResults()

    ActiveWorkbook.Worksheets.Add

    Range("A1").Value = "Название установки:"

    Range("B2").Value = "Дата:"

    Range("B3").Value = "ФИО исполнителя:"

    Range("B4").Value = "Результаты эксперимента №1:"

    Range("B5").Value = "Результаты эксперимента №2:"

    Range("B6").Value = "Результаты эксперимента №3:"

    Range("B7").Value = "Время окончания экспериментов:"

End Sub
Раздел «UserForm1»
Private Sub CommandButton1_Click()

Dim n, i As Integer

n = Val(TextBox1)

    For i = 1 To n

        MeasureResults

    Next

    For i = 1 To n

        Worksheets(i).Name = "Эксперимент № " & i & ""       

    Next

MsgBox "Количество" & n & "созданных листов"

Dialog1.Hide

End Sub

Описание порядка выполнения работы

Для начало было прописано в «Модуле» процедура «MeasureResults», создающая новый лист в книге и шаблон для записи результатов эксперимента.

Через главное меню создали Форму пользователя. На которую поместили следующие компоненты: TextBox1, CommandButton1, Label1.
                    


         Прописываем автозагрузку наше формы в Workbook_Open(). Затем пишем код на саму кнопку, предварительно поменяв его  Caption из «CommandButton1» в «Сформировать»

   На кнопку прописываем код, состоящий из двух циклов. Первый отвечает за вызов  процедуры «MeasureResults», а второй за переименование этих листов в «Эксперимент № ».

Ответы на контрольные вопросы

1) Перечислите состав и назначение окон редактора Visual Basic, используемых при создании макроса.

- окно Code (Код), заголовок окна «Книга 1-Module1(Code)», здесь записывается код команды;

- окно Project (Проект), заголовок окна, «Project-VBAProject» содержит объекты Excel и модули, используемые при разработке приложения. По умолчанию окно содержит четыре объекта: листы рабочей книг- Лист1, Лист2, Лист3, а также объект Эта Книга (ThisWorkbook), в котором и происходит вся работа с Excel;

- окно Properities (Свойство), заголовок окна «Properties-Module1», содержит перечень свойств выбранного объекта.
2) Объясните назначение макрорекордера.

С помощью макрорекордера Excel создает макрос путем записи всех действий пользователя – выбор команды меню, нажатия на клавишу и других действий, необходимых пользователю.
3)Перечислите основные объекты, входящие в объектную модель MS Excel.

Объектная модель MS Excel имеет иерархическую структуру. На вершине объектной модели находится объект Application-само приложение Excel. Объект Application содержит другие объекты, например:Workbooks, windows, addins.
4) Пример атрибутов объектаWorkSheets

-ChartObjects-коллекция элементов диаграмм ChartObjects;

-Range-диапазон;

-PageSetup-параметры страницы;

 -PivotTables-коллекция сводных таблиц PivotTable
5) Чтобы макрос автоматически запускался при запуске в Excel, запишем его имя макроса в тело процедуры:

                    Private Sub Workbook_Open()

                        MeasureResults

         End Sub
6) Диалоговое окно можно вывести на экран с помощью метода «Show» и закрыть с помощью метода «Hide»
7 и 8) Объектная модель Excel содержит множество коллекций. В данной работе мы уже встречались с коллекцией в строке кода:

ActiveWorkBook.WorkSheets.Add

WorkSheets- это коллекция объектов WorkSheet (Рабочий стол).Но кроме того, WorkSheets-это свойство  объекта ActiveWorkBook (Активная рабочая книга). Еще примеры коллекции; Workbooks- коллекция всех открытых рабочих книг; Charts-коллекция листов с диаграммами в рабой книге; Rows- все строки рабочего листа.

Все коллекции имеют атрибуты (свойства и методы), позволяющие получить доступ к отдельным объектам этих коллекций.