While vba выход из цикла: Do… Loop While. VBA для чайников

Содержание

Операторы цикла. Цикл с предусловием

Похожие презентации:

Программирование на Python

Моя будущая профессия. Программист

Программирование станков с ЧПУ

Язык программирования «Java»

Базы данных и язык SQL

Основы web-технологий. Технологии создания web-сайтов

Методы обработки экспериментальных данных

Программирование на языке Python (§ 62 — § 68)

Микроконтроллеры. Введение в Arduino

Программирование на языке Python (§ 54 — § 61)

2. Операторы цикла

• Цикл — многократное повторение
последовательности действий по
некоторому условию.
• Известны три типа циклических
алгоритмических структур: цикл с предусловием, цикл с постусловием и цикл с
параметром.
• В VBA существуют операторы,
реализующие все три типа циклов.

3. Цикл с предусловием (цикл-пока) —

Цикл с предусловием (циклпока) —
наиболее универсальная циклическая
структура. Он организует выполнение
операторов, составляющих тело цикла,
неизвестное заранее число раз. Реализуется
оператором While. Формат оператора:
Do While <условие>
<тело цикла>
Loop
Здесь Do, While, Loop – зарезервированные
слова;
<условие> – выражение логического типа;
<тело цикла> – операторы VBA.
Алгоритм работы оператора следующий.
Вначале вычисляется значение
выражения <условие>.
Если <условие> имеет значение True,
выполняется <тело цикла>; после чего
вычисление значения
выражения<условие> повторяется.
Если <условие> имеет значение False,
оператор прекращает свою работу.
Таким образом, выход из цикла
осуществляется, если логическое выражение
принимает значение ложь.
Истинность логического выражения
проверяется вначале каждого прохождения
цикла, поэтому тело цикла может не
выполняться ни разу.

5. Цикл с постусловием (цикл-до)

Цикл с постусловием (цикл-до)
позволяет организовать многократное выполнение
операторов, если число повторений заранее
неизвестно.
Цикл с постусловием может быть записан в одном из
следующих видов:
Do Until <условие>
<тело цикла>
Loop
или
Do
<тело цикла>
Loop Until <условие>
Здесь Do, Until, Loop – зарезервированные слова;
<условие> – выражение логического типа;
<тело цикла> – операторы VBA.
Оператор работает по следующему алгоритму.
Вначале выполняется <тело цикла>, после
чего вычисляется значение логического
выражения <условие>.
Если его значение есть False, операторы,
образующие <тело цикла>, повторяются. В
противном случае оператор завершает свою
работу.
То есть выход из цикла осуществляется, если
логическое выражение принимает
значение True (истина).
Поскольку значение логического выражения
вычисляется в конце каждого прохождения
цикла, тело цикла выполнится хотя бы один
раз.

