Программа для построения графиков средствами MS Excel

Рис. 13. Результаты выполнения.

Рис. 14. Настройки графика.

 

Рис. 15. Результаты выполнения.

 

Рис. 16. Настройки графика.

 

Рис. 17. Результаты выполнения.

Рис. 18. Настройки графика.

 

Рис. 19. Результаты выполнения.

 

Рис. 20. Настройки графика.

 

Рис. 21. Результаты выполнения.

 

Рис. 22. Настройки графика.

 

Рис. 23. Результаты выполнения.

 

 

 

 

 

 

Заключение

 

При выполнении данной работы были изучены и продемонстрированы возможности VBA при разработке пользовательского интерфейса в приложении MS Excel на примере программы для автоматической построения графиков.

В процессе достижения цели были выполнены следующие задачи:

• Изучены виды функций, их свойства, методы построения их графиков.
• Изучены приёмы и методы работы с языком программирования VBA.
• Разработан алгоритм программного продукта.
• Разработан интерфейс программного продукта.
• Реализован программный продукт.

Цель работы достигнута успешно, и все необходимые задачи выполнены в полном объёме.

 

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

 

1. Информатика: Учебник / В.А. Катмин:. – М.: ИНФРА-М, 2002г.
2. Информационные технологии в коммерческой деятельности. Учебное пособие / А.П Прокушев. – М.: ИВЦ «Маркетинг», 2001г.
3. Информационные технологии в профессиональной деятельности: Учебное пособие / Е.В. Михеева. – М.: «Академия», 2005
4. Информационные технологии: Учебник / Г.С. Гохберг, А.В. Зафиевский, А.А. Короткин. – М.: «Академия», 2004
5. Моделирование систем: Учебное пособие / Б.Л. Советов, С.А. Яковлев. М.: Высшая школа, 2002.

6. Справочная система Microsoft Excel.

7. Степанова Т.И. Артюх Т.И Марков Б.И. «Сборник  лабораторных работ по программированию в среде Visual Basic  for Applications»

8. Хорев В.Д. Самоучитель программирования на VBA в Microsoft Office.-К.: Юниор, 2001.-320 с.

9. Г. З. Гарбер. Основы программирования на Visual Basic и VBA в Excel 2007 [Электронный ресурс].-Режим доступа: http://excelvba.ru/books/2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Приложение1

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

Private Sub CommandButton1_Click()

    Sheets("Лист2").Select

    Columns("A:B").Select

    Selection.ClearContents

    Range("A1").Select

    Sheets("Лист1").Select

    ActiveSheet.ChartObjects("Диаграмма 1").Activate

    ActiveChart.PlotArea.Select

    On Error GoTo err

        ActiveChart.SeriesCollection(1).Delete

err:

    a = Val(UserForm1.TextBox1.Text)

    b = Val(UserForm1.TextBox2.Text)

    p = Val(UserForm1.TextBox6.Text)

    x0 = Val(UserForm1.TextBox3.Text)

    x1 = Val(UserForm1.TextBox4.Text)

    st = Val(UserForm1.TextBox5.Text)

    x = x0

    i = 2

    Do While x <= x1

        Лист2.Cells(i, 1) = x

        Select Case UserForm1.ComboBox1.ListIndex

            Case 0

                On Error GoTo err1

                    Лист2.Cells(i, 2) = a * x + b

            Case 1

                On Error GoTo err1

                    Лист2.Cells(i, 2) = (a * x) ^ p + b

            Case 2

                On Error GoTo err1

                    Лист2.Cells(i, 2) = p ^ (a * x) + b

            Case 3

                On Error GoTo err1

                    Лист2.Cells(i, 2) = Log(a * x) + b

            Case 4

               On Error GoTo err1

                    Лист2.Cells(i, 2) = Exp(a * x) + b

        End Select

err1:

        x = x + st

        i = i + 1

    Loop

   Sheets("Лист2").Select

   ActiveSheet.ChartObjects("Диаграмма 1").Activate

   ActiveChart.SeriesCollection.NewSeries

   ActiveChart.SeriesCollection(1).Values = "=Лист2!$B$2:$B$" & Trim(Str(i))

   ActiveChart.SeriesCollection(1).XValues = "=Лист2!$A$2:$A$" & Trim(Str(i))

   Select Case UserForm1.ComboBox1.ListIndex

           Case 0

                   ActiveChart.ChartTitle.Text = "a * x + b"

           Case 1

                   ActiveChart.ChartTitle.Text = "(a * x) ^ p + b"

           Case 2

                   ActiveChart.ChartTitle.Text = "(a * x) ^ p + b"

           Case 3

                    ActiveChart.ChartTitle.Text = "Log(a * x) + b"

            Case 4

                    ActiveChart.ChartTitle.Text = "Exp(a * x) + b"

      End Select

  ActiveSheet.ChartObjects("Диаграмма 1").Activate

  ActiveChart.ChartStyle = Val(UserForm1.ComboBox2.Value)

  End Sub