Определить количество положительных элементов массива

Друзья, здравствуйте!Задачка тут сложилась небольшая. Определить построчно количество положительных элементов в двумерном массиве A 5Х4. Полученный результат записать в вектор B.Помогите пожалуйста справиться с этим заданием, в VBA пока что я не особо сильна Спасибо Вам. И кстати с праздником!
4 ответа

Анна Васильенко, вверху справа есть ИСКАТЬ В ЭТОМ РАЗДЕЛЕ. Набираете, например, число положительных элементов массива и смотрите. Вы далеко не первая, которую ставят в затруднение такие задачи


Уважаемый Burk, буду Вам признательна, если поможете мне с кодом именно к моей задаче


Выделить массив и запустить макрос find:
Option Explicit
Option Base 1
 
Sub find()
Dim nr As Integer, nc As Integer, i As Integer, j As Integer
Dim b() As Integer, count As Integer, address As String
 
nr = Selection.Rows.count
nc = Selection.Columns.count
 
ReDim b(nr) As Integer
 
For i = 1 To nr
  count = 0
  For j = 1 To nc
    If Selection.Cells(i, j) > 0 Then
      count = count + 1
    End If
  Next j
b(i) = count
Next i
 
address = Selection.Cells(1, 1).address
Range(Range(address).Offset(0, nc).address & ":" & Range(address).Offset(nr - 1, nc).address).Select
 
Selection.Cells = WorksheetFunction.Transpose(b)
Selection.Interior.ColorIndex = 19
 
End Sub


*******, спасибо, вечером буду разбираться)