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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.6 из 5
Похожие ответы