2 Практическая часть

З а д а н и е 1

Создайте процедуру, которая должна создать и вывести на экран панель инструментов с тремя кнопками: Создать (ID равен 2530), Открыть (ID равен 23) и Сохранить (ID равен 3).

Создайте также процедуру, которая будет удалять созданную панель. Выполните и протестируйте эти процедуры.

З а д а н и е 2

Напишите процедуру, которая создавала бы и выводила на экран строку меню, содержащую пункты Файл, Правка и Справка.

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

3 Контрольные вопросы

3.1 Какой коллекции принадлежат панели инструментов как элементы?

3.2 Какой коллекции принадлежат кнопки панелей инструментов как элементы?

3.3 Какой метод применяется для удаления панелей инструментов?

3.4 Какое свойство применяется для задания значка, выводимого на кнопке?

3.5 Какой метод используется для создания меню?

3.6 Какой тип элемента управления задает пункт меню?

3.7 Как вывести на экран панель инструментов с помощью кода VBA?

Лабораторная работа 5

Управление приложением Excel с помощью vba

Цель работы: изучение основных объектов VBA, их свойств и методов; приобретение навыков управления поведением и внешним видом объектов.

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

Язык VBA разработан преимущественно для работы с приложениями и для расширения их возможностей. VBA доступно множество объектов Excel. Свойства и методы этих объектов позволяют управлять из программ VBA почти всеми объектами функционирования Excel.

1.1 Объект Application

Объект Application (Приложение) занимает самый верхний уровень иерархии объектов Excel. Роль объекта Application не ограничивается заданием параметров и опций Excel. Объект содержит встроенные функции Excel.

Основные свойства объекта Application:

- ActiveWorkbook возвращает активную (текущую) книгу;

- ActiveSheet возвращает активный лист в активной рабочей книге. Возвращаемый лист может быть любого поддерживаемого типа, включая рабочий лист и лист диаграмм;

- ActiveCell возвращает активную ячейку на активном листе активной рабочей книги;

- ThisWorkbook возвращает рабочую книгу, где находится выполняемая процедура;

- MailSystem возвращает почтовую систему, установленную на компьютере. Полезно, когда электронная почта работает в автоматическом режиме;

- Selection определяет текущее выделение. Выделением может быть диапазон ячеек, элементы диаграммы и т.д.

Основные методы объекта Application:

- InputBox отображает окно ввода и позволяет указать тип возвращаемого значения;

- Quit применяется для выхода из Excel.

1.2 Объект Workbook

В Excel каждая рабочая книга является объектом Workbook, а Workbooks является коллекцией всех открытых рабочих книг в текущем списке Excel. Чтобы обратиться к конкретной рабочей книге, следует воспользоваться методом Workbooks объекта Application.

Синтаксис: Workbooks(Index).

Основные методы объекта Workbook:

- Activate делает активной указанную рабочую книгу;

- Close закрывает рабочую книгу;

- Save сохраняет рабочую книгу;

- Save as сохраняет рабочую книгу. Имеет ряд необязательных аргументов: Filename (Имя файла), FileFormat (Формат файла), Password (Пароль), WriteResPassword (Пароль на запись), ReadOnlyRecommended (Рекомендовать режим «только для чтения»);

- PrintOut печать всего содержимого рабочей книги;

- PrintPreview отображает рабочую книгу в режиме предварительного просмотра;

- Add создает рабочую книгу;

- Open открывает рабочую книгу;

Основные свойства объекта Workbook:

- ActiveSheet возвращает активный лист;

- Path (Путь) используется, если необходимо найти каталог, в котором сохранена рабочая книга;

- Saved (Сохраненная) возвращает значение Истина, если книга была сохранена после внесения в нее последних изменений. В противном случае, возвращает значение Ложь.

Пример:

Sub ПримерРабКниги()
Dim wbNewWorkbook As Workbook	Объявление переменной- объекта
Set wbNewWorkbook = Workbooks.Add	Этой переменной-объекту назначается новая создаваемая книга. Оператор создает рабочую книгу, добавляя новый элемент в коллекцию Workbooks
wbNewWorkbook.Worksheets(“Лист1”)._ Range(“A1”).Value = 100	Присваивается значение ячейке А1
wbNewWorkbook.SaveAs “Лаб5”
wbNewWorkbook.Close
MsgBox “Рабочая книга закрыта”
End Sub