Программа 20.13. Использование оператора For Each. . .Next
Программа 20.13. Использование оператора For Each. . .Next
Sub RecSum()
Dim bookshops() As Integer
Dim elem As Variant
ReDim bookshops(1 To 25)
Инициализация
sum = 0
For Each elem In bookshops
sum = sum + elem Next
MsgBox (sum) End Sub
На этом мы закончим описание операторов VBA и перейдем к рассмотрению структуры программы.
Содержание раздела