7. Цикл с параметром (цикл со счетчиком, цикл – для

Цикл с параметром (цикл со
счетчиком, цикл – для
служит для организации циклов с заранее известным числом
повторений.
Синтаксис оператора:
For <параметр> = <начальное значение> To <конечное
значение> [Step <шаг>]
<тело цикла>
Next
Здесь For, To, Step, Next – зарезервированные слова VBA;
<параметр> – простая переменная порядкового типа ;
<начальное значение> – выражение того же типа что
и <параметр>, определяющее начальное значение параметра;
<конечное значение> – выражение того же типа, определяющее
конечное значение параметра;
<шаг> – некоторое значение типа <параметр>, задающее, на
сколько изменяется значение параметра при каждом проходе
цикла;
<тело цикла> – операторы VBA.

11. Пример 1

Найти сумму десяти случайных чисел.
Напишем программу, воспользовавшись циклами различных видов.
Dim sum1 As Integer, sum2 As Integer, i As Integer
Randomize
‘решение задачи с помощью цикла с предусловием
i = 10
Do While i > 0
‘цикла выполненяется, пока логическое
условие истинно
sum1 = sum1 + Int((10 * Rnd) + 1)
i=i-1
Loop
MsgBox «Сумма чисел=» & sum1
‘решение задачи с помощью цикла с постусловием
i = 10
Do
‘цикла выполненяется, пока логическое
условие ложно
sum2 = sum2 + Int((10 * Rnd) + 1)
i=i-1
Loop Until i = 0
MsgBox «Сумма чисел=» & sum2
End Sub
Заметим, что особенностью
интерпретатора VBA является то, что
значения переменных числовых типов
перед выполнением процедуры
полагаются равными 0.
Поэтому в программе отсутствуют
команды присваивания вида: sum1 = 0
и sum2=0.

13. Пример 2

‘Найти максимальное из n введенных с
клавиатуры чисел.
Приведем два варианта решения задачи с использованием циклов
разных видов.
Option Explicit
Sub Max_n_while()
Dim n As Byte, k As Single, i As Byte, Max As Single
n = Val(InputBox(«Введите количество чисел»))
i=1
Do While i <= n
k = Val(InputBox(«Введите число», «Ввод чисел»))
If i = 1 Then Max = k
If k > Max Then Max = k
i=i+1
Loop
MsgBox «Наибольшее из чисел » & Max
End Sub
Option Explicit
Sub Max_n_until()
Dim n As Byte, k As Single, i As Byte, Max As
Single
n = Val(InputBox(«Введите количество чисел»))
i=1
Do Until i > n
k = Val(InputBox(«Введите число», «Ввод чисел»))
If i = 1 Then Max = k
If k > Max Then Max = k
i=i+1
Loop
MsgBox «Наибольшее из чисел » & Max
End Sub

15.

2)) * Log(3 + x)
Worksheets(4).Cells(i, 1).Value = x
Worksheets(4).Cells(i, 2).Value = f
Worksheets(4).Cells(i, 3).Value = g
x = x + 0.01
Next i
End Sub
18
19
Пример.4. Элементы последовательности заданы рекурентно по формуле
Ui= Ui-1/2. Составить программу вычисления числа элементов последовательности,
удовлетворяющих указанному неравенству
U>1, если Uo=6, а значение
i изменяется от 1 до 20
• Текст программы:
Public Sub Prg_6()
‘ Число элементов последовательности
Dim u As Single
Dim k As Integer
Dim n As Integer
u=6
k=0
For n = 1 To 20 Step 1
u=u/2
If u > 1 Then
k=k+1
End If
Next n
MsgBox («k=» + Str(k))
End Sub
20
Оператор While (пока)…Wend (конец цикла)
Структура оператора:
While
Условие
Операторы тела цикла
Wend
21
Пример
Count = 0
While Count < Number
Print Count
Count = Count + 1
Wend
22
23
24
25

English    
Русский
Правила

Работа с циклами в VBA:loop, for each, for next

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

Содержание:

  • for цикл
  • Синтаксис
  • Диаграмма потока
  • пример
  • for … loop
  • Синтаксис
  • пример
  • while..wend loop
  • Синтаксис
  • Диаграмма потока
  • пример
  • Цикл do..while
  • Синтаксис
  • Диаграмма потока
  • пример
  • Альтернативный синтаксис
  • пример
  • do..intil loop
  • Синтаксис
  • Диаграмма потока
  • пример
  • Альтернативный синтаксис
  • Диаграмма потока
  • пример
  • Записи управления циклом
  • Контрольное заявление и описание
  • Выход для оператора
  • Синтаксис
  • Диаграмма потока
  • пример
  • Exit Do
  • Синтаксис
  • пример

Языки программирования предоставляют различные структуры управления, которые обеспечивают более сложные пути выполнения.

Оператор цикла позволяет нам выполнять оператор или группу операторов несколько раз. Ниже приведен общий вид оператора цикла в VBA.

VBA предоставляет следующие типы циклов для обработки требований циклирования. Нажмите следующие ссылки, чтобы проверить их детали.

for цикл

Цикл for — это структура управления повторением, которая позволяет разработчику эффективно писать цикл, который необходимо выполнить определенное количество раз.

Синтаксис

Ниже приведен синтаксис цикла for в VBA.

For counter = start To end [Step stepcount]
   [statement 1]
   [statement 2]
   ....
   [statement n]
   [Exit For]
   [statement 11]
   [statement 22]
   ....
   [statement n]
Next

Диаграмма потока

Ниже приведен поток управления в режиме Loop —

  • Первый шаг выполняется. Этот шаг позволяет инициализировать любые переменные управления контурами и увеличивать переменную счетчика шагов.
  • Во-вторых, условие оценивается. Если это правда, выполняется тело цикла. Если оно ложно, тело цикла не выполняется, и поток управления переходит к следующему оператору сразу после цикла For.
  • После выполнения цикла цикла For поток управления переходит к следующему оператору. Этот оператор позволяет вам обновлять любые переменные управления циклом. Он обновляется на основе значения счетчика шагов.
  • Условие теперь оценивается снова. Если это правда, цикл выполняется, и процесс повторяется (тело цикла, затем увеличивают шаг, а затем снова условие). После того, как условие становится ложным, цикл For заканчивается.

пример

Добавьте кнопку и добавьте следующую функцию.

Private Sub Constant_demo_Click()
   Dim a As Integer
   a = 10
   
   For i = 0 To a Step 2
      MsgBox "The value is i is : " & i
   Next
