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

2016-07-30СтудИзба

Описание файла

Документ из архива "Решение экономических и бухгалтерских задач с использованием инструментария Visual Basic For Application", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.

Онлайн просмотр документа "48829"

Текст 3 страницы из документа "48829"

For j = 1 To m

B (u, j) = A (i, j)

Next j

u = u + 1

End If

Next i

S = 0

For i = 1 To d

For j = 1 To m

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 () As Variant

n1 = Sheets ("Лист4"). Cells (5,12)

m = Sheets ("Лист2"). Cells (5,12)

ReDim A (1 To 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 To m

maxA = 0.00001

minA = 1000000

For i = 1 To n1

If A (i, j) > maxA Then

maxA = A (i, j)

End If

If A (i, j) < minA Then

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 Excel 97. - М.: 1998.

4. Макарова Е.А., Швецова М.Н. Решение экономических задач и бухгалтерских задач с использованием инструментария VBA: метод. указ. и задания к выполнению курсовой работы, лабораторных работ по курсу "Информатика". - Новосибирск: Изд-во СГУПСа, 2008 г. - 47 с.

5. Конспекты лекций по информатике

Свежие статьи
Популярно сейчас
Почему делать на заказ в разы дороже, чем купить готовую учебную работу на СтудИзбе? Наши учебные работы продаются каждый год, тогда как большинство заказов выполняются с нуля. Найдите подходящий учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4100
Авторов
на СтудИзбе
670
Средний доход
с одного платного файла
Обучение Подробнее