1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | 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 Допускается суммирование как одномерных, так и двухмерных массивов Массивы могут иметь различную размерность 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 используются только в качестве примера. |