![]() Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь FAQ Написать работу КАТЕГОРИИ: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву ![]() Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Создание типовых шаблонов для расчетовСодержание книги
Поиск на нашем сайте
Лабораторная работа 1 Создание типовых шаблонов для расчетов Цель работы: вычисление по формулам, использование абсолютной адресацией (2 способа), оформление документа, создание шаблонов, защита ячеек листа Задание 1. Вычисления и построение диаграмм Заполнить таблицу, выполнить вычисления. Вычисляемые значения – жирнымкурсивным шрифтом. При выполнении задания необходимо:
Построить диаграмму, иллюстрирующую числовые данные. Закрыть для ввода все ячейки, за исключением числовых данных, используя функции защиты листа.
Задание 2. Использование абсолютной адресации и констант Заполнить таблицу, выполнить вычисления. Вычисляемые значения – жирнымкурсивным шрифтом. При выполнении задания необходимо:
Закрыть для ввода все ячейки, за исключением числовых данных (пробег на начало дня при поступлении автомобиля в эксплуатацию – 01.09.03 и на конец каждого дня), используя функции защиты листа.
Лабораторная работа 2 Сводные таблицы Ввести данные, выполнить вычисления и сформировать сводные таблицы (распределение поступления оборудования в отделы). При вычислениях использовать абсолютную адресацию.
Сформировать сводные таблицы, показывающие:
Указание.
Лабораторная работа 3 Лабораторная работа 4 Подбор параметра Постановка задачи.
Определить
Подбор параметра в Microsoft Excel производится следующим образом:
Лабораторная работа 5 Задание 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 введите созданную вами функцию, выбрав ее из категории Определенные пользователем. Проверьте работоспособность созданной вами функции. В результате таблица должна иметь следующий вид:
Лабораторная работа 6 Задание 1
1. Запустите Excel 2. Включите режим записи макроса, для чего выберите режим СервисМакросНачать запись. В открывшемся меню Запись макроса введите имя макроса, например МакросПроверка, и присвойте ему комбинацию клавиш – Ctrl+z. Нажмите кнопку меню OK и приготовьтесь к началу записи макроса в виде последовательности команд, выполняемых на рабочем листе Excel. 3. Введите в ячейку А1 первого рабочего листа чистой книги слово Проверка. Введите в ячейку А2 число 26 и число 15 в ячейку В2. Остановите запись макроса нажатием кнопки Остановить запись. 4. Очистите область А1:С3 рабочего листа и вызовите на выполнение макрос МакросПроверка с помощью комбинации клавиш Ctrl+z. 5. Ознакомьтесь с набором рабочих окон редактора VBA и с текстом созданной программы, для чего с помощью команд СервисМакросМакросы вызовите макрос МакросПроверка и нажмите кнопку Изменить. Аналогичный результат можно получить, выполняя последовательность команд СервисМакросРедактор Visual Basic. 6. Ознакомьтесь с текстом созданного модуля МакросПроверка. Пример полученного текста представлен ниже. Sub МакросПроверка() ' ' МакросПроверка Макрос ' Макрос записан 03.11.2003 (NNNN) ' ' Сочетание клавиш: Ctrl+z ' Range("A1").Select ActiveCell.FormulaR1C1 = "Проверка" Range("A2").Select ActiveCell.FormulaR1C1 = "26" Range("B2").Select ActiveCell.FormulaR1C1 = "15" Range("C2").Select ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]" Range("C3").Select End Sub
7. Первая строка представляет собой заголовок созданной процедуры МакросПроверка. Параметры процедуры отсутствуют. Символом обозначен комментарий. Первая рабочая строка программы вызывает объект Аррliсаtiоп (приложение) с методом Run (выполнить), вызывающим на выполнение объект Range (диапазон) с параметрами начальной установки рабочего листа. Далее производится выделение ячейки А1 текущего рабочего листа и запись в активную ячейку в формате R1C1 текста “Проверка”. Отметим, что в Ехсеl существует два формата (А1 и R1СI) и два способа адресации (относительная и абсолютная) ячеек памяти. В формате А1 признаком абсолютной адресации является символ “$“. В формате RIСI абсолютный адрес задается индекс рабочей строки и столбца, а при необходимости использования относительной адресации в квадратных скобках указывается относительное смещение со знаком по отношению к текущей рабочей ячейке. Последующие действия программы соответствуют выполненной последовательности при программировании макроса. Как следует из текста, константы и формулы заносятся с использованием метода FormulaR1С1 объекта ActiveCell.
9. Модифицируйте созданную программу. Введите в ее текст описание трех дополнительных переменных: Dim b, c As Integer Предварительно описав переменную d1 как строку символов, введите в текст программы оператор ввода данных: Dim d As String D = InputBox (“Первый сомножитель”, ”Проверка”) Преобразуйте значение d из символьного вида к числовому с помощью функции: b = Val(d) и убедитесь, что содержимое ячейки может быть задано с клавиатуры в диалоговом режиме. Ниже представлен пример созданной в процессе модернизации макроса программы на языке VВА: Sub МакросПроверка () ' ' МакросПроверка Макрос ' Макрос записан 03.11.2003 (APTS) Dim b, c As Integer Dim d As String MsgBox "Умножение", vbOKOnly, “Проверка” d = InputBox("Первый сомножитель", "Проверка") b = Val(d) d = InputBox("Второй сомножитель", "Проверка") c = Val(d) Range("A1").Select ActiveCell.FormulaR1C1 = "Проверка" Range("A2").Select ActiveCell.FormulaR1C1 = b Range("B2").Select ActiveCell.FormulaR1C1 = c Range("C2").Select ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]" End Sub
Задание 2 Лабораторная работа 7 Задание 1
4. На листе в диапазоне ячеек A1:B6 ввести список фамилий
5. Щелкнуть правой кнопкой мышки по прорисованному элементу список и в контекстном меню выбрать ФорматОбъекта На закладке ЭлементУправления в поле Формировать список по диапазону указать диапазон ячеек со списком (B1:B6), в поле Связь с ячейкой указать ячейку, в которой будет результирующий список (например, E4), указать количество строк в списке в соответствующем поле.
Задание 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 Лабораторная работа 1 Создание типовых шаблонов для расчетов Цель работы: вычисление по формулам, использование абсолютной адресацией (2 способа), оформление документа, создание шаблонов, защита ячеек листа Задание 1. Вычисления и построение диаграмм Заполнить таблицу, выполнить вычисления. Вычисляемые значения – жирнымкурсивным шрифтом. При выполнении задания необходимо:
Построить диаграмму, иллюстрирующую числовые данные. Закрыть для ввода все ячейки, за исключением числовых данных, используя функции защиты листа.
Задание 2. Использование абсолютной адресации и констант Заполнить таблицу, выполнить вычисления. Вычисляемые значения – жирнымкурсивным шрифтом. При выполнении задания необходимо:
Закрыть для ввода все ячейки, за исключением числовых данных (пробег на начало дня при поступлении автомобиля в эксплуатацию – 01.09.03 и на конец каждого дня), используя функции защиты листа.
Лабораторная работа 2 Сводные таблицы Ввести данные, выполнить вычисления и сформировать сводные таблицы (распределение поступления оборудования в отделы). При вычислениях использовать абсолютную адресацию.
Сформировать сводные таблицы, показывающие:
Указание.
|