End Sub

Когда приведенный выше код компилируется и выполняется, он производит следующий результат.

The value is i is : 0
The value is i is : 2
The value is i is : 4
The value is i is : 6
The value is i is : 8
The value is i is : 10

Выполняет последовательность операторов несколько раз и сокращает код, управляющий переменной цикла.

for … loop

Для каждого цикла используется для выполнения оператора или группы операторов для каждого элемента в массиве или коллекции.

Для каждого цикла аналогичен For Loop; однако цикл выполняется для каждого элемента в массиве или группе. Следовательно, счетчик шагов не будет существовать в этом типе цикла. Он в основном используется с массивами или используется в контексте объектов файловой системы, чтобы работать рекурсивно.

Синтаксис

Ниже приведен синтаксис цикла For Each в VBA.

For Each element In Group
   [statement 1]
   [statement 2]
   ....
   [statement n]
   [Exit For]
   [statement 11]
   [statement 22]
Next

пример

Private Sub Constant_demo_Click()  
   'fruits is an array
   fruits = Array("apple", "orange", "cherries")
   Dim fruitnames As Variant
 
   'iterating using For each loop.
   For Each Item In fruits
      fruitnames = fruitnames & Item & Chr(10)
   Next
   
   MsgBox fruitnames
End Sub

Когда вышеуказанный код выполняется, он печатает все имена фруктов с одним элементом в каждой строке.

apple
orange
cherries

Это выполняется, если в группе есть хотя бы один элемент и повторяется для каждого элемента в группе.

while..wend loop

В цикле While While … Wend , если условие равно True, все операторы выполняются до тех пор, пока не встретится ключевое слово Wend.

Если условие ложно, цикл завершается, и элемент управления переходит к следующему оператору после ключевого слова Wend .

Синтаксис

Ниже приведен синтаксис цикла While..Wend в VBA.

While condition(s)
   [statements 1]
   [statements 2]
   ...
   [statements n]
Wend

Диаграмма потока

пример

Private Sub Constant_demo_Click()
   Dim Counter :  Counter = 10   
   
   While Counter < 15     ' Test value of Counter.
      Counter = Counter + 1   ' Increment Counter.
      msgbox "The Current Value of the Counter is : " & Counter
   Wend   ' While loop exits if Counter Value becomes 15. 
End Sub

Когда вышеуказанный код выполняется, он выводит следующее в поле сообщения.

The Current Value of the Counter is : 11
The Current Value of the Counter is : 12
The Current Value of the Counter is : 13
The Current Value of the Counter is : 14
The Current Value of the Counter is : 15

Это проверяет условие перед выполнением тела цикла.

Цикл do..while

Do … while цикл используется, когда мы хотим повторить набор операторов, пока условие истинно. Условие может быть проверено в начале цикла или в конце цикла.

Синтаксис

Ниже приведен синтаксис цикла Do … While в VBA.

Do While condition
   [statement 1]
   [statement 2]
   ...
   [statement n]
   [Exit Do]
   [statement 1]
   [statement 2]
   ...
   [statement n]
Loop

Диаграмма потока

пример

В следующем примере используется цикл Do . .. while для проверки состояния в начале цикла. Операторы внутри цикла выполняются, только если условие становится True.

Private Sub Constant_demo_Click()
   Do While i < 5
      i = i + 1
      msgbox "The value of i is : " & i
   Loop
End Sub

Когда выполняется вышеуказанный код, он печатает следующий вывод в окне сообщения.

The value of i is : 1
The value of i is : 2
The value of i is : 3
The value of i is : 4
The value of i is : 5

Альтернативный синтаксис

Существует также альтернативный синтаксис для Do … while loop, который проверяет состояние в конце цикла. Основное различие между этими двумя синтаксисами объясняется в следующем примере.

Do 
   [statement 1]
   [statement 2]
   ...
   [statement n]
   [Exit Do]
   [statement 1]
   [statement 2]
   ...
   [statement n]
Loop While condition

пример

В следующем примере используется цикл Do . .. while для проверки состояния в конце цикла. Заявления внутри цикла выполняются хотя бы один раз, даже если условие False.

Private Sub Constant_demo_Click() 
   i = 10
   Do
      i = i + 1
      MsgBox "The value of i is : " & i
   Loop While i < 3 'Condition is false.Hence loop is executed once.
End Sub

Когда выполняется вышеуказанный код, он печатает следующий вывод в окне сообщения.

The value of i is : 11

Операторы do..While будут выполняться до тех пор, пока условие равно True. (Т. Е.) Петля должна повторяться до тех пор, пока условие не будет False.

