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

End Sub

Создаётся главный модуль, в котором указывается имена подпрограмм и фактических параметров (лист, имя массива, размерность массива и т.д.). Управления работой процедурами выполняется из главного модуля.

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

'главная программа

Sub копирование ()

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

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

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

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

m = Sheets ("Лист2"). Cells (5,12) ' кол-во столбцов

ReDim A (1 To n, 1 To m) ' переобъявление массива

'процедура ввода

VVOD "Лист2", A, n, m, 3 'список фактических параметров, где:

'Лист2-лист, с которого данные вводятся в память;

'а-имя массива;

'n-количество строк массива;

'm-количество столбцов массива;

'3-количество строк заголовка таблицы.

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

VIVOD "Лист3", A, n, m, 3 'вывод из памяти на Л3

VIVOD "Лист4", A, n, m, 3 'вывод из памяти на Л4

End Sub

'Подпрограмма "VVOD":

Sub VVOD (L, x, y, r, S) 'список фактических пареметров, где:

'L-лист;

'x-имя массива;

'y-количество строк в массиве;

'r-количество столбцов в массиве;