определить в последовательности a1, a2, …, an количество положительных и отрицательных элементов

[vetalij]

Собственно есть задача:
Определить в последовательности a1, a2, …, an количество положительных и количество отрицательных элементов.
Есть примерная реализация в Паскале

uses crt;
const n=15;
var a:array[1..n] of integer;
      i,k,p:integer;
 begin
  ClrScr;
  Writeln('Введите массив');
   for i:=1 to n do
   begin
    Write('a[',i,']->');
    Readln(a[i]);
   end;
  for i:=1 to n do
   begin
   if a[i]>0 then
    k:=k+1;
   if a[i]<0 then
    p:=p+1;
   end;
 Writeln('Кол-во положительных ',k);
 Writeln('Кол-во отрицательных ',p);
Readln;
end.

Но как это реализовать в Visual Basic в Exel.

(Изучал вижуал бейсик, под эксель, года два назад, уже почти ничего не помню)

[staniiislav]

вот пример на массивах...
значения в столбце можно продлить сколько угодно...
что вам именно нужно?

[DiemonStar]

вот так код намного короче:

Sub calc()
  Dim A%(1 To 3)
   A(1) = 3
   A(2) = -2
   A(3) = -1
  [A1].Resize(UBound(A)) = WorksheetFunction.Transpose(A())
  MsgBox "Ïîëîæèòåëüíûõ ýëåìåíòîâ: " & Evaluate("sumproduct(--(" & [A1].CurrentRegion.Address & ">0))")
  MsgBox "Îòðèöàòåëüíûõ ýëåìåíòîâ: " & Evaluate("sumproduct(--(" & [A1].CurrentRegion.Address & "<0))")
End Sub