3. Порядок выполнения работы

Обучаемому необходимо спроектировать простейшую информационную систему обработки данных, позволяющую быстро и правильно заполнять требуемый бланк финансового документа для последующего его вывода на печать. Система должна иметь «дружественный» интерфейс пользователя, систему проверки ошибок на этапе ввода, обеспечивать хранение и доступ к ранее введенной информации. Для разработки данной информационной системы используется язык VBA, интегрированный в программу работы с электронными таблицами Excel из пакета Microsoft Office. При этом в рабочей книге нужно создать как минимум 2 рабочих листа. На одном листе, например с именем «Бланк», должна быть создана точная копия бланка документа с соблюдением необходимого оформления. Нужно подобрать общие размеры бланка, вид и размер шрифтов, размеры рамок, неизменяемые надписи и т.д.

Другой лист, например с именем «Учет», должен представлять собой таблицу с исходными данными, которые будут использоваться при заполнении соответствующих полей бланка. Такие данные обычно записываются в хронологическом порядке по мере поступления и накопления новой информации. Вверху таблицы можно разместить кнопку «Заполнить бланк». Эту кнопку необходимо связать с разработанной процедурой на VBA, которая будет использовать данные с листа «Учет» для заполнения соответствующих ячеек на листе «Бланк». Для хранения редко изменяемых данных, таких как название фирмы, ИНН, КПП, расчетный счет, фамилия директора и т.д. целесообразно использовать отдельный лист, например с именем «Реквизиты».

Задание на лабораторную работу определяется номером студента по журналу (либо номером, выданным преподавателем).

Варианты заданий (варианты бланков финансовых документов):

1. Банковское платежное поручение.

2. Товарный чек.

3. Платежный документ в Сбербанке (форма ПД-4).

4. Накладная на товар (форма ТОРГ-12).

5. Счет-фактура.

6. Ценник на товар в магазине.

7. Бейджик.

8. Книжная карточка в библиотеке

9. Накладная на товар (старый формат).

10. Доверенность на получение ТМЦ.

11. Расходный кассовый ордер.

12. Объявление в банке на взнос наличными.

13. Командировочное удостоверение.

14. Счет официанта в ресторане.

15. Калькуляционная карточка в столовой

16. Приходный кассовый ордер.

17. Счет на товар (для оплаты по безналичному расчету)

18. Акт выполненных работ

19. Авансовый отчет

20. Банковское платежное требование

21. Заявление о переводе денег в Сбербанке (форма №143)

22. Договор комиссии

4. Содержание отчета

1. Титульный лист

2. Задание

3. Текст программы

4. Результаты работы программы

5. Контрольные вопросы:

1. Что такое объект ?

2. Что такое метод ?

3. Что такое событие ?

4. Что такое свойство ?

5. Перечислить основные объекты VBA MS Excel

6. Какие встроенные диалоговые окна существуют в VBA ?

Лабораторная работа №2

«Автоматизация проектов с помощью элементов управления»

1. Цель работы

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

2. Теоретические сведения

В VBA имеется обширный набор встроенных элементов управления. Используя этот набор и редактор форм, нетрудно создать любой пользовательский интерфейс, который будет удовлетворять всем требованиям, предъявляемым к интерфейсу в среде Windows. Элементы управления являются объектами. Поэтому, как любые объекты, они обладают свойствами, методами и событиями. Элементы управления создаются при помощи панели элементов «Элементы управления», которая отображается на экране либо выбором команды View | Toolbox, либо нажатием кнопки «Toolbox» панели инструментов Standard. На этой панели представлены кнопки, при помощи которых конструируются элементы управления. Все кнопки панели инструментов, за исключением кнопки «Выбор объектов», служат для создания элементов управления. Щелкнув по кнопке «Выбор объектов», можно выделить уже созданный элемент управления для последующего его редактирования (изменения размеров или перемещения при помощи маркера изменения размера или перемещения соответственно).

Для размещения элемента управления на форме или на рабочем листе нажмите соответствующую кнопку панели инструментов «Элементы управления» и с помощью мыши нарисуйте рамку элемента управления в нужном месте. После этого, используя маркеры изменения размера и перемещения, элемент управления можно перемещать, изменять его размеры. Кроме того, элементы управления можно копировать в буфер обмена, вставлять их из буфера обмена и удалять из формы.

Ниже приведен список стандартных элементов управления и соответствующие им общепринятые префиксы для имен объектов.

- TextBox поле txt

- Label надпись lbl

- CommandButton кнопка cmd

- ListBox список lst

- ComboBox поле со списком cbo

- ScrollBar полоса прокрутки scr

- SpinButton счетчик spn

- OptionButton переключатель opt

- CheckBox флажок chk

- ToggleButton выключатель tgl

- Image рисунок img

В таблице 2 приведены общие свойства, методы и события элементов управления.

Таблица 2

Свойства, методы и события элементов управления

