Во все ячейки диапазона E3 - S4 записать 12

Во все ячейки диапазона A1 - C3 записать единицу

Записать в ячейку D7 число 1000.

Exit Do Блок кода Loop Until Условие

Условие False в конце. Do Блок кода

Loop

Блок кода Exit Do Блок кода

Условие False в начале Do Until Условие

Exit Do Блок кода Loop While Условие

Блок кода

Loop условие True в конце, Do

Блок кода Exit Do Блок кода

Условие True в начале, Do While Условие

Зарезервированные слова While и Until определяются логику условия.

While указывает, что цикл будет выполняться до тех пор, пока Условие принимает значение True.

Until указывает, что цикл будет выполняться до тех пор, пока Условие принимает значение False.

Оператор Exit Do предназначен для преждевременного прекращения цикла. Обычно ему предшествует оператор логического сравнения, например, для выявления недопустимых значений.

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

ПРИМЕР: Определить условие выхода из ЛПЦ

C=120

Do Loop Until c<100

C=C-1

Loop

Правильный ответ C = 99

Доступ к ячейкам рабочих листов.

Для записи и получения данных из ячеек таблиц могут быть использованы три метода - Range, Cells и Offset.

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

Метод Range позволяет обращаться как к отдельной ячейке, так и к диапазонам ячеек.

ПРИМЕР: ActiveWorkSheet.Range("D7").Value = 1000

ActiveWorkSheet.Range("A1","C3").Value = 1

WorkSheets("Февраль").Range("E3:S4").Value = 12

WorkSheets("Февраль").Range("E15:S17, D25:D28",).Value = 0.075

В указанные ячейки двух несмежных диапазонов записать значение 0.075.

Union(WorkSheets("Январь").Range("A100"), _

WorkSheets("Февраль").Range("A10:I7")).Value = 11.11

В указанные ячейки двух листов рабочей книги записать значение 11.11.

Следует, однако, различать метод Range и объект Range. Так как метод Range, примененный к объекту Range, задает смещение, и ссылка на адрес ячейки становится относительной.

ПРИМЕР: ActiveWorkSheet.Range("A2").Range("C2")

В этом случае к адресу ячейки A2 следует добавить смещение - два столбца вправо и одна строка вниз. Результирующий адрес ячейки будет С3.

Метод Cells использует значения двух аргументов и возвращает объект Range, указывающий на адрес определенной ячейки. Первый аргумент задает номер строки, второй - номер столбца.

ПРИМЕР: WorkSheets("Январь").Сells(1,2). Value = 15

В ячейку B1 записать число 15.

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

WorkSheets("Январь").Сells(1,"B"). Value = 15

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

ПРИМЕР:

For I=1 to 17

For J = 2 to 4

ActiveWorkSheet.Cells(i, j).Value = i*j

Дата добавления: 2014-12-29