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

ИИ для рефератов и докладов


  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

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

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