Понятия и определения объектно-ориентированного программирования Основные объекты VBA

Каждый объект принадлежит к некоторому классу

Приложения из состава MS Office

Объектная модель

Полная ссылка на объект состоит из ряда имен вложенных объектов
Workbooks(«Архив.xls").Worksheets(«Отчет").Range(«А2")
Если

Каждый объект имеет свойства и методы.
Object.Property
Object – допустимая объектная ссылка VBA
Property

Свойства

Свойства объекта определяют его внешний вид
Свойства объектов можно использовать двумя способами:
1.

Методы

Методы определяют поведение объекта или действие, которое производится с объектом
Например,

Объект Paragraph (абзац) Класс Paragraphs (последовательность абзацев)

Класс объектов Range – позволяет работать с произвольной последовательностью элементов

Например:
Range(“A1:F12”) Диапазон

Объекты S e l e c t I o n

Присутствует во

Свойство Selection возвращает существующий выделенный объект
Selection.Font.Bold=True
А метод Select создает новый
Range

Активные объекты и метод Activate

Активный элемент находится в фокусе клавиатуры (активное

Оператор цикла For Each

Оператор For Each повторяет выполнение группы инструкций

Пример оператора цикла For Each

Dim A as variant
A=Array(23,52,67,41,39,86,77,14)
S=0
For Each B In

Range объекты в Excel

Range объект в Excel это диапазон, состоящий из

Cells – свойство объекта Worksheet

Cells - возвращает все ячейки рабочего листа;

Row - свойство объекта Worksheet возвращает строку, например: Rows(2) Columns -

Свойства и методы Range объектов в Excel

Value x=Range(“f4”).value
Возвращает или устанавливает значение Range(“g4”).value=55
Name - присваивает имя диапазону Range(“d24:k24”).name=“ИТОГИ”
CurrentRegion – возвращает текущий

Columns, Rows – возвращают семейство строк и столбцов из которых состоит

Font - возвращает объект представляющий собой шрифт. Объект Font имеет

МЕТОДЫ:

AutoFit – автоподбор ширины столбца
Clear – очищает диапазон
Offset(n, m) – возвращает

инструкция With…End With

With объект
[Инструкции]
End With
Эта инструкция не является

Sub Пример
Range(“B2:F8”).Select
Selection.Name= «Диапазон»
Selection.Value=101
Selection.Font.Bold=True
Selection.Font.Italic=True
Selection.Font.Underline=xlDouble
End Sub
Range(“B2:F8”).Select
With Section
.Name=«Диапазон»
.Value=101
With .Font

Самостоятельно измените пример, используя инструкцию With…End With

Sub Стороны_света()
Range(“D6”).Activate
ActiveCell.Value= «центр»
ActiveCell.Offset(1,0)= «Юг»
ActiveCell.Offset(0,1)=