Основы работы в VBA. Массивы: Вывод массивов на печать

Основы работы в VBA. Массивы

1. Массивы. Описание массивов

1.2. Вывод массивов на печать

Вывести массив на печать можно следующими способами:

1) в рабочий лист Excel – для этого используется известная уже функция Cells:

для одномерного массива:

для двумерного массива:

For i = 1 To n

‘вывод в 10 строку рабочего

‘листа

Cells(10, i) = a(i)

Next i

For i = 1 To n

For j = 1 To m

‘вывод начинается с

‘5 строки 4 столбца

Cells(i+5, j+4) = a(i, j)

Next j

Next i

2) в диалоговое окно. Для этого весь массив переписывается в какую-либо одну текстовую переменную (например Text), которая и выводится в диалоговое окно. При выводе двумерного массива перед выводом необходимо сформировать строки и столбцы. Для этого используется функция Chr(13) – перевод каретки, которая при заполнении строки переводит курсор на начало следующей строки и Chr(9) – вставляет символ табуляции между элементами массива в строке. Здесь также массив предварительно записывается в текстовую переменную, которая выводится в диалоговое окно.

Для одномерного массива:

Для двумерного массива:

Text = ""

For i = 1 To n

Text = Text & a(i) & Chr(9)

Next i

MsgBox "Массив:"&Chr(13)& Text

Text = ""

For i = 1 To n

For j = 1 To m

Text = Text & a(i, j) & Chr(9)

Next j

Text = Text & Chr(13)

Next i

MsgBox "Массив:" & Chr(13) & Text