VB в EXCEL? Нужна помошь.
Формулировка задачи:
Есть задание: найти сумму индексов последнего положительного элемента матрицы в EXCEL.
Поюзал стандартные функции, но ни чего не подошло... Плиз помогите кто сможет. Я слышал что это можно реализовать через макрос на VB. Но вот беда, про VB я слышу впервые... Ни разу на нём не программировал, так что не могу разобраться...
Решение задачи: «VB в EXCEL? Нужна помошь.»
textual
Листинг программы
Public Sub proc1()
Dim arr() As Single, n As Integer, m As Integer
arr = Range(Cells(1,1),Cells(5,5)).Value
i = Ubound(arr,1)
i = Ubound(arr,2)
For i = n To 1 Step -1
For j = m To 1 Step -1
If arr(i, j) > 0 Then MsgBox ("Сумма = " & i + j): Exit Sub
Next j
Next i
End Sub