Объекты рабочей книги excel

Термин Объекты Excel (понимаемый в широком смысле, как объектная модель Excel) включает в себя элементы, из которых состоит любая рабочая книга Excel. Это, например, рабочие листы (Worksheets), строки (Rows), столбцы (Columns), диапазоны ячеек (Ranges) и сама рабочая книга Excel (Workbook) в том числе. Каждый объект Excel имеет набор свойств, которые являются его неотъемлемой частью.

Например, объект Worksheet (рабочий лист) имеет свойства Name (имя), Protection (защита), Visible (видимость), Scroll Area (область прокрутки) и так далее. Таким образом, если в процессе выполнения макроса требуется скрыть рабочий лист, то достаточно изменить свойство Visible этого листа.

В Excel VBA существует особый тип объектов – коллекция. Как можно догадаться из названия, коллекция ссылается на группу (или коллекцию) объектов Excel. Например, коллекция Rows – это объект, содержащий все строки рабочего листа.

Доступ ко всем основным объектам Excel может быть осуществлён (прямо или косвенно) через объект Workbooks, который является коллекцией всех открытых в данный момент рабочих книг. Каждая рабочая книга содержит объект Sheets – коллекция, которая включает в себя все рабочие листы и листы с диаграммами рабочей книги. Каждый объект Worksheet состоит из коллекции Rows – в неё входят все строки рабочего листа, и коллекции Columns – все столбцы рабочего листа, и так далее.

В следующей таблице перечислены некоторые наиболее часто используемые объекты Excel. Полный перечень объектов Excel VBA можно найти на сайте Microsoft Office Developer (на английском).

Приведённая выше таблица показывает, как выполняется доступ к объектам Excel через родительские объекты. Например, ссылку на диапазон ячеек можно записать вот так:

Workbooks("Книга1").Worksheets("Лист1").Range("A1:B10")

Присваивание объекта переменной

В Excel VBA объект может быть присвоен переменной при помощи ключевого слова Set:

Dim DataWb As Workbook
Set DataWb = Workbooks("Книга1.xlsx")

Активный объект

В любой момент времени в Excel есть активный объект Workbook – это рабочая книга, открытая в этот момент. Точно так же существует активный объект Worksheet, активный объект Range и так далее.

Сослаться на активный объект Workbook или Sheet в коде VBA можно как на ActiveWorkbook или ActiveSheet, а на активный объект Range – как на Selection.

Если в коде VBA записана ссылка на рабочий лист, без указания к какой именно рабочей книге он относится, то Excel по умолчанию обращается к активной рабочей книге. Точно так же, если сослаться на диапазон, не указывая определённую рабочую книгу или лист, то Excel по умолчанию обратится к активному рабочему листу в активной рабочей книге.

Таким образом, чтобы сослаться на диапазон A1:B10 на активном рабочем листе активной книги, можно записать просто:

Смена активного объекта

Если в процессе выполнения программы требуется сделать активной другую рабочую книгу, другой рабочий лист, диапазон и так далее, то для этого нужно использовать методы Activate или Select вот таким образом:

Sub ActivateAndSelect()

   Workbooks("Книга2").Activate
   Worksheets("Лист2").Select
   Worksheets("Лист2").Range("A1:B10").Select
   Worksheets("Лист2").Range("A5").Activate

End Sub

Методы объектов, в том числе использованные только что методы Activate или Select, далее будут рассмотрены более подробно.

Свойства объектов

Каждый объект VBA имеет заданные для него свойства. Например, объект Workbook имеет свойства Name (имя), RevisionNumber (количество сохранений), Sheets (листы) и множество других. Чтобы получить доступ к свойствам объекта, нужно записать имя объекта, затем точку и далее имя свойства. Например, имя активной рабочей книги может быть доступно вот так: ActiveWorkbook.Name. Таким образом, чтобы присвоить переменной wbName имя активной рабочей книги, можно использовать вот такой код:

Dim wbName As String
wbName = ActiveWorkbook.Name

Ранее мы показали, как объект Workbook может быть использован для доступа к объекту Worksheet при помощи такой команды:

Workbooks("Книга1").Worksheets("Лист1")

Это возможно потому, что коллекция Worksheets является свойством объекта Workbook.

Некоторые свойства объекта доступны только для чтения, то есть их значения пользователь изменять не может. В то же время существуют свойства, которым можно присваивать различные значения. Например, чтобы изменить название активного листа на «Мой рабочий лист«, достаточно присвоить это имя свойству Name активного листа, вот так:

ActiveSheet.Name = "Мой рабочий лист"

Методы объектов

Объекты VBA имеют методы для выполнения определённых действий. Методы объекта – это процедуры, привязанные к объектам определённого типа. Например, объект Workbook имеет методы Activate, Close, Save и ещё множество других.

