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

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

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

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

Оглавление

Введение

1. «Магазины»

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

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

4. Табуляция

Форма 1

Форма 2

Форма 3

Форма 4

Форма 5

Заключение

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

Введение

Для освоения приложений в среде 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. Построение графиков функций

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

Задание:

Вариант 4.

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

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

· Y = 5sin(рx)-cos(3рx)sin(рx)

· Z = cos(2рx)-2sin³(рx)

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

Выполнение:

· Указали в первом столбце Х и его значения, затем во втором столбце Y, затем G и Z.

· В ячейках M3, N3, O3 записали формулы.

· Протянули на всю длину столбца.

· Затем построили графики по заданным точкам, с помощью Вставка-Диаграмма-График.

· Выровняли для удобного просмотра.



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

Задание:

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

Выполнение:

· Нажали Alt+F11

· Выбрали Insert > Module

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

· Перешли на лист Excel и в ячейках P2, Q2 и R2 написали названия искомых функций

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

4. Табуляция

Задание:

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

Выполнение:

· Открыли файл Excel с графиками функций, чтобы использовать «живую» функцию

· Вызвали VBA (Alt + F11)

· Создали новый Modul

· Записали программу

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

Задание:

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

Выполнение:

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

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

· Следуя инструкциям, создали программу 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

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



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

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

Форма 2

Задание:

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

Выполнение:

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

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

· Следуя инструкциям, создали программу 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

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



· Вернувшись на лист Exel, в первом столбце записали 10 фамилий

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

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



Форма 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, создали с помощью Разработчика кнопку «Показать форму»

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

· Ввели некоторые цифры

· Теперь мы можем сосчитать Сумму

Форма 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, создали с помощью Разработчика кнопку «Показать форму»

· Затем в 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



· Перешли на лист Excel

· Записали 10 фамилий и их доход

· Запустили программу и выполнили нужные действия

· Теперь мы можем найти интересующие фамилии, вывести на экран зарплату.



Заключение

таблица excel диаграмма программирование

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

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

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

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

1. Гарнаев А.Ю. Excel, VBA, Internet в экономике и финансах, СПб, изд. «БХВ-Петербург», 2009г.

2. Власовец А. Информатика и программирование. Pascal и Vba. Учебник, Андреевский издательский дом, 2010 г.

3. Гаевский А.Ю., Информатика. Учебник для 7-11 классов, 2010г.

Размещено на Allbest.ru