Электронные таблицы. Салмин А.А. - 112 стр.

       S = S      +   Application.Worksheets(1).Cells(I,
1).Value
     Next I
     MsgBox (S)
     End Sub




                  Рис. 6.12. Пример цикла 1

  В циклах по структуре данных тело цикла поочередно
повторяется для всех однородных объектов, составляющих
массив или семейство. В этом случае в роли счетчика
выступает объектная переменная.
     Синтаксис:
     For Each элемент In структура_данных
     <тело цикла>
     Next элемент

    Пример последовательного вывода на экран окон
сообщений с именами всех рабочих листов текущей книги:
    Sub loop_date()
    Dim S As Worksheet
    For Each S In Application.Worksheets
      MsgBox (S.Name)
    Next S
    End Sub




112