Для того, чтобы вызвать метод объекта, нужно записать имя объекта, точку и имя метода. Например, чтобы сохранить активную рабочую книгу, можно использовать вот такую строку кода:

Как и другие процедуры, методы могут иметь аргументы, которые передаются методу при его вызове. Например, метод Close объекта Workbook имеет три необязательных аргумента, которые определяют, должна ли быть сохранена рабочая книга перед закрытием и тому подобное.

Чтобы передать методу аргументы, необходимо записать после вызова метода значения этих аргументов через запятую. Например, если нужно сохранить активную рабочую книгу как файл .csv с именем «Книга2», то нужно вызвать метод SaveAs объекта Workbook и передать аргументу Filename значение Книга2, а аргументу FileFormat – значение xlCSV:

ActiveWorkbook.SaveAs "Книга2", xlCSV

Чтобы сделать код более читаемым, при вызове метода можно использовать именованные аргументы. В этом случае сначала записывают имя аргумента, затем оператор присваивания «:=» и после него указывают значение. Таким образом, приведённый выше пример вызова метода SaveAs объекта Workbook можно записать по-другому:

ActiveWorkbook.SaveAs Filename:="Книга2", [FileFormat]:=xlCSV

В окне Object Browser редактора Visual Basic показан список всех доступных объектов, их свойств и методов. Чтобы открыть этот список, запустите редактор Visual Basic и нажмите F2.

Рассмотрим несколько примеров

Пример 1

Этот отрывок кода VBA может служить иллюстрацией использования цикла For Each. В данном случае мы обратимся к нему, чтобы продемонстрировать ссылки на объект Worksheets (который по умолчанию берётся из активной рабочей книги) и ссылки на каждый объект Worksheet отдельно. Обратите внимание, что для вывода на экран имени каждого рабочего листа использовано свойство Name объекта Worksheet.

'Пролистываем поочерёдно все рабочие листы активной рабочей книги
'и выводим окно сообщения с именем каждого рабочего листа

Dim wSheet As Worksheet

For Each wSheet in Worksheets
   MsgBox "Найден рабочий лист: " & wSheet.Name
Next wSheet

Пример 2

В этом примере кода VBA показано, как можно получать доступ к рабочим листам и диапазонам ячеек из других рабочих книг. Кроме этого, Вы убедитесь, что если не указана ссылка на какой-то определённый объект, то по умолчанию используются активные объекты Excel. Данный пример демонстрирует использование ключевого слова Set для присваивания объекта переменной.

В коде, приведённом ниже, для объекта Range вызывается метод PasteSpecial. Этот метод передаёт аргументу Paste значение xlPasteValues.

'Копируем диапазон ячеек из листа "Лист1" другой рабочей книги (с именем Data.xlsx)
'и вставляем только значения на лист "Результаты" текущей рабочей книги (с именем CurrWb.xlsm)

Dim dataWb As Workbook

Set dataWb = Workbooks.Open("C:Data")

'Обратите внимание, что DataWb – это активная рабочая книга.
'Следовательно, следующее действие выполняется с объектом Sheets в DataWb.

Sheets("Лист1").Range("A1:B10").Copy

'Вставляем значения, скопированные из диапазона ячеек, на рабочий лист "Результаты"
'текущей рабочей книги. Обратите внимание, что рабочая книга CurrWb.xlsm не является
'активной, поэтому должна быть указана в ссылке.

Workbooks("CurrWb").Sheets("Результаты").Range("A1").PasteSpecial Paste:=xlPasteValues

Пример 3

Следующий отрывок кода VBA показывает пример объекта (коллекции) Columns и демонстрирует, как доступ к нему осуществляется из объекта Worksheet. Кроме этого, Вы увидите, что, ссылаясь на ячейку или диапазон ячеек на активном рабочем листе, можно не указывать этот лист в ссылке. Вновь встречаем ключевое слово Set, при помощи которого объект Range присваивается переменной Col.

Данный код VBA показывает также пример доступа к свойству Value объекта Range и изменение его значения.

'С помощью цикла просматриваем значения в столбце A на листе "Лист2",
'выполняем с каждым из них арифметические операции и записываем результат
'в столбец A активного рабочего листа (Лист1)

Dim i As Integer
Dim Col As Range
Dim dVal As Double

'Присваиваем переменной Col столбец A рабочего листа "Лист2"

Set Col = Sheets("Лист2").Columns("A")
i = 1

'Просматриваем последовательно все ячейки столбца Col до тех пор
'пока не встретится пустая ячейка

Do Until IsEmpty(Col.Cells(i))

   'Выполняем арифметические операции со значением текущей ячейки

   dVal = Col.Cells(i).Value * 3 - 1

   'Следующая команда записывает результат в столбец A
   'активного листа. Нет необходимости указывать в ссылке имя листа,
   'так как это активный лист рабочей книги.

   Cells(i, 1).Value = dVal
   i = i + 1

Loop

