У вас вопросы?
У нас ответы:) SamZan.net

тематики и информатики Дисциплина- Информатика Курсовая работа Разработка приложений в среде Excel 2013

Работа добавлена на сайт samzan.net:

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 29.12.2024

Санкт-Петербургский государственный архитектурно-строительный университет

Общестроительный факультет

Кафедра прикладной математики и информатики

Дисциплина: Информатика

Курсовая работа

Разработка приложений в среде Excel 2013

Выполнил

Студент Глухова Л.А.

Группа 7-С-1

Проверила Нарбут Л.К.

Санкт – Петербург

2013

Курсовая работа №1

Оглавление

Введение 3

«МАГАЗИНЫ» 4

Построение графиков функций 5

Программирование функций пользователя на VBA 7

Табуляция 10

Форма 1 12

Форма 2 14

Форма 3 17

Форма 4 20

Форма 5 23

Заключение 27

Список использованной литературы 28


Введение

Для освоения приложений в среде Excel 2013 мы проделали следующие графические работы:

  1.  В Excel: составление отчетной ведомости «Магазины». Использование формул СУММ, РАНГ, СРЗНАЧ, Частота. Построение круговой диаграммы и гистограммы.
  2.  Построение графиков функций: обычных, разветвляющихся на 2 и 3 направления, двух в одних осях, поверхности.
  3.  Разработка функций пользователя для функций из п.2. Вычисление значений функций пользователя и сравнение с полученными в п.2. Элементы языка VBA: процедура Function, оператор if.
  4.  Табуляция функций. Разработка процедур для табулирования функций пользователя из п.4. Элементы языка VBA: процедуры Sub, операторы Input, присваивания, Cells, For… next, макрос. Запуск функций пользователя из макроса.
  5.  Формы. Активизация и выгрузка из памяти. Элементы управления Поле, Список, Поле со списком, Полоса прокрутки. Разработка проектов, включающих: заполнение списков, выбор элементов из списков; многостолбцовые списки, многоэлементный выбор из списка, заполнение списка из диапазона ячеек.
  6.  Файлы. Разработка процедур на VBA для чтения из файла в Поле (TextBox) и записи из Поля в файл.

«МАГАЗИНЫ»

Задание:

Набрать таблицу квартальной отчетной ведомости для сети магазинов в соответствии с вариантом задания и образцом таблицы. Выполнить обработку введенных данных, в результате которой заполняются столбцы: "Суммарная выручка", "Среднемесячная выручка", "Место магазина", "Процент".

На основании полученных результатов определить столбец "Диапазоны". В этом столбце определяются подынтервалы, в пределах, которых распределяется средняя выручка магазинов сети. На основании значений, определенных в этом столбце формируется столбец "Частота", в котором определяется частота попадания значений полученных в столбце "Среднемесячная выручка" в подынтервалы, выделенные в столбце "Диапазоны".

Выполнение:

  1.  Заполнили заданные строки и столбцы: месяцы, количество магазинов, выручка за каждый месяц.
  2.  Записали формулы СУММ, РАНГ, СРЗНАЧ, Частота в нужные ячейки.
  3.  Протянули бегунок на всю длину столбца, получив тем самым таблицу.
  4.  Составили круговую диаграмму, задав нужные параметры (проценты, название диаграммы, легенду диаграммы), с помощью функции Вставка.
  5.  Составили гистограмму, задав нужные параметры (название осей, числовые значения, название) с помощью функции Вставка.
  6.  Выровняли, для удобного просмотра.

Построение графиков функций

Чтобы построить графики функций в среде Excel, необходимо воспользоваться мастером диаграмм с большим набором графиков и диаграмм. Для того, чтобы построить график функции следует сначала построить таблицу значений зависимости переменной Y от X, при чем аргумент изменяется с фиксированным шагом. В моем случае шаг равен 0,2.

Задание: 

Вариант 4.

