Поделиться
36. Microsoft Excel.doc
Цикл Do...Loop
|
Этот цикл будет выполняться вечно, а точнее Do…Loop используется для выполнения большого количества однообразных действий. Также у этого цикла имеется возможность досрочного завершения – Exit Do. Синтаксис: Do //инструкции// [Exit Do] – необязательный аргумент //инструкции// Loop Инструкции - действия, выполнение которых повторяется бесконечно. Пример №1: В нижеуказанном примере, во втором столбце проставляется значение ИСТИНА, до того момента пока в следующей (нижней) ячейке пусто. Цикл завершается если следующая (нижняя) ячейка не пустая (If Not IsEmpty(Cells(i, 2).Offset(1, 0).Value) Then Exit Do). view plainprint? 1. Sub example1() 2. Dim i As Long 3. Do 4. i = i + 1 5. Cells(i, 2).Value = True 6. If Not IsEmpty(Cells(i, 2).Offset(1, 0).Value) Then Exit Do 7. Loop 8. End Sub Пример №2: В данном примере, в выделенном диапазоне (Selection.Cells) с помощью двух циклов генерируются случайные числа, до тех пор, пока в диапазоне не появятся повторяющиеся значения (If Application.WorksheetFunction.CountIf(Selection.Cells, Rng.Value) > 1 Then Exit Do). view plainprint? 1. Sub example2 () 2. Dim Rng As Range 3. Do 4. For Each Rng In Selection.Cells 5. If Application.WorksheetFunction.CountIf(Selection.Cells, Rng.Value) > 1 Then Exit Do 6. Rng.Value = Round(Rnd(1) * 1000) 7. Next 8. Loop 9. End Sub |
Скачано с www.znanio.ru
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.
