Скачать .docx  

Книга: Отчет на лабораторную работу по Введение в визуальное программирование

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

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

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

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

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

Кафедра электромеханики

ОТЧЁТ ПО ЛАБОРАТОРНОЙ РАБОТЕ №1

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

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

«Введение в визуальное программирование»

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

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

Проверил: Валеев А.Р.

Нефтекамск 2008

Цель работы:

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

Задание

Разработать диалоговую форму, которая автоматически открывается при загрузке рабочей книги. При нажатии на кнопку «Сформировать» должны быть созданы новые рабочие листы, каждый из которых содержит шаблон 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) Перечислите состав и назначение окон редактора VisualBasic, используемых при создании макроса.

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

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

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

2) Объясните назначение макрорекордера.

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

3)Перечислите основные объекты, входящие в объектную модель MSExcel.

Объектная модель MSExcel имеет иерархическую структуру. На вершине объектной модели находится объект 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- все строки рабочего листа.

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