Функции, возвращающие массив значений

Пусть необходимо запрограммировать функцию, которая по заданному целому , возвращает таблицу из двух строк и столбцов. В первой строке должны быть числа от до , а во второй строке — числа на единицу большие соответствующих чисел из первой строки.

Например, пусть , . Должны получить таблицу

Для реализации воспользуемся циклом For. После того как наберём в модуле

Public Function ArrayFunc(ByVal n As Integer, ByVal m As Integer) As Variant

Dim D() As Integer

Dim i As Integer

ReDim D(1, m)

For i = 0 To m - 1

D(0, i) = n + i

D(1, i) = n + i + 1

Next i

ArrayFunc = D

End Function

выполним тестовый расчёт для случая , . Для этого выделим на листе область из двух строк и трех столбцов. Затем введем в строке формул =ArrayFunc(1;3) и нажмем “Ctrl + Shift + Enter”. После этого в строке формул появится {=ArrayFunc(1;3)}, а на листе таблица. См. рис. 5.5 справа. Для получения таблицы с двумя строками и шестью столбцами нужно выделить область с двумя строками и шестью столбцами, потом ввести в строке формул формулу с вторым параметром равным 6, и затем нажать “Ctrl + Shift + Enter”. На лист будет выведена таблица с шестью столбцами и числами, зависящими от значения первого введенного параметра (параметра ).

Упражнение 5.2 Написать функцию, которая заполняет квадратную таблицу из строк и столбцов чередующимися числами 0 и 1. Например, для

Выполнить тестовые вычисления для , и .

Указание. Использовать вложенный цикл For.

Упражнение 5.3 Вначале воспроизвести пример 5.2. В примере 5.2 для вывода значений использовались отдельные Label, т.е. поясняющие надписи и значения выводились на разные Label. Например, метка tbl_Books_Count для вывода надписи и Books_Count для вывода самого числа открытых книг. Модифицировать форму (создать вторую) и процедуры обработки так, чтобы выводить и поясняющие надписи и числа на метки:

tbl_Books_Count, lbl_AB_Sheets_Count, lbl_AB_Charts_Count, lbl_AB_List_Chart.

А метки

Books_Count, AB_Sheets_Count, AB_Charts_Count, ListChart_Count

удалить с формы.

Литература, рекомендуемая для дальнейшего изучения темы

1. Орвис В. Excel для учёных, инженеров и студентов — К.: Юниор, 1999. — 528 c.

2. Уокенбах Д. Microsoft Excel 2010 Профессиональное программирование на VBA. — М.: Диалектика, 2012. — 944 с.

Приложения

5.2.A Заголовок окна, меню и панель инструментов среды MVB

В заголовке окна среды MVB отображается имя VBA проекта, а за ним имя «модуля» выбранного модуля проекта. Если в Excel будет открыто две книги, то в заголовке окна будет отображаться имя того проекта, который выбран в окне Project. Ниже заголовка окна находится главное меню MVB, а ниже главного меню панель инструментов. При щелчке правой кнопки мыши на панели инструментов появляется меню настройки панели инструментов. Внимание заслуживает инструменты Comment Block и Uncomment Block которые часто используются для комментирования блоков и даже целых процедур во время отладки кода.

5.2.B Окна среды MVB

5.2.B.1 Окно кода (эквивалентный термин — окно модуля)

Окно модуля служит для просмотра, написания и редактирования программ Visual Basic. Допускается открытие такого числа окон, сколько имеется модулей. Это позволяет просматривать, и копировать текст между различными модулями. Открытие окна модуля возможно:

· Из листа, путем вызова локального меню щелчком правой кнопки мыши [в режиме конструктора] на управляющем элементе (например, кнопка) и выбора в локальном меню “View Code”.

· Из окна Project, путем выбора формы или модуля, вызовом локального меню и выбором “View Code”.

· Из окна UserForm двойным щелчком на элементе управления, или путем нажатия клавиши F7.

Рисунок 5.6 — Вид окна кода (слева) после вставки нового модуля и вид окна формы (справа) после вставки новой формы