Использование языка программирования VBA

   Создадим поля базы данных, и занесем их в таблицу. База данных будет заполняться программой, программе не требуются названия полей, но для облегчения ориентации в первой строке введем данные соответствующие полям БД

    Создадим  кнопку “Добавление”  для добавления записей в БД, делается это так: Вызываем панель инструментов на которой расположены примитивы, т.е. окна ввода, кнопки и т.д. Создаем на форме кнопку, и с помощью свойства Caption присваиваем ей название “Добавление”

    Создадим  макрос который будет отвечать за обработку событий по нажатию этой кнопки. Перейдем в среду Visual Basic for Application и в меню «Вставка» выберем UserForm, на эту форму и поместим все обьекты оговоренные в условии(m раскрывающихся списков, n полей ввода, ...).

    В макросе отвечающем за событие кнопки «Добавление» введем процедуру которая будет активизировать форму UserForm1, и заносить все данные из окна ввода в ячейки листа A4:L4, A5:L5 и т.д.

    По  нажатию кнопки “OK” выполнится следующий код программы.

    Окно  ввода показано в соответствии с рисунком 2. 

 

Рисунок 2 – окно «База данных работников компании» 

4.4.Описание интерфейса

 

     Для работы с этой программой нужно прочитать  инструкцию. Для того чтобы открыть эту программу необходимо запустить Прога.xls.

     Чтобы перейти на нужный лист щелкните на кнопке, как показано  на рисунке 3; 

 

     Рисунок 3 – Начало работы с программой 

     после того, как нажмете кнопку модель управления запасами, необходимо нажать на кнопку «Вычислить», как показано на рисунке 4; 

 

     Рисунок 4 – окно «Ввод данных»

     После ввода значений в окно  «Ввод  данных», нажмите на кнопку «Ok» и программа сама посчитает максимальную прибыль и оптимальный объем и выведет это все в окне «Результаты», как показано на рисунке 5.

 

     Рисунок 5 – окно «Результаты» 

4.5.Функция пользователя

 

    Функция пользователя создается на рабочем  листе с названием модуль VBA, после чего с ними можно работать с помощью мастера функций. Для создания модуля VBA необходимо щелкнуть правой кнопкой мыши на ярлык листа, перед которым нужно разместить данный модуль, и из раскрывающегося контекстного меню выбрать команду “Вставка” (Insert). На вкладке “Общие”(General) необходимо выбрать тип листа – Модуль (Module). После нажатия кнопки OK произойдет вставка листа модуля. Теперь на листе модуля можно ввести текст программы

    Если  нужно создать макрос в программе  нужно зайти в среду Microsoft Visual Basic по средствам нажатия комбинации клавиш Alt+F11, затем зайти в меню “Сервис”, далее в подменю “Макросы” и ввести имя макроса, если во время выполнения был выделен какой-то модуль то программный код созданного макроса появится именно в нем

    Sub New_Macros()

    ; in Module 1

    End Sub

6. Переменные и постоянные

 

    Все переменные в VBA имеют тип. Тип указывает, что может хранить переменная: целое число, строку, дату и т.д.    

7. Стандартные функции пользователя для работы с массивами и матрицами

 

     Используются следующие функции  рабочего листа для работы  с масивами:

    Count       Кол-во чисел в массиве

    CountA      Кол-во элементов массива

    Sum         Сумма элементов массива

    SumProduct  Сумма произведений элементов массивов

    SumSQ       Сумма квадратов элементов массива

    SumVmY2     Сумма квадратов разностей элементов 2-х массивов      

    SumX2mY2    Сумма разностей квадратов элементов 2-  массивов

     Используются следующие функции  рабочего листа для работы  с матрицами:

     Mmult – произведение 2-х матриц

     Minverse – обратная матрица

     Transpose – транспонированная матрица

     MdeTerm – определитель матрицы     
 

8. Объекты, свойства и методы VBA

    Одним из основных понятий  VBA является – объект.