1. Построить в разных системах координат при графики функций:

        

2. Построить в одной системе координат при графики функций:

  1.  Y = 5sin(πx)-cos(3πx)sin(πx)
  2.  Z = cos(2πx)-2sin3(πx)

3. Построить поверхность  z = 5x2 *cos2( y)-2y2ey   при  x,y [-1; 1].

Выполнение:

  1.  Указали в первом столбце Х и его значения, затем во втором столбце Y, затем G и Z.
  2.  В ячейках M3, N3, O3 записали формулы.
  3.  Протянули на всю длину столбца.
  4.  Затем построили графики по заданным точкам, с помощью Вставка-Диаграмма-График.
  5.  Выровняли для удобного просмотра.

Программирование функций пользователя на VBA

Задание:

Задать функции из предыдущего задания в VBA №1 и №2.

Выполнение:

  1.  Нажали Alt+F11
  2.  Выбрали Insert → Module

В появившемся окне написали текст программы

  1.  Перешли на лист Excel и в ячейках P2, Q2 и R2 написали названия искомых функций
  2.  На первом шаге надо выбрать y(x) в категории «Функции определенные пользователем», на втором шаге в качестве аргумента x указать ячейку F2. В результате в ячейке P3 будет записана формула =y(L3). Эту формулу протащить на весь диапазон P3:P21, аналогично с Q3 и R3.

Табуляция

Задание:

Сделать программу в VBA для функции

Выполнение:

  1.  Открыли файл Excel с графиками функций, чтобы использовать «живую» функцию
  2.  Вызвали VBA (Alt + F11)
  3.  Создали новый  Modul
  4.  Записали программу

Sub tabul()

Dim x0 As Single, xk As Single, h As Single

Dim x As Single, n As Integer

x0 = -2: xk = 1.8: h = 0.2: n = 1

Cells(n, 1) = "x": Cells(n, 2) = "g"

For x = x0 To xk Step h

n = n + 1

Cells(n, 1) = x: Cells(n, 2) = g(x): Next

End Sub

  1.  С помощью Разработчик - Режим Конструктора поставили кнопку и назвали ее «Табуляция»
  2.  Вышли из режима Конструктор и запустили кнопку

Форма 1

Задание:

Задать форму в VBA

Выполнение:

  1.  Создали новый документ Excel
  2.  Создали новый модуль VBA ( Alt+F11→Insert Modul)
  3.  Следуя инструкциям, создали программу VBA

Private Sub CommandButton1_Click()

Dim s As Double

Dim s1 As Double

Dim x As Double

s1 = 1: s = 0

If CheckBox1 Then

For x = -1.8 To 1.81 Step 0.2

s = s + x * x

Next

TextBox1 = s

End If

If CheckBox2 Then

For x = -1.8 To 1.81 Step 0.2

s = s * x * x

Next

TextBox2 = s1

End If

End Sub

  1.  Создадим кнопку «кнопка»

  1.  Затем создали с помощью Разработчика кнопку «Показать форму»
  2.  Запустили программу

                                                              Форма 2

Задание:

Задать форму в VBA

Выполнение:

  1.  Создали новый документ Excel
  2.  Создали новый модуль VBA ( Alt+F11→Insert Modul)
  3.  Следуя инструкциям, создали программу VBA

Private Sub CommandButton1_Click()

Static icount As Long

Dim i As Integer

While icount < 10

icount = icount + 1

ListBox1.AddItem CStr(Cells(1 + icount, 1)) & (" " + CStr(icount))

Wend

End Sub

Private Sub CommandButton2_Click()

If ListBox1.ListIndex = -1 Then Exit Sub

With ListBox1

.RemoveItem ListBox1.ListIndex

End With

End Sub

Private Sub CommandButton3_Click()

ListBox1.Clear

End Sub

Private Sub CommandButton4_Click()

Cells(5, 5) = ListBox1.Text

