48829 (Решение экономических и бухгалтерских задач с использованием инструментария 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 и др.). С помощью Visual Basic можно создавать приложения практически для любой области современных компьютерных технологий: бизнес-приложения, игры, мультимедиа, базы данных.

Сейчас этот язык используют не только программисты-любители, но и все больше коммерческие организации. Так, например абсолютное большинство организаций занимающихся реализацией компьютерной техники используют в своей работе прайс-листы, созданные в Excel, с обработкой данных программами написанными на языке Visual Basic.

Visual Basic является мощным программным средством, с помощью которого можно реализовать широкий спектр практических задач. Visual Basic - это объектно-ориентированный язык. Основой языка являются объекты.

1. Способы запуска редактора Visual Basic

Прежде чем начать работать с редактором Visual Basic, нужно его открыть. Во всех приложениях Office это делается одинаково:

самый простой способ: в меню Сервис выбрать Макрос - > Редактор Visual Basic;

самый быстрый способ: нажать +;

можно также воспользоваться кнопкой на панели инструментов Visual Basic (предварительно сделав ее видимой);

можно вызвать редактор при возникновении ошибки в макросе;

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

В любом случае откроется окно, похожее на представленное на рис.

Рис.1 Окно редактора Visual Basic в Excel

2. Главные правила синтаксиса VBA

Синтаксис VBA, как понятно из самого названия этого языка (которое расшифровывается как Visual Basic for Applications), почти полностью совпадает с синтаксисом 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 ()

(список фактических парметров)

End Sub

Синтаксис процедуры:

Sub (список фактических параметров)

Операторы

End Sub

Создаётся главный модуль, в котором указывается имена подпрограмм и фактических параметров (лист, имя массива, размерность массива и т.д.). Управления работой процедурами выполняется из главного модуля.

Каждая процедура начинается с оператора Sub - начало программы, имени, отмечающее её начало, перечисляются аргументы, которые передаются процедуре при вызове. С момента и до окончания работы вызываемой процедуры устанавливается соответствие между списком фактических и формальных параметров, поэтому списки фактических и формальных параметров должны иметь одинаковый смысл.