Вам нужна курсовая работа?
Интересует Информатика?
Оставьте заявку
на Курсовую работу
Получите бесплатную
консультацию по
написанию
Сделайте заказ и
скачайте
результат на сайте
1
2
3

Программирование на VBA в среде MS Excel

  • 21 страница
  • 9 источников
  • Добавлена 05.06.2010
700 руб. 1 400 руб.
  • Содержание
  • Часть работы
  • Список литературы
  • Вопросы/Ответы
Содержание:
Задание
Описание переменных
Блок-схема алгоритма
Словесное описание алгоритма
Листинг программы
Этапы работы программы
Список использованной литературы

Фрагмент для ознакомления

если текущее больше, то оно становится max
Next j
Next i
Sheets("Лист2").Cells(17, 3) = max ' выводим максимальное значение

' Ищем минимальное значение по каждому столбцу среди количества изделий, выпеченных бригадами
For j = 1 To 6
min = massiv_col_(1, j) ' к значению минимума присваиваем первое значение в столбце массива
For i = 1 To 11
If massiv_col_(i, j) < min Then min = massiv_col_(i, j) ' сравниваем текущее значение с нашим минимумом. если текущее меньше, то оно становится min
Next i
Sheets("Лист2").Cells(18, 3 + j) = min ' выводим минимальное значение
Next j ' идем по следующему столбцу
' Считаем общую стоимость выпеченных изделий на основе ранее подсчитанных нами данных
Sheets("Лист2").Cells(19, 3) = (Sheets("Лист2").Cells(3, 10) * Sheets("Лист2").Cells(3, 3) + Sheets("Лист2").Cells(4, 10) * Sheets("Лист2").Cells(4, 3) + Sheets("Лист2").Cells(5, 10) * Sheets("Лист2").Cells(5, 3) + Sheets("Лист2").Cells(6, 10) * Sheets("Лист2").Cells(6, 3) + Sheets("Лист2").Cells(7, 10) * Sheets("Лист2").Cells(7, 3) + Sheets("Лист2").Cells(8, 10) * Sheets("Лист2").Cells(8, 3) + Sheets("Лист2").Cells(9, 10) * Sheets("Лист2").Cells(9, 3) + Sheets("Лист2").Cells(10, 10) * Sheets("Лист2").Cells(10, 3) + Sheets("Лист2").Cells(11, 10) * Sheets("Лист2").Cells(11, 3) + Sheets("Лист2").Cells(12, 10) * Sheets("Лист2").Cells(12, 3) + Sheets("Лист2").Cells(13, 10) * Sheets("Лист2").Cells(13, 3)) * Sheets("Лист2").Cells(1, 3) / 1000 ' при подсчете гр переводим в кг
' Прячем форму
UserForm1.Hide
' Переводим пользователя на Лист2
Sheets("Лист2").Select

Exit Sub
' Проверка на правильность расчетных данных
Err:
' Для определения наличия недопустимых значений используем флаги
flag1 = 0 ' флаг на пустую ячейку
flag2 = 0 ' флаг на отрицательное значение в ячейке

For Each cmt In Sheets("Лист2").Range("C3:I13") ' для кажого значения из указанного диапазона
If cmt = "" Then flag1 = 1 ' осуществляем проверку на пустое место
If cmt < 0 Then flag2 = 1 ' осуществляем проверку на отрицательность
Next cmt

' Если ошибки есть и флаг изменил значение на 1, то выводим соответствующие сообщения
If flag1 = 1 Then mess = MsgBox("Среди исходных данных есть пустые ячейки!", vbOK + vbCritical, "Ошибка!")
If flag2 = 1 Then mess = MsgBox("Среди исходных данных есть отрицательные значения!", vbOK + vbCritical, "Ошибка!")
If (flag1 = 0) And (flag2 = 0) Then GoTo NoErr
End Sub
Этапы работы программы
Открытие книги

Выполнение операции «Рассчитать данные»




Выполнение операции «Проверить данные» при наличии пустой ячейки


Выполнение операции «Сортировать»
Выбор варианта сортировки:



Сортировка по расходу теста:

Восстановление исходных данных





Проверка алгоритма
Диалоговое окно проверки алгоритма:

Проверка алгоритма на единицах:




Проверка алгоритма на нулях:

Список использованной литературы:
Вебб Дж. Программирование в Excel 2003.: Пер. с англ. – М.: Кудиц-образ, 2006. – 34с.
Киммел П., Грин Дж., Буллен С. и др. Excel 2003 и VBA: Справочник программиста. Пер. с англ. Под ред. Лещинского О. А. – М.: ИД Вильямс/ Диалектика/Диалектика-Вильямс, 2006. – 1088с.
Мак-Федрис П. Моя первая книга о VBA. Пер. с англ. Минько Ан. А. – М.: ЭКСМО, 2005. – 352с.
Сдвижков О. А. Excel-VBA: Словарь-справочник пользователя. – М.: ЭКСМО, 2008. – 224с.
Уокенбах Джон. Профессиональное программирование на VBA в Excel 2003.: Пер. с англ. – М.: Издательский дом «Вильямс», 2005. – 800с.
Фрай К., Фриз В., Бакингем Ф. Эффективная работа: Программирование в Office Excel 2003. – Спб.: Питер, 2005. – 544с.
http://excelvba.narod.ru/x/faqs_2.htm
http://www.intuit.ru/department/office/vbaexcel/1/
http://www.askit.ru/custom/vba_office/












