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

Узнай цену своей работы

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

Здравствуйте, столкнулся с таким заданием: "В матрице размерностью (7,6) найти индексы отрицательных элементов". Получилось написать такой код:
Пожалуйста, подскажите как нужно исправит код, чтобы программа нашла индексы всех отрицательных элементов и вывела в сообщении, а то приходится каждый раз нажимать "ок" для следующего значения. 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
Похожие ответы