do..intil loop

Do … intil цикл не будет использован, когда мы хотим повторить набор операторов, пока условие ложно. Условие может быть проверено в начале цикла или в конце цикла.

Синтаксис

Ниже приведен синтаксис цикла Do..Until в VBA.

Do Until condition
   [statement 1]
   [statement 2]
   ...
   [statement n]
   [Exit Do]
   [statement 1]
   [statement 2]
   . ..
   [statement n]
Loop

Диаграмма потока

пример

В следующем примере используется Do … До цикла, чтобы проверить условие в начале цикла. Операторы внутри цикла выполняются только в том случае, если условие ложно. Он выходит из цикла, когда условие становится истинным.

Private Sub Constant_demo_Click() 
   i = 10
   Do Until i>15  'Condition is False.Hence loop will be executed
      i = i + 1
      msgbox ("The value of i is : " & i)
   Loop 
End Sub

Когда выполняется вышеуказанный код, он печатает следующий вывод в окне сообщения.

The value of i is : 11
The value of i is : 12
The value of i is : 13
The value of i is : 14
The value of i is : 15
The value of i is : 16

Альтернативный синтаксис

Существует также альтернативный синтаксис Do … До цикла, который проверяет условие в конце цикла. Основное различие между этими двумя синтаксисами объясняется следующим примером.

Do 
   [statement 1]
   [statement 2]
   ...
   [statement n]
   [Exit Do]
   [statement 1]
   [statement 2]
   ...
   [statement n]
Loop Until condition

Диаграмма потока

пример

В следующем примере используется Do … До цикла, чтобы проверить условие в конце цикла. Операторы внутри цикла выполняются хотя бы один раз, даже если условие равно True.

Private Sub Constant_demo_Click()  
   i = 10
   Do 
      i = i + 1
      msgbox "The value of i is : " & i
   Loop Until i more15 'Condition is True.Hence loop is executed once.
End Sub

Когда выполняется вышеуказанный код, он печатает следующий вывод в окне сообщения.

The value of i is : 11

Операторы do..Until будут выполняться до тех пор, пока условие False. (Т. Е.) Петля должна повторяться до тех пор, пока условие не будет истинным.

Записи управления циклом

Операторы управления циклом изменяют исполнение из своей обычной последовательности. Когда выполнение выходит из области действия, все остальные операторы цикла не выполняются.

Контрольное заявление и описание

Выход для оператора

Выход for используется , когда мы хотим , чтобы выйти из For Loop на основе определенных критериев. Когда Exit For выполняется, управление переходит к следующему оператору сразу после цикла For Loop.

Синтаксис

Ниже приведен синтаксис Exit For Statement в VBA.

 
 Exit For

Диаграмма потока

пример

В следующем примере используется Exit For . Если значение счетчика достигает 4, цикл For Loop завершается, и управление переходит к следующему утверждению сразу после цикла For Loop.

Private Sub Constant_demo_Click()
   Dim a As Integer
   a = 10
   
   For i = 0 To a Step 2 'i is the counter variable and it is incremented by 2
      MsgBox ("The value is i is : " & i)
      If i = 4 Then
         i = i * 10 'This is executed only if i=4
         MsgBox ("The value is i is : " & i)
         Exit For 'Exited when i=4
      End If
   Next
End Sub

Когда вышеуказанный код выполняется, он печатает следующий вывод в окне сообщений.

The value is i is : 0
The value is i is : 2
The value is i is : 4
The value is i is : 40

Завершает оператор цикла For и передает выполнение в оператор сразу после цикла

Exit Do

Exit Do Заявление используется , когда мы хотим , чтобы выйти из Do Loops на основе определенных критериев. Он может использоваться как в Do Do … While, так и Do … До циклов.

Когда Exit Do выполняется, управление переходит к следующему оператору сразу после Do Loop.

Синтаксис

Ниже приведен синтаксис выражения Exit Do в VBA.

пример

В следующем примере используется Exit Do . Если значение счетчика достигает 10, выходная линия Do завершается, и управление переходит к следующему оператору сразу после цикла For Loop.

Private Sub Constant_demo_Click()
   i = 0
   Do While i <= 100
      If i > 10 Then
         Exit Do   ' Loop Exits if i>10
      End If
      MsgBox ("The Value of i is : " & i)
      i = i + 2
   Loop
End Sub

Когда выполняется вышеуказанный код, он печатает следующий вывод в окне сообщения.

The Value of i is : 0
The Value of i is : 2
The Value of i is : 4
The Value of i is : 6
The Value of i is : 8
The Value of i is : 10

