Найти найменший (по модулю) элемент матрицы

Question

Есть матрица в Excel. Как записать код на Visual Basic (функцию) чтобы найти найменший по модулю елемент матрицы?

Answer 1

   Dim MinValue as single
   Dim i as integer, j as integer

   MinValue = Cells(i,j).Value

   for i=1 to RowNum
      for j=1 to ColNum
         if Cells(i.j).Value < MinValue then MinValue = Cells(i,j).Value
      next
   next

Обратите внимание на начальные позиции матрицы (координаты верхнего левого угла). 1,1 - это если матрица в самом начале страницы, вверху слева, позиция А1.

Answer 2

Sub test_()
    Dim rRng As Range, c_ As Range
    Dim dMin As Double
    
    Set rRng = Range("G87:L96")
    dMin = Abs(rRng(1, 1).Value)
    
    For Each c_ In rRng
        If dMin > Abs(c_.Value) Then dMin = Abs(c_.Value)
    Next c_
    
    Set rRng = Nothing
    MsgBox "Наименьшее значение в диапазоне " & dMin, 64, ""
End Sub

БЛОГ НА HUSL

Найти найменший (по модулю) элемент матрицы

Ответы (2 шт):