Методы автоматизации при работе в MS Excel. Синявская Г.А. - 25 стр.

UptoLike

ВУЗ: 

ДВФУ | Владивосток

Составители: 

Рубрика: 

25
[Step <приращение>]
<блокОператоров>
Next [<счетчик>]
Необязательный параметр <приращение> определяет шаг цикла. Он мо-
жет быть как положительным, так и отрицательным числом. Если использовать
отрицательное приращение, то конечное значение должно быть меньше либо
равно начальному значению, чтобы тело цикла выполнилось хотя бы один раз.
После завершения цикла For … Next переменная, которая использовалась
в качестве счетчика, получает значение, обязательно превосходящее конечное
значение, если приращение положительно, и строго меньше конечного значе-
ния, если приращение отрицательно.
При совпадении начального и конечного значений тело цикла выполняет-
ся лишь один раз.
Пример:
В ячейки В1:В10 вводятся числа от 1 до 10 с помощью оператора цикла:
For n = 1 To 10
Worksheets("Первый").Range("b" & n) = n
Next n
В VBA при обработке объектов, составляющих массив или семей -
ство однородных объектов, часто используется другая разновидность цикла:
For Each <элемент> In <семейство>
<блокОператоров>
Next [<элемент>],
где <элемент> – переменная, используемая для ссылки на элементы семейства
объектов; <семейство> – имя массива или семейства.
Пример:
Требуется проверить диапазон ячеек Е1:Е5 на присутствие там слова «Нет» и заменить это
слово на «Да». Если в ячейке другая информация, то написать слово «Нет».
Dim objCells As Object
For Each objCells In Worksheets("Первый").Range("e1:e5")
If objCells = "Нет" Then
objCells = "Да"
Else
objCells = "Нет"
End If
Next objCells
При первом запуске этой процедуры все ячейки, содержащие слово «Нет», заменятся на сло-
во «Да», а ячейки, содержащие любую другую информацию, заменятся на «Нет». При после-
дующих запусках этой процедуры слова будут заменяться на противоположные. 
         [Step <приращение>]

         <блокОператоров>

      Next [<счетчик>]
      Необязательный параметр <приращение> определяет шаг цикла. Он мо-
жет быть как положительным, так и отрицательным числом. Если использовать
отрицательное приращение, то конечное значение должно быть меньше либо
равно начальному значению, чтобы тело цикла выполнилось хотя бы один раз.
      После завершения цикла For … Next переменная, которая использовалась
в качестве счетчика, получает значение, обязательно превосходящее конечное
значение, если приращение положительно, и строго меньше конечного значе-
ния, если приращение отрицательно.
      При совпадении начального и конечного значений тело цикла выполняет-
ся лишь один раз.

Пример:
В ячейки В1:В10 вводятся числа от 1 до 10 с помощью оператора цикла:
      For n = 1 To 10
       Worksheets("Первый").Range("b" & n) = n
      Next n

     В VBA при обработке объектов, составляющих массив       или семей -
ство однородных объектов, часто используется другая разновидность цикла:
      For Each <элемент> In <семейство>

      <блокОператоров>

      Next [<элемент>],
где <элемент> – переменная, используемая для ссылки на элементы семейства
объектов; <семейство> – имя массива или семейства.

Пример:
Требуется проверить диапазон ячеек Е1:Е5 на присутствие там слова «Нет» и заменить это
слово на «Да». Если в ячейке другая информация, то написать слово «Нет».
       Dim objCells As Object
       For Each objCells In Worksheets("Первый").Range("e1:e5")
              If objCells = "Нет" Then
                     objCells = "Да"
              Else
                     objCells = "Нет"
              End If
       Next objCells
При первом запуске этой процедуры все ячейки, содержащие слово «Нет», заменятся на сло-
во «Да», а ячейки, содержащие любую другую информацию, заменятся на «Нет». При после-
дующих запусках этой процедуры слова будут заменяться на противоположные.




                                              25

Страницы