Макрос для матрицы в MICROSOFT EXCEL - VBA

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

Найти сумму всех элементов матрицы 5x5, расположенных под главной диагональю, и разделить ее на произведение максимального и минимального элемента 3 колонки. Очень рассчитываю на вашу помощь! Заранее благодарю!

Решение задачи: «Макрос для матрицы в MICROSOFT EXCEL»

textual
                            Листинг программы 
                        
 
                            
                        
Sub SumMatrix()
    On Error GoTo M
    Const iSelCol As Long = 3 'столбец, по которому ищется максимум и минимум
    Const M As Long = 5  'количество строк
    Const N As Long = 5  'количество столбцов
    Dim i As Long, j As Long
    Dim iMax As Long, iMin As Long
    Dim iSum As Single
    Dim s As String
    Dim x(M, N) As Long
    For i = 1 To M
        For j = 1 To N
            x(i, j) = 40 * Rnd
        Next j
    Next i
    iMax = x(1, iSelCol)
    iMin = iMax
    For i = 1 To N
        iMax = IIf(iMax < x(i, iSelCol), x(i, iSelCol), iMax)
        iMin = IIf(iMin > x(i, iSelCol), x(i, iSelCol), iMin)
    Next i
    For i = 2 To M
        For j = 1 To i - 1
            iSum = iSum + x(i, j)
        Next j
    Next i
    MsgBox "iMin = " & iMin & vbCrLf & _
    "iMax = " & iMax & vbCrLf & _
    "iSum = " & iSum & vbCrLf & _
    "iSum/iMin = " & iSum / iMin & vbCrLf & _
    "iSum/iMax = " & iSum / iMax
    Exit Sub
M:
    s = "Невозможно выполнить деление."
    Select Case Err.Number
    Case 11
        If Not iMax Then
            MsgBox (s & " Максимальный элемент равен 0.")
        Else
            MsgBox (s & " Минимальный элемент равен 0.")
        End If
    Case Else
        MsgBox "Извините, произошла непредвиденная ошибка."
    End Select
End Sub