Свойство	Описание
Name	Имя элемента управления
Caption	Возвращает или устанавливает надпись, отображаемую при элементе управления
AutoSize	Логическое свойство, которое устанавливает режим автоматического изменения размеров элемента управления так, чтобы на нем полностью помещался текст, являющийся значением свойства Caption
Visible	Логическое свойство, которое определяет, надо ли отображать элемент управления во время выполнения программы
Enabled	Логическое свойство, которое определяет, доступен ли элемент управления пользователю во время работы приложения
Height, Width	Возвращают или устанавливают размеры объекта (высоту и ширину)
Left, Top	Возвращают или устанавливают координаты верхнего левого угла элемента управления, определяющие его местоположение на форме
ControlTipText	Возвращает или устанавливает текст всплывающей подсказки, связанной с элементом управления
BackColor, ForeColor, BorderColor	Возвращают или устанавливают цвет фона и надписи элемента управления, также его границы.
BorderStyle	Устанавливает тип границы. Допустимые значения: • fmBorderStyleNone или 0 (граница невидима); • fmBorderStyleSingle или 1 (граница в виде контура)
BackStyle	Устанавливает, прозрачен ли элемент управления. Допустимые значения: • EmBackStyleTransparent или 0 (прозрачен); • fmBackStyleOpaque или 1 (не прозрачен)
SpecialEffect	Устанавливают тип границы. Отличается от свойства BorderStyle тем, что допускает установку нескольких типов, но одного цвета. BorderStyle позволяет установить только один тип, но различных цветов
Picture	Внедряет изображение на элемент управления. Например, на поверхности кнопки оно отображается следующей инструкцией: CommandButton1.Picture = LoadPicture("с:\круг.bmp") После того как изображение помещено на элемент управления, иногда возникает необходимость его удалить. В коде это достигается присвоением значения свойства Picture равным LoadPicture ("") или LoadPicture (Empty). Например: CommandButton1.Picture = LoadPicture("") В окне Properties изображение удаляется размещением курсора в поле Picture и нажатием клавиши <Delete>
LayoutEffect	Возвращает целое число, указывающее, был ли передвинут объект при генерации события Layout. Допустимые значения: • fmLayoutEffectNone или 0 (объект не был передвинут); • fmLayoutEffectInitiate или 1 (объект передвинут)
Tag	Используется для хранения дополнительной информации о форме или элементе управления, которая может быть в последующем востребована в программе
Wordwrap	Логическое свойство, возвращающее или устанавливающее необходимость переноса слов, отображаемых в надписи при элементе управления
Метод	Описание
Move	Перемещает элемент управления и изменяет его размеры. Синтаксис: Move ([Left [, Tор [, Width [, Height [, Layout]]]]]) • Left, Top - координаты верхнего левого угла элемента управления; • Width, Height - ширина и высота элемента управления; • Layout - логический параметр, определяющий генерируется ли Layout-событие при перемещении объекта
SetFocus	Устанавливает фокус на вызвавшем этот метод элементе управления.
ZOrder	Помещает объект на переднем или заднем плане относительно всех пересекающихся с ним объектов. Синтаксис: ZOrder([zPosition]) Допустимые значения параметра zPosition: • fmTop или 0 (на переднем плане, используется по умолчанию); • fmBottom или 1 (на заднем плане)
Событие	Описание
Click	Происходит, когда пользователь щелкает на элементе управления
DblClick	Происходит, когда пользователь дважды щелкает на элементе управления
KeyPress	Происходит, когда пользователь нажимает любую клавишу, кроме функциональных, клавиш управления курсором и клавиш управления
KeyDown, KeyUp	Происходят, когда пользователь нажимает и отпускает любую клавишу
Mouse Down, MouseUp	Происходят, когда пользователь нажимает и отпускает любую кнопку мыши
MouseMove	Происходит, когда пользователь передвигает указатель мыши
Change	Происходит при изменении значения элемента управления
Enter, Exit	Происходят, когда элемент управления получает или теряет фокус
Error	Используется при уведомлении об ошибке.

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

[Private] Sub Object_Event(ArgList)

[statements]

End Sub

Список параметров ArgList может быть пуст. Например, процедура обработки события активизации рабочего листа имеет вид:

Private Sub Worksheet_Activate()

[statements]

End Sub

Ниже приведен список событий (часть имени процедуры, начиная с подчеркивания), связанных с рабочей книгой MS Excel:

_Activate()

_BeforeClose(Cancel As Boolean)

_BeforePrint(Cancel As Boolean)

_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

_Deactivate()

_NewSheet(ByVal Sh As Object)

_Open()

_SheetActivate(ByVal Sh As Object)

_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

_SheetCalculate(ByVal Sh As Object)

_SheetChange(ByVal Sh As Object, ByVal Target As Range)

_SheetDeactivate(ByVal Sh As Object)

_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

_WindowActivate(ByVal Wn As Window)

_WindowDeactivate(ByVal Wn As Window)

_WindowResize(ByVal Wn As Window)

Ниже приведен список событий, связанных с рабочим листом MS Excel:

_Activate()

_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

_Calculate()

_Change(ByVal Target As Range)

_Deactivate()

_SelectionChange(ByVal Target As Range)