Двумерный массив VBA

[Nataly1992]

Здравствуйте нужна ваша помощь
Задача
Дан двухмерные массив Х размеров mxn(m строчек, n столбцов)
Вычислить среднее арифметическое елементов каждого столбца, которые больше за ноль

Буду благодарна за помощь

[Nataly1992]

 На паре была вот такая вот задача:
Дан двухмерные массив Х размеров mxn(m строчек, n столбцов)
Найти суму квадратов элементов, которые находятся на диагоналях(m=n)

Вот так вот програмировали
n = InputBox("VVedite n")
m = InputBox("Vvedite m")
ReDim a(n, m)
For i = 1 To n
For j = 1 To m
a(i, j) = InputBox("Vvedite A(" & i & "," & j & ")")
Next j
Next i
For i = 1 To n
For j = 1 To m
Cells(2 + i, 2 + j).Value = a(i, j)
Next j
Next i
For i = 1 To n
For j = 1 To m
If i = j Then
S = S + a(i, j) ^ 2
End If
Next j
Next i
Cells(4 + n, 4 + m).Value = S


Что в нем можно заменить, чтобы вышла задача из первого сообщения?

[InfStudent]

А что значит больше за 0?

[Nataly1992]

Это Положительные,x>0

[Данила]

делаете цикл по столбцам,в нем цикл по строкам и проверяете на >0
синтаксиса не знаю,но будет как то так

for j=1 to m //тут должен начаться новый цикл,хз как на вба это обозначить
for i=1 to n
if a[ i,j ]>0 then sum=sum+a[ i,j ]

[bro]

Думаю что вот так

Sub matrix1()
n = InputBox("VVedite n")
m = InputBox("Vvedite m")
ReDim a(n, m)
For i = 1 To n
For j = 1 To m
a(i, j) = InputBox("Vvedite A(" & i & "," & j & ")")
Next j
Next i
For i = 1 To n
For j = 1 To m
Cells(2 + i, 2 + j).Value = a(i, j)
Next j
Next i
For i = 1 To n
For j = 1 To m
If i = j Then
s = s + a(i, j) ^ 2
End If
Next j
Next i
Cells(4 + n, 4 + m).Value = s
End Sub

[bro]

Игнорировать предыдущий ответ, запарился.

Вот так

Sub matix2()
Dim n, m, sum As Integer
n = InputBox("VVedite n")
m = InputBox("Vvedite m")
ReDim a(n, m)
For i = 1 To n
For j = 1 To m
x = x + 1
a(i, j) = x
Next j
Next i
For i = 1 To n
For j = 1 To m
Cells(12 + i, 2 + j).Value = a(i, j)
Cells(12 + i, 2 + j).Interior.ColorIndex = 8
Next j
Next i
For j = 1 To m
For i = 1 To n
sum = sum + CInt(a(i, j))
Next i
Cells(15 + n, 2 + j).Value = CSng(sum / n)
sum = 0
Next j
End Sub

[Selyd]

Дан двухмерные массив Х размеров mxn(m строчек, n столбцов)
Вычислить среднее арифметическое елементов каждого столбца, которые больше за ноль
                пусть числа идут здесь в конце текста, тогда читаем
read m,n   
dim A(m+2,n)  m+2 строчек, n столбцов В строчке m+1 будет количество >0, а в строчке m+2 будут суммы
For i = 1 To m
For j = 1 To n
read A(i, j)   читаем построчно числа
Next j
Next i
              большие 0 обрабатываем, другие пропускаем
For j = 1 To m
if  A(j, i)<=0 then A(i, j) goto L  по столбцам
A(m+1, i)= A(m+1, i) + 1     штук, которые больше за ноль
A(m+2, i)= A(m+2, i) + A(j, i) их сумма
L:Next j
For i = 1 To n
A(m+2, i)= A(m+2, i)/A(m+1, i)  здесь стали средние
Next i
For i = 1 To n
print A(m+2, i)  печать средних
Next i
Если суммы надо сохранить, выделяем строку A(m+3,n) для средних