Методы объекта Range

Объект Range имеет много методов, среди которых следующие.

• Activate (Активизировать) - активизирует (выделяет) диапазон.
• Clear (Очистить) - очищает содержимое диапазона.
• Сору (Копировать) - копирует содержимое диапазона в буфер обмена.
• Cut (Вырезать) - перемещает содержимое диапазона в буфер обмена.
• PasteSpecial (Специальная вставка) - вставляет содержимое буфера обмена в диапазон, используя при этом различные аргументы.
• Select (Выделить) - выделяет диапазон.

Использование оператора With

Теперь, когда вы знакомы с объектами Excel, пришло время изучить несколько конструкций языка VBA, значительно облегчающих работу с объектами. Одна из задач, которую часто придется решать с помощью VBA, - задание различных параметров форматирования объекта. В листинге 10.2 показан пример форматирования диапазона ячеек.

Листинг 10.2. Пример форматирования диапазона

1: Range("A1:A6").NumberFormat = "#,##0.00"

2: Range("A1:A6").Font.Name = "Courier New"

3: Range("A1:A6").Font.FontStyle = "Regular"

4: Range("A1:A6").Font.Size = 11

5: Range("A1:A6").Font.Strikethrough = False

6: Range("A1:A6").Font.Superscript = False

7: Range("A1:A6").Font.Subscript = False

8: Range ("A1:A6").Font.OutlineFont = False

9: Range("A1:A6").Font.Shadow = False

10: Range("A1:A6").Font.Underline = xlUnderlineStyleNone

11: Range("A1:A6").Font.ColorIndex = xlAutomatic

Чтобы ввести код этого листинга, вам надо снова и снова набирать Range("А1:А6"). Конечно, можно использовать переменную-объект для ссылки на объект Range("A1:A6"), но в этом случае вам столько же раз придется вводить имя переменной. Из подобных ситуаций VBA предлагает другой выход - оператор With, который применяется тогда, когда необходимо задать много свойств или выполнить большое количество методов одного объекта. Листинг 10.3 показывает тот же код листинга 10.2, но с использованием оператора With.

Листинг 10.3. Пример использования оператора With

1: With Range("A1:A6")

2: .NumberFormat = "#,##0.00"

3: With.Font

4: .Name = "Courier New"

5: .FontStyle = "Regular"

6: .Size = 11

7: .Strikethrough = False

8: .SuperScript = False

9: .SubScript = False

10: .OutlineFont = False

11: .Shadow = False

12: .Underline = xlUnderlineStyleNone

13: .Font.ColorIndex = xlAutomatic

14: End With

15: End With

Оператор With имеет следующий синтаксис:

With объект

[операторы]

End With

Объект - это тот объект, чьи свойства и методы указаны в секции операторы. Каждая строка в этой секции начинается с точки, как показано в листинге 10.3. Операторы With можно вкладывать друг в друга. В нашем листинге оператор With объекта Font вложен в оператор With объекта Range. В листинге 10.4 приведен другой пример использования оператора with.