как посчитать сумму главной диагонали массива

[Galina14]

добрый день, помогите, пожалуйста, написать программу которая считает сумму главной диагонали массива созданного на рабочем листе

[vikttur]

Вы сегодня постоянно генерите темы. Что говорит поиск? Что у Вас не получается?

Похоже, учетка группокая - вся группа решает варианты задания )

[Galina14]

нет учетка не групповая, поиск не дает подходящих вариантов, и с конспектах проблема

[Galina14]

это последняя тема которая меня интересует на данный момент ))

[Дмитрий Щербаков(The_Prist)]

помогите, пожалуйста, написать программу

а что именно не получается? Где массив, какая диагональ главная?

[Galina14]

нужно создать наподобие матрицы массив, толком в задании не сказано и высчитать сумму по диалоге  т.е. (10+25+44+21)
10 15 25 43
11 25 25 14
13 55 44 13
7  45 47 21
я не нашла с помощью какой функции можно это сделать
сначала выбрать диапазон ячеек massiv = (Range"A3:C5") а дальше надо диагональ определить

[Дмитрий Щербаков(The_Prist)]

я не нашла с помощью какой функции можно это сделать

это делается с помощью функции "ходить на лекции"

Код (vb) Выделить Развернуть

Sub ttt()
Dim i As Long, j As Long
Dim massiv, sum
massiv = Range("A1:D4").Value
For i = 1 To UBound(massiv)
   For j = i To UBound(massiv, 2)
       sum = sum + massiv(i, j)
       Exit For
   Next
Next
MsgBox sum
End Sub
будем надеяться, что учитесь не на программиста или математика (и не дай Бог на физика-ядерщика  ;D)

[A-Michael]

это делается с помощью функции "ходить на лекции"

;D ;D ;D

[Galina14]

спасибо