Программа 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 и перейдем к рассмотрению структуры программы.