Интерфейс Excel включает окно приложения и окно документа. В этих окнах размещаются различные элементы управления, с помощью которых пользователь выполняет определенные действия или контролирует процесс их выполнения.

Создаваемые в Excel файлы называются рабочими книгами. Рабочая книга может включать несколько листов (до 255). Листы могут быть следующих типов:

Рабочий лист (WorkSheet) – основной тип листа, характерный для электронной таблицы. На этом листе можно создавать табличные документы и выполнять различные расчеты, строить диаграммы, помещать различные объекты.

Лист диаграмм (ChartSheet) – на этом листе с помощью мастера диаграмм (ChartWisard) можно создавать диаграммы.

В Excel – 97 и более поздние версии встроен редактор VBA, позволяющий пользователям самим создавать диалоговые окна, программы и макросы, а также управлять уже созданными листами.

2.1. Понятие объекта, свойства, методы и события

Приложение Excel создано на принципе объектно-ориентированного подхода, поэтому само приложение, Рабочая книга, Рабочий лист и Лист диаграмм, также как и большинство элементов Excel являются объектами и имеют иерархическую подчиненность. Главным объектом, стоящим на верхнем уровне иерархии, является само приложение Excel (Application), рабочие книги (WorkBooks) – подчиненные приложению объекты. В свою очередь рабочие листы (WorkSheets) и листы диаграмм (СhartSheets) являются дочерними объектами рабочей книги.

Объекты имеют свойства и методы. Они также могут реагировать на какиелибо события. Свойства – это характеристики, которые могут принимать различные значения, определяя текущее состояние объекта. Например, размер окна или его положение на экране, имя рабочей книги являются свойствами, значения которых могут быть изменены пользователем. Методы – это функции, которые может выполнять объект, реагируя на какие-либо события. События могут происходить в результате каких-либо действий пользователя или действий операционной системы. Событиями, вызываемыми пользователем, являются, например, такие, как щелчок мышью (Click), двойной щелчок мышью (DoubleClick), нажатие клавиши и другие. События, вызываемые операционной системой, возникают, например, при создании рабочей книги, при ее закрытии, при создании нового рабочего листа и в других случаях.

Различные объекты на одни и те же события реагируют по-разному. Например, при двойном щелчке в строке заголовка окна оно может изменить размер. Щелчок правой кнопки мыши на каком-либо объекте раскрывает контекстное меню, с помощью которого можно поменять отдельные свойства объекта, например, начертание и размер шрифта или применить какой-нибудь метод.

Пример I.1. Обработка событий объектами интерфейса

Щелкните правой клавишей мыши в области рабочего листа, в раскрывшемся контекстном меню просмотрите список команд.

Щелкните правой клавишей мыши в области панелей инструментов. Просмотрите список команд, объясните, в чем состоит отличие от предыдущего списка команд и почему.

Лабораторная работа №6

Работа
с объектами Excel на уровне приложения, рабочей
книги и листа.

1.     
Цель работы:

1.1.       изучение особенностей использования VBA в Excel.

1.2.       Изучение возможностей VBA при
непосредственных расчетах в Excel.

2.     
Приборы и оборудование:

2.1.       Методические указания.

2.2.       ПЭВМ типа IBM PC/XT.

2.3.       MS
Excel.

2.4.       Visual Basic for Application.

3.     
Порядок выполнения работы:

3.1.       Изучить основные теоретические сведения (Приложение
А).

3.2.       Задание 1. Разработать программу, которая по
введенным числовым значениям некоторого уравнения решает данное уравнение и
находит неизвестную переменную х. Результат вычисления выводится в текстовое
окно на форме и на лист Excel.

3.2.1.  Запустите
приложение Excel, сохраните документ. Перейдите в редактор VBA. Создайте форму
согласно приведенному рисунку 1.

Рисунок 1
– Разработанная форма в рабочем состоянии.

3.2.2.  На
листе Excel расположите необходимый текст (оформление), предусмотрев соответствующие
ячейки вывода информации (см. рисунок 2).

Рисунок 2
– Вывод результатов на лист Excel после запуска формы.

3.2.3.  Обработайте кнопки.

Кнопка Вычислить

Private Sub CommandButton1_Click()

Dim a, b, c As Double

a = CDbl(TextBox1.Text)

b = CDbl(TextBox2.Text)

c = CDbl(TextBox3.Text)

With ActiveSheet

Range(«b3»).Value = a

Range(«b4»).Value = b

Range(«b5»).Value = c

Range(«b6»).FormulaLocal = «=b3*b7^3+b4*sin(b7)»

Range(«b6»).GoalSeek Goal:=c,
changingCell:=Range(«b7»)

TextBox4.Text = CStr(.Range(«b7»).Value)

TextBox4.Text = FormatNumber(TextBox4.Text, 2)

End With

End Sub

Кнопка Закрыть

Private Sub CommandButton2_Click()

