Программы на VBA для Excel (макросы)

Программы для решения задач с одномерными и многомерными массивами.
Условия задач ( для одномерных массивов): Подсчитать и вывести на экран количество элементов массива, равных заданному значению. Составить и вывести на экран новый массив с номерами элементов исходного массива, которые равны (неравны) заданному значению. Поменять местами максимальный и минимальный элементы массива и вывести измененный массив на экран. Подсчитать и вывести на экран количество отрицательных, положительных и нулевых элементов массива. Все элементы массива, меньшие заданного значения, и их номера записать в новые массивы и вывести их на экран. Подсчитать и вывести на экран процент нулевых элементов в исходном массиве. Определить и выдать сообщение на экран, какая сумма по абсолютной величине больше, отрицательных или положительных элементов массива. Переписать элементы массива в обратном порядке и на том же месте вывести измененный массив на экран. Составить и вывести на экран массив номеров элементов исходного вектора, встречающихся один раз.
Условия задач для многомерных массивов: Вывести число неотрицательных элементов в каждой строке двумерного массива. Подсчитать число нулевых элементов в заданном столбце двумерного массива. Подсчитать среднее арифметическое отрицательных элементов в каждой строке двумерного массива. Определить среднее арифметическое положительных элементов в каждом столбце двумерного массива. Определить минимальное значение в каждой строке двумерного массива; максимальное значение в каждом столбце двумерного массива. Вывести номер максимального значения в каждой строке двумерного массива. Определить номер минимального значения в каждом столбце двумерного массива. Вывести число элементов каждой строки двумерного массива, значения которых меньше заданного значения. Определить число элементов каждогo столбца двумерного массива, значения которых равны заданному значению.