End Sub

  1.  Создадим кнопки «add»-прибавлять «remove»-перемещать «сlear» -очистить «come back»- вернуться

  1.  Вернувшись на лист Exel, в первом столбце записали 10 фамилий
  2.  Затем создали с помощью Разработчика кнопку «Показать форму»

  1.  Запустили программу

Форма 3

Задание:

Задать форму в VBA

Выполнение:

• Создали новый документ Excel

• Создали новый модуль VBA ( Alt+F11→Insert Modul)

• Следуя инструкциям, создали программу VBA

Sub CommandButton1_Click()

Dim a As Double, b As Double

Dim h As Double, x As Double

Dim i As Long, n As Integer

Dim S As Double

a = CDbl(TextBox1.Text)

b = CDbl(TextBox2.Text)

h = CDbl(TextBox3.Text)

If b < a Then Exit Sub

ListBox1.Clear: i = 0

For x = a To b Step h

f = Sin(x)

f = Format(f, "0.000")

ListBox1.AddItem x

ListBox1.List(i, 1) = f

i = i + 1

Next x

n = 4

Cells(n, 6) = "x": Cells(n, 7) = "y=f(x)": Cells(n, 8) = "сумма"

For i = 0 To 10

n = n + 1

Cells(n, 6) = ListBox1.List(i, 0)

Cells(n, 7) = CDbl(ListBox1.List(i, 1))

Next i

Cells(5, 8) = "=Sum(g5:g15)"

TextBox4 = CStr(Cells(5, 8))

Cells(5, 9) = "=average(g5:g15)"

End Sub

Sub UserForm_initialize()

With ListBox1

.ColumnCount = 2

.ColumnWidths = "40;60"

End With

End Sub

• Вернувшись на лист Excel, создали с помощью Разработчика кнопку «Показать форму»

  1.  Затем в VBA запустили программму

  1.  Ввели некоторые цифры
  2.  Теперь мы можем сосчитать Сумму

Форма 4

Задание:

Сделать программу в VBA для функции

      aX1+bX2+c=0

Выполнение:

• Создали новый документ Excel

• Создали новый модуль VBA ( Alt+F11→Insert Modul)

• Следуя инструкциям, создали программу VBA

Private Sub CommandButton1_Click()

Dim a, b, c, D As Double

a = CDbl(TextBox1)

b = CDbl(TextBox2)

c = CDbl(TextBox3)

D = b * b - 4 * a * c

If a = 0 Then

TextBox4 = -c / b

TextBox5 = Empty

Else

If D >= 0 Then

TextBox4 = (-b + Sqr(D)) / (2 * a)

TextBox5 = (-b - Sqr(D)) / (2 * a)

Else

TextBox4 = "Корней нет"

TextBox5 = Empty

End If

End If

End Sub

• Вернувшись на лист Excel, создали с помощью Разработчика кнопку          «Показать форму»

  1.  Затем в VBA запустили программму

Форма 5

Задание:

Задать форму в VBA

Выполнение:

• Создали новый документ Excel

• Создали новый модуль VBA ( Alt+F11→Insert Modul)

• Следуя инструкциям, создали программу VBA

Private Sub CommandButton1_Click()

Static icount As Long

Dim I As Integer

I = 0

While icount <= 10

icount = icount + 1

ListBox1.AddItem Cells(1 + icount, 1)

ListBox1.List(I, 1) = CDbl(Cells(1 + icount, 2))

I = I + 1

Wend

End Sub

Private Sub CommandButton2_Click()

Dim I As Integer, n As Integer

n = 0

For I = 0 To 10

If ListBox1.List(I, 0) = CStr(TextBox1) Then

TextBox2 = ListBox1.List(I, 1)

n = 1

End If

Next I

If n = 0 Then MsgBox "Такой фамилии нет"

End Sub

Private Sub CommandButton3_Click()

