Создание макроса и кнопки для его запуска

Запустите Excel

Запустите редактор VBA последовательностью команд

СервисèМакросèРедакторèVisual Basic

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

В открывшемся окне напишите на VBA программу

Sub hello()

MsgBox ("Привет")

End Sub

Активизируйте лист Excel.

Создайте новую кнопку пунктом меню Вид>Панели инструментов>Настройка.

В диалоге Настройка на вкладке Команды найдите категорию Макросы.

В поле Команды щелкните по пункту Настраиваемая кнопка.

Перетаскиваем кнопку на стандартную панель. Щелкаем по ней правой кнопкой мыши, выбираем пункт Назначить макрос.

В появившемся диалоге выбираем макрос Hello.

Нажимаем кнопку Изменить выделенный объект на диалоге Настройка или щелкаем по новой кнопке правой кнопкой мыши.

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

Проверяем, как теперь эта кнопка работает.

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

Excel – Создание и использование форм

Задание 1

1. Запустить Excel, Лист1 переименовать в Формы, файл сохранить под именем Lab_3 в своей папке (не в папке Мои Документы!)
2. Вывести на экран панель инструментов Формы (Вид„Панели инструментов„Формы)
3. На панели инструментов Формы выбрать инструмент Поле со спискоми мышкой в свободном месте листа «прорисовать» элемент список.

4. На листе в диапазоне ячеек A1:B6 ввести список фамилий

5. Щелкнуть правой кнопкой мышки по прорисованному элементу список и в контекстном меню выбрать ФорматОбъекта На закладке ЭлементУправления в поле Формировать список по диапазону указать диапазон ячеек со списком (B1:B6), в поле Связь с ячейкой указать ячейку, в которой будет результирующий список (например, E4), указать количество строк в списке в соответствующем поле.

1. Убедиться в работоспособности поля со списком.
2. Самостоятельно сформировать поля Счетчик, Список и др.

Задание 2

1. Лист2 переименовать в Заказ
2. Сформировать таблицу заказов компьютерного оборудования следующим образом

a. Ввести шапку таблицы

b. Ввести перечень отделов и оборудования

c. Ячейку (*) преобразовать в поле со списком, связать с перечнем отделов, ячейку (**) – связать с перечнем оборудования, ячейку (***) преобразовать в поле Счетчик

Отдел	Оборудование	Кол

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

Создание функций пользователя

Задание 1. Функция, автоматизирующая расчет времени в пути для самолета

Запустите Excel

Введите таблицу по образцу, предложенному ниже.

Присвойте ячейкам в столбцах B, C, D числовой формат Время

Время в числовом формате— это десятичная дробь в интервале от 0 (нуля) до 0,99999999, представляющая время от 0:00:00 (12:00:00 ночи) до 23:59:59 (11:59:59 вечера).

Введите в столбцы B и C данные - время отправления и время прибытия. Время при этом вводится через двоеточие (часы:минуты:секунды).

Запустите редактор VBA последовательностью команд

СервисèМакросèРедакторèVisual Basic

Выполните команду Вставкаèи создайте новый модуль. Выберите его значок в окне проекта, чтобы активизировать окно редактора для создания собственной функции. В открывшемся окне напишите на VBA программу функции Время_Пути для определения времени полета:

Function Время_пути(Вылет, Прилет)

v = Вылет

p = Прилет

If p > v Then t = p - v Else t = 1 + p - v

Время_пути = t

End Function

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

В результате таблица должна иметь следующий вид:

Задание 2. Функция, автоматизирующая расчет времени в пути для поезда

Запустите Excel. Введите таблицу по образцу, предложенному ниже.

Присвойте ячейкам в столбцах B, C числовой формат Время, тип 13:30.

Присвойте ячейкам в столбце E числовой формат Время, тип 37:30:55

Присвойте ячейкам в столбце D – числовой формат Числовой без десятичных знаков.

Время в числовом формате— это десятичная дробь в интервале от 0 (нуля) до 0,99999999, представляющая время от 0:00:00 (12:00:00 ночи) до 23:59:59 (11:59:59 вечера).

Введите в столбцы B и C данные - время отправления, время прибытия. Время при этом вводится через двоеточие (часы:минуты).

Введите в столбец D данные - число полных суток.

Запустите редактор VBA последовательностью команд

СервисèМакросèРедакторèVisual Basic

Выполните команду Вставкаèи создайте новый модуль. Выберите его значок в окне проекта, чтобы активизировать окно редактора для создания собственной функции. В открывшемся окне напишите на VBA программу функции ПоездВпути для определения времени поезда в пути в часах:

Function ПоездВпути(Отправление, Прибытие, Суток)

v = Отправление

p = Прибытие

s = Суток

If p > v Then t = p - v Else t = 1 + p - v

ПоездВпути = t + s

End Function

Активизируйте лист Excel. В ячейку Е2 введите созданную вами функцию, выбрав ее из категории Определенные пользователем. Проверьте работоспособность созданной вами функции.

В результате таблица должна иметь следующий вид:

Задание 3