UserForm1.Hide

End
Sub

3.2.4.  Откомпилируйте
программу и запустите на выполнение.

3.2.5.  В
соответствии с номером ПК, создайте свою программу, исходя из задания (см. Приложение Б). Создайте кнопку или панель в Вашем проекте для
непосредственного вызова приложения.

3.3.       Задание 2. Создать программу, которая по
введенным текстовым данным в соответствующие текстовые поля формы
автоматизирует ввод данных на студентов некоторой специальности учебного
заведения. Результаты заполнения текстовых полей выводятся на лист Excel, что позволяет при необходимости распечатать данные.

3.3.1.  Запустите
приложение Excel, сохраните документ. Перейдите в редактор VBA. Создайте форму
согласно приведенному рисунку 3.

Рисунок 3 – Разработанная форма в режиме конструктора.

3.3.2.  На
листе Excel расположите необходимый текст (оформление), предусмотрев соответствующие
ячейки вывода информации (см. рисунок 4).

Рисунок 4
– Пример организации данных на лист Excel.

3.3.3.  Обработайте
кнопки.

Кнопка Создать таблицу

Const strNomer = 3 ‘количество строк
для заголовка

Dim strName1 As String ‘строка для адресации
ячеек

Dim strName2 As String

Dim nomer As Long ‘номер очередной строки таблицы

Private Sub CommandButton1_Click()

ActiveWorkbook.SaveAs («работа с базой данных.
xls»)

nomer = 1 End Sub

Кнопка Добавить строку

Private Sub CommandButton2_Click()

strName1 = Trim(Str(strNomer + nomer))

With ActiveSheet ‘ввод данных для новой отчетной таблицы

Range(«A» + strName1).Value = nomer

Range(«B» + strName1).Value = TextBox1.Text

Range(«C» + strName1).Value = TextBox2.Text

Range(«D» + strName1).Value = TextBox3.Text

‘автозаполнение с текущей строки таблицы

strName2 = Trim(Str(strNomer + nomer + 1))

Set range1 =.Range(«A» + strName1
+»:D» + strName1)

Set range2 =.Range(«A» + strName1
+»:D» + strName2)

range1.AutoFill Destination:=range2

Range(«A» + strName2 +»:D» +
strName2).Clear

End With

‘очистка полей формы для ввода очередной
записи

TextBox1.Text = «»

TextBox2.Text = «»

TextBox3.Text = «»

TextBox1.SetFocus

nomer = nomer + 1

End Sub

Кнопка Закончить таблицу

Private Sub CommandButton3_Click() ‘закрытие формы подведение итогов
и вывод фамилии преподавателя

UserForm1.Hide

With ActiveSheet

strName2 = Trim(Str(strNomer + nomer + 2))

Range(«A» + strName2).Value = «Куратор»

Range(«D» + strName2).Value = TextBox4.Text

End With

End
Sub

3.3.4.  Откомпилируйте
программу и запустите на выполнение.

3.4.       Задание 3. Создать программу, которая по
введенным данным в соответствующие поля формы автоматизирует ввод данных на
студентов некоторой специальности учебного заведения. Результаты заполнения
полей выводятся на лист Excel, что позволяет при необходимости
распечатать данные (см. рисунки 5-6). Создайте кнопку или панель в Вашем
проекте для непосредственного вызова приложения.

Рисунок 5 – Пример организации данных на лист Excel.

Рисунок 6 – Разработанная форма в режиме конструктора.

3.5.       Добавьте комментарии. Текст и результат выполнения программ занести в
отчёт.

3.6.       Сформулируйте выводы по проделанной работе.

4.     
Содержание отчёта:

4.1.       Тема работы.

4.2.       Цель работы.

4.3.       Приборы и оборудование.

4.4.       Порядок выполнения работы.

4.5.       Выводы.

4.6.       Контрольные вопросы.

5.     
Контрольные вопросы:

5.1.       Какой объект является главным в иерархии объектов Excel? Какие объекты
Вам ещё известны? Описание.

5.2.       Как задаётся группа строк и столбцов с помощью объекта Range?

5.3.       Как осуществляется связь объекта Range и свойства Cells?

5.4.      
Перечислите свойства и действия объекта
Range.

5.5.      
Перечислите методы и действия объекта
Range.

5.6.      
Какие методы объекта Range, используют
команды Excel?

5.7.       Каким образом происходит округление десятичных чисел в VBA Excel?

5.8.       Какие функции используются для приведения введенных данных к нужному
типу в VBA?

5.9.       Каким образом определить количество
строк для заголовка?

5.10.   Как
назначить форме кнопку или пункт меню для непосредственного вызова приложения
из Word?

Приложение А

Теоретические
сведения

Использование объектов Range и Selection

