Опредилить каких элементов в массиве больше

[sVa112]

Дан массив целых чисел, опредилить каких элементов в массиве больше положительных или отрицательных.

Sub Lab_2()
Dim b() As Integer, i As Integer, n As Integer
Dim m1 As Integer, m2 As Integer
n = InputBox("Введите количество элементов в массиве")
Worksheets("Лист1").Range("A2").Val ue = n
ReDim b(n)
For i = 1 To n
b(i) = Worksheets("Лист1").Cells(i + 1, 3).Value
Next i
m1 = 0
m2 = 0
For i = 1 To n
If b(i) > 0 Then m1 = m1 + 1
If b(i) < 0 Then m2 = m2 + 1
Next i
If m1 > m2 Then Worksheets("Лист1").Range("A3").Val ue Ellse
Worksheets("Лист1").Range("A3").Val ue
End Sub

Помогите доделать, ошибку выбивает run time error "438"

[IgorGO]

вместо этого
If m1 > m2 Then Worksheets("Лист1").Range("A3").Val ue Ellse
Worksheets("Лист1").Range("A3").Val ue
пишите это

if m1=m2 then msgbox "Поравну" else msgbox "Больше " & iif(m1 > m2, "положительных", "отрицательных")

[Казанский]

Варианты http://www.cyberforum.ru/vba/thread785670.html

[sVa112]

Ввожу кол-во элементов в массиве, нажимаю ок и сразу выдаёт "поровну", где ошибка?

[IgorGO]

извините за "поравну". правильно поровну - и это один и вариантов состояния массива данных.
кстати, если на листе нет данных - то отрицательных 0 и положительных 0, т.е. их поровну.

[sVa112]

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