Dim I As Integer, n As Integer

n = 14

For I = 0 To 10

n = n + 1

Cells(n, 10) = ListBox1.List(I, 1)

Next I

Cells(15, 11) = "=max(j15:j25)"

TextBox3 = CStr(Cells(15, 11))

End Sub

Sub UserForm_initialize()

With ListBox1

.ColumnCount = 2

.ColumnWidths = "60;60"

End With

End Sub 

  1.  Перешли на лист Excel
  2.  Записали 10 фамилий и их доход
  3.  Запустили программу и выполнили нужные действия
  4.  Теперь мы можем найти интересующие фамилии, вывести на экран зарплату.

Заключение

Excel - это программа для работы с таблицами семейства Microsoft Office. Основная идея программы Excel состоит: хранит информацию, организуя ее с помощью таблиц. Однако хранение информации - это еще половина дела. Второе и главное преимущество Excel - это многочисленные возможности для анализа этой информации: проведения всевозможных вычислений, построения наглядных зависимостей. Любому, кто сталкивался с необходимостью анализировать какую-либо информацию известно, что даже если нет необходимости в выполнении вычислений, иногда имеет смысл располагать информацию в табличной форме, чтобы подчеркнув тем самым некую систему, облегчить ее субъективное восприятие. Поэтому и сама программа Excel ориентирована на самый широкий круг пользователей и применима при решении широчайшего спектра задач.

Вычислительные возможности Excel и ее способности по редактированию и форматированию дают в итоге чудесную программу для создания любого документа, который может содержать текстовые и числовые данные и позволяет выполнять вычисления.

Поскольку таблицы содержат динамические формулы, их итоговые значения всегда будут актуальны. А это очень важно в современных условиях.


Список использованной литературы

  1.  Гарнаев А.Ю.  Excel, VBA, Internet в экономике и финансах, СПб, изд. «БХВ-Петербург», 2005г.
  2.  Власовец А. Информатика и программирование. Pascal и Vba. Учебник, Андреевский издательский дом,2010 г.
  3.  Гаевский  А.Ю., Информатика Учебник для 7-11 классов,2010г.




1. I. Основные положения- Победителем в бою считается команда захватившая базу или уничтожившая все танки прот
2. года или 75 000100 000 км пробега автомобиля
3. і Ті видозміни що сталися з членами родини можна було б назвати моральною катастрофою
4. КОНТРОЛЬНАЯ РАБОТА по дисциплине Экономика организаций Вариант 3 Студент- специал
5. Тема 1. Теория государства и права 1
6. все существующее
7. Рассмотрено Согласовано
8. ЗВЕРСТВАХ В КОСОВО В ИСТОРИЧЕСКОМ КОНТЕКСТЕ Если история и впрямь может служить уроком то многие расска
9. задание для дизайнера Не заваливай рабочий стол
10. парадигмы культуры третьего тысячелетия I Вступая в третье тысячелетие мы слышим противоречивые пре
11. Правовое регулирование отношений собственности
12. Народная педагогика в семейном воспитании
13. заповнити нескладну анкету формуляр чи опитувальний лист; написати привітальну листівку зарубіжному ровес
14. Международная Олимпиада по основам наук
15. Дипломная работа Правление Гитлера
16. Э Веселые стихи Эму ~ страус длинноногий Эму ~ гордый Эму ~ строгий
17. СОЮЗ РУССКИХ ХУДОЖНИКОВ И МИР ИСКУССТВА В ПЕРИОД ГОСПОДСТВА НОВЫХ НАПРАВЛЕНИЙ А
18. ТЕМАТИЧНі методи в управлінні адаптацією виробничого потенціалу підприємства Спеціальність 08
19. ЮРГУЭС УТВЕРЖД
20. десять лет без права переписки или просто долгое отсутствие без вестей такое что надежда тает.html

Материалы собраны группой SamZan и находятся в свободном доступе