Курсовая работа: Решение экономических и бухгалтерских задач с использованием инструментария Visual Basic For Application

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. Создание диаграмм (гистограмма, круговая, смешанная)

Для создания диаграмм необходимо выбрать мастер диаграмм: Вставка-Диаграмма