←предыдущая следующая→
1 2 3
Объекты Microsoft Excel
Объект Application
Объект Application является главным в иерархии объектов Excel и представляет само приложение. Он имеет более 120 свойств и методов, позволяет вызывать более 400 встроенных функций.
Свойства
Свойства Выполняемые действия и допустимые значения
ActiveWorkBook
ActiveSheet
ActiveCell
ActiveChart
ActiveDialog Возвращают активные:
рабочую книгу;
лист;
ячейку;
диаграмму;
окно диалога.
В следующем примере в активном ячейке устанавливается полужирный шрифт и в нее вводится строка текста «Отчет за май»:
With ActiveCell
.Font.Bold = True
.Value == "Отчет за май"
End With
ThisWorkbook Возвращает рабочую книгу, содержащую выполняющийся в данный момент макрос. Это свойство может возвращать рабочую книгу, отличную от возвращаемой свойством Active-Workbook, т. к. выполняемый макрос может находиться в неактивной книге
Caption Возвращает текст в строке имени главного окна Excel. Установка свойства равным Empty возвращает заголовок, используемый по умолчанию.
В следующем примере первая инструкция устанавливает в качестве заголовка окна приложения текст Отчет за 1999 год, а вторая возвращает имя окна, используемое по умолчанию, т. е. Microsoft Excel:
Application.Caption = "Отчет за 1999 год"
Application.Caption = Empty
DisplayFormulaBar Допустимые значения: True (строка формул выводится в окне Excel) и False (строка формул не выводится).
В данном ниже примере установлен режим, при котором строка формул не будет выводиться в окне Excel:
Application.DisplayFormulaBar = False
DisplayScrollBars Допустимые значения: True (полосы прокрутки видны в окне Excel) и False (полосы прокрутки не отображаются). Например:
Application.DisplayScrollBars = False
Height
Width
Left
Right
Top Описание положения и размера окна приложения (в пунктах):
Высота окна.
Ширина окна.
Расстояние слева.
Расстояние справа.
Расстояние сверху
Методы
Методы Выполняемые действия
Run Запуск подпрограммы или макроса
Синтаксис:
Run (Macro, Arg1, …)
Например,
Application.Run Macro:="Отчет"
Quit Закрывает приложение
События
Событие Возникновение
WorkbookActivate При активизации
WorkbookDeactivate Когда активная книга теряет фокус
WorkbookOpen При открытии
WorkbookBeforeClose Перед закрытием
Объект Workbook и семейство Workbooks
Свойства Выполняемые действия и допустимые значения
ActiveSheet
ActiveChart
ActiveDialog Возвращают активные
лист книги
диаграмму;
окно диалога.
Sheets
WorkSheets Возвращает
семейство всех листов книги;
рабочих листов книги.
Методы
Методы Выполняемые действия
Activate Активизирует рабочую книгу так, что ее первый рабочий лист становится активным
Add Создает новую рабочую книгу
Protect
Unprotect Защищает рабочую книгу
Снимает защиту рабочей книги
Open
Close
OpenText Открывает книгу
Закрывает книгу
Открывает текстовый файл
Save
SaveAs Сохраняет книгу
Сохраняет книгу с новым именем
События
Событие Возникновение
SheetActivate При активизации листа
SheetDeactivate Когда лист теряет фокус
Open При открытии книги
BeforeClose При закрытиии рабочей книги
Объект WorkSheet и семейство WorkSheet
Свойства
Свойства Значения
Name Возврвщает имя рабочего листа. Например, присвоить второму листу книги имени «Итоги» можно оператором:
Worksheets(2).Name = "Итоги"
Visible Допустимые значения True ( рабочий лист видим) и False (рабочий лист невидим).
ActiveCell Возвращает активную ячейку активного рабочего листа.
Методы
Метод Выполняемые действия
Activate Активизирует указанный лист. Например,
Worksheets("Итоги").Activate
Add Добавляет рабочий лист. Синтаксис:
Add (Before,After,Count,Type)
Before - лист, переред которым происходит вставка;
After - лист, после которого происходит вставка;
Count - число листов;
Type - тип добавляемого листа (по умолчанию xlWorkSheet - рабочий лист, лист диаграмм - xlChart).
Например, инструкция
ActiveWorkbook.Sheets.Add _ before:=Worksheets("Итоги"), Count:=2
вставляет 2 листа перед листом «Итоги».
Delete Удаляет рабочий лист
Copy
Move Копирование или перемещение листа. Синтаксис:
Copy (Before|After)
Move (Before|After).
Объекты Range и Select
В Excel все объекты имеют свойство Range, которое определяет диапазон семейства объектов. В частности, это свойство используется для задания диапазона ячеек.
Одну и ту же область таблицы – один и тот же объект Range - можно получить разными способами. Например, следующие два оператора задают одну и ту же ячейку:
ActivtSheet.Range(“A2
ActivtSheet.Cells(1,2)
При работе с ячейками рабочего листа имеется возможность использовать относительную или абсолютную адресацию.
Активные ячейки листа в качестве объекта Range возвращает свойство ActiveCell. Применение этого свойства для записи в активную ячейку значения демонстрируется в следующем примере:
Sub SetValue()
Worksheets("Sheet1").Activate
ActiveCell.Value = 35
End Sub
Ниже приведены наиболее часто используемые свойства объекта Range:
Value Возвращает имеющееся в ячейке значение.
Name
Font
Formula
FormulaLocal
Text
Ниже приведены наиболее часто используемые методы объекта Range:
Clear
ClearFormats
ClearContents
Copy
Cut
Delete
Select
Paste
PasteSpecial
Для изменения адреса ячейки может использоваться свойство Offset. Следующая процедура записывает в ячейки A1,… A10 листа «Лист1» значения 1, 2,.. 10.
Sub Заполнение()
Dim i As Integer
Worksheets("Лист1").Activate
Range("A1").Select
For i = 1 To 10
ActiveCell.Value = i
ActiveCell.Offset(1, 0).Activate
Next i
Выбор ячеек, окружающих активную ячейку
Свойство CurrentRegion возвращает диапазон ячеек, ограниченных пустыми строками и столбцами. В следующем примере, выбор расширен, чтобы включить ячейки, примыкающие к активной ячейке, которые содержат данные. Этот диапазон тогда отформатирован стилем Валюты.
Sub Region()
Worksheets("Sheet1").Activate
ActiveCell.CurrentRegion.Select
Selection.Style = "Currency"
End Sub
When you work with Microsoft Excel, you usually select a cell or cells and then perform an action, such as formatting the cells or entering values in them. In Visual Basic, it is usually not necessary to select cells before modifying them.
For example, if you want to enter a formula in cell D6 using Visual Basic, you don't need to select the range D6. You just need to return the Range object and then set the Formula property to the formula you want, as shown in the following example.
Когда Вы работаете с Microsoft Excel, Вы обычно выбираете ячейку или ячейки и затем исполняете действие, типа formatting ячейки или ввод значений в них. В VBA, перед этим обычно не необходимо выбрать ячейки перед изменением их. Например, если Вы хотите ввести формулу в ячейку D6, Вы не должны выбрать диапазон D6. Вы только должны возвратить объект(цель) Диапазона и затем устанавливать свойство Формулы в формулу, которую Вы хотите, как показано в следующем примере.
Sub EnterFormula()
Worksheets("Sheet1").Range("D6").Formula = "=SUM(D2:D5)"
End Sub
Использование метода Выбора и свойства Выбора
Метод Select активизирует листы и объекты на листах; свойство Selection возвращает объект, который возвращает текущий выбор на активном листе в активной книге. Прежде, чем использовать свойство Selection, Вы должны активизировать книгу, активизировать или выбирать лист, и затем выбирать диапазон (или другой объект) использованием метода Select.
Следующая процедура была создана использованием Macro Recorder, и иллюстрирует, как Выбор и Выбор работают вместе.
Sub Macro1()
Sheets("Sheet1").Select
Range("A1").Select
ActiveCell.FormulaR1C1 = "Name"
←предыдущая следующая→
1 2 3