Объект Range (диапазон)

Ячейка рабочего листа не является объектом Excel. К отдельной ячейке рабочего листа можно получить доступ через объект Range, который представляет собой совокупность ячеек. Объект Range может представлять как единственную ячейку таблицы, так и строку или столбец, некоторую прямоугольную область,а также объединения подобных несмехных элементов.

Пример адресации ячеек рабочего листа:

Dim MyRange As Range

Set MyRange = Range (“C1:C4”)

MyRange.Range(“A1”)=7

MyRange.Range(“A2”)=“=A1+2”

MyRange.Range(“A3:A4”)=“=A1+A2”

Первая инструкция объявляет имя MyRange как имя диапазона.Вторая инструкция задает объект MyRange, заданный диапазоном C1:C4. Третья инструкция задает ячейку С1 в абсолютных адресах. В четвертой и пятой инструкциях ссылки слева от знака равенстваделаются относительно объекта MyRange,а ссылки справа от знака равенства привязаны к абсолютным адресам.

Задание 1. Для заданного массива чисел Х и некоторой величины С, определить, сколько элементов массива меньше С. Для решения этой задачи необходимо разработать функцию.

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

Public Function FPR1(X As Variant, C As Variant) As Integer

1: Dim k As Integer, I As integer, j As Integer

2: n= X.Rows.Count

3: m= X.Columns.Count

4: k=0

5: For i=1 To n

6: For j=1 To m

7: If X(i,j) < C Then

8 k=k+1

9: End If

10: Next

11: Next

12: FPR1 = k

End Function

Свернуть окно редактора VBA. В открывшемся окне Excel Массивы.xls протестировать созданную функцию.

Задание 2. По работе с одномерными массивами выполнить индивидуальное задание в соответствии с вариантом заданным преподавателем (Таблица 9.2). Количество элементов массива задано числом N.

Таблица 9.2.

Задание 3.