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

Запустите Excel

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

СервисМакросРедакторVisualBasic

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

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

Sub hello()

MsgBox ("Привет")

End Sub

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

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

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

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

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

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

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

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

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

Лабораторная работа 7 Excel– Создание и использование форм Задание 1

1. Запустить Excel, Лист1переименовать вФормы, файл сохранить под именемLab_3 в своей папке (не в папкеМои Документы!)

2. Вывести на экран панель инструментов Формы (ВидПанели инструментовФормы)

3. На панели инструментов Формывыбрать инструментПоле со списком и мышкой в свободном месте листа «прорисовать» элементсписок.

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

   A	B
   1	Фамилия, И.О.
   2	Иванов А.Л.
   3	Семенов А.Е.
   4	Николаева Я.О.
   5	Родионова К.П.
   6	Федоров П.Н.

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

6. Убедиться в работоспособности поля со списком.

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

Задание 2

1. Лист2переименовать вЗаказ

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

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

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

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

   Отделы	Оборудование
   Экономический	Принтер HP1300
   Отдел кадров	Сканер Mustek
   Технический	Монитор LG
   Информационный	Копир Sharp AR163

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

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

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

Запустите Excel

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

	A	B	C	D
1	Направление	Время отправления	Время прибытия	Время в пути
2	Москва	10:30	11:35
3	Челябинск	13:15	15:50
4	Владивосток	18:00	0:10
5	Мурманск	23:40	1:10

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

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

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

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

СервисМакросРедакторVisualBasic

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

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

v = Вылет

p = Прилет

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

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

End Function

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

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

	A	B	C	D
1	Направление	Время отправления	Время прибытия	Время в пути
2	Москва	10:30	11:35	1:05:00
3	Челябинск	13:15	15:50	2:35:00
4	Владивосток	18:00	0:10	6:10:00
5	Мурманск	23:40	1:10	1:30:00