Как получить сумму всех чисел двух одномерных массивов, а также двух столбцов многомерного массива (не используя цикл)?

Категория: Basic

2012-09-25 16:19:58

code: #vba

Private Sub GetCalculate2()
    Dim iMassiv1#(1 To 100), iMassiv2#(1 To 100)
    Dim iCount%, iSum#
 
    For iCount = 1 To 100
        iMassiv1(iCount) = Rnd * 1000
        iMassiv2(iCount) = Rnd * 1000
    Next
 
    iSum = Application.Sum(iMassiv1, iMassiv2)
End Sub

Комментарий:

Количество суммируемых массивов не должно превышать 30
Допускается суммирование как одномерных, так и двухмерных массивов
Массивы могут иметь различную размерность

code: #vba

Private Sub GetCalculate3()
    Dim iMassiv#(1 To 100, 1 To 5), iSum#, iColumn%, iRow%
 
    For iColumn = 1 To 5
        For iRow = 1 To 100
            iMassiv(iRow, iColumn) = Rnd * 1000
        Next
    Next
 
    With Application
         iSum = .Sum( _
         .Index(iMassiv, 0, 2), .Index(iMassiv, 0, 4))
    End With
End Sub

Столбцы с номерами 2 и 4 используются только в качестве примера.

Поделиться:

Sample Code

категории

Как получить сумму всех чисел двух одномерных массивов, а также двух столбцов многомерного массива (не используя цикл)?

Похожие статьи: