Question

Найти сумму элементов матрицы X (6,6) ,расположенных на главной диагонали матрицы. Программирование в МАКРОСАХ

Answer 1

Sub aaa()
    Set r = Range("A1:F6")
    Z = r
    s = 0
    For i = 1 To 6
        s = s + Z(i, i)
    Next i
    MsgBox "Сумма элементов на главной диагонали " + Str(s)
End Sub


Во вложении - рабочая книга MS Excel 2003

3418fa19cb70b98e05304a368d4677ec.xls

Answer 2

Неужто так сложно написать эти 9 строчек?