Решение экономических и бухгалтерских задач с использованием инструментария Visual Basic For Application

Федеральное агентство железнодорожного транспорта
Сибирский государственный университет путей сообщения
Кафедра «Общая информатика»
КУРСОВАЯ РАБОТА
по дисциплине «Информатика»
РЕШЕНИЕ ЭКОНОМИЧЕСКИХ И БУХГАЛТЕРСКИХ ЗАДАЧ
С ИСПОЛЬЗОВАНИЕМ ИНСТРУМЕНТАРИЯ
VISUAL BASIC FOR APPLICATION
Руководитель: Разработал
ст. преподаватель студент гр. БА-111
Макарова Е.А.
Краткая рецензия: ПарфеновичК.И.
 
 
 
 
 
 
 
Новосибирск 2009 г.

Задание на выполнение работы для студентов 1 курса
Группа-БА-111
Ф. И.О. студента ПарфеновичКсения Игоревна. Шифр студента 13-08
Исходные данные:
num-номергруппы;
n5 — количество «5»;
n4 — количество«4»;
n3-количество«3»;
n2-количество«2».
Вычислить: n=n2+n3+n4+n5;absu= (n3+n4+n5) /n*100; kau= (n4+n5) /n*100
Результаты представить вследующем виде:
 
/>
Количество строк n=9
Количество строк дозаписиисходных данных k=4
Сортировка даных по Абсолютнаяуспеваемость absu
Выборка данных по Качественнаяуспеваемость kau
Определение максимального иминимального значения
Создание диаграмм: гистограмма — absu и kau; круговая диаграмма — absu, kau, смешанная — absu и kau
Задание выдано 03.04.09
/Макарова Е.А. /
Аннотация
Данная работа посвящена решениюэкономических задач с использованием Microsoft Excel и инструментария Visual Basic For Application.
Курсовая работа состоит из:
34 страниц;
12 рисунков;
8 программ;
1 таблицы;

