Как организовать цикл в Экселе ?

[vedro-compota]

Доброе времени суток ))
Кто знает - как организовать цикл в экселе ( чтобы шёл по ячейкам с такой-то по такую то) ? Выручайте ))

[Ulex]

For Each e In Worksheets(ActiveWorkbook.ActiveSheet.Name).Range("e16:e5000")

Next e

Или я вопрос не правильно понял?

[vedro-compota]

For Each e In Worksheets(ActiveWorkbook.ActiveShe et.Name).Range("e16:e5000")

Next e

это цикл от который перебирает значения от ячейки e16 до e5000 ? ))

[Пепел Феникса]

да это он самый

[Ulex]

Ага, вот ещё, для примера.

For Each a In Worksheets(ActiveWorkbook.ActiveSheet.Name).Range("a3:a50")
    If (Trim(Cells(a.Row, a.Column)) = Empty) Then
    Else
       If (Trim(Cells(a.Row, 1)) = "ИТОГО") Then
       Exit For
       Else
       Cells(a.Row, 2).Value = Cells(a.Row, 1).Value
       Cells(a.Row, 3).Value = "+"
       End If
    End If
Next a

Вот цикл, который пробегает ячейки a3-a50 и если первая колонка не пустая, то копирует содержимое aN в bN и в сN ставит плюсик.
Цикл останавливается, если в ячейке встречается слово ИТОГО.

[vedro-compota]

а код куда надо помещать ? туда , где формула ? )) (видимо нет ) ))

[Ulex]

Код должен быть сохранён как макрос. Кстати, для того, чтобы он работал, уровень безопасности в екселе для макросов должен быть соответствующий (не самый высокий). Запускаете из экселя редактор Visual Basic (у меня это Alt+F11). В редакторе в Project Explorer_e выбираете книгу PERSONAL.XLS - это так называемая личная книга макросов. Все макросы записанные в этот файл, будут доступны в данном профиле пользователя в любом документе. Если не нужно в любом, то можно в принципе макрос записать и в свою книгу (это всё уже по желанию). Дальше в любом модуле (Module1-2 и т.д) пишите такую вещь:

Public Sub proc1()
'здесь код макроса
End Sub

сохраняете. Вобщем всё. Для удобства запуска можно ему потом кнопки назначить какие-нибудь.

[vedro-compota]

Спасибо , Ulex . )) буду разбираться ))

[Arigato]

Переместил тему.