Завершает оператор Do While и передает выполнение в оператор сразу после цикла

 С уважением, авторы сайта Компьютерапия

Понравилась статья? Поделитесь ею с друзьями и напишите отзыв в комментариях!

excel — Вырваться из цикла Wend…

спросил

Изменено
1 год, 3 месяца назад

Просмотрено
445 тысяч раз

Я использую цикл While…Wend в VBA.

 Dim считается целым числом
Пока правда
    количество = количество + 1
    Если количество = 10 Тогда
        ''Каким должен быть оператор, чтобы разорвать цикл While. ..Wend?
        ''Перерыв или выход, когда он не работает
    КонецЕсли
Венд

Я не хочу использовать условие типа `While count<=10...Wend

  • excel
  • vba
  • while-loop

A While / Выход из цикла Wend возможен только досрочно. с GOTO или путем выхода из внешнего блока ( Exit sub / функция или другой выходной цикл)

Изменить на Выполнить цикл вместо этого:

 Выполнить пока True
    количество = количество + 1
    Если количество = 10 Тогда
        Выход Сделать
    Конец, если
Петля

Или для цикла заданное количество раз:

 для количества = от 1 до 10
   количество сообщений
следующий

( Выход Для можно использовать выше для преждевременного выхода)

2

Другим вариантом может быть установка переменной флага как Boolean , а затем изменение этого значения в соответствии с вашими критериями.

 Dim считается целым числом
Тусклый флаг как логическое значение
флаг = Истина
Пока флаг
    количество = количество + 1
    Если количество = 10 Тогда
        «Установите флаг в значение false»
        флаг = ложь
    Конец, если
Венд

Лучше всего использовать предложение And в операторе While 

 Dim считается целым числом
количество = 0
Хотя True And count <= 10
    количество = количество + 1
    Отладка. Печать (количество)
Венд

Как насчет настройки тестовых параметров «Пока» в цикле, чтобы цикл заканчивался на следующей итерации. Например...

 ОС = 0
Пока ОС <> 1000
ОС = ОС + 1
Если ОС = 500 Тогда ОС = 1000
Венд

Хорошо, это совершенно бессмысленный пример, но он показывает принцип...

Зарегистрируйтесь или войдите в систему

Зарегистрируйтесь с помощью Google

Зарегистрироваться через Facebook

Зарегистрируйтесь, используя адрес электронной почты и пароль

Опубликовать как гость

Электронная почта

Требуется, но никогда не отображается

Опубликовать как гость

Электронная почта

Требуется, но не отображается

Нажимая «Опубликовать свой ответ», вы соглашаетесь с нашими условиями обслуживания и подтверждаете, что прочитали и поняли нашу политику конфиденциальности и кодекс поведения.

excel - Выход из цикла while в VBA/VBS

спросил

Изменено
7 лет, 5 месяцев назад

Просмотрено
37 тысяч раз

У меня есть программа Excel VBA, которая перебирает каждую строку данных в таблице данных.

Моя цель — выйти из цикла while после логического значения bFound устанавливается как True .

Я думаю, что мое условие "Или bFound=True" может быть неверным.

 bНайдено = Ложь
Хотя Sheets("Data").Cells(iRow, 1) <> "" или bFound = True
    Если Листы("Данные").Ячейки(iRow, 11) = Листы("Данные2").Ячейки(iRow, 1) Тогда
        бНайдено = Истина
    Конец, если
    iряд = iряд + 1
Венд
'выйти из цикла после логического значения = true
  • VBA
  • Excel
  • VBScript

2

Использовать Выполнить . .. Цикл и Выход Выполнить 

 bFound = False
Делать, пока листы («Данные»). Ячейки (iRow, 1) <> «»
    bFound = Sheets("Data").Cells(iRow, 11) = Sheets("Data2").Cells(iRow, 1)
    Если bFound, то выход Do
    iряд = iряд + 1
Петля

1

Переверните логику, я ожидаю, что это сработает для вас:

 bFound = False
Хотя Sheets("Data").Cells(iRow, 1) <> "" And bFound = False
    Если Листы("Данные").Ячейки(iRow, 11) = Листы("Данные2").Ячейки(iRow, 1) Тогда
        бНайдено = Истина
    Конец, если
    iряд = iряд + 1
Венд

Объяснение:

 Хотя Sheets("Data").Cells(iRow, 1) <> "" And bFound = False

позволит циклу продолжаться только до тех пор, пока у нас все еще есть данные для обработки И мы все еще не изменили bFound , начальное значение которого равно False .

Другой вариант — использовать разрушаемую форму While в VBS:

 Do While Sheets("Data").