Курсовая работа: Решение экономических и бухгалтерских задач с использованием инструментария Visual Basic For Application
Stolbets = Sheets ("Лист2"). Cells (4, j) 'анализируемый столбец
If Stolbets = Emty Then ' если столбец пустой
GoTo M4 'переход на метку 4
Else
j = j + 1 'подсчет количества столбцов
GoTo M3 ' переход к проверке следующего столбца
End If
M4: 'в том случае, если столбец пустой
m = j - 1 'подсчет количества столбцов в таблице
'm-количество столбцов в таблице
Sheets ("Лист2"). Cells (5,12) = m
End Sub
Рис.2 Данные подсчёта количества строк и столбцов
5. Копирование данных с использованием процедур в программах
Скопировать исходные данные с Листа2 программным путём, применяя программы процедур ввода и вывода данных.
Процедуры - это самые важные функциональные блоки языка VBA. В VBA вы можете выполнить тот программный код, который содержится в какой-либо процедуре.
Макрос в VBA - это процедура типа Sub, не имеющая параметров. Только макросы можно вызвать по имени из редактора VBA или из приложения Office.
Процедуры условно делятся на процедуры - подпрограмм и процедуры-функции.
Отличаются они тем, что процедура - подпрограмм просто выполняет группу операторов, а функция вычисляет некоторые значения и передаёт его обратно в главную программу.
Чтобы работа подпрограмм имела смысл, её надо получить данные из главной (вызывающей) программы (главного модуля), которая эту программу вызывает. Данные передаются подпрограмме в виде параметров или аргументов, которые обычно описываются в её заголовке так же, как и переменные. Подпрограммы активизируются только в момент их вызова. Операторы, находящиеся в нутрии программы, выполняются только в том случае, если эта подпрограмма явно вызвана. Пока выполнение программы полностью не закончится, оператор главной программы, следующей за командой вызова подпрограммы, выполнятся не будет.
Синтаксис главного модуля:
Sub < Имя программы> ()
< объявление данных>
< имя процедуры> (список фактических парметров)
End Sub
Синтаксис процедуры:
Sub <имя программы> (список фактических параметров)