В Excel наиболее
важным является объект Application. Объект Application (приложение) является
главным в иерархии объектов Excel и представляет само приложение Excel. Он
имеет более 120 свойств и 40 методов. Эти свойства и методы предназначены для
установки общих параметров приложения Excel. В иерархии Excel объект Workbook
(рабочая книга) идет сразу после объекта Application и представляет файл
рабочей книги. Рабочая книга хранится либо в файлах формата XLS (стандартная
рабочая книга), либо XLA (полностью откомпилированное приложение). Свойства и
методы рабочей книги позволяют работать с файлами. Однако наиболее
«употребляемым» на практике является объект Range, который наилучшим образом
отображает возможности использования VBA в Excel (о свойствах объекта Range см.
таблицу 1, о методах – таблицу 2).

В иерархии Excel
объект Range (диапазон) идет сразу после объекта worksheet. Объект
Range является одним из ключевых объектов VBA. Объект selection
(выбор) возникает в VBA двояко – либо как результат работы метода Select, либо
при вызове свойства selection. Тип получаемого объекта зависит от типа
выделенного объекта. Чаще всего объект Selection принадлежит классу Range, и
при работе с ним можно использовать свойства и методы объекта Range. Интересной
особенностью объектов Range и Selection является то, что они не являются элементами
никакого семейства объектов. При работе с объектом Range необходимо помнить,
как в Excel ссылаются на ячейку рабочего листа.

Задание групп
строк и столбцов с помощью объекта Range

Если в диапазоне
указываются только имена столбцов или строк, то объект Range задает диапазон,
состоящий из указанных столбцов или строк. Например, Range («а: с») задает диапазон,
состоящий из столбцов а, в и с, а Range(«2:2») – из второй строки. Другим
способом работы со строками и столбцами являются методы Rows (строки) и columns
(столбцы), возвращающие коллекции строк и столбцов. Например, столбцом а
является columns (1), а второй строкой – Rows (2).

Связь объекта
Range и свойства Cells

Так как ячейка
является частным случаем диапазона, состоящим только из единственной ячейки,
объект Range также позволяет работать с ней. Объект Cells (ячейки) – это
альтернативный способ работы с ячейкой. Например, ячейка А2 как объект
описывается Range («A2») или Cells (l, 2). В свою очередь, объект cells,
вкладываясь в Range, также позволяет записывать диапазон в альтернативном виде,
который иногда удобен для работы, а именно Range(«А2:СЗ») и Range(Cells(1,2),
Cells(3,3)) определяют один и тот же диапазон.

Таблица 1 – Свойства объекта Range

Таблица 2 – Методы объекта
Range

Методы объекта
Range, использующие команды Excel

Встроенные в Excel
команды и методы позволяют эффективно работать с диапазоном: заполнять его
элементами по образцу, сортировать, фильтровать и консолидировать данные,
строить итоговую таблицу и создавать сценарии, решать нелинейное уравнение с
одной переменной.

Метод AutoFill. Метод AutoFill (автозаполнение) автоматически заполняет ячейки диапазона
элементами последовательности. Метод AutoFill отличается от метода DataSeries
тем, что явно указывается диапазон, в котором будет располагаться прогрессия.
Вручную этот метод эквивалентен расположению указателя мыши на маркере
заполнения выделенного диапазона (в который введены значения, порождающие
создаваемую последовательность) и протаскиванию маркера заполнения вдоль
диапазона, в котором будет располагаться создаваемая последовательность.

Синтаксис: объект. AutoFill(диапазон, тип).

Аргументы: Диапазон, с которого начинается заполнение тип Допустимые значения:
xlFillDefault, xlFillSeries, xlFillCopy, xlFillFormats,
xlFillValues,xlFillDays, xlFillWeekdays, xlFillMonths, xlFillYears,
xlLinearTrend, xlGrowthTrend. По умолчанию xlFillDefault

Метод AutoFilter. Метод AutoFilter
(автофильтр) представляет собой простой способ запроса и фильтрации данных на
рабочем листе. Если AutoFilter активизирован, то каждый заголовок поля
выделенного диапазона данных превращается в поле с раскрывающимся списком.
Выбирая запрос на вывод данных в поле с раскрывающимся списком, осуществляется
вывод только тех записей, которые удовлетворяют указанным условиям. Поле с
раскрывающимся списком содержит следующие типы условий: Все (All), Первые
десять (Тор 10), Условие (Custom), конкретный элемент данных, Пустые (Blanks) и
Непустые (NonBlanks). Вручную метод запускается посредством выбора команды
Данные, Фильтр, Автофильтр (Data, Filter, AutoFilter). При применении метода
AutoFilter допустимы два синтаксиса.

Синтаксис 1: Объект. AutoFilter

В этом случае
метод AutoFilter выбирает или отменяет команду Данные, Фильтр, Автофильтр
(Data, Filter, AutoFilter), примененную к диапазону, заданному в аргументе
объект.

