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

<инструкции>

……………………

C Листа2 копируем исходные данные на Лист4 (процедурами ввода данных в память и вывода на лист). Объявляем матрицу как динамичесий массив. Считываем с Листа 2 количество строк (n) и столбцов (m), размерность которой будет n*m. Вводим новую матрицу в память, затем на лист. Формируем новую матрицу, чтобы выполнить дозапись. Ввод данных производится через оператор InputBox, ввод новых элементов выполняется в цикле For. Снова переобъявляем матрицу, размерность которой уже будет (n+k) *m. Выводим на лист новую матрицу.

Sub Дозапись ()

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

Dim A () As Variant 'объявление динамического двумерного массива

'обращение к подпрограмме ввода данных в память

n = Sheets ("Лист2"). Cells (5,11) 'количество строк массива

m = 5 'количество столбцов массива

ReDim A (1 To n, 1 To m)

k = InputBox ("Введите количество дозаписываемых элементов")

Sheets ("Лист4"). Cells (5, 13) = k 'количество дозаписываемых элементов

ReDim A (1 To n + k, 1 To m) As Variant

For i = 1 To n

For j = 1 To m ' столбцы для дозаписи даннных

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

Next j

Next i

' вывод новых элементов на Л 4

For i = 1 To k

For j = 1 To m

If j = 1 Then 'номера столбцов, по которым вводятся данные

'y указывает наименование переменной вводимого столбца

y = " Номер группы "

Else

If j = 2 Then

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

Else