Исследование общей структуры макросов

Размещено на http://www.allbest.ru/

Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования

«Кубанский государственный аграрный университет»

Факультет прикладной информатики

ОТЧЕТ

Автор

Е. М. Бессмертная

Руководители практики:

В.Ю. Кондратьев

Краснодар 2016

ЗАПИСИ

о работах, выполненных в период практики

Руководитель практики ____________ В.Ю. Кондратьев

Отчет

о прохождении учебной (ознакомительной) практики студентом 1 курса факультета заочного отделения направления «Прикладная информатика»

С «04» мая 2016 года по «18» мая 2016 года я проходил учебную (ознакомительную) практику в Краснодарском Государственном Аграрном университете. редактирование макрос автоматизация приложение

При прохождении практики изучил методы и способы автоматизации приложений, входящих в состав пакета Microsoft Office.

За время прохождения учебной (ознакомительной) практики я познакомился со средой разработки Visual Basic for Application и используемым для автоматизации приложений входящих в пакет Microsoft Office языком программирования VBA.

Также я ознакомился с объектной моделью приложений, свойствами и методами таких глобальный объектов, как Application, Workbook, Worksheet, Cell, а также коллекциями Workbooks, Worksheets и Cells.

Научился обращаться к отдельным ячейкам и областям ячеек на листе Microsoft Excel из макросов, использовать средство записи и редактирования макросов, размещать элементы управления на листе и в командной панели Microsoft Excel и назначать им макросы. Научился создавать функции, которые можно использовать наряду со стандартными, непосредственно на листе Microsoft Office. Изучил основные конструкции языка VBA, такие как способы объявления и инициализации переменных, основные математические и логические операторы языка, условные операторы и операторы циклов.

Ознакомился с редактором форм и научился создавать пользовательские формы, обрабатывать свойства и вызывать методы элементов управления, расположенных на пользовательских формах.

Таким образом, при прохождении учебной практики в Краснодарском Государственном Аграрном университете, мной были изучены методы и способы автоматизации приложений, входящих в состав пакета Microsoft Office.

«18» мая 2016 ________________ Е.М. Бессмертная

Форма документа «Платежное требование» создана в Microsoft Office Excel и заполняется в диалоговом окне, которое вызывается макросом.

Рис.1 «Лист Microsoft Office Excel»

Код макроса:

Sub Макрос1()

UserForm1.Show

End Sub

Так выглядит диалоговое окно:

Рис.2 «Диалоговое окно»

На рисунке можно наблюдать 27 Label, которые соответствуют наименованиям столбцов на листе Excel, а так же соответствующие им TextBox и ComboBox, необходимые для ввода данных. Также присутствуют кнопки (Button) «Запись» - для заполнения очередной строки таблицы листа Excel данными и «Очистить», для очистки полей ввода.

Инициализация ячеек

Private Sub UserForm_Initialize()

Для инициализации TextBox, каждой ячейке присваиваем пустое значение ““

TextBox1.Value = ""

TextBox2.Value = ""

TextBox3.Value = ""

и т.д.

Для того чтобы пользователю было удобно выбрать различные даты, использованы ComboBox:

ComboBox1.Clear

ComboBox1.AddItem "01"

ComboBox1.AddItem "02"

ComboBox1.AddItem "03"

ComboBox1.AddItem "04"

или

ComboBox3.Clear

ComboBox3.AddItem "2017"

ComboBox3.AddItem "2016"

ComboBox3.AddItem "2015"

ComboBox3.AddItem "2014"

или

ComboBox4.Clear

ComboBox4.AddItem "без акцепта"

ComboBox4.AddItem "с акцептом"

и т.д. для дня, месяца и года, а также для условий оплаты.

Когда пользователь вводит все необходимые данные, он нажимает на кнопку «Запись», вот ее код:

Private Sub CommandButton1_Click()

EmptyRows = WorksheetFunction.CountA(Range("A:A")) + 1

Cells(EmptyRows, 1) = TextBox1.Value

Cells(EmptyRows, 2) = ComboBox1 + "." + ComboBox2 + "." + ComboBox3.Value

Cells(EmptyRows, 3) = TextBox2.Value

Cells(EmptyRows, 4) = TextBox3.Value

Cells(EmptyRows, 5) = TextBox4.Value

Cells(EmptyRows, 6) = TextBox5.Value

Cells(EmptyRows, 7) = TextBox6.Value

Cells(EmptyRows, 8) = TextBox7.Value

Cells(EmptyRows, 9) = TextBox8.Value

Cells(EmptyRows, 10) = TextBox9.Value

Cells(EmptyRows, 11) = TextBox10.Value

Cells(EmptyRows, 12) = TextBox11.Value

Cells(EmptyRows, 13) = TextBox12.Value

Cells(EmptyRows, 14) = TextBox13.Value

Cells(EmptyRows, 15) = TextBox14.Value

Cells(EmptyRows, 16) = ComboBox4.Value

Cells(EmptyRows, 17) = TextBox15.Value

Cells(EmptyRows, 18) = ComboBox6 + "." + ComboBox7 + "." + ComboBox5.Value

Cells(EmptyRows, 19) = ComboBox9 + "." + ComboBox10 + "." + ComboBox8.Value

Cells(EmptyRows, 20) = ComboBox12 + "." + ComboBox13 + "." + ComboBox11.Value

Cells(EmptyRows, 21) = ComboBox15 + "." + ComboBox16 + "." + ComboBox14.Value

Cells(EmptyRows, 22) = TextBox16.Value

Cells(EmptyRows, 23) = TextBox17.Value

Cells(EmptyRows, 24) = ComboBox18 + "." + ComboBox19 + "." + ComboBox17.Value

Cells(EmptyRows, 25) = TextBox18.Value

Cells(EmptyRows, 26) = TextBox19.Value

Cells(EmptyRows, 27) = TextBox20.Value

End Sub

Все значения, введенные пользователем в диалоговом окне, выводятся в соответствующие ячейки листа Excel. Обращаю внимание на то, как выводятся даты, используется три значения, между ними стоит точка. При каждом нажатии кнопки «Запись» будут записываться данные в таблицу вниз по строкам, с шагом +1.

Рассмотрим пример заполнения:

Как видно на рисунке 3, каждый раз нажимая кнопку «Запись», введенные данные попадают в таблицу.

Рис.4 «Очистка полей ввода»

Кнопка «Очистить», как видно на рисунке 4, очищает все поля для ввода.

Размещено на Allbest.ru