Синтаксис
2: Объект. AutoFilter (field, criteria1,
operator, criteria2)

В этом случае
метод AutoFilter выполняет команду Данные, Фильтр, Автофильтр (Data, Filter,
AutoFilter) по критериям, указанным в аргументе.

Аргументы: field
Целое, указывающее поле, в котором производится фильтрация данных; Criteria1 Задают два возможных
условия фильтрации и criteria2 поля. Допускается использование строковой
постоянной, например 101, и знаков отношений >, <,>=, <=, =,
<>; operator
Допустимые значения: X1And (логическое объединение первого и второго
критериев); X1or (логическое сложение первого и второго критериев); При работе
с фильтрами полезны метод showAllData и свойства FilterMode и AutoFilterMode.

Метод ShowAllData. Показывает все
отфильтрованные и неотфильтрованные строки рабочего листа. Cвойство FilterMode
Допустимые значения: True (если на рабочем листе имеются отфильтрованные данные
со скрытыми строками), False (в противном случае). Свойство AutoFilterMode
Допустимые значения: True (если на рабочем листе выведены раскрывающиеся списки
метода AutoFilter), False (в противном случае)

Метод GoalSeek. Метод GoalSeek (подбор
параметра) подбирает значение параметра (неизвестной величины), являющееся
решением уравнения с одной переменной. Предполагается, что уравнение приведено
к виду: правая часть является постоянной, не зависящей от параметра, который
входит только в левую часть уравнения. Вручную метод GoalSeek выполняется с
помощью команды Сервис, Подбор параметра (Tools, Goal Seek). Метод GoalSeek
вычисляет корень, используя метод последовательных приближений, результат
выполнения которого, вообще говоря, зависит от начального приближения. Поэтому
для корректности нахождения корня надо позаботиться о корректном указании этого
начального приближения.

Синтаксис:
Объект. GoalSeek(Goal, ChangingCell)

Аргументы: Объект
Ячейка, в которую введена формула, являющаяся правой частью решаемого
уравнения. В этой формуле роль параметра (неизвестной величины) играет ссылка
на ячейку, указанную в аргументе ChangingCell; Goal Значение
левой части решаемого уравнения, не содержащей параметра; ChangingCell Ссылка
на ячейку, отведенную под параметр (неизвестную величину). Значение, введенное
в данную ячейку до активизации метода Goalseek, рассматривается как начальное
приближение к искомому корню.

Точность, с
которой находится корень и предельно допустимое число итераций, используемых
для нахождения корня, устанавливается свойствами Maxchange и Maxiterations
объекта Application. Например, определение корня с точностью до 0,0001 максимум
за 1000 итераций устанавливается инструкцией:

With Application

Maxiterations = 1000

MaxChange = 0.0001

End With

Вручную эти
величины устанавливаются на вкладке Вычисления (Calculation) диалогового окна
Параметры (Options), вызываемого командой Сервис, Параметры (Tools, Options).

Метод Sort. Сортировка позволяет выстраивать
данные в лексикографическом порядке по возрастанию или убыванию. Метод sort
осуществляет сортировку строк списков и баз данных, а также столбцов рабочих
листов с учетом до трех критериев, по которым производится сортировка.
Сортировка данных вручную совершается с использованием команды Данные,
Сортировка (Data, Sort).

Синтаксис:
Объект. Sort(key1, order1, key2, order2,
key3, order3, header, orderCustom, matchCase, orientaticn)

Аргументы: Объект
Диапазон, который будет сортироваться; Key1 Ссылка на первое упорядочиваемое поле; Order1 Задает порядок
упорядочивания. Допустимые значения: xlAscending (возрастающий порядок);
xlDescending (убывающий порядок); key2
Ссылка на второе упорядочиваемое поле; order2 Задает порядок упорядочивания. Допустимые
значения: xlAscending (возрастающий порядок); xlDescending (убывающий порядок);
header
Допустимые значения: xlYes (первая строка диапазона содержит заголовок, который
не сортируется); xlNo (первая строка диапазона не содержит заголовка, по
умолчанию считается данное значение); xlGuess (Excel решает, имеется ли
заголовок); orderCustom
Пользовательский порядок сортировки. По умолчанию используется Normal; matchCase Допустимые значения:
True (учитываются регистры) и False (регистры не учитываются); orientation Допустимые значения:
xlTopToBottom (сортировка осуществляется сверху вниз, т. е. по строкам);
xlLeftToRight (слева направо, т. е. по столбцам)

Например, диапазон
А1:С20 рабочего листа лист1 сортируется следующей командой в порядке
возрастания так, что первоначальная сортировка происходит по первому столбцу
этого диапазона, а второстепенная – по второму:

Worksheets(«Лист»).Range(«A1:
C20»).Sort _

key1:=Worksheets(«Sheet1»).Range(«A1»),
_

key2:=Worksheets
(«Sheet1»).Range («B1»)

