Матрица в excel vba

Question

Может кто-нибудь помочь мне найти абсолютную сумму всех значений над главной диагональю в матрице?

Sub Tee_Mass_1() 
    Dim aa, bb, m, n, i, j, alg As Range, algaeg 
    aa = InputBox("Minimaalne arv?", , -100) 
    bb = InputBox("Maksimaalne arv?", , 100) 
    m = InputBox("Mitu rida?", , 5) 
    n = InputBox("Mitu veergu?", , 5) 
    Randomize 
    Set alg = Range("ralgA") 
    For i = 1 To m 
    For j = 1 To n 
     alg.Cells(i, j) = Int(Rnd() * (bb - aa + 1)) + aa 
    Next j 
    Next i 
End Sub 

Answer 1

AS моего понимания на ваш вопрос, вы хотите суммировать абсолютные значения элементов выше главной диагонали, за исключением диагонали себя.

Элементы над основной диагональю обладают тем свойством, что j> i, если элемент (i, j). Таким образом, вы можете добавить следующий код

AbsSum = 0 
For i = 1 To m 
    For j = 1 To n 
     if j > i then 
      AbsSum = AbsSum + Abs(alg.Cells(i, j)) 
     End If 
    Next 
Next 

Если вы хотите включить диагонали, а затем задать условие: если J> = я тогда