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