Конструкція оператора For Each мови VBA

Конструкція оператора With мови VBA.

Після ознайомлення з об’єктами, слід розглянути декілька конструкцій мови VBA, які значно полегшують роботу з об’єктами. Для спрощення розуміння використання оператора With, розглянемо приклад форматування діапазону комірок

Процедура форматування діапазону комірок:

Public Sub Format()

Range("B2:D15").NumberFormat = "#,##0.00"

Range("B2:D15").Font.Name = "MS San Serif"

Range("B2:D15").Font.FontStyle = Regular

Range("B2:D15").Font.Size = 13

Range("B2:D15").Font.Strikethrough = False

Range("B2:D15").Font.Superscript = False

Range("B2:D15").Font.Subscript = True

Range("B2:D15").Font.OutlineFont = True

Range("B2:D15").Font.Shadow = True

Range("B2:D15").Font.Underline = xlUnderlineStyleNone

Range("B2:D15").Font.ColorIndex = xlAutomatic

End Sub

При введені коду процедури ми декілька разів набираємо Range("B2:D15"). Із подібних ситуацій VBA пропонує інший вихід – використання оператора With, який “прив’язує” властивості або методи до об’єкта.

Оператор With має наступний синтаксис:

With об’єкт

Оператори

End With

Лістинг наведений нижче демонструє той же код процедури, але з використанням оператора With, який спочатку “прив’язує” до об’єкта Range("B2:D15") властивість NumberFormat = "#,##0.00", а потім властивість Font через другий оператор With “прив’язується” до об’єкта Range("B2:D15").

Оператори With можна вкладати один в одного (допускається до семи вкладень).

Процедура форматування діапазону комірок із використанням оператора With:

Public Sub Format()

With Range("B2:D15")

. NumberFormat = "#,##0.00"

With. Font

. Name = "MS San Serif"

. FontStyle = Regular

. Size = 13

. Strikethrough = False

. Superscript = False

. Subscript = True

. OutlineFont = True

. Shadow = True

. Underline = xlUnderlineStyleNone

. ColorIndex = xlAutomatic

End With

End With

End Sub

Якщо оператор With використовується для виконання декількох дій для одного об’єкта, то оператор For Each використовується для виконання одного і того ж набору дій для декількох об’єктів. Оператор For Each, як правило, використовувати для перегляду елементів масиву або колекції.

Оператор For Each має наступний формат:

For Each елемент In колекція(масив)

....Next елемент

Елемент – це ідентифікатор змінної-інтерпретатора; колекція – ідентифікатор колекції або масиву.

У коді процедури Колекції переглядаються аркуші активної книги і на екран по черзі виводиться № аркуша та його ім’я.

Приклад використання оператора For Each.

Public Sub Колекції()

Dim Аркуш As Worksheet

Dim Nomer As Integer

Nomer = 0

For Each Аркуш In ActiveWorkbook.Worksheets

Nomer = Nomer + 1

MsgBox ("Ім’я аркуша: ") & Nomer & " " & Аркуш.Name

Next Аркуш

End Sub

Дата добавления: 2014-01-05