Объект  содержит список методов которые  к нему применимы, а методы – это то, что можно с объектом делать, таким образом, объект – это программный элемент, который имеет свое отображение на экране, содержит некоторые переменные, определяющие его свойства, и некоторые методы для управления объектом. В VBA существует множество встроенных объектов, например:

    Range – диапазон ячеек (может включать только 1 ячейку)

    Cells – координаты ячейки

    Sheet – лист

    WorkSheets – рабочий лист

    DialogSheets – диалоговое окно

    Большинство объектов принадлежит  к группе подобных объектов. Эти  группы называются наборами. Например, все  рабочие листы рабочей  книги образуют набор называемый WorkSheets

     Синтаксис установки значения  свойства объекта имеет следующий  вид:

     Объект.Свойство=Выражение

Например,

        WorkSheets(”List1”).Range(“W1”).Value=999   

9. Операторы цикла

     1) Для многократного выполнения одного оператора или группы операторов служит оператор цикла FOR..NEXT

Синтаксис:

  For Счетчик = Нач. знач. TO конечное знач. STEP

   . . . 

  NEXT Счетчик 

 2) Цикл Do..While

Do While условие

  <Блок операторов>

 Loop 

3) Цикл  Do..Until

 Do  

  <Блок  операторов>

 Loop Until условие

 

Заключение

     В данной работе я попыталась, как можно сильнее упростить и уменьшить затраты времени для решения симплекс-метода.

     Для решения данной задачи была использована среда Microsoft Visual Basic Application 6.4.8869.

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

 

Список  литературы

1. А. Гарнаев. Использование MS Excel и VBA в экономике и финансах.
2. С. Браун, Visual Basic 5.0 с самого начала, Москва 1999, издательство “Питер”.
3. Microsoft Visual Basic – on-Line HELP.
4. Гарнаев А.Ю. Самоучитель VBA – 2-е изд., перераб. и доп. - СПб.: БВХ- Петербург 2004, 560с.
5. Гарнаев А.Ю. «Excel 2002: разработка приложений» - СПб.: БВХ-Петербург 2002, 450с.
6. С.Браун «VB 6» - СПб.: Москва – Харьков – Минск 2002, 573с.
7. С.Каммингс «VBA для Чайников» - СПб.: Москва – Санкт-Петербург – Киев 2003, 440с.
8. С.В. Глушаков, А.С. Сурядный, «Программирование на Visual Basic 6.0». изд «Фолио». М. 2005.

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

ПРИЛОЖЕНИЯ

ПРИЛОЖЕНИЕ 1.

 

Блок-схема  модели управления запасами

 

ПРИЛОЖЕНИЕ  2.

 

Листинг программы на языке Visual Basic Application 

Модуль 1:

Sub Return_To_MainMenu()

Worksheets("Содержание").Activate

End Sub 

Модуль 2:

Sub Task1()

Worksheets("Задание1").Activate

End Sub

Sub Task2()

Worksheets("Задание2").Activate

End Sub

Sub Task3()

  Worksheets("Задание3").Activate

End Sub

Sub Task4()

Worksheets("Задание4").Activate

End Sub

Sub Task1_Evrica()

Dim mas1(3) As Integer

Dim mas2(3) As Integer

Dim Mas_I1(3) As Integer

B = Worksheets("Задание1").Range("B11").Value

c = Worksheets("Задание1").Range("C11").Value

D = Worksheets("Задание1").Range("D11").Value

mas1(1) = B

mas1(2) = c

mas1(3) = D

i = 1

 l = 0

 Do

    k = mas1(i)

    ''''' Занесение  в массив Mas2 элементов >1490

    If k > 1490 Then mas2(i) = mas1(i) Else mas2(i) = 0

    i = i + 1

Loop Until i = 4

 

Max = -1

i = 0

Do

       i = i + 1

       If mas2(i) > Max Then

        Max = mas2(i)

        indm = i

       End If

Loop Until i = 3

Worksheets("Задание1").Cells(12, indm + 1).Value = Max * 0.02 + Max * 0.04

'Worksheets("Задание1").Range("f15").Value = r

                   'GoTo l