Назначение макроса управляющему элементу

Задание 4. Создать кнопку для вызова процедуры.

Указания:

1. Создать кнопку управления (с помощью панели инструментов Разработчик):

2.

- на листе "РЕНТАБ, ЦЕНА";

- для выполнения процедуры CalcRC;

- название кнопки "Расчет R и С":

2. Выполнить процедуру CalcRC с помощью разработанной кнопки.

3. Сохранить кнопку с книгой (в том же файле Лаб. 2 – VBA(Функции пользователя).

Задание 5. Создать кнопки для перехода на другой лист книги.

Указания:

1. На листе "РЕНТАБ, ЦЕНА" создать кнопку для перехода на лист "F",предварительно записав макрос перехода на лист "F", а затем присвоив его кнопке. Кнопке присвойте соответствующее название (например, В начало/В конец/Назад/Далее/На лист F), а разместите в правом верхнем углу листа.

2. На листе "F" аналогично создать кнопку для перехода на лист "РЕНТАБ, ЦЕНА". Кнопке присвойте соответствующее название.

Окна сообщений (параметры)

Задание 6. Ознакомиться со всеми видами окон сообщений.

Указания:

1. Создать процедуру с несколькими командами MsgBox, демонстрирующую окна с различными кнопками (5 видов), разных типов (4 вида), а также одно их сочетание.

2. Содержание сообщения и заголовка окна должны согласовываться с выбранными типами окна и кнопок.

Константа	Значение / код	Отображаемые кнопки
VbOkOnly	MsgBox("Привет!", vbOKOnly)=vbOk
VbOkCancel	MsgBox ("Привет!", vbOKCancel)=vbOk
VbAbortRetryIgnore	MsgBox ("Привет!", VbAbortRetryIgnore)=vbAbort
VbYesNoCancel	MsgBox("Привет!", VbYesNoCancel)=vbYes
VbYesNo	MsgBox ("Привет!", vbYesNo)=vbYes
VbRetryCancel	MsgBox ("Привет!", VbRetryCancel)=vbretry
VbCritical	MsgBox("Привет!", vbCritical)=vbYes	Критическое сообщение
VbQuestion	MsgBox("Привет!", VbQuestion)=vbYes	Предупреждающий запрос
VbExclamation	MsgBox("Привет!", VbExclamation)=vbYes	Предупреждающее сообщение
VbInformation	MsgBox("Привет!", vbInformation)=vbYes	Информирующее сообщение

3. Каждое окно скопировать в файл Лаб. 2 – VBA(Окна сообщений) через буфер обмена (всего 10 окон).

4. Зарисовать или распечатать окна.

Работа с файлами (импорт данных)

Задание 7. Создать макрос для импортирования (чтения) данных из текстового файла на рабочий лист Excel.

Указания:

1. Создать в программе Блокнот текстовый файл следующего вида (как разделитель значений строки использовать табуляцию):

Основні показники економічного і соціального стану України, 2001-2002 роки

Валовий внутрішній продукт, млн. грн. 201927

Обсяг промислової продукції, млн. грн. 155891

Грошові витрати та заощадження, млн. грн. 102279

2. Файл сохранить под именем Показники_станув личной папке.

3. Для импорта данных использовать команду Данные - Из текста, выбрать файл для импортирования, задать Формат данных – с разделителями, а так же место размещения данных – "на новый лист".

4. Макрос присвоить кнопке на Вашей панели инструментов (разработана на предыдущей лаб.раб. №1).

5. Запустите макрос с помощью данной кнопки. При правильном выполнении макроса значения должны считаться из текстового файла и разместиться в книге Excel:текстовые в столбце А, а числовые – в столбце В.

6. Сохранить импортированную таблицу в файле Лаб. 2 VBA - Макрос импортирования.

Завершение работы

Проверить наличие созданных файлов в личной папке с именем VBA:

Лаб. 2 VBA - Функции пользователя (с листами F и РЕНТАБ, ЦЕНА);

Лаб. 2 VBA - Окна сообщений;

Лаб. 2 VBA - Макрос импортирования.

Вопросы для самоподготовки и контроля

1. Для чего создают функцию пользователя?

2. Как создать функцию пользователя?

3. Какие управляющие конструкции используются в языке VBA?

4. Какие виды процедур есть в VBA, в чем их отличие?

5. Какие виды окон сообщений возможно разработать средствами VBA?

6. В чем отличие текстовых файлов от файлов типа Word (буквально – файлов с расширением .txt от .doc) ?

• ⇐ Назад
• 12