Вход

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

Курсовая работа*
Код 154752
Дата создания 2010
Страниц 21
Источников 9
Мы сможем обработать ваш заказ 18 февраля в 8:00 [мск]
Файлы будут доступны для скачивания только после обработки заказа.
810руб.
КУПИТЬ

Содержание

Содержание:
Задание
Описание переменных
Блок-схема алгоритма
Словесное описание алгоритма
Листинг программы
Этапы работы программы
Список использованной литературы

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

если текущее больше, то оно становится 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/
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала, который не является научным трудом, не является выпускной квалификационной работой и представляет собой результат обработки, структурирования и форматирования собранной информации, но может использоваться в качестве источника для подготовки работы указанной тематики.
© Рефератбанк, 2002 - 2019