Информационно-аналитическая система аптечного управления

     Данные  процедуры работают на основе цикла

     Do While Not IsEmpty(текущая)<>''''

         Set следующая = текущая.Offset(1, 0)

     …………………………

        Set текущая = следующая 

     Loop,

     который работает пока не дойдет до первой пустой ячейки. При этом используются переменные объектного типа, которые используются как следующая и текущая ячейки. Метод OFFSET(i,j) используется для указания на ячейку, отдаленной на i –столбцов и на j - строк относительно данной ячейки.

     В теле цикла стоит оператор развилки IF…Then… Else… EndIF, который проверяет, нет ли такого же ключа в данной таблице (ключ – уникальное значение для строки, которое однозначно определяет строку).

     Остальные процедуры также используют этот цикл и имеют сходную структуру  программы, поэтому далее я не буду подробно останавливаться на этом аспекте.

     Для примера рассмотрим форму для  добавления в таблицу «Регистрация поступлений».

     Пример:

      Перейдите в редактор Visual Basic (Alt+F11) и постройте форму следующего вида (при создании используется элемент управления Page – что позволяет создать две вкладки «Добавить» и «Удалить».

     В этой форме использованы такие элемнеты как  Label, TextBox, CommandButton, ComboBox.

     На  рисунке показано расположение и количество всех необходимых  элементов управления.

     Сделаем двойной щелчок на кнопке «Добавить» - попадаем в программу в которой начальная и конечная процедуры уже созданы.

     Вводим  следующий программный  код для кнопки «Добавить»:

     Private Sub CommandButton1_Click()

     Dim Y As Byte

      If TextBox1 = " " Or TextBox2 = " " Or TextBox3 = " " Or TextBox4 = " " Or TextBox5 = " " Then

         MsgBox ("Введите все данные!"), vbExclamation, "Ошибка"

        Exit Sub

      End If

      If Not IsNumeric(TextBox1.Text) Then

          Msg = MsgBox("Вводить надо числовые данные", vbCritical)

          Exit Sub

        End If

      If Not IsNumeric(TextBox3.Text) Then

          Msg = MsgBox("Вводить надо числовые данные ", vbCritical)

          Exit Sub

        End If

       If Not IsNumeric(TextBox4.Text) Then

          Msg = MsgBox("Вводить надо числовые данные ", vbCritical)

          Exit Sub

         End If

       If Not IsNumeric(TextBox5.Text) Then

          Msg = MsgBox("Вводить надо числовые данные ", vbCritical)

          Exit Sub

        End If

     Dim name As String, simvol As String

     Dim pr As Object, X As Object

     Dim Наименование As String

     Dim Цена As Integer, Возраст As Integer, Символ As Integer, Количесвто As Integer

     ActiveWorkbook.Sheets(«Регистрация поступлений").Activate

     simvol = TextBox1

     Set pr = ActiveSheet.Range("a1")

     Do While Not IsEmpty(pr)

     Set X = pr.Offset(1, 0)

     If pr = simvol Then

     Y = MsgBox("Добавление невозможно т.к. введенный код уже существует", vbOKCancel, "Код")

     If Y = vbCancel Then GoTo e Else GoTo 12

     End If

     Set pr = X

     Loop

     ActiveWorkbook.Sheets("Регистрация поступлений ").Activate

     name = TextBox2

     Set pr = ActiveSheet.Range("b2")

     Do While Not IsEmpty(pr)

     Set X = pr.Offset(1, 0)

     If pr = name Then

     Y = MsgBox("такой товар уже есть в списке внести под другим кодом?", vbYesNo + vbQuestion, "Товар")

     If Y = vbYes Or Y = vbNo Then GoTo 5 Else GoTo 12

     End If

     Set pr = X

     Loop

     5 Символ= TextBox1

       Название = TextBox2

       Возраст = TextBox3

     Цена = TextBox4

       Количесвто= TextBox5

        ActiveWorkbook.Sheets("Регистрация поступлений ").Activate

      Range("a3").Select

       Selection.EntireRow.Insert

      Set pr = ActiveSheet.Range("a2")

      Do While Not IsEmpty(pr)

        Set X = pr.Offset(1, 0)

       Set pr = X

      Loop

       pr = Символ

      pr.Offset(0, 1) = название

      pr.Offset(0, 2) = возраст

       pr.Offset(0, 3) = цена

       pr.Offset(0, 4)= количество

       Set pr = Nothing

      Set X = Nothing

      Selection.Sort key1:= Range("a1"), order1:= xlAscending, Header:= xlGuess, OrderCustom:= 1, MatchCase:= False, Orientation:= xlTopToBottom

     TextBox1.Text = ""

     TextBox2.Text = ""

     TextBox3.Text = ""

     TextBox4.Text = ""

     TextBox5.Text = ""

     12  UserForm1.Hide

     e: End Sub

      Далее вводим тексты программ для кнопки «Отмена», «Удалить» и т.п. (полный текст программ приводится в Приложении).

     По  окончании данных операций создаем  на рабочем листе  кнопку  и присваиваем ей значение

     UserForm1.Show

     При нажатии выводится  форма для редактирования данных (показана на рисунке).

     3. 3. 2  Удаление данных из таблиц

     Удаление  данных из таблиц производится с помощью  основных форм для работы с таблицами.  Форма содержит список со строками из таблиц. Необходимо выбрать из списка необходимую строку. Потом нужно нажать кнопку «Удалить».

     Формирование  списков производится в процедуре, происходящей при активизации формы  с помощью того же цикла. В теле цикла стоит оператор ADDITEM(текущая ячейка) или ADDITEM(текущая ячейка.OFFSET(0,1)).

     Удаление  производится с помощью поиска  нужного элемента в таблице и  оператора: текущая.ENTIREROW.DELETE.

     Все исходные тексты программ можно просмотреть  в приложении. На рисунке показана форма для удаления данных.

       
 
 

      3. 3. 3 Сортировка данных

      Рассмотрим на примере формы для  работы с таблицей «Ведомость покупок». Кнопки для сортировки расположены следующим образом.

     При нажатии на соответствующую кнопку запускается процедура, сортирующая  таблицу по соответствующему столбцу и обновляющая основной список формы.

     Процедура выглядит следующим образом:

Range("A1").Select

   Selection.Sort key1:=Range("a2"), order1:=xlAscending, Header:=xlGuess,    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

      3.  3. 4 Фильтрация данных

     Кнопка  Фильтр запускает процедуру, которая  переносит данные из полей формы  в скрытые ячейки,(которые являются условиями отбора для расширенного фильтра таблицы Регистрация) и  выполняет команду Расширенный  фильтр.

     Процедура выглядит следующим образом:

     Range("A1:E1").Select

       Selection.AutoFilter

      Range("A2").Select

      Me.Hide 

       3. 3. 5 Построение диаграмм

      Диаграмма — графическое представление числовых данных, позволяющее быстро оценить соотношение нескольких величин. Преимущество диаграмм перед другими типами наглядной статистической информации заключается в том, что они позволяют быстро произвести логический вывод из большого количества полученных данных. Результаты расчётов, выполненных с помощью систем статистических вычислений, заносятся в таблицы. Они являются основой для последующего анализа или для подготовки статистического отчёта.

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

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

      Текст программы:

      Sub диаграмма()

       Charts.Add

          ActiveChart.ChartType = xlPie

        ActiveChart.SetSourceData Source:=Sheets("Итог").Range("B1:C8"), PlotBy:=  xlColumns

          ActiveChart.Location Where:= xlLocationAsObject, name:= "Диаграмма "

          With ActiveChart

              .HasTitle = True

              .ChartTitle.Characters.Text = Доля выручки по товарам"

          End With

      End Sub 

        При выполнении макроса создается  диаграмма. 
 
 

       3. 3. 6 Сводные таблицы

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

       Sub Сводная таблица()

       Sheets("Сводная таблица").Select

       Application.DisplayAlerts = False

           ActiveWindow.SelectedSheets.Delete

           Application.DisplayAlerts = True

           Sheets("Сводная таблица").Select

         ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= "Лекарства!R1C1:R41C5"). CreatePivotTable Table Destination:= "", TableName:= "Сводная таблица3", DefaultVersion:= xlPivotTableVersion10

       Полный  текст макроса приводится в приложении. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

       5. Система меню

     При активизации рабочей книги выполняется событие Workbook_Open, в процедуре которой открывается лист Меню, содержащая следующие кнопку Меню при нажатии которой выходит форма для перехода:

• Лекарства;
• Справочник;
• Сводная таблица;
• Диаграмма;
• Аптеки;
• Сведения об авторе;
• Кнопка выхода из приложения.