Содержание
Введение
1. Способы запуска редактора Visual Basic
2. Главные правила синтаксиса VBA
3. Типы данных
4. Исходные данные
5. Копирование данных с использованием процедур впрограммах
6. Дозапись исходных данных
7. Создание отчёта
8. Сортировка данных
9. Создание автоматического макроса по сортировке
10. Выборка данных
11. Создание автоматического макроса по выборке
12. Определение максимального иминимального значения
13. Создание диаграмм (гистограмма, круговая, смешанная)
14. Создание управляющих кнопок
15. Автоматический макрос Гашение
Заключение
Список использованной литературы
Введение
Информатика это предмет,изучающий компьютер и его составляющие, а также различные программы позволяющиепроизводить расчеты, делать графики составлять таблицы и др. Одной из программпозволяющих нам составлять таблицы и производить расчеты и работающий в среде Windows является Microsoft Excel. Visual Basic используется вкачестве внутреннего языка программного пакета Microsoft Office (Word, Excel и др.). С помощью VisualBasic можно создавать приложения практически для любой области современныхкомпьютерных технологий: бизнес-приложения, игры, мультимедиа, базы данных.
Сейчас этот язык используют нетолько программисты-любители, но и все больше коммерческие организации. Так,например абсолютное большинство организаций занимающихся реализациейкомпьютерной техники используют в своей работе прайс-листы, созданные в Excel, с обработкой данных программами написанными на языкеVisual Basic.
Visual Basic является мощным программнымсредством, с помощью которого можно реализовать широкий спектр практическихзадач. Visual Basic — это объектно-ориентированный язык. Основой языкаявляются объекты.
1. Способы запуска редактора Visual Basic
Прежде чем начать работать средактором Visual Basic, нужно его открыть. Во всех приложениях Office этоделается одинаково:
самый простой способ: в менюСервис выбрать Макрос — > Редактор Visual Basic;
самый быстрый способ: нажать+;
можно также воспользоватьсякнопкой на панели инструментов Visual Basic (предварительно сделав ее видимой);
можно вызвать редактор привозникновении ошибки в макросе;
можно открыть готовый макрос наредактирование в диалоговом окне Макрос.
В любом случае откроется окно,похожее на представленное на рис.
/>
Рис.1 Окно редактора VisualBasic в Excel
2. Главные правила синтаксиса VBA
Синтаксис VBA, как понятно изсамого названия этого языка (которое расшифровывается как Visual Basic forApplications), почти полностью совпадает с синтаксисом Visual Basic. Некоторыеосновные синтаксические принципы этого языка:
VBA нечувствителен к регистру;
чтобы закомментировать код доконца строки, используется одинарная кавычка (') или команда REM;
символьные значения должнызаключаться в двойные кавычки;
максимальная длина любого именив VBA (переменные, константы, процедуры) — 255 символов;
начало нового оператора — переводна новую строку;
ограничений на максимальнуюдлину строки нет (хотя в редакторе умещается только 308 символов).3. Типы данных
Тип данных определяет, какимобразом биты данных, представляющие конкретное значение, хранятся в памяти ПК. Вкаждом языке программирования имеется свой фиксированный набор базовых типовданных. Некоторые языки позволяют создание дополнительных (пользовательских) типовданных. В VBA имеются следующие типы данных:
 Тип данных Размер Диапазон значений Byte (байт) 1 байт От 0 до 255 Boolean (логический) 2 байт True или False. Integer (целое) 2 байт 2 байт От — 32 768 до 32 767. Long (длинное целое) 4 байт От — 2 147 483 648 до 2 147 483 647 Single (с плавающей точкой обычной точности) 4 байт От — 3,402823E38 до — 1,401298E-45 для отрицательных значений; от 1,401298E-45 до 3,402823E38 для положительных значений. Double (с плавающей точкой двойной точности) 8 байт От — 1,79769313486232E308 до — 4,94065645841247E-324 для отрицательных значений; от 4,94065645841247E-324 до 1,79769313486232E308 для положительных значений Currency (денежный) 8 байт От — 922 337 203 685 477,5808 до 922 337 203 685 477,5807 Decimal (масштабируемое целое) 14 байт +/-79 228 162 514 264 337 593 543 950 335 без дробной части; +/-7,9228162514264337593543950335 с 28 знаками справа от запятой; минимальное ненулевое значение имеет вид +/-0,0000000000000000000000000001. Date (даты и время) 8 байт 1 января 100 г. до 31 декабря 9999 г Object (объект) 4 байт Любой указатель объекта String (строка переменной длины) 10 байт+ длина строки От 0 до приблизительно 2 млрд. String (строка постоянной длины) Длина строки От 1 до приблизительно 65 400 Variant (числовые подтипы) 16 байт Любое числовое значение вплоть до границ диапазона для типа Double Variant (строковые подтипы) 22 байт + длина строки Как для строки (String) переменной длины
 
4. Исходные данные
На Листе 2 создается таблица 1путем набора исходных данных согласно заданию. Программным путем определяетсяколичество строк и столбцов таблицы с помощью функции Empty.
Данная функция проверяет строки повыбранному столбцу (или строке). Если строка не пустая, то подсчитываетсяколичество строк таблицы, передача управления на проверку следующей строкивыполняется с помощью оператора безусловной передачи Go To на метку М1.
Если строка пустая, товыполняется передача управления с помощью оператора Go To на метку М2, где фиксируетсяколичество заполненных строк таблицы. В конце метки заканчивается двоеточием.
 
Sub подсчет_строк_столбцов ()
Sheets («Лист2»). Select
i = 1 'формирование строкитаблицы
M1:
Stroka = Sheets («Лист2»).Cells (i + 5,1) 'анализируемая ячейка
If Stroka = Emty Then 'если строкапустая
GoTo M2 'переход на метку 2
Else
i = i + 1 'подсчет количествастрок
GoTo M1 ' переход к проверкеследующей строки
End If
M2: 'в том случае, еслиячейка пустая
n = i — 1 'подсчет количествастрок в таблице
'n-количество строк в таблице
Sheets («Лист2»). Cells(5,11) = n
j = 1 'формирование столбцатаблицы
M3:
Stolbets = Sheets («Лист2»).Cells (4, j) 'анализируемый столбец
If Stolbets= Emty Then 'еслистолбецпустой
GoTo M4 'переход на метку 4
Else
j = j + 1 'подсчет количествастолбцов
GoTo M3 ' переход к проверкеследующего столбца
End If
M4: 'в том случае, еслистолбец пустой
m = j — 1 'подсчет количествастолбцов в таблице
'm-количество столбцов втаблице
Sheets («Лист2»). Cells(5,12) = m
End Sub
 
/>
Рис.2 Данные подсчёта количествастрок и столбцов
5. Копирование данных с использованием процедур впрограммах
Скопировать исходные данные сЛиста2 программным путём, применяя программы процедур ввода и вывода данных.
Процедуры — это самые важныефункциональные блоки языка VBA. В VBA вы можетевыполнить тот программный код, который содержится в какой-либо процедуре.
Макрос в VBA- это процедура типа Sub, не имеющая параметров. Толькомакросы можно вызвать по имени из редактора VBA или из приложения Office.
Процедуры условно делятся напроцедуры — подпрограмм и процедуры-функции.
Отличаются они тем, чтопроцедура — подпрограмм просто выполняет группу операторов, а функция вычисляетнекоторые значения и передаёт его обратно в главную программу.
Чтобы работа подпрограмм имеласмысл, её надо получить данные из главной (вызывающей) программы (главногомодуля), которая эту программу вызывает. Данные передаются подпрограмме в видепараметров или аргументов, которые обычно описываются в её заголовке так же,как и переменные. Подпрограммы активизируются только в момент их вызова. Операторы,находящиеся в нутрии программы, выполняются только в том случае, если этаподпрограмма явно вызвана. Пока выполнение программы полностью не закончится,оператор главной программы, следующей за командой вызова подпрограммы,выполнятся не будет.
Синтаксис главного модуля:
 
Sub ()

(списокфактических парметров)
EndSub
Синтаксис процедуры:
Sub (список фактических параметров)
Операторы
EndSub
Создаётся главный модуль, вкотором указывается имена подпрограмм и фактических параметров (лист, имямассива, размерность массива и т.д.). Управления работой процедурамивыполняется из главного модуля.
Каждая процедура начинается соператора Sub — начало программы, имени, отмечающее её начало, перечисляютсяаргументы, которые передаются процедуре при вызове. С момента и до окончанияработы вызываемой процедуры устанавливается соответствие между спискомфактических и формальных параметров, поэтому списки фактических и формальныхпараметров должны иметь одинаковый смысл.
 
'главная программа
Sub копирование ()
Sheets («Лист3»). Select
Dim A () As Variant, m, n AsInteger 'объявление динамического двумерного массива
'обращение к подпрограммеввода данных в память
n = Sheets («Лист2»).Cells (5,11) ' кол-во строк
m = Sheets («Лист2»).Cells (5,12) ' кол-во столбцов
ReDim A (1 To n, 1 To m) 'переобъявление массива
'процедура ввода
VVOD «Лист2», A, n,m, 3 'список фактических параметров, где:
'Лист2-лист, с которогоданные вводятся в память;
'а-имя массива;
'n-количество строк массива;
'm-количество столбцовмассива;
'3-количество строк заголовкатаблицы.
'обращение к подпрограммевывода данных на лист
VIVOD «Лист3», A,n, m, 3 'вывод из памяти на Л3
VIVOD «Лист4», A,n, m, 3 'вывод из памяти на Л4
End Sub
'Подпрограмма «VVOD»:
Sub VVOD (L, x, y, r, S) 'списокфактических пареметров, где:
'L-лист;
'x-имя массива;
'y-количество строк в массиве;
'r-количество столбцов вмассиве;
'S-колчество строк заголовковтаблицы
For i = 1 To y
For j = 1 Tor
x (i, j) =Sheets (L). Cells (i + S, j)
Next j
Next i
End Sub
'Подпрограмма«VIVOD»:
Sub VIVOD (L,x, y, r, S)
For i = 1 Toy
For j = 1 Tor
Sheets (L). Cells(i + S, j) = x (i, j)
Next j
Next i
End Sub
 
/>
Рис.3 Программа примененияпроцедур ввода и вывода
 6. Дозапись исходных данных
Для реализации действий,используется оператор Slect Case.
Синтаксис:
 
Slect Case
Case
……………………

Case

……………………

Case

……………………
C Листа2копируем исходные данные на Лист4 (процедурами ввода данных в память и выводана лист). Объявляем матрицу как динамичесий массив. Считываем с Листа 2количество строк (n) и столбцов (m),размерность которой будет n*m. Вводимновую матрицу в память, затем на лист. Формируем новую матрицу, чтобы выполнитьдозапись. Ввод данных производится через оператор InputBox, ввод новыхэлементов выполняется в цикле For. Снова переобъявляемматрицу, размерность которой уже будет (n+k) *m. Выводим на лист новую матрицу.
 
Sub Дозапись ()
Sheets («Лист4»). Select
Dim A () As Variant'объявление динамического двумерного массива
'обращение к подпрограммеввода данных в память
n = Sheets («Лист2»).Cells (5,11) 'количество строк массива
m = 5 'количество столбцовмассива
ReDim A (1 To n, 1 To m)
k = InputBox («Введитеколичество дозаписываемых элементов»)
Sheets («Лист4»). Cells(5, 13) = k 'количество дозаписываемых элементов
ReDim A (1To n + k, 1 To m) As Variant
For i = 1 Ton
For j = 1 Tom 'столбцыдлядозаписиданнных
A (i, j) =Sheets ("Лист4"). Cells (i + 2,j)
Next j
Next i
'выводновыхэлементовнаЛ4
For i = 1 Tok
For j = 1 Tom
If j = 1 Then 'номерастолбцов, по которым вводятся данные
'y указывает наименованиепеременной вводимого столбца
y = "Номергруппы"
Else
If j = 2Then
y = "Количество5"
Else
If j = 3Then
y = «Количество 4»
Else
Ifj= 4 Then
y= «Количество 3»
Else
If j = 5Then
y = "Количество2"
End If
End If
End If
End If
End If
A (i + n, j)= InputBox (y)
Sheets("Лист4"). Cells (i + 4 + n, j)= A (i + n, j)
Next j
Next i
n1 = n + k
Sheets("Лист4"). Cells (5,12) = n1
End Sub
 
/>
Рис.4. Данные программы последозаписи
 7. Создание отчёта
В отчете производим копированиеданных с Листа 4 на Лист 5 и с помощью одномерного массива рассчитывается новыестолбцы: «Итого», «Абсолютная успеваемость» и «Качественнаяуспеваемость». Для нахождения производим расчет по формулам: n=n2+n3+n4+n5; absu=(n3+n4+n5)/n*100; kau= (n4+n5) /n*100. Производим считываниеколичества строк (n) и столбцов (m).Объявляем матрицу A как динамический массив черезоператор ReDim. Копируем данные с листа 4 на лист 5 спомощью процедур. Затем высчитываем по формулам значения, а после находимсреднее значение в столбцах «Итого», «Абсолютная успеваемость»и «Качественная успеваемость». И выводим на лист:
 
Sub Отчет()
Sheets("Лист5"). Select
Dim A () AsVariant
n1 = Sheets («Лист4»).Cells (5,12) 'количество строк массива
M1 = Sheets («Лист2»).Cells (5,12) 'количество столбцов массива
ReDim A (1To n1, 1 To M1)
'Ввод данных в память cЛиста4 и вывод на Лист5
VVOD "Лист4", A, n1, M1, 4
VIVOD "Лист5", A, n1, M1, 4
S = 0 ' S-ячейка для подсчетаитоговой суммы по графе Средняя годовая стоимость имущества
'Составление отчета
For i = 1 To n1
For j = 1 ToM1
A (i,
6) = A (i,
2) + A (i,
3) + A (i,
4) + A (i,
5)
Sheets("Лист5"). Cells (i + 4,6) = A(i,
6)
Next j
S = S + A (i,
6)
Sr = S / n1
Sheets("Лист5"). Cells (18,6) = Sr
Next i
S = 0
For i = 1 Ton1
For j = 1 ToM1
A (i,
7) = (A (i,
4) + A (i,
3) + A (i,
2)) / A (i,
6) * 100
Sheets("Лист5"). Cells (i + 4,7) = A(i,
7)
Next j
S = S + A (i,
7)
Sr = S / 13
Sheets("Лист5"). Cells (18,7) = Sr
Next i
S = 0
For i = 1 Ton1
For j = 1 ToM1
A (i,
8) = (A (i,
3) + A (i,
2)) / A (i,
6) * 100
Sheets("Лист5"). Cells (i + 4,8) = A(i,
8)
Next j
S = S + A (i,
8)
Sr = S / n1
Sheets("Лист5"). Cells (18,8) = Sr
Next i
Sheets («Лист5»). Cells(18,1) = «В среднем»
End Sub
 
/>
Рис.5. Данные таблицы послесоздания Отчёта
 8. Сортировка данных
Произвести сортировку данных сЛиста5 по столбцу «Абсолютная успеваемость, проц.» (таблица 5, лист6).
Необходимо отсортировать данные,полученные в предыдущей программе по возрастанию. При сортировке двумерногомассива ипользуется вложенные циклы. Во внешнем цикле используется оператор DoWhile…Lope, заключённые в нём операторы выполняются до тех пор, пока остаётсяистинным условие While. Внутри цикла Do While выполняется два цикла For…Next.
Синтаксис:
For Счётчик1= To [StepШаг]
For Счётчик2= To [StepШаг]
[Оператор (ы) тела цикла]
Next Счётчик2
Next Счётчик1
Счётчик по параметру i-количество строк — сортируемый признак предыдущей строкисравнивается с признаком последующей строки. Если признаки первой строки большепризнака второй строки, то выполняется цикл по j-количество столбцов, в которомданные этих строк меняются местами.
Sub Сортировка()
Sheets("Лист6"). Select
Dim A () AsVariant
n1 = Sheets("Лист4"). Cells (5,12)
m = Sheets("Лист2"). Cells (5,12)
ReDim A (1To n1, 1 To m)
VVOD "Лист5", A, n1, m, 4
VIVOD "Лист6", A, n1, m, 4
ReDim A (1To n1, 1 To m)
For i = 1 Ton1
For j = 1 Tom
A (i, j) =Sheets ("Лист5"). Cells (i + 4,j)
Sheets("Лист6"). Cells (i + 4, j) = A(i, j)
Next j
Next i
Z = 1
Do While Z =1
Z = 0
For i = 1 Ton1 — 1
If Sheets("Лист6"). Cells (i + 4,7) >Sheets ("Лист6"). Cells (i + 4+ 1,7) Then
For j = 1 Tom
AZ = Sheets("Лист6"). Cells (i + 4, j)
Sheets("Лист6"). Cells (i + 4, j) =Sheets ("Лист6"). Cells (i + 4+ 1, j)
Sheets("Лист6"). Cells (i + 4 + 1, j)= AZ
Next j
Z = 1
End If
Next i
Loop
End Sub
 
/>
Рис.6. Данные таблицы послесортировки
 9. Создание автоматического макроса по сортировке
Создать автоматический макрос посортировке по столбцу «Абсолютная успеваемость, проц.» (Листа5, табл.6)
Встаем на лист, где будет макрос.Включаем запись макроса Сервис→Макрос→Начать запись→ОК. Появитсяквадрат, где кнопка остановить запись. На Листе5 (отчет) выделяем таблицу беззаголовков и итогов, копируем на Лист9 (автосортировка) в элементе меню выбираемДанные→Сортировка→по возрастанию→по столбцам→ОК. Отмечаемстолбец по которому будем сортировать. Нажимаем кнопку остановить запись.
 
Sub Макрос1Сортировка ()
'
' Макрос1Сортировка Макрос
'
'
Sheets("Лист5"). Select
Range(«A2: H17»). Select
Selection. Copy
Sheets("Лист7"). Select
Range(«A2: A3»). Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range(«A5: H17»). Select
ActiveWorkbook.Worksheets ("Лист7"). Sort. SortFields.Clear
ActiveWorkbook.Worksheets ("Лист7"). Sort. SortFields.Add Key: =Range («A5»), _
SortOn: =xlSortOnValues,Order: =xlAscending, DataOption: =xlSortNormal
WithActiveWorkbook. Worksheets ("Лист7").Sort
. SetRangeRange («A4: H17»)
. Header =xlYes
. MatchCase= True
. Orientation= xlTopToBottom
. SortMethod= xlPinYin
. Apply
End With
End Sub
 
/>
Рис.7. Данные таблицы послеавто-сортировки
 10. Выборка данных
Создать отчёт по выборке сЛиста5 по столбцу «Качественная успеваемость, проц.» (с Листа 8, табл.7)
Для того чтобы произвестивыборку данных необходимо выполнить следующие действия:
Определить количество элементовнового массива по заданному условию введя переменную с помощью оператораInputBox
Объявить и переобъявить новыймассив
Сформировать новый массив. Дляэтого необходимо задать номер первого элемента нового массива u=1. Затемвыполняется цикл, в котором записывается условие выборки по столбцу «Качественнаяуспеваемость, проц. ». Если результат проверки истина, то элементанализируемого массива становится элементом нового массива.
Вывести новый элемент на Лист 8
Sub ОтчётВыборка()
Sheets("Лист8"). Select
Dim A () AsVariant
n1 = Sheets("Лист4"). Cells (5,12)
m = Sheets("Лист2"). Cells (5,12)
ReDim A (1To n1, 1 To m)
VVOD "Лист5", A, n1, m, 4
C = InputBox("Введитеусловие")
Sheets("Лист8"). Cells (5,11) = C
d = 0
For i = 1 Ton1
If A (i,
8) >Sheets ("Лист8"). Cells (5,11) Then
d = d + 1
End If
Next i
Sheets("Лист8"). Cells (5,10) = d
Dim B () AsVariant
ReDim B (1To d, 1 To m)
u = 1
For i = 1 Ton1
If A (i,
8) >Sheets ("Лист8"). Cells (5,11) Then
For j = 1 Tom
B (u, j) = A(i, j)
Next j
u = u + 1
End If
Next i
S = 0
For i = 1 Tod
For j = 1 Tom
Sheets("Лист8"). Cells (i + 4, j) = B(i, j)
Next j
Next i
End Sub
 
/>
Рис.6. Данные таблицы послевыборки
 11. Создание автоматического макроса по выборке
Включаем запись макроса. Сервис→Макрос→Начатьзапись→ОК. Появится квадрат, где кнопка остановить запись. На Листе5 (отчет)выделяем таблицу без заголовков и итогов, копируем на Лист10 (автовыборка). Выделяемтаблицу без заголовков и в элементе меню, выбираем Данные→Фильтр→Автофильтр→выбираемусловие→ОК. Отмечаем столбец по которому будем сортировать. Завершаемработу макроса.
 
SubМакрос2Выборка ()
'
' Макрос2Выборка Макрос
'
'
Sheets(«Лист5»). Select
Selection.Copy
Sheets(«Лист9»). Select
ActiveSheet.Paste
Range(«H5: H17»). Select
Application.CutCopyMode = False
Selection. AutoFilter
ActiveSheet.Range ("$H$5: $H$17"). AutoFilter Field: =1, Criteria1: =">80",_
Operator: =xlAnd
Range(«G22»). Select
End Sub
 
/>
Рис.7. Данные таблицы послеавто-выборки
 12. Определение максимального и минимальногозначения
Определить max и min значения постолбцам «Итого», «Абсолютная успеваемость, проц. », «Качественнаяуспеваемость» (таблица 9, лист 10)
Для определения max и minзначений необходимо выполнить следующие действия:
Задать эталоновую переменную,которая будет текущем минимумом (максимумом)
Поочерёдно сравнивается каждыйэлемент совокупности с текущем минимумом (максимумом), и если этот элемент неудовлетворяет условиям поиска (в случаи минимума он больше, а в случаемаксимума — меньше), то происходит замена значения эталона на значениесравниваемого элемента
После полного просмотра всехэлементов в переменной текущего минимума (максимума) находится действительныйминимум (максимум)
Значение минимума (максимума) выводятсяв соответствующие ячейки
 
Sub minmax ()
Dim A () AsVariant
n1 = Sheets("Лист4"). Cells (5,12)
m = Sheets("Лист2"). Cells (5,12)
ReDim A (1To n1, 1 To m)
VVOD "Лист5", A, n1, m, 4
VIVOD "Лист10", A, n1, m, 4
VVOD "Лист10", A, n1, m, 4
For j = 3 Tom
maxA = 0.00001
minA =1000000
For i = 1 Ton1
If A (i, j) >maxA Then
maxA = A (i,j)
End If
If A (i, j)
minA = A (i,j)
End If
Next i
Sheets("Лист10"). Cells (i + 4 + 2, j)= maxA
Sheets("Лист10"). Cells (i + 4 + 3, j)= minA
Next j
End Sub
 
/>
Рис.8. Данные таблицы послеопределения мин. и макс.
 13. Создание диаграмм (гистограмма, круговая,смешанная)
Для создания диаграмм необходимовыбрать мастер диаграмм: Вставка-Диаграмма
или с помощь. Значка Диаграммана панели инструментов.
Построение диаграммы состоит ввыполнении четырёх шагов:
Выбор типа диаграмм
Задание диапазона
Записать параметры диаграммызаполнив строки заголовков
Размещение диаграммы
/>
Рис.9. Диаграммы
14. Создание управляющих кнопок
Для удобства вызова и работы спрограммами целесообразно использовать управляющие кнопки для каждой программы.
Для создания кнопки необходимовыполнить следующее: элемент меню Вид → Панель инструментов → Формы.В появившейся панели форм выбирается значок, отвечающий за создание кнопки. Нажавна значок левой клавишей мыши, на листе вместо курсора появляется знак "+",который необходимо подвести на то место, где "+" вычерчиваетпрямоугольник, в нем фиксируется запись «кнопка 1». Аналогичносоздаются все кнопки управления. Для запуска любой программы не нужно заходитьв Visual Basic,достаточно щелкнуть кнопку с ее названием.
После создания кнопок, кнопкиможно отредактировать, переименовать, выбрать нужный шрифт, его размер. Дляэтого вызывается контекстное меню, в нем формат объекта.
Для того чтобы при нажатиикнопки происходила активизация программы, необходимо соединить (увязать) соответствующиймакрос (программу) с кнопкой. При этом выполняются следующие действия:
щелкнуть правой клавишей мыши покнопке для появления контекстного меню;
выбрать элемент меню «назначитьмакрос», появляется окно диалога под названием «назначить макрособъекту»;
выбрать и подщелкнуть левойклавишей мыши нужное имя макроса, за активизацию которого и будет отвечатьсоздаваемая кнопка;
ОК.
Для активизации листа в каждойпрограмме нужно написать команду: Sheets («ЛистN»). Select
 
/>
Рис.10. Экран управляющих кнопок 15. Автоматический макрос Гашение
Для того чтобы произвестигашение данных необходимо выполнить следующие действия:
Включаем запись макроса
Выделяем диапазон гашения инажимаем кнопку Delete.
Завершаем работу макроса.
Создаем кнопку «Гашение»и присваиваем ей соответствующий макрос.
Заключение
В данной работе были рассмотреныосновы программирования в среде VBA на примере решенияэкономических задач с использованием инструментария, макросов, операторов,функций и различных возможностей Exel
Таким образом, курсовая работапомогла приобрести опыт, касающийся работы в электронных таблицах Excel и базовых принципов программирования в среде VBA.
Список использованной литературы
1. Александр Левин. Самоучительработы на компьютере.7-е издание. -
М.: 2002
2. Хорев В.Д. Самоучительпрограммирования на VBA в Microsoft Office. — Киев: Юниор, 2001 г. — 320с.
3. Уэллс Э., Харшбаргер С. Microsoft Excel97. — М.: 1998.
4. Макарова Е.А., Швецова М.Н. Решениеэкономических задач и бухгалтерских задач с использованием инструментария VBA: метод. указ. и задания к выполнению курсовой работы,лабораторных работ по курсу «Информатика». — Новосибирск: Изд-воСГУПСа, 2008 г. — 47 с.
5. Конспекты лекций по информатике