Создание функций пользователя
Задание 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 последовательностью команд
СервисèМакросèРедакторèVisual Basic
Выполните команду Вставкаèи создайте новый модуль. Выберите его значок в окне проекта, чтобы активизировать окно редактора для создания собственной функции. В открывшемся окне напишите на 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 |
Задание 2. Функция, автоматизирующая расчет времени в пути для поезда
Запустите Excel. Введите таблицу по образцу, предложенному ниже.
| A | B | C | D | E | |
| 1 | Направление | Время отправления | Время прибытия | Число полных суток | Время в пути |
| 2 | Москва |
|
|
|
|
| 3 | Челябинск |
|
|
|
|
| 4 | Владивосток |
|
|
|
|
| 5 | Мурманск |
|
|
|
|
Присвойте ячейкам в столбцах 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 данные - число полных суток.
| A | B | C | D | E | |
| 1 | Направление | Время отправления | Время прибытия | Число полных суток | Время в пути |
| 2 | Москва | 10:30 | 11:35 | 0 |
|
| 3 | Челябинск | 13:15 | 15:50 | 2 |
|
| 4 | Владивосток | 18:00 | 0:10 | 5 |
|
| 5 | Мурманск | 23:40 | 1:10 | 1 |
|
Запустите редактор 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 введите созданную вами функцию, выбрав ее из категории Определенные пользователем. Проверьте работоспособность созданной вами функции.
|
|
|
В результате таблица должна иметь следующий вид:
| A | B | C | D | E | |
| 1 | Направление | Время отправления | Время прибытия | Число полных суток | Время в пути |
| 2 | Москва | 10:30 | 11:35 | 0 | 1:05:00 |
| 3 | Челябинск | 13:15 | 15:50 | 2 | 50:35:00 |
| 4 | Владивосток | 18:00 | 0:10 | 5 | 126:10:00 |
| 5 | Мурманск | 23:40 | 1:10 | 1 | 25:30:00 |
Задание 3
Функция, автоматизирующая расчет часовой стоимости полета самолета
Запустите Excel
Введите таблицу по образцу, предложенному ниже.
| A | B | C | D | E | F | |
| 1 | Направление | Время отправления | Время прибытия | Время в пути | Стоимость билета | Часовая стоимость полета |
| 2 | Москва |
|
|
| ||
| 3 | Челябинск |
|
|
| ||
| 4 | Владивосток |
|
|
|
Присвойте ячейкам в столбцах B, C, D числовой формат Время
Время в числовом формате— это десятичная дробь в интервале от 0 (нуля) до 0,99999999, представляющая время от 0:00:00 (12:00:00 ночи) до 23:59:59 (11:59:59 вечера).
Введите в столбцы B и C данные - время отправления и время прибытия. Время при этом вводится через двоеточие (часы:минуты:секунды).
|
|
|
Запустите редактор VBA последовательностью команд
СервисèМакросèРедакторèVisual Basic
Выполните команду Вставкаèи создайте новый модуль. Выберите его значок в окне проекта, чтобы активизировать окно редактора для создания собственной функции. В открывшемся окне напишите на VBA программу функции Время_Пути для определения времени полета (см. предыдущую лаб. работу):
Выполните команду Вставкаèи создайте новый модуль. Выберите его значок в окне проекта, чтобы активизировать окно редактора для создания собственной функции. В открывшемся окне напишите на VBA программу функции ЧасСтоим для вычисления часовой стоимости полета.
Function ЧасСтоим(ВремяВпути, Стоимость)
t = ВремяВпути * 24
ЧасСтоим = Стоимость / t
End Function
Активизируйте лист Excel. В ячейку F2 введите созданную вами функцию, выбрав ее из категории Определенные пользователем. Проверьте работоспособность созданной вами функции.
Введите в D2 формулу, вычисляющую время в пути
В результате таблица должна иметь следующий вид:
| Направление | Время отправления | Время прибытия | Время в пути | Стоимость билета | Часовая стоимость полета |
| Москва | 10:30 | 11:35 | 1:05:00 | 1200 | 1107,69 |
| Челябинск | 13:15 | 15:50 | 2:35:00 | 2570 | 994,84 |
| Владивосток | 18:00 | 0:10 | 6:10:00 | 4800 | 778,38 |
[1] Только не нужно говорить, что 1 января банки не работают – пример учебный.
Дата добавления: 2018-04-05; просмотров: 78; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!