Округление чисел. Округлять десятичные числа
приходится часто, особенно при работе с денежными значениями. VBA не предлагает
прямого решения таких задач, но обсуждаемые ниже приемы помогут решить эти
проблемы.

1 способ

Функция Round

Пример:

X=
round(2.505, 2)

Значение х будет
2,5, а не 2,51.

Поэтому часто не
используется.

2 способ

Функция Format

Пример:

sngОкругление=Format(SngНеокругленное,
“#, 0.00”)

3 способ

Функция
FormatNumber

SngОкругление=
FormatNumber(sbgНеокругленное, 2)

Для изменения
знаков после запятой измените число нулей после десятичной точки в аргументе
Format, либо измените число, задающее значение второго аргумента, на нужное.

Примечание. Переменная, в которую помещается округленное значение, должна иметь тип
string, single, double, decimal, currency или variant, но не тип integer или
long.

Приведение
данных. Для приведения введенных данных к нужному типу
в VBA включен обширный набор функций, одна из которых – CDBL. Синтаксис: CDbl(выражение)

Обязательный
аргумент выражение является любым строковым или числовым выражением.
Для считывания информации, введенной в текстовое поле в созданной форме, вводят
переменную и прописывают выражение: А = Cdbl(textBoxN.text)

После чего с
данной переменной можно работать. Для выведения значений непосредственно в
ячейки книги Excel удобно использовать объект Range: range(«A5»).value = a

Функцией, обратной
по действию к CDbl, является функция CStr – она переводит числа в строки и
удобна для вывода результата либо в ячейку на лист, либо в то или иное
текстовое окно. TextBoxN.text = CStr(.Range(«A8»).value) – считывание
значения с ячейки и вывод его в текстовое окно.

Функция Trim
(строка) возвращает копию строки, из которой удалены пробелы, находящиеся в
начале и конце строки.

Приложение Б

Задания для
самостоятельной работы

Задание 1. Разработать программу, которая по введенным переменным в
соответствующие поля формы решает простейшее линейное уравнение y = a*x + b*x,
находит неизвестную переменную х и выводит результат вычислений на рабочий лист
Excel.

Задание 2. Разработать программу, которая по введенным переменным в
соответствующие поля формы решает уравнение вида y = a*x^3 + 3b*sinx, находит
неизвестную переменную х и выводит результат вычислений на рабочий лист Excel.

Задание 3. Разработать программу, которая по введенным переменным в
соответствующие поля формы решает уравнение вида y = 5a*x^1/3 + 3b*tg4x,
находит неизвестную переменную х и выводит результат вычислений на рабочий лист
Excel.

Задание 4.
Разработать программу, которая по введенным переменным в соответствующие поля
формы решает уравнение вида y = ln(a*x^3) + 3b*cos(e^x), находит неизвестную
переменную х и выводит результат вычислений на рабочий лист Excel.

Задание 5.
Разработать программу, которая по введенным переменным в соответствующие поля
формы решает уравнение вида y = ln(a*x^3) + 3b*sin(x),
находит неизвестную переменную х и выводит результат вычислений на рабочий лист
Excel.

Задание 6.
Разработать программу, которая по введенным переменным в соответствующие поля
формы решает уравнение вида y = ln(a*x^3) + 3b, находит неизвестную переменную
х и выводит результат вычислений на рабочий лист Excel.

Задание 7.
Разработать программу, которая по введенным переменным в соответствующие поля
формы решает уравнение вида y = 5a*x^1/3 + 3b*sin4x,
находит неизвестную переменную х и выводит результат вычислений на рабочий лист
Excel.

Задание 8.
Разработать программу, которая по введенным переменным в соответствующие поля
формы решает уравнение вида y = ln(a*x^3) + 3b*4x, находит неизвестную
переменную х и выводит результат вычислений на рабочий лист Excel.

Задание 9.
Разработать программу, которая по введенным переменным в соответствующие поля
формы решает уравнение вида y = ln(a*x^3) + b*x^3, находит неизвестную
переменную х и выводит результат вычислений на рабочий лист Excel.

Задание 10.
Разработать программу, которая по введенным переменным в соответствующие поля
формы решает уравнение вида y = a*x^3  + 3b*cos(e^x), находит неизвестную
переменную х и выводит результат вычислений на рабочий лист Excel.

Коллекции объектов

Ссылка на объект коллекции — это название коллекции, после которого в скобках указывается индекс объекта или его имя в кавычках. Например, ссылка Workbooks(1) выбирает первую из открытых рабочих книг, а Workbooks(«budget») ссылается на рабочую книгу с именем «budget».

Объекты Workbooks и Workbook

Документ MS Excel (рабочая книга) это объект Workbook. Можно одновременно работать с несколькими рабочими книгами. Открытые рабочие книги составляют коллекцию рабочих книг — Workbooks.

Свойство Workbooks объекта Application возвращает объект Workbooks.

При открытии или создании рабочей книги элемент Workbook автоматически добавляется в конец коллекции Workbooks, а при закрытии книги соответствующий элемент также автоматически удаляется из коллекции.

Событийные процедуры

Событийные процедуры записываются на процедурном листе, связанном с объектом. Каждый объект имеет свои собственные события.

Чтобы вставить событийную процедуру для объекта Workbook

• выделите объект ThisWorkbook (Эта книга) в окне проекта;
• перейдите на лист процедур, нажав клавишу F7. Можно выполнить команду View Code или сделать двойной щелчок на объект ThisWorkbook ;
• на процедурном листе в окне выбора объектов (вверху слева) выберите объект Workbook ;
• в окне выбора событий (вверху справа) выберите событие. Автоматически вставляется процедура со стандартным именем, которое состоит из названия объекта и названия события, разделенных нижним подчеркиванием (_), например, для события Open событийная процедура имеет имя Workbook_Open ;
• запишите текст процедуры.

Пример

При вставке нового листа в рабочую книгу процедура запрашивает имя нового листа и вставляет лист в начало рабочей книги.

Значение параметра, являющееся ссылкой на объект — новый лист, передается процедуре во время ее выполнения. Метод Move перемещает вставленный лист. Параметр before этого метода определяет новое месторасположение листа — начало рабочей книги.

Объекты Sheets, WorkSheets и WorkSheet

Коллекция Sheets представляет собой совокупность листов различных типов — рабочих листов (коллекция Worksheets ) и листов диаграмм (коллекция Charts ). Таким образом, каждый элемент коллекции Sheets является элементом коллекции WorkSheets или коллекции Charts и наоборот, любой элемент коллекции WorkSheets или коллекции Charts принадлежит коллекции Sheets.

Методы

Метод Add

Добавляет новый лист в коллекцию Sheets, WorkSheets. При создании рабочей книги коллекция WorkSheets содержит столько рабочих листов, сколько определено свойством SheetsInNewWorkbook объекта Application.

Cинтаксис метода для коллекций Sheets, WorkSheets

expression.Add([Before] [,After] [,Count] [,Type])

• expression — выражение, возвращающее коллекцию WorkSheets или Sheets. Указание обязательно;
• Before ^{1Возможно задание только одного из двух параметров Before или After}
  — специфицирует лист, перед которым вставляется новый лист;
• After ^{2Возможно задание только одного из двух параметров Before или After}
  — специфицирует лист, после которого вставляется новый лист;
• Count — количество вставляемых листов;
• Type — тип вставляемого листа. Используются константы: xlWorksheet (по умолчанию), xlChart (только для объекта Sheets ), xlExcel4MacroSheet, xlExcel4IntlMacroSheet.

Методы Move и Select

Метод Move используется для перемещения листов.

Синтаксис expression.Move([Before] [,After])

• expression — ссылка на объект, представляющий перемещаемый лист. Указание обязательно;
• необязательные параметры before и after (ссылки на лист, см. описание метода Add ) определяют новое местоположение перемещаемого листа. Если не указан ни один из параметров, то лист перемещается во вновь создаваемую рабочую книгу.

Метод Select выделяет объект. При применении к одному листу методы Activate и Select активизируют указанный лист. Но метод Select используется для группировки листов, т.е. для расширения выделения.

Синтаксис expression.Select([Replace])

• expression — ссылка на объект, представляющий выделяемый лист. Указание обязательно;
• Replace — для расширения выделения аргумент устанавливается в False. Если аргумент не задан или принимает значение True, то вместо старой области выделения создается новая область выделения. Необязательный параметр.

Пример

Процедура перемещает нечетные листы в конец рабочей книги. В цикле выделяются нечетные листы.

Событийные процедуры

Чтобы вставить событийную процедуру для объекта WorkSheet:

• выделите объект WorkSheet (например, Лист1 ) в окне проекта;
• перейдите на лист процедур этого объекта;
• на процедурном листе в окне объектов (вверху слева) выберите объект WorkSheet ;
• в окне выбора событий (вверху справа) выберите событие;
• запишите текст процедуры.

При выборе события автоматически вставляется процедура со стандартным именем, которое состоит из названия листа и названия события, разделенных нижним подчеркиванием (_).

Пример

При активизации листа Лист1 в ячейку A1 заноситcя название листа.

Объект Range

При работе в MS Excel чаще всего выполняются некоторые действия с группой ячеек рабочего листа. Объект Range — это отдельная ячейка, целиком строка или столбец рабочего листа, выделенный интервал ячеек, непрерывный интервал ячеек или интервал несмежных ячеек.

Для задания объекта Range существуют различные возможности. Например, благодаря свойству ActiveCell, активная ячейка представляется в качестве объекта Range. Свойство Selection определяет выделенный интервал ячеек в качестве объекта Range.