6



1

Есть ошибки в исходных данных?

Считаем общую массу теста, замешенного бригадами

i+1

i=1

i=4

да

нет

Считаем общее количество изделий, выпеченных бригадами на основе уже имеющихся ранее подсчитанных нами данных

Считаем общий расход теста по столбцу

i+1

i=1

i<12

да

нет

Считаем сумму по каждому столбцу для количества изделий, выпеченных бригадами

i+1

i=1

i=6

да

нет

Считаем произведение по строкам

i+1

i=1

i=11

да

нет

Считываем в массив данные о расходе массе теста, замешенного бригадами

i+1

i=1

i=4

да

нет

Считываем в массив данные о расходе теста по каждому из изделий

i+1

i=1

i=11

да

i+1

Начало

Сохраняем исходные данные на Листе3

j=6

j=1

Считываем в массив данные о количестве изделий, выпеченных бригадами

j+1

i=11

i=1

нет

нет

да

да

нет

Конец

Считаем общую стоимость выпеченных изделий на основе ранее подсчитанных нами данных

выводим минимальное значение

j+1

i=11

j=1

Ищем минимальное значение по каждому столбцу среди количества изделий, выпеченных бригадами

i+1

j=6

i=1

нет

нет

да

да

выводим максимальное значение

i+1

j=6

j=1

Ищем максимальное значение среди количества изделий, выпеченных бригадами

j+1

i=11

i=1

нет

нет

да

да

1

нет

да

Список использованной литературы:
1.Вебб Дж. Программирование в Excel 2003.: Пер. с англ. – М.: Кудиц-образ, 2006. – 34с.
2.Киммел П., Грин Дж., Буллен С. и др. Excel 2003 и VBA: Справочник программиста. Пер. с англ. Под ред. Лещинского О. А. – М.: ИД Вильямс/ Диалектика/Диалектика-Вильямс, 2006. – 1088с.
3.Мак-Федрис П. Моя первая книга о VBA. Пер. с англ. Минько Ан. А. – М.: ЭКСМО, 2005. – 352с.
4.Сдвижков О. А. Excel-VBA: Словарь-справочник пользователя. – М.: ЭКСМО, 2008. – 224с.
5.Уокенбах Джон. Профессиональное программирование на VBA в Excel 2003.: Пер. с англ. – М.: Издательский дом «Вильямс», 2005. – 800с.
6.Фрай К., Фриз В., Бакингем Ф. Эффективная работа: Программирование в Office Excel 2003. – Спб.: Питер, 2005. – 544с.
7.http://excelvba.narod.ru/x/faqs_2.htm
8.http://www.intuit.ru/department/office/vbaexcel/1/
9.http://www.askit.ru/custom/vba_office/

Восемь

Федеральное агентство по образованию

Государственное учреждение образования

Высшего профессионального образования

Московский государственный индустриальный университет

ГОУ МГИУ)

Кафедра информационных технологий и систем в экономике и управлении

Реферат

по специальности "Информатика"

на тему "Программирование на VBA в среде MS Excel""

Группа 08Ф21

Студент Л. Н. Ибатуллина

Менеджер проекта,

доцент, c. e. n. С. В. Суворова

Москва - 2009

Содержание

  • Задание на курсовую работу
  • Описание переменных

    Описание алгоритма

    Код

    библиография

    Задание на курсовую работу

    На складе мастерской индивидуального пошива имеются запасы 12 видов ткани. За каждый рабочий день (6 дней) расходилось количество ткани каждого вида.

    для того, чтобы Написать программу на языке VBA, которая выводит исходные данные, выполняет расчеты и выводит на экран:

    · Исходные данные в виде таблицы, где перечислены наименования ткани, цена ткани, расход каждого вида ткани каждый день в метрах.

    · Расход каждого вида ткани за неделю.

    · Стоимость всего расход ткани на день.

    · Общая стоимость всего расход ткани на одну неделю.

    · Наименование самой ходовой ткани.

    Описание переменных

    Исходные данные находятся на листе "исх_д." и содержат следующую информацию:

    Naz (12) - тип ткани

    Dim naz (12) As String

    Cena (12) - стоимость ткани за м.

    Dim cena (12) As Double

    Ras (12,6) - расход каждого вида ткани каждый день в метрах

    Dim ras (12,6) As Double

    Вы живете (12,8) - стоимость каждого вида ткани за день

    Dim trati (12,6) As Double

    o_stoim - общая стоимость всего расход ткани на неделю

    Узнать стоимость работы