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

        тора, например, условие Is <= 19 считается выполненным, если прове-
        ряемое значение не больше 19.
     Если хотя бы один из элементов списка соответствует проверяемому вы-
ражению, выполняется соответствующая группа операторов, и на этом выпол-
нение оператора Select Case заканчивается, а остальные элементы списка вы-
ражений не проверяются, то есть отыскивается только первый подходящий
элемент списка выражений.
Пример:
В ячейку А17 вводится какая-либо цифра. В ячейку А18 посылается соответствующее этой
цифре числительное. Если n не попадает в диапазон от 1 до 9, то ячейка А18 будет пустой.
Переменная k имеет тип Variant.
      k = Worksheets("Первый").Range("a17")
      Select Case k
      Case 1
        Worksheets("Первый").Range("a18") = "один"
      Case 2
        Worksheets("Первый").Range("a18") = "два"
      Case 3
        Worksheets("Первый").Range("a18") = "три"
      Case 4
        Worksheets("Первый").Range("a18") = "четыре"
      Case 5
        Worksheets("Первый").Range("a18") = "пять"
      Case 6
        Worksheets("Первый").Range("a18") = "шесть"
      Case 7
        Worksheets("Первый").Range("a18") = "семь"
      Case 8
        Worksheets("Первый").Range("a18") = "восемь"
      Case 9
        Worksheets("Первый").Range("a18") = "девять"
      Case Else
        Worksheets("Первый").Range("a18") = ""
      End Select
1.10.2. Циклы
      Операторы цикла в языке программирования позволяют описывать мно-
гократное выполнение одного оператора или группы операторов.
      Операторы цикла в VBA можно разделить на три группы:
       q циклы с условием (Do … Loop);
       q циклы со счетчиком (For … Next);
       q циклы по структуре данных (For Each … Next).
      Циклы типа Do … Loop используются, когда заранее неизвестно, сколько
раз должно быть повторено выполнение блока операторов.
      Такой цикл продолжает свою работу до тех пор, пока не будет выполнено
определенное условие. Существуют четыре вида циклов Do … Loop , которые




                                              23