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

Длина строки

От 1 до приблизительно 65 400

Variant (числовые подтипы)

16 байт

Любое числовое значение вплоть до границ диапазона для типа Double

Variant (строковые подтипы)

22 байт + длина строки

Как для строки (String) переменной длины

4. Исходные данные

На Листе 2 создается таблица 1 путем набора исходных данных согласно заданию. Программным путем определяется количество строк и столбцов таблицы с помощью функции Empty.

Данная функция проверяет строки по выбранному столбцу (или строке). Если строка не пустая, то подсчитывается количество строк таблицы, передача управления на проверку следующей строки выполняется с помощью оператора безусловной передачи Go To на метку М1.

Если строка пустая, то выполняется передача управления с помощью оператора Go To на метку М2, где фиксируется количество заполненных строк таблицы. В конце метки заканчивается двоеточием.

Sub подсчет_строк_столбцов ()

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

i = 1 'формирование строки таблицы

M1:

Stroka = Sheets ("Лист2"). Cells (i + 5,1) 'анализируемая ячейка

If Stroka = Emty Then 'если строка пустая

GoTo M2 'переход на метку 2

Else

i = i + 1 'подсчет количества строк

GoTo M1 ' переход к проверке следующей строки

End If

M2: 'в том случае, если ячейка пустая

n = i - 1 'подсчет количества строк в таблице

'n-количество строк в таблице

Sheets ("Лист2"). Cells (5,11) = n

j = 1 'формирование столбца таблицы