Операторы цикла Do-Loop с предусловием
Общий вид алгоритма конструкции аналогичен алгоритму цикла While.
Синтаксис оператора следующий:
Do {While | Until} <логическое выражение>
P1
P2
.
[Exit Do]
.
PN
Loop
где Do (выполнить), While (пока), Until (не раньше), Exit Do (выход из Do), Loop(петля) – зарезервированные слова, P1, P2, PN – операторы.
В данной конструкции требуется указание одного из ключевых слов: либо While, либо Until. При указании слова While – цикл выполняется до тех пор, пока условие истинно; смысл лова Until – цикл выполняется до тех пор, пока условие не станет истинным, то есть пока условие ложно.
Если логическое выражение после служебного слова While имеет значение True, то выполняются операторы P1, P2, PN , после чего проверка логического выражения повторяется. Если логическое выражение имеет значение False, то происходит выход из цикла. Если условие в заголовке цикла не является истинным с самого начала, цикл Do не выполняется ни разу.
Операторы цикла Do-Loop с постусловием
В отличие от конструкции Do … Loop While, в которой проверка условия осуществляется вначале работы конструкции, конструкция Do … Loop While начинается с выполнения тела цикла, и только затем выполняется проверка условия. Поэтому цикл, организованный с помощью этого оператора, в любом случае выполнится хотя бы один раз.
В остальном данная конструкция аналогична конструкции Do While … Loop.
Общий вид алгоритма конструкции следующий:
|
|
|
|
|
|
Да Нет
|
 |
Синтаксис оператора следующий:
Do
P1
P2
.
[Exit Do]
.
PN
Loop {While | Until} <логическое выражение>
Основные свойства и методы объекта Range
Объект Range позволяет сочетать гибкость VBA и мощь рабочего листа Excel. Более 400 встроенных функций рабочего листа существенно упрощают и делают более наглядным программирование на VBA.
Далее приводятся наиболее часто используемые свойства и методы объекта Range.
Перечислим основные свойства объекта Range.
| Value | Возвращает значение из ячейки или в ячейки диапазона. В данном примере переменной х присваивается значение из ячейки С1: х = Range("C1").Value В следующем примере в диапазон А1 : В2 введена 1; Range("A1:B2").Value =1 |
| Name | Возвращает имя диапазона. В данном примере диапазону А1:В2 Присваивается имя Итоги: Range("А1:В2").Name = "Итоги" |
| Count | Возвращает число объектов в наборе. В данном примере переменной х присваивается значение, равное числу строк диапазона А1: В2:; х = Range("A1:B2").Rows.Count |
| CurrentRegion | Возвращает число строк текущего диапазона. Текущим является диапазон, ограниченный пустыми строками и столбцами и содержащий данный элемент. В следующем примере переменной у присваивается значение, равное числу строк в текущем диапазоне, содержащем ячейку А1: у = Range("A1").CurrentRegion.Rows.Count |
| WrapText | Позволяет переносить текст при вводе в диапазон. Допустимые значения True и False. В следующем примере в ячейку В2 вводится текст «Длинный текст» и в этой ячейке устанавливается режим ввода текста с переносом: With Range("B2") .Value = "Длинный текст" .WrapText = True End With |
| SntireColumn, EntireRow | Возвращает столбец и строку соответственно. В данном примере очищается содержимое строки и выделяется столбец с активной ячейкой: ActiveCell.EntireRow.Clear ActiveCell.EntireColumn.Select |
| ColumnWidth, RowHeight | Возвращает ширину столбцов и высоту строк диапазона I соответственно |
| Comment | Возвращает объект comment (примечание), который связан с левым верхним углом диапазона при отображении на экране. Объект comment является элементом семейства Соmments. Метод Addcomment, примененный к диапазону, создает новое примечание. Среди методов объекта Comment отметим только метод Text, который задает текст, выводимый в примечании. Синтаксис: Text(Text, Start, Overwrite) - Text — строка, выводимая в качестве примечания - start — с какого символа вводится текст в уже существующее примечание. Если аргумент опущен, то из примечания удаляется весь ранее введенный текст -Overwrite — допустимые значения: True (вводимый текст записывается поверх уже существующего) и False (вводимый текст вставляется в уже существующий) Среди свойств объекта comment отметим только свойство visible, устанавливающее отображение примечания при активизации диапазона, имеющего определенное примечание. В качестве примера рассмотрим следующие инструкции, которые создают и отображают примечание ячейки В3, поясняющее запланированное событие (рис. 3.1): With Range("B3").AddComment .Text Text:= _ "Чрезвычайно важно!" & Chr(10) &_ "Про это никак нельзя забыть!" .Visible = True End With |
| Font | Возвращает объект Font (шрифт) Объект Font имеет следующие свойства: - Name — строка, указывающая имя шрифта, например "Arial Cyr" - FontStyle — стиль, возможен Regular (обычный), Bold (полужирный), Italic (курсив), Bold italic (полужирный курсив) - size — размер - strikethrough — допустимы два значения: True (буквы имеют линию по центру, как будто они перечеркнуты) и False (не имеют линии по центру) – Superscript — допустимы два значения: True (текст используется как верхний индекс) и False (не используется как верхний индекс) - Subscript — допустимы два значения: True ; (текст используется как нижний индекс) и False (не используется как нижний индекс) - underline — устанавливает тип подчеркивания, допустимыми являются значения: • xlNone (нет подчеркивания); • xlSingle (одинарное, по значению) • xlDouble (двойное, по значению) • xlSingleAccounting (одинарное, по ячейке) • Accounting (двойное, по ячейке) Например, в следующем примере устанавливается для диапазона A1:В2 полужирный шрифт, красного цвета и с высотой символов 14: With Range("Al:B2").Font .Size = 14 .FontStyle = Bold .Colorlndex = 3 End With |
| Formula | Возвращает формулу в формате Al. Например, следующая инструкция вводит в ячейку С2 формулу =$A$4+$A$10 Range("C2").Formula = "=$А$4+$А$10" |
| FormulaArray | Возвращает формулу диапазона в формате Al. В отличие от обыкновенной формулы рабочего листа, формула диапазона вводится на рабочем листе не посредством нажатия на клавишу <Enter>, а с помощью комбинации клавиш <Ctrl>+<Shift>+<Enter>. Следующая инструкция вводит в диапазон E1:E3 формулу {=Sum(Al:A3*Bl:B3)}: Range("El:E3").FormulaArray = "=Sum(Al:A3*Bl:B3)" |
| FormulaHidden | Допустимые значения: True (формула спрятана, если рабочий лист или книга защищены) и False (в противном случае). Например, следующая инструкция скрывает формулы в столбце A: Columns("A").FormulaHidden = True |
| FormulaLocal | Возвращает неанглоязычные (местные) формулы в формате А1. Например, следующая инструкция вводит в Ячейку В2 формулу =СУММ(С1:С4): Range("B2"). FormulaLocal = "=СУММ(С1:С4)" |
| FormulaRlCl | Возвращает формулу в формате R1C1. Например, Range("Bl").FormulaRlCl = "=SQRT(R3C2)" |
| FormulaRlClLocal | Возвращает неанглоязычные формулы в формате R1C1 |
| Text | Возвращает содержание диапазона в текстовом формате |
| HorizontalAlignment | Горизонтальное выравнивание. Допустимые значения: - xlGeneral (обычное выравнивание, зависящее от типа вводимых значений) - xlCenter (выравнивание по центру) - xlRight (выравнивание по правому краю) -xlLeft (выравнивание по левому краю) - xlJustify (выравнивание по ширине) - xlCenterAcrossSelection (выравнивание по центру в выделенном диапазоне) - xlFill (выравнивание по ширине) |
| VerticalAlignitient | Вертикальное выравнивание. Допустимые значения: - xlBottom (выравнивание по нижнему краю), - xlCenter (выравнивание по центру), - xlJustify (выравнивание по высоте), - xlTop (выравнивание по верхнему краю) |
| Orientation | Ориентация. Допускается либо угол поворота текста в градусах от —90° до 90°, либо одно из допустимых значений: - xlDownward (выравнивание по левому краю сверху вниз, соответствует углу —90°) - xlHorizontal (выравнивание по горизонтали, соответствует нулевому углу) - xlUpward (выравнивание по правому краю снизу вверх, соответствует углу 90°) - xlVertical (выравнивание по вертикали, нет соответствия в градусах) |
| ShrinkToFit | Допустимые значения: True (автоматическое изменение шрифта так, чтобы текст помещался в ячейку) и False (в противном случае) |
|
|
|
|
|
|
|
|
|
Ниже приведены наиболее часто используемые методы объекта Range.
Дата добавления: 2018-04-15; просмотров: 548; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!