Массив VBA - проверьте пожалуйста

[Nataly1992]

Здравствуйте
Задача
Дан двухмерные массив Х размеров mxn(m строчек, n столбцов)
Вычислить среднее арифметическое елементов каждого столбца, которые больше за ноль
Вот написаная програма
Private Sub CommandButton1_Click()
M = Val(InputBox("Размерность массива по вертикали (количество строк), m",))
N = Val(InputBox("Размерность массива по горизонтали (количество колонок), n"))
ReDim a(M, N)
For i = 1 To M
For j = 1 To N
Do
a(i, j) = InputBox("A(" & i & ", " & j & ") = ?") 'ввод j-го элемента i-й строки'
If IsNumeric(a(i, j)) Then
Cells(i, j) = a(i, j)
Else
Cells(i, j) = 0: a(i, j) = 0 'ставим принудительно 0, если ошиблись при вводе'
End If
If a(i, j) <> Empty Then Exit Do            'ввели число a(i, j) - идём к следующим'
Loop
Next j
Next i
For j = 1 To N
S = 0
Nj = 0
For i = 1 To M
If a(i, j) > 0 Then S = S + a(i, j): Nj = Nj + 1 'подсчёт положительных эл-тов столбца j'
Next i
If Nj > 0 Then S = S / Nj 'S присваиваем (если есть) среднее по столбцу j из его положит. чисел'
If S > 0 Then Cells(M + 2, j) = S Else Cells(M + 2, j) = "немає" 'в (M + 2)-й строчке пишем результат'
Next j
End Sub




Скажите, можна как-то эту програму написать без If IsNumeric(a(i, j)) Then
Cells(i, j) = a(i, j)

[InfStudent]

Проверить  пограмму можете вы сами: задайте несколько наборов входных данных и проверьте выполнение программы на них.   

[Nataly1992]

Она то работает.
Вопрос то в конце написан:
Скажите, можна как-то эту програму написать без If IsNumeric(a(i, j)) Then
Cells(i, j) = a(i, j)

[Nataly1992]

Я умаляю, скажите, это возможно без этого IsNumeric написать??

[Данила]

это я так понимаю контроль ввода...то есть если юзер введет вместо цифры букву или символ она не вылетит...писать можно,но при недопустимых символах программа упадет

[Nataly1992]

А вы можете мне написать? Буду очь благодарна.
Просто у меня така преподавательница, которая ничего не поймет(проверено).

[Данила]

If IsNumeric(a(i, j)) Then
Cells(i, j) = a(i, j)
Else
Cells(i, j) = 0: a(i, j) = 0 'ставим принудительно 0, если ошиблись при вводе'
End If

меняйте на
Cells(i, j) = a(i, j)

[Nataly1992]

Большое спасибо)