Microsoft Excel

doc
14.05.2020

Публикация в СМИ для учителей

Бесплатное участие. Свидетельство СМИ сразу.
Мгновенные 10 документов в портфолио.

Добавить материал

27. Microsoft Excel.doc

Цикл For Each…Next

У цикла For Each…Next нет счетчика как в цикле For…Next. Цикл выполняется фиксированное кол-во раз, соответствующее количеству элементов в массиве.

Цикл For Each…Next имеет следующий синтаксис:

For Each x In Array

//операторы//

Next [x]

x – это переменная, которая перебирает все элементы в группе или массиве (в нашем случае это Array)

Array – это массив или коллекция

Пример №1:
В нижеуказанном примере элемент x объявляется как Лист (Worksheet) и с помощью цикла по всем листам данной книги (ThisWorkbook.Worksheets), в ячейке А1 проставляется имя соответствующего листа.

view plainprint?

1. Sub example1 ()

2. Dim x As Worksheet

3. For Each x In ThisWorkbook.Worksheets

4. x.Range("A1").Value = x.Name

5. Next x

6. End Sub

Пример №2:
В следующем примере x объявляется как ячейка/диапазон (Range) и с помощью цикла и простого оператора ветвления If..Then..Else перебираются все заполненные ячейки на активном листе, и если ячейка со значением «1» найдена – она заливается красным цветом.

view plainprint?

1. Sub example2 ()

2. Dim x As Range

3. For Each x In ActiveSheet.UsedRange.Cells

4. If x.Value = 1 Then

5. x.Interior.ColorIndex = 3

6. End If

7. Next x

8. End Sub

Пример№3:
В данном примере x объявляется как Лист (Worksheet) и с помощью цикла все листы данной книги (ThisWorkbook.Worksheets) переименовываются на Sheet плюс случайное число.

view plainprint?

1. Sub example3 ()

2. Dim x As Worksheet

3. For Each x In ThisWorkbook.Worksheets

4. x.Name = "Sheet" & Round(Rnd * 1000)

5. Next x

6. End Sub

Скачано с www.znanio.ru

Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.

Посмотрите также