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

y = "Количество 4"

Else

If j = 4 Then

y = "Количество 3"

Else

If j = 5 Then

y = " Количество 2"

End If

End If

End If

End If

End If

A (i + n, j) = InputBox (y)

Sheets (" Лист 4"). Cells (i + 4 + n, j) = A (i + n, j)

Next j

Next i

n1 = n + k

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

End Sub

Рис.4. Данные программы после дозаписи

7. Создание отчёта

В отчете производим копирование данных с Листа 4 на Лист 5 и с помощью одномерного массива рассчитывается новые столбцы: "Итого", "Абсолютная успеваемость" и "Качественная успеваемость". Для нахождения производим расчет по формулам: n=n2+n3+n4+n5; absu= (n3+n4+n5) /n*100; kau= (n4+n5) /n*100. Производим считывание количества строк (n) и столбцов (m). Объявляем матрицу A как динамический массив через оператор ReDim. Копируем данные с листа 4 на лист 5 с помощью процедур. Затем высчитываем по формулам значения, а после находим среднее значение в столбцах "Итого", "Абсолютная успеваемость" и "Качественная успеваемость". И выводим на лист:

Sub Отчет ()

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

Dim A () As Variant

n1 = Sheets ("Лист4"). Cells (5,12) 'количество строк массива