Помогите сделать задачу в VBA Excel

[energy drink]

Вычислить произведение всех положительных элементов находящихся между первым и последним отрицательными элементами массива. Вывести сначала отрицательное элементы массива что отсортированы по убыванию а затем положительные что отсортированы по возрастанию.

[ViktorR]

1. Используя решение предыдущей задачи, по аналогии, находишь первый и последний отрицательные элементы массива. Сохраняешь их номера.
2. Произведение находишь так:

Proizv = 1  ' Начальное значение для произведения
   for i = m to n  ' m, n - нач. и конеч. номера отрицательных элементов
      Proizv = Proizv * Cells(1, i) ' Тут ссылка к элементам массива через ячейки
   Next i

3. Отсортируй массив по возрастанию. При сортировке, в операции сравнения, используй абсолютное значение элемента.
Например:

if abs(Cells(1,i)) > abs(Cells(1,j)) then
...
end if

После такой сортировки положительные и отрицательные элементы будут отсортированы по возрастанию их абсолютных значений.
4. В цикле просматривай массив с "хвоста" и если элемент отрицательный, то выводишь его значение.
5. В цикле просматривай массив с головы и если элемент положительный, то выводишь его значение.


Как-то так, ...