Сформировать вектор из элементов матрицы - VB

Формулировка задачи:

2)В табличном процессоре Microsoft Excel средствами VBA создать функцию которая получает по заданной матрице вектор, элементы которого равны сумме элементов соответствующей строки матрицы. 3)В табличном процессоре Microsoft Excel средствами VBA создать функцию которая получает вектор по заданной матрице, элементы которого равны 1, если все элементы соответствующего столбца матрицы больше заданной величины h1, но в тоже время меньше заданной величины h2. 4)В табличном процессоре Microsoft Excel средствами VBA создать функцию которая вычисляет число инверсий в порядке убывания значений элементов вектора. Инверсия порядка убывания – это когда два соседних элемента вектора расположены в порядке возрастания. 5) В табличном процессоре Microsoft Excel средствами VBA создать функцию которая проверяет, все ли элементы одномерного массива имеют значение больше заданной величины. я в отчаянии(((( помогите пожалуйста!

Решение задачи: «Сформировать вектор из элементов матрицы»

textual
                            Листинг программы 
                        

                            Function все_ли_элементы_массива_больше_заданной_величины(элементы_массива As Range, заданная_величина) As Boolean
Dim M() 'массив
Dim R  'переменные цикла
Dim Nr, Nc, Lc 'параметры диапазона
Nr = элементы_массива.Row ' строка
Nc = элементы_массива.Column 'начальный столбец
Lc = элементы_массива.Columns.Count 'количество столбцов
ReDim M(1 To Lc) 'изменить размер массива
For R = 1 To Lc 'с первого до количества столбцов
M(R) = Cells(Nr, Nc + R - 1) ' считываем в массив
Next R 'следующий элемент
R = UBound(M)
все_ли_элементы_массива_больше_заданной_величины = True
For R = 1 To Lc - 1 'с первого до предпоследнего
If заданная_величина > M(R) Then все_ли_элементы_массива_больше_заданной_величины = False: Exit Function  '
Next R 'следующий элемент
End Function
                        