Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь FAQ Написать работу КАТЕГОРИИ: АрхеологияБиология Генетика География Информатика История Логика Маркетинг Математика Менеджмент Механика Педагогика Религия Социология Технологии Физика Философия Финансы Химия Экология ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Создание типовых шаблонов для расчетов↑ Стр 1 из 4Следующая ⇒ Содержание книги
Поиск на нашем сайте
Лабораторная работа 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 Сводные таблицы Ввести данные, выполнить вычисления и сформировать сводные таблицы (распределение поступления оборудования в отделы). При вычислениях использовать абсолютную адресацию.
Сформировать сводные таблицы, показывающие:
Указание.
|