Excel Vba Программирование
Федеральное агентство по образованию Государственное образовательное учреждение Высшего профессионального образования Московский государственный индустриальный университет (ГОУ МГИУ) Кафедра информационных технологий и систем в экономике и управлении Реферат по специальности ' Информатика' на тему ' Программирование на VBA в среде MS Excel' Группа 08Ф21 Студент Л.Н. Ибатуллина Руководитель проекта, доцент, к.э.н. Суворов Москва – 2009 Содержание Задание на курсовую работу Описание переменных Описание алгоритма Листинг программы Список литературы На складе мастерской индивидуального пошива имеются запасы 12-ти видов ткани. За каждый рабочий день (6 дней) расходилось некоторое кол-во ткани каждого вида.
Написать программу на языке VBA, которая выводит исходные данные, выполняет расчеты и выводит на экран: Исходные данные в виде таблицы, где перечисленные наименования ткани, цена ткани, расход каждого вида ткани каждый день в метрах. Расход каждого вида ткани за неделю. Стоимость всей израсходованной ткани за день. Общая стоимость всей израсходованной ткани за неделю. Наименование самой ходовой ткани.
Язык программирования VBA служит для написания кода программы, например для создания функций пользователя в Excel. Тот факт, что система программирования VBA предназначена для работы с объектами Office, позволяет эффективно ее применять для автоматизации деятельности, связанной с разработкой различных типов документов. Рассмотрим алгоритм создания функций пользователя в VBA.
Язык Vba
Исходные данные находятся на листе 'исхд.' И содержат следующую информацию: Naz (12) - наименование ткани Dimnaz (12) AsString Cena (12) - стоимость ткани за м. Dimcena (12) AsDouble Ras (12,6) - расход каждого вида ткани каждый день в метрах Dimras (12,6) AsDouble Traiti (12,8) - стоимость каждого вида ткани за день Dimtrati (12,6) AsDouble ostoim - общая стоимость всей израсходованной ткани за неделю DimostoimAsDouble oras (12) - общий расход каждого вида ткани за неделю в м.
Dimoras (12) AsDouble otrati (6) - общая стоимость всей израсходованной ткани за день Dimotrati (6) AsDouble I, j - вспомогательные переменные счетчики цикла являющимися целыми числами Max, k - вспомогательная переменная для нахождения самой 'ходовой' ткани. Ввод начальных (нулевых) значений для расчетных величин (стоимость израсходованной ткани за день, расход за неделю, общая стоимость всей израсходованной ткани за неделю, цена каждого вида ткани).
Чтение с листа 'Исходные данные' значение в naz (12) и ras (12,6). Расчет расхода каждого вида ткани за неделю производиться путем сложения расходов ткани ежедневно. Организуется два вложенных цикла. Во внутреннем цикле суммируется расход ткани по каждому дню, после выхода из внутреннего цикла выводиться результат по тканям. Определение стоимости всей израсходованной ткани за день производиться путем умножения цены ткани на количество израсходованной ткани. Организуется два вложенных цикла.
Во внутреннем перемножается стоимость ткани и ее количество, после выхода из внутреннего цикла выводится результат по каждой ткани. Расчет общей стоимости всей израсходованной ткани каждого вида за неделю производится путем сложения стоимости израсходованной ткани по дням. Организуется два вложенных цикла. Во внутреннем цикле суммируется стоимость всей израсходованной ткани за день, после выхода из внутреннего цикла выводится результат по всем тканям. Определение самой 'Ходовой ткани'. Для этого используется два массива одинаковой размерности: 'ras (12)' - в котором лежат количественные значения и 'naz (12)' - в котором лежат названия тканей, а также две переменных 'max' - в которой лежит максимальное значение ткани и 'k ' - порядковый номер ячейки с максимальным значением израсходованной ткани.
На первом шаге мы предполагаем, что в первой ячейке массива 'oras (i) находиться максимальное значение ложем его в переменную 'max' и записываем номер ячейки в 'k'. На втором шаге мы начинаем сравнивать значение, содержащееся в 'max' со значениями остальных ячеек, начиная с первой. Если мы нашли, что в какой - то ячейке значение больше, чем 'max', то тогда это значение ложем в переменную 'max' и записываем номер ячейки в 'k'.После того как мы прошли весь массив 'ras (12)' и нашли максимальное значение, помощи переменной 'k ' мы берем из массива naz (12) наименование самой расходуемой ткани.
Самоучитель Vba Excel
Программы Private Sub CommandButton1Click 'объявление и обнуление 'Сначала объявляем переменные, используемые в программе. Dim naz (12) As String Dim cena (12) As Double Dim ras (12,6) As Double Dim oras (12) As Double Dim otrati (6) As Double Dim trati (12,6) As Double Dim ostoim As Double Dim k As Integer Dim max As Double 'Далее всем переменным присваивается нулевое значение.