Найти индексы всех отрицательных элементов матрицы - VBA

Формулировка задачи:

Здравствуйте, столкнулся с таким заданием: "В матрице размерностью (7,6) найти индексы отрицательных элементов". Получилось написать такой код:

                    Листинг программы
                
For i = 1 To 7
For j = 1 To 6
         
If Cells(i, j).Value < 0 Then MsgBox "(" & i & "," & j & "),"
        
Next j
Next i

Пожалуйста, подскажите как нужно исправит код, чтобы программа нашла индексы всех отрицательных элементов и вывела в сообщении, а то приходится каждый раз нажимать "ок" для следующего значения. P.S. в VBA не силен, так что сильно не стукайте

Решение задачи: «Найти индексы всех отрицательных элементов матрицы»

textual
                            Листинг программы 
                        
Dim i, j, s
For i = 1 To 7
For j = 1 To 6
 
If Cells(i, j).Value < 0 Then s = s & ",(" & i & "," & j & ")"
 
Next j
Next i
MsgBox Mid(s, 2)

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

10 голосов , оценка 3.8 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы