VBA для чайников

Часть I. Начальные сведения о VBA

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

Часть II. Курс программирования на VBA

Редактор Visual Basic является, так сказать, доверенным представителем VBA на экране- здесь вы пишете свои программы, конструируете открываемые этими программами окна и тестируете свои создания, чтобы выяснить причины, по которым они отказываются работать так, как нужно. Об этом я расскажу в первой главе части. Затем я расскажу об использовании переменных. В остальных главах обсуждаются способы контроля того, что происходит при выполнении программы, а также способы выявления и исправления хотя бы части тех ошибок, которые всегда норовят прицепиться к любой программе. Завершим мы материал части II рассмотрением таких вопросов, как создание окон, диалоговых окон и форм, а также приемов программирования, необходимых для этого.

Часть III. Практикуемся в программировании на VBA

Эта часть - сердце книги. Здесь, в сотворенных с любовью главах, я открою вам секреты мира VBA. Первая половина глав этой части систематизирует компоненты VBA-программы и раскрывает структуру этих компонентов, чтобы вы всегда точно знали, что и где вам следует печатать. Далее идет практикум по правильному присвоению имен в VBA и приданию презентабельного вида программному коду. Затем следуют главы, рассказывающие о работе с переменными и объектами, что очень важно при настройке таких приложений, как Word, Excel или CorelDraw. В последней главе мы поговорим о обработке данных, представленных в виде массивов и наборов.

Часть IV. Профессиональная работа с VBA

В главах этой части вы познакомитесь с приемами программирования, которые применимы практически ко всем приложениям Office, например настройка интерфейса пользователя, программирование помощника по Office и многое другое. Затем мы подробно поговорим о программировании для Word и Excel, а также вопросах, представляющих немалый интерес для VBA-программистов, независимо оттого, с какими приложениями они работают.

Часть V. Великолепные десятки

Ваше путешествие в страну программирования средствами VBA завершается двумя главами, посвященными самым разнообразным темам. Сначала мы обсудим более изысканные приемы программирования. Конечно, обсуждение не будет слишком глубоким, но и поверхностным его тоже нельзя назвать - вполне достаточно для того, чтобы вы смогли реально использовать эти приемы. Далее приводится каталог доступных ресурсов VBA, охватывающий как информационные ресурсы, так и программные продукты. Туда стоит заглянуть и для того, чтобы пополнить свои знания в VBA-программирования, и для того, чтобы пополнить свою библиотеку программных средств разработчика.

VBA-приложения третьих фирм

Многие разработчики программных средств получили лицензию фирмы Microsoft на использование технологии VBA. Вот список некоторых из доступных на сегодня VBA приложений, предлагаемых третьими фирмами.

* Corel WordPerfect Ofilce 2000, Соперник Microsoft Office, включает текстовый процессор, приложения для обработки электронных таблиц, баз данных и для создания презентаций.

* CorelDraw. Являясь самым популярным пакетом для работы с рисунками, CorelDraw вместе с набором других программ из пакета позволяет создавать и обрабатывать как векторную графику, так и растровые изображения, печатать их либо размещать на и Web-страницах.

* AutoCAD. Пользующийся большим успехом продукт фирмы Computer Aided Design; некоторые другие приложения этой фирмы также являются VBA-приложениями.

* M.Y.O.B. Accounting. Полный набор средств бухгалтерского учета для малого бизнеса.

* Micrografx iGrafx. Приложения для создания бизнес- графики - блок-схем, организационных диаграмм и т.п., а также для графического моделирования бизнес-операций.

* OmniTrader. Приложение для оценки и анализа рисков.

Встречаются приложения, в которые встроены средства программирования, очень похожие на VBA, но отличные от VBA. При этом, хотя вы и получаете возможность модифицировать эти приложения практически так же, как VBA-приложения, ваши VBA-программы выполняться в этих He-VBA-приложениях не будут.

О распространенности VBA-приложений

Практически всегда можно утверждать, что приложение, которое легко модифицировать, чтобы оно отвечало нужным требованиям, обладает большей привлекательностью. По этой причине YBA встречается в приложениях почти любого вида- от самых популярных до самых узкоспециализированных.

В мире используются многие миллионы копий Microsoft Office, так что уже одни только приложения Office сами по себе окажутся вполне широким полем действия. Имеющие довольно широкую известность, VBA-приложения других фирм я уже тоже называл (такие как WordPerfect, Visio, AutoCAD).

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

Лицензии на VBA получили также целый ряд корпораций, которые не являются участниками рынка программного обеспечения. Эти компании занимаются разработкой приложений с нуля для своих собственных нужд, учитывая специфические потребности каждой конкретной фирмы. И даже в этом случае они встраивают в свои приложения поддержку VBA, чтобы впоследствии эти приложения можно было модифицировать и расширять, затрачивая при этом минимум усилий.

Что визуального в Visual Basic для приложений?

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

В других случаях VBA позволяет создавать части программы, которые отвечают за появляющиеся на экране объекты (диалоговые окна, кнопки, флажки, переключатели и т.п.), просто рисуя их с помощью мыши или выбирая опции из диалоговых окон. Именно это позволяет назвать VBA визуальным программным средством. С помощью VBA вы можете построить экранное представление своей программы, почти не затратив на это времени. Если бы вам пришлось определять те же элементы и программировать их появление на экране вручную, вам потребовались бы на это часы, дни, а может, и годы.

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

Главные события

В VBA событие означает нечто, что случается при выполнении программы, если необходимо изменить ее ход. Самый простой пример- щелчок кнопкой мыши. Когда пользователь вашей программы щелкает на кнопке с надписью Вычислить возраст, это действие является событием.

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

Конечно же, ваша программа не может отвечать на все эти события с помощью телепатии. Напротив, для каждого события, которое должна распознавать программа, вам нужно самому написать процедуру обработки события, представляющую собой специальную порцию программного кода VBA. Вам потребуется одна процедура обработки события, чтобы отвечать на щелчки на кнопке Вычислить возраст, но потребуется еще одна, если вы сочтете необходимым выполнять какие-либо действия и тогда, когда указатель мыши просто помещается на кнопку без щелчка. Ясно, что, если у вас есть еще кнопка Солгать про возраст, потребуется дополнительная процедура обработки события для щелчка на этой кнопке. Тема создания процедур обработки событий подробно обсуждается в главе 10.

Цикл создания программы

Независимо от используемых программных средств, процесс создания новой программы можно разбить на пять простых шагов.

1. Проектирование.

Здесь определяется, что должна делать программа, как она должна выглядеть на экране и взаимодействовать с другим программным обеспечением.

2. Реализация.

Для успешного выполнения п. 1 конструируются окна и другие элементы программы, появляющиеся на экране, и создается необходимый программный код. Это совсем несложно.

3. Тестирование.

Запускают программу, чтобы проверить, выглядит ли она так, как нужно, и выполняет ли то, что нужно. Как правило, не выглядит и не выполняет.

4. Отладка.

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

5. Повторное тестирование.

Повторяют пп. 3 и 4 до тех пор, пока хватит сил и терпения.

К счастью, специально заучивать эту последовательность шагов не придется - они станут, если можно так выразиться, вашей второй натурой, как только вы всерьез займетесь программированием в VBA.

Настройка пользовательского интерфейса

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

(На всякий случай замечу, что пользовательский интерфейс означает то, как программа выглядит на экране, как в ней работают мышь, клавиатура и другие всевозможные средства, предоставленные программой вам, пользователю, для взаимодействия с программным обеспечением.) Во многих приложениях VBA позволяет изменять элементы пользовательского интерфейса так, как это удобно. С помощью всего нескольких строчек программного кода вы можете добавлять, удалять или изменять взаимное расположение кнопок на панелях инструментов, создавать новые панели инструментов, переопределять раскладку клавиатуры или модифицировать структуру меню. На рис. 1.1 показано окно Microsoft Word с любезно измененным VBA пользовательским интерфейсом.

Рис. 1.1.

Вам потребуется VBA, если вы захотите работать с документами Word на чистом экране, совершенно свободном ото всех панелей инструментов

Конечно, не стоит использовать паяльную лампу там, где и спички подойдут, - для самых простых изменений пользовательского интерфейса VBA часто оказывается слишком мощным средством. Многие из современных приложений позволяют изменять интерфейс вообще безо всякого программирования - с помощью перетаскивания элементов или диалоговых окон.

Тем не менее VBA полезен и б таких приложениях. С одной стороны, даже исключительно дружественные в этом смысле приложения могут не изменять некоторые части своего интерфейса без помощи VBA. С другой стороны, что еще важнее, VBA позволяет организовать целые группы автоматических изменений пользовательского интерфейса прямо во время работы - в зависимости от того, что вы делаете с программой в данный момент.

Предположим, вы работаете с суммами, превышающим миллион долларов, постоянно используя при этом одни и те же три панели инструментов. С помощью VBA вы можете создать программу, которая станет открывать эти панели инструментов вместе, а затем одновременно прятать их, когда в них нет необходимости.

До сих пор я говорил об изменении пользовательского интерфейса VBA приложения, но не о создании пользовательского интерфейса самой VBA программы. Хотя многие VBA-программы и представляют собой автоматы, выполняющие работу безо всякого вмешательства с вашей стороны, неизбежно наступит момент, когда вам понадобится создавать свои диалоговые и другие окна (для них в VBA используется обобщающий термин формы).

Добавление новых возможностей

VBA оказывается как раз кстати, когда необходимо расширить функциональные возможности приложения. Предположим, вы пожелали, чтобы в первый понедельник каждого месяца на всех создаваемых вами компьютерных иллюстрациях появлялись красные звездочки, а в каждый второй вторник- синие сердечки. Вправе ли вы ожидать, что разработчики графического приложения предусмотрели ваши пожелания? Используя строительные блоки, предоставленные в ваше распоряжение разработчиками данного приложения, вы создадите VBA-программы, которые приблизят вас к мечте.

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

Например, в Microsoft Word нет команды для сохранения выделенного блока текста в отдельном файле. Для решения этой задачи вам придется скопировать выделенный текст в буфер обмена, создать новый документ, скопировать в него содержимое буфера, сохранить и закрыть этот новый документ. С помощью VBA можно создать небольшую программу, которая выполнит все эти шаги автоматически (тем самым обеспечив пользователю Word возможность, которую большинство других текстовых процессоров имеют еще со времен СР/М, - операционной системы, использовавшейся на самых первых персональных компьютерах). VBA-код такой программы может выглядеть примерно так:

Public Sub CopyBlockToFile( )
Selection.Range.Copy ' копирует выделенное
 ' в буфер обмена
Documents.Add ' создает новый документ
Selection.Range.Paste ' вставляет содержимое буфера
 ' в новый документ Dialogs(wdDialogFileSaveAs).Show
 ' открыват диалоговое ACtiveDocument.Close
 ' окно Сохранение документа
End Sub ' закрывает новый документ

Но, поскольку VBA полноценный язык программирования, VBA-программа совсем не обязана следовать в точности одним и тем же шагам при каждом запуске. Напротив, она должна всякий раз действовать в соответствии с теми условиями, которые обнаруживает после своего запуска. Вот несколько примеров того, как это должно выглядеть.

* Во время запуска VBA-программа может отвечать на то, что делает в данный момент приложение, или на конкретные установки системы в целом. В случае упомянутого примера с Word, можно потребовать, например, чтобы программа сохраняла новый документ, если только некоторый текст уже выбран, а иначе ей предписано только чесать затылок и поглаживать животик. Подобным образом вы можете пожелать, чтобы ваша программа выполняла одни действия утром, а другие - вечером.

* VBA-программа может (в зависимости от содержимого текущего документа) выполнять определенные действия с другим документом того же или другого приложения.

* VBA-программа может отвечать на информацию, вводимую пользователем во время работы программы (рис. 1.2). С помощью VBA легко создавать диалоговые окна, предлагающие пользователю либо выбрать из списка заранее определенных возможностей, либо ввести некоторый текст или числовые значения.

* VBA-программа может менять свое поведение в зависимости от текущего знака Зодиака или фазы Луны. (Здесь, к сожалению, вам еще придется написать программный код, осуществляющий перевод даты и времени в соответствующие знак Зодиака и фазу Луны.)

Рис. 1.2. Если для продолжения работы программы требуется определенная информация от пользователя, можно создавать диалоговые окна, подобные этому.

Как практически заставить VBA-программы реагировать на изменение условий, мы подробно обсудим в следующих главах.

Создание более сложных программ

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

Но вам будет не лишним знать, что совсем не обязательно ограничиваться минимальными изменениями и усовершенствованиями существующих приложений; VBA позволяет создавать полноценные и в высшей степени сложные программы, способные конкурировать с мощью готовых продуктов, имеющихся на рынке приложений.

Пользовательские программы, созданные с помощью VBA, интенсивно используют функциональные возможности того VBA-приложения. на которое они опираются (пользовательская

VBA-программа сумеет использовать функциональные возможности из нескольких VBA приложений одновременно). Однако перед пользователем такая программа предстает как цельный самостоятельный объект со своим собственным набором окон, кнопок и меню.

Создание полномасштабной пользовательской программы - штука достаточно амбициозная. Но эта книга предлагает практически всю необходимую для этого информацию, в том числе и вводное описание способов одновременного доступа из программы к нескольким VBA-приложениям.

Кстати, VBA не обязывает вас использовать функциональные возможности приложения.

При желании совершенно игнорируйте их, используя только созданные самостоятельно. Но для запуска даже такой пользовательской программы все равно потребуется VBA-приложение (между прочим, в Visual Basic такой проблемы нет). Здесь вас подстерегает еще одна неприятность, но о ней мы поговорим позже, в подразделе Почему VBA обычно медленнее, чем Visual Basic.

Интегрированная среда разработки приложений VBA

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

Интегрированная среда разработки, предлагаемая VBA, представлена как редактор Visual Basic. Редактор Visual Basic представляет собой окно приложения с одним меню и набором панелей инструментов, в котором вы получаете доступ к целому ряду дочерних окон, обеспечивающих возможность использования всех средств, необходимых для создания программ.

На рис. 1.3 представлена версия редактора Visual Basic, предлагаемая Visio, но выглядит она точно так же, как и те, которые предлагаются в других VBA-приложениях.

Не все VBA-приложения имеют встроенный редактор Visual Basic (подробнее об этом речь идет ниже, в подразделе Другие диалекты VBA).

Рис. 1.3. Внешний вид редактора Visual Basic в Visio

Подробное описание редактора Visual Basic вы найдете в главе 5 этой книги. Пока же ознакомьтесь со следующим списком некоторых элементов экипировки этого редактора, что ласт вам хотя бы поверхностное представление о том, что он предлагает.

* Место для проектирования форм (диалоговых и других окон), которые будут использоваться в создаваемой вами программе.

*Панель, из которой можно выбирать кнопки, флажки и другие элементы управления, которые вы пожелаете поместить в формы (читайте ниже подраздел Элементы управления ActiveX и другие).

* Окно, с помощью которого можно сообщить VBA, как должны выглядеть и что должны уметь делать формы и элементы управления на них.

* Окна для ввода и редактирования программного кода VBA, с помощью которого вы можете заставить свою программу делать что-нибудь полезное.

* Окна с текущими значениями переменных- числа и текст, которые в них хранятся и меняются, - во время выполнения программы (эти окна значительно облегчают жизнь, когда наступает сезон охоты на спрятавшиеся в программе ошибки).

Макросы и VBA

Чаше других используется способность VBA объединять в группу последовательность различных команд приложения. Если приходится часто использовать одни и те же команды в одной и той же последовательности, имеет смысл сохранить эту последовательность в виде VBA-программы. В результате вы сможете активизировать всю эту последовательность одной командой - той самой, которая запускает созданную вами с этой целью VBA-программу.

Между макросом, который создается в процессе записи, и VBA-программой, код которой вы печатаете вручную, нет никакой - вообще никакой - принципиальной разницы, если, конечно, не считать сам способ создания. Вы можете редактировать программный код макроса, добавляя в него или удаляя из него элементы точно так же, как будто вы напечатали код макроса своими собственными руками.

Создать VBA-программу этого типа проще всего с помощью непосредственной записи всей последовательности выполняемых команд. Для этого большинство VBA-приложений предлагает средство записи макросов, которое работает подобно магнитофону. С того момента, как вы даете указание начать запись макроса, начинают записываться все команды, которые вы используете в приложении. После того как вы остановите запись, средство записи макросов конвертирует записанные команды в эквивалентные им строки VBA-кода. Полученная в результате этого VBA-программа имеет специальное название - макрос. Все тонкости процесса записи макросов обсуждаются в главе 2.

Элементы управления ActiveX и другие

В любой программе для Windows элементы управления - это все те бедолаги на экране, на которых можно щелкнуть или что-нибудь напечатать, чтобы вызвать определенное ответное действие программы. Среди самых распространенных элементов управления следует упомянуть кнопки па панелях инструментов и в диалоговых окнах, переключатели и флажки, предназначенные для выбора заранее определенных опций, и текстовые поля, в которых можно вводить или изменять данные. Пример диалогового окна с множеством различных элементов управления показан на рис. 1.4.

VBA содержит все эти. а также вообще все стандартные для Windows типы элементов управления. Работают они подобно подключаемым компонентам. Чтобы добавить элемент управлений в любую из форм (например, в диалоговое окно), щелкните на соответствующем элементе управления в панели элементов управления (специальной панели инструментов, пример которой показан на рис. 1.5), а затем щелчком на форме прилепите этот элемент к форме.

Благодаря технологии, загадочно называемой ActiveX, можно не ограничиваться элементами управления, предлагаемыми VBA. Разработанная тоже Microsoft, ActiveX определяет стандарт, в соответствии с которым разработчики программного обеспечения создают взаимозаменяемые элементы управления, которые вы можете при желании подключать к своим программам. Элементы управления, предлагаемые VBA, являются элементами управления ActiveX, но, кроме них, есть еще очень много других. Элементы управления ActiveX работают не только в VBA-программах, но и в программах, созданных с помощью C++ или Java.

Чтобы получить возможность использовать в своих VBA-формах новый элемент управления ActiveX, достаточно добавить его в панель элементов управления (за инструкциями обратитесь к главе 14). После этого с ним можно обращаться точно так же, как и с элементами управления, изначально присутствующими в VBA.

Рис. 1.4. Разнообразные элементы управления в диалоговом окне

Рис. 1.5. Панель элементов управления

VBA предлагает целый ряд элементов управления для ваших форм

Любой, кто пожелает, может создавать такие специализированные программные заготовки для своих собственных нужд или же для продажи таким программистам, как вы. Огромные размеры рынка программ для Windows объясняют, почему так велико количество предлагаемых элементов управления ActiveX. Среди них можно обнаружить как усовершенствованные варианты стандартных элементов управления, так и элементы управления совершенно новых типов, например круговые и линейные шкалы, часы, календари и многое другое.

Если VBA не предлагает нужный вам элемент управления, почти наверняка в этом разнообразии вы сможете найти подходящий и купить его. Представление о том, как выглядят элементы управления, можно получить из рис. 1.6.

Для некоторых из элементов управления ActiveX, предлагаемых различными производителями, главным достоинством является их внешний вид. Эти элементы управления функционально более или менее идентичны стандартным, но выглядят лучше. Представьте себе, что вы собираетесь создать приключенческую игру на космическую тему и хотели бы обеспечить игрокам возможность регулировки скорости своих межгалактических лайнеров. Знаю я, знаю - нет таких людей, кто собирается использовать VBA для создания приключенческих игр! Но представьте только на минуту - разве не лучше вместо пары унылых стрелочек, предлагаемых счетчиком, предложить игрокам большие и яркие изображения космических ракет?

Рис. 1.6. В этой форме размещены элементы управления, которые не предлагаются стандартно VBA

Но во многих случаях предлагаемые элементы управления ActiveX могут делать то, чего не могут стандартные, например размещать на формах небольшие электронные таблицы с данными. Краткий обзор самых популярных и полезных элементов управления ActiveX различных поставщиков вы найдете в главе 14.

Вы можете даже самостоятельно создавать свои собственные элементы управления ActiveX. Для этого используют Visual Basic 5 или 6 (либо профессиональную версию, либо версию для предприятий).

Объектно-ориентированное программирование и VBA

В результате своей эволюции Visual Basic превратился в (почти) объектно-ориентированный язык программирования. Хотя освоение приемов работы с объектами и представляет некоторую трудность в начале знакомства с VBA, ожидаемая отдача того стоит. Тонкости программирования объектов будут рассмотрены в главе 12, но уже здесь имеет смысл получить хотя бы поверхностное представление о предмете.

VBA как стандарт (точнее, род стандарта)

Одно из главных преимуществ VBA - то, что это стандарт, т.е. он работает совершенно одинаково во всех VBA-приложениях. Если вы научитесь создавать VBA-программы, скажем, в Microsoft Word, все ваши знания и умения точно так же будут применимы в Visio, AutoCAD и любом другом VBA-приложении.

В таком утверждении доля правды действительно велика, Редактор Visual Basic и все его составляющие идентичны во всех VBA-приложениях (точнее, во всех, где есть редактор Visual Basic). Работает редактор Visual Basic тоже везде одинаково. Это касается, например, процесса создания форм (опять напомню, что формы - это диалоговые и другие окна, создаваемые вами для своих программ). Вы можете создать форму в одном VBA приложении и использовать ее затем в другом. Хотя, честно говоря, проектировать и создать формы в VBA совсем просто. Но когда дело доходит до языка программирования, составляющего ядро VBA, там уже все далеко не так согласованно. С одной стороны, базис языка всегда один и тот же. Например, для определения переменной всегда можно использовать специальное слово Din (напомню, что переменная - это место, где программа хранит число, кусочек текста или нечто другое, что изменяется в процессе выполнения программы). Так, в любом VBA-приложении выражение Dim MyVariable as Integer создает переменную с именем MyVariable и определяет ее как целую, а не как текст или число с десятичными знаками.

Точно так же одинаково определяются выполняющие конкретные задачи подразделы программы (процедуры и функции), независимо от того, в каком из VBA-приложений вы это делаете.

Однако, помимо этих основополагающих команд, в каждом из VBA-приложений довольно много VBA-команд, уникальных именно для этого приложения. Это значит, что вам придется достаточно многое выучить дополнительно, если вы захотите перейти от программирования в рамках одного VBA-приложения к программированию в рамках другого, - хотя и предполагается, что VBA стандартизирован.

Конечно, совсем не удивительно, что такое специализированное на графических изображениях приложение, как Visio. имеет команды, отличные от команд текстового процессора Word. Печально то, что различные VBA-приложения часто используют разные команды даже для тех возможностей, которые у этих приложений общие. Ярким примером такой несогласованности служат команды настройки меню. Можете ли вы поверить, но даже Word, Excel и PowerPoint - эти вечно целующиеся кузины из семейства Microsoft Office- для настройки некоторых элементов имеют совершенно разные VBA-команды. Ох, нет совершенства в этом мире!

Строго говоря, сам язык VBA остается одним и тем же во всех VBA приложениях. Он кажется меняющимся, потому что в каждом из приложений есть свой уникальный набор объектов с их собственными методами (командами) и свойствами (характеристиками). Подробнее об объектах, методах и свойствах говорится в главе 12.

Другие диалекты VBA

Большинство VBA-приложений имеют полный фарш- и средство записи макросов, и полноценный редактор Visual Basic, и полную версию языка программирования VBA. К таким 'Кадиллакам VBA-приложений можно отнести Visio, WordPerfect, AutoCAD и, безусловно, 'тяжелую артиллерию от Microsoft - Word, Excel и PowerPoint.

Microsoft Access немного выпадает из общего ряда VBA-приложений. В Access нет средства записи макросов, поэтому программный код макросов придется записывать вручную, - по этой причине они не считаются VBA-макросами. Формы Access (пользовательские диалоговые окна) не переносятся в другие VBA приложения. И в то время как Access 2002 содержит редактор Visual Basic, в Access 97 его нет. Вместо редактора там вы получаете отдельные окна для печатания VBA-кода, отладки и проектирования форм.

В некоторых приложениях (например, в Internet Explorer и Outlook) используется урезанная версия VBA, называемая VBScript. Такие VBScript-приложения не имеют редактора Visual Basic, ла и сам язык программирования не полон. Но все равно этот язык остается достаточно мощным.

VBA против Visual Basic

Помимо того, что VBA не позволяет вам создавать отдельные приложения, одно из основных отличий состоит в том, что программы, написанные на VBA, работают медленнее, чем программы, написанные на Visual Basic.

Почему VBA обычно медленнее, чем Visual Basic

Кроме того, что вы не можете создавать в VBA отдельные, автономно работающие приложения, между VBA и Visual Basic есть еще одно серьезное отличие- VBA-программы обычно выполняются медленнее.

Причина этого обнаруживается просто: VBA-программу приходится компилировать хотя бы раз в каждой сессии работы с соответствующим VBA-приложением. Компиляция - это процесс перевода программного кода (который вы можете прочитать) в машинный код (представляющий собой инструкции, которые непосредственно исполняются компьютером во время выполнения программы). Компилятор представляет собой программу, которая переводит программный код, понятный человеку, в инструкции, которые может выполнить компьютер.

После выполнения компиляции программы, созданной в Visual Basic, она сохраняется на жестком диске компьютера в форме машинного кода, который всегда может быть выполнен компьютером с максимальной скоростью, как только программа будет загружена в память.

В противоположность этому, VBA-программы хранятся в виде VBA-кода. Когда вы даете указание выполнить VBA-программу, происходит следующее.

1. Выполняется компиляция программы.

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

2. Полученная в результате компиляции версия программы сохраняется в памяти компьютера.

3. Наконец-то! Программа начинает выполняться.

Шаг 2 дает надежду на сведение потерь к минимуму. До тех пор пока скомпилированная версия VBA-программы хранится в памяти, эта программа может выполняться с максимальной скоростью всякий раз, когда понадобится. Но как только вы выйдете из VBA-приложения, эта скомпилированная программа без следа растворится в эфире. Еще хуже то, что скомпилированная версия VBA-программы может лишиться своего временного жилья в памяти задолго до того момента, когда вы решите покинуть приложение. Такое ее изгнание случится, если программа в какой-то момент не использовалась, и как раз тогда системе потребовалась дополнительная память, например для запуска других приложений.

Что касается тех задач, на которых специализируется VBA (а к ним относится работа с объектами базового VBA-приложения), то они будут выполняться программой, созданной в VBA, действительно быстрее, чем такой же программой, написанной в Visual Basic.

Различия между VBA и Visual Basic

VBA имеет очень много общего с Visual Basic, своим старшим братом, предназначенным для создания независимых приложений. А раз языки похожи, вы можете перенести большую часть своих навыков в программировании на VBA в Visual Basic. Однако вам следует помнить о некоторых очень важных различиях.

К концу 2001 года ожидается перевоплощение Visual Basic в Visual Basic.NET. Хотя изменения в основном направлены на расширение возможностей и упрощение использования, сам язык будет отличаться от VBA. Поэтому вам придется изменить некоторые приемы программирования, принятые в VBA, чтобы они сработали и в Visual Basic.NET. Конечно же, вы можете ограничиться Visual Basic версий 5 и 6 - инструментами, которые будут работать еще не один год и которые используют один базовый язык программирования с VBA. Однако вы должны иметь в виду, что VBA и Visual Basic используют разную систему создания и отображения форм.

Когда следует записывать макрос

Макросы экономят время и снимают раздражение. Это действительно так. Компьютер воспроизведет последовательность команд куда быстрее, чем это сделаете вы, щелкая на соответствующих кнопках команд и выбирая пункты соответствующих меню. При этом компьютер не допустит ни единой ошибки. И ваше настроение, несомненно, улучшится, поскольку люди обычно не любят повторять одно и то же больше двух-трех раз подряд.

Поэтому проверьте, не приходится ли вам снова и снова повторять в приложении одни и те же последовательности команд. Как только вы обнаружите, что такие последовательности у вас есть, сразу же запишите их виде макроса. А еще лучше, если вы знаете наперед, что какую-то новую последовательность команд вам придется использоваться и в дальнейшем, запишите соответствующий ей макрос уже при первом случае ее применения. И уже со следующего раза используйте макрос.

Макрос - и вещь хорошая, и развитие стимулирует

Макросы очень полезны для своего прямого назначения, но не менее полезны они для использования программного кода записанного макроса как примера для начала освоения программирования в VBA. После того как вы запишете несколько макросов, вы наверняка загоритесь желанием как-нибудь их улучшить и сделать более гибкими. В результате совсем небольших усилий с помощью VBA вы можете добавить своим макросам немного интеллекта и заставить их выполнять различные действия в зависимости от ситуации. Это будет обсуждаться ниже, в разделе Редактирование макросов как способ создания программного кода.

Запуск средства записи макросов

Запустить средство записи макросов можно одним из следующих способов.

* Выбрать из меню Сервис=Макрос=Начать запись. В последних версиях Office меню Макрос может не появляться до тех пор, пока вы не щелкнете на кнопке с направленной вниз стрелкой внизу в меню Сервис.

* В панели инструментов щелкнуть на кнопке Начать запись макроса, если у вашего t; приложения таковая есть. Например, в Microsoft Office кнопка Начать запись макроса расположена в панели инструментов Visual Basic.

В результате любого из этих действий появится диалоговое окно Запись макроса.

На рис. 2.1 показано диалоговое окно Запись макроса из Microsoft Excel (это окно в разных приложениях выглядит по-разному).

Как выбрать имя для малютки

Стараясь быть полезным, диалоговое окно Запись макроса предложит самое оригинальное из подходящих имен для вашего нового макроса- Макрос1 (или Макрос2, или МакросЗ). Вежливо поблагодарив, быстренько удалите предлагаемое имя и впечатайте вместо него нечто более вам подходящее.

Рис. 2.1. Диалоговое окно Запись макроса в Excel

Имена макросов должны, конечно, ассоциироваться с выполняемыми ими задачами.

Однако при этом следует придерживаться определенных правил. Ну-ка, повторяйте все хором за мной.

* Имя макроса должно начинаться с буквы, а не с цифры. А вот после первой буквы уже могут идти и цифры.

* Имя макроса не должно содержать пробелов. Для выделения начала слов в имени макроса следует использовать прописные буквы, например, как здесь:

ОчисткаВсегоЖесткогоДиска

* Знаки пунктуации тоже не допускаются. Здесь есть исключения, но вполне разумно в именах макросов знаки пунктуации не использовать вообще. Если в именах присутствуют знаки пунктуации. VBA выводит сообщение Invalid procedure name (Недопустимое имя процедуры).

Детальное обсуждение правил выбора имен в VBA приводится в главе 6.

Другие опции диалогового окна Запись макроса

В зависимости от приложения, диалоговое окно Запись макроса может содержать различные опции. Вот несколько примеров.

* Возможно, там будет место для ввода более подробного описания макроса.

* Возможно, у вас будут варианты при определении места хранения макроса. Как правило, предлагается хранить его либо в самом документе, либо в шаблоне документа.

* Возможно, вам предложат приписать макрос кнопке в панели инструментов либо назначить ему комбинацию клавиш. Если ваше приложение предусматривает такую опцию, используйте ее без сомнений! Подробности вы найдете в следующем разделе.

Кнопка, кнопка, ты чья?

Некоторые VBA-приложения позволяют приписать новый макрос кнопке в панели инструментов либо назначить ему комбинацию клавиш еще до начала записи этого макроса.

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

Если приложение позволяет такой трюк, вы увидите в диалоговом окне Запись макроса соответствующее поле. Так, в Excel в диалоговом окне Запись макроса есть поле Сочетание клавиш, где вы можете указать комбинацию клавиш (например, CtrI+M), которая должна будет запускать макрос (см. рис. 2.1). В Word диалоговое окно Запись макроса содержит кнопки, которые позволят вам либо приписать макрос кнопке в панели инструментов, либо назначить ему комбинацию клавиш (рис. 2.2). Щелкнув на одной из этих кнопок, вы тем самым откроете новое диалоговое окно, в котором и должны будете сделать соответствующие назначения.

Когда вы назначаете комбинацию клавиш новому макросу, не поленитесь сразу же где-нибудь эту комбинацию записать. На время, пока эта новая комбинацию клавиш запомнится, держите напоминание о ней на своем рабочем столе или на экране компьютера.

Рис. 2.2. Диалоговое окно Запись макроса в Word

Начало записи

Командой для начала записи макроса будет щелчок на кнопке ОК в диалоговом окне Запись макроса. О том, что запись началась, вы узнаете по появившейся с этого момента панели инструментов Остановить запись (рис. 2.3). Изменится также и указатель мыши, превратившись в небольшое изображение магнитофонной компакт-кассеты.

Рис. 2.3. Панель инструментов Остановить запись

Запись команд

После начала записи вам не придется предпринимать никаких специальных действий, чтобы записать нужные вам команды в макрос. Нужно просто использовать команды приложения самым обычным способом. Все, что вы будете делать,- и выбор команд из меню, и форматирование изображений, и печатание текста- будет сохранено в макросе.

Ах, да! Все допущенные во время записи ошибки тоже будут добросовестно записаны и помещены в макрос. Чтобы их исправить, вы можете либо записать макрос вновь, либо отредактировать программный код макроса в редакторе Visual Basic (читайте ниже раздел Редактирование программного кода макроса в редакторе Visual Basic).

Паузы во время записи и ее завершение

Чтобы остановить запись после выполнения всех команд, которые вы хотели записать, щелкните на кнопке Остановить запись в панели инструментов с тем же названием (см. рис. 2.3). Запись прекратится, а все записанные команды будут сохранены в виде VBA-программы. (Если вы мне не верите, взгляните на полученный в результате программный код, - подробности ниже, в разделе 'Редактирование программного кода макроса в редакторе Visual Basic.)

Находясь в Word, вы можете сделать паузу в процессе записи макроса. Если вам необходимо выполнить команду, которая не должна быть частью макроса, щелкните на кнопке

Пауза (тоже находится в панели инструментов Остановить запись). Процесс записи впадет в летаргический сон, с этого момента игнорируя все используемые вами команды.

Во время паузы в записи кнопка Пауза будет выглядеть нажатой (рис. 2.4). Официально теперь это будет кнопка Возобновить запись. Щелкните на этой кнопке, когда снова будете готовы продолжить запись временно покинутого вами макроса.

Рис. 2.4. Использование панели инструментов Остановить запись в Word

Выполнение макросов

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

Ввиду того, что макросы являются VBA-программами, все приемы, которые используются при запуске созданных вручную VBA-программ, применимы и для автоматически записанных макросов. Всегда можно сначала открыть диалоговое окно Макрос (Alt+F8), выбрать в нем нужный макрос, а затем щелкнуть на кнопке Выполнить (в PowerPoint это кнопка Запуск; рис. 2,5). Подробно о технике выполнения VBA-программ говорится в главе 4.

Рис. 2.5. Диалоговое окно Макрос (во многих VBA-приложениях оно называется именно так)

Автоматически записанный макрос не проявляет никакого интеллекта - макрос не может изменять свое поведение в зависимости от изменившихся условий. Будучи запущенным для выполнения, он пытается выполнить записанные команды, даже если в сложившейся ситуации в приложении эти команды вообще неприменимы. Например, если макрос предполагает, что вы находитесь в начале документа, а вы вызвали его, находясь в конце документа, вполне вероятно, что он не сделает ничего вообще. Если вызвать макрос, созданный для манипуляций с текстом, в то время, когда вы редактируете созданный вами рисунок, то такой макрос может свести на нет все ваши многочасовые сверхчеловеческие усилия по созданию шедевра, просто уничтожив последний. Мой вам совет: независимо от сложности макроса, сохраните документ перед тем, как выполнять этот макрос, и будьте всегда готовы воспользоваться командой Отменить (Ctrl+Z).

Редактирование программного кода макроса в редакторе Visual Basic

После того как макрос записан, полученную VBA-программу вы можете отредактировать (или, по крайней мере, просто взглянуть на строки ее программного кода). Вот как это сделать.

1. Выберите Сервис=Макрос=Макросы или нажмите Alt+F8, чтобы открыть диалоговое окно Макрос (см. рис. 2.5).

2. Выберите нужный вам макрос из списка ниже поля Имя.

Макрос, который вы только что записали, не выбирается автоматически, поэтому, чтобы найти его, вам, вероятно, придется полистать список.

3. Щелкните на кнопке Изменить.

Перед вами немедленно возникнет окно редактора Visual Basic с помещенным в него программным кодом выбранного макроса, готовым для редактирования. Пример показан на рис. 2.6.

Простейшие усовершенствования макросов

В этой главе не предполагается подробно рассматривать приемы редактирования макросов в редакторе Visual Basic. В конце концов, это те же самые приемы, которые используются при создании любых VBA-программ и которые, в основном, обсуждаются в этой книге.

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

Рис.2.6. Запись макроса завершена, и перед вами - его программный код, созданный генератором средства записи макросов

Организуйте повторение команд в макросе. Возможно, вам известно наперед, что придется выполнить целую последовательность команд (или какую-то одну команду) ровно 11 раз. В этом случае все, что вам нужно, - это добавить в свой программный код цикл For. . .Next. Вы спрашиваете, что такое цикл For . . . Next? Это один из элементов языка программирования VBA, обсуждать которые я собираюсь в главе 8.

Организуйте повторение команд в макросе с выяснением количества необходимых повторений непосредственно во время работы макроса. Если вы достаточно амбициозны, добавьте в свой макрос сразу и цикл For. . .Next, и функцию InputBox. Последняя выводит на экран диалоговое окно, предлагающее ответить на некоторый вопрос, в данном случае - о количестве повторений. Использование InputBox обсуждается в главе 11.

Добавьте при вызове возможность выбора текста для использования макросом.

Макрос, который всегда вставляет в документ один и тот же текст, не слишком гибок.

Добавив в записанный макрос функцию InputBox, вы сможете сообщать при каждом запуске макроса, какой текст нужно вставить. Снова напомню, что подробности об использовании InputBox вы найдете в главе 11.

Добавьте возможность выбора перед запуском макроса. Довольно часто для правильной работы макроса требуется выбрать текстовый, графический или какой-то другой объект. Структура If. . . End If языка VBA позволяет проверить, выбран ли объект подходящего типа, чтобы иметь возможность отменить работу макроса в случае невыполнения каких-либо условий. Все тонкости использования оператора If... End If обсуждаются в главе 8.

Как только вы осознаете привлекательность использования средства записи макросов в совокупности с самыми минимальными усилиями по добавлению VBA-кода, вас непременно привлечет и программирование. После этого ваше превращение в компетентного VBA-программиста станет только вопросом времени и не потребует слишком большим усилий.

Вызов редактора Visual Basic одним щелчком

Если в вашем приложении есть кнопка в панели инструментов для вызова редактора Visual Basic. используйте се. В VBА-приложениях из пакета Microsoft Office (Word. Excel и PowerPoint) эта кнопка помещена в панель инструментов Visual Basic (рис. 3.2). Наборы кнопок в этой панели инструментов у разных приложений могут немного отличаться.

Рис. 3.1. Редактор Visual Basic

Рис, 3.2. Вид панели инструментов Visual Basic в приложении Word

Кнопки в этой панели инструментов, как правило, соответствуют пунктам подменю Макрос из меню Сервис. Вот для чего предназначены некоторые из этих кнопок (слева направо, см. рис. 3.2).

* Первые две кнопки предназначены соответственно для выполнения и записи макросов.

* Кнопка справа от кнопки Безопасность вызывает редактор Visual Basic. Если вы часто используете редактор Visual Basic, а другие кнопки в этой панели инструментов вам не нужны, скопируйте кнопку вызова редактора в другую панель. Чтобы скопировать кнопку в любом из приложений Office, перетащите ее на новое место, удерживая при этом нажатой клавишу Alt.

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

* Кнопка с изображенными на ней линейкой, треугольником и карандашом включает режим проектирования, в котором вы можете редактировать элементы управления VBA в своем документе.

Краткое знакомство с редактором Visual Basic

Первые обращения к редактору Visual Basic могут вас озадачить. Наверное, присутствие меню и панелей инструментов вверху экрана покажется вам привычным, но вот что означает это обилие окон? Предсказать их взаимное расположение практически невозможно, поскольку они размещаются и комбинируются почти в бесконечном разнообразии вариантов (даже когда вы открываете редактор Visual Basic впервые, все равно предстающая перед вами картина допускает немало вариантов, в зависимости от того, как вы его открыли).

Кроме того, если вы не профессиональный программист, названия окон и их функции окажутся для вас наверняка непонятными.

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

Таблица 3.1. Имена и функции

Давайте поближе рассмотрим окно программного кола, предназначенное для печати и редактирования в нем VBA-кода, и окно пользовательской формы, предназначенное для визуального проектирования окон и форм. Примеры окон программного кода и пользовательской формы показаны на рис. 3.3 и 3.4 соответственно.

Рис. 3.3. В окнах программного кода, подобных этому, печатается программный код VBA

Рис. 3.4. Пример окна пользовательской формы с помещенным в него диалоговым окном на стадии еще не завершенного проектирования

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

Скорая помощь VBA

Окна справки VBA выглядят по-разному в различных VBA-приложениях. Справочная система и старых программах использует старое и проверенное ядро WinHelp, своими истоками восходящее еще к Windows 3.11. Ядром же справки VBA 6 является HTML Help- новый стандарт Microsoft. Впервые представленная в Windows 98, система HTML Help больше похожа на Web-броузер. К сожалению, те версии HTML Help, которые я использовал до настоящего времени, ведут себя временами довольно странно и непредсказуемо, а кроме того, в них отсутствуют некоторые полезные возможности WinHelp, например возможность удерживать окно справки на экране перед другими окнами, когда активно другое приложение.

Чтобы открыть главное окно справки VBA, выберите Не1р=Справка по Microsoft Visual Basic - появится окно справки с описанием VBA в общем. Окно HTML Help для VBA 6 показано на рис. 3.5. К сожалению, здесь вы не найдете справки о работе с конкретным приложением.

Рис. 3,5. Пользователи VBA6 получают справку в окне HTML Help

Вызов справки VBA-приложения

Печально, но факт - редактор Visual Basic не предлагает команду, обеспечивающую непосредственный доступ к файлам справки того VBA-приложения. из которого он вызван. Не тратьте время на поиски - такой команды просто нет.

Если вам понадобится дополнительная информация о программировании в данном приложении, а не о VBA вообще, единственным решением будет следующий четырехшаговый процесс.

1. Откройте обозреватель объектов, нажав F2 или выбрав Вид=Обозреватель объектов (подробно обозреватель объектов рассмотрен в главе 6).

2. Из раскрывающегося списка в верхнем левом углу окна обозревателя объектов выберите имя вашего VBA-приложения.

3. Выделите любой раздел в панели классов в левой части окна обозревателя объектов.

4. Нажмите F1 или щелкните на кнопке с вопросительным знаком вверху окна обозревателя объектов, чтобы вызвать справочную систему.

При этом вы, конечно, увидите ту часть справки, которая относится к выделенному вами разделу в окне обозревателя объектов, но зато в окне справки можно воспользоваться вкладкой Содержание, на которой представлена вся справочная система вашего приложения.

Поиск в стоге справок

Работа справочной системы VBA организована в соответствии со стандартами Windows как в WinHelp, так и в HTML Help. В обоих случаях вы можете сделать следующее.

* Воспользоваться вкладкой Содержание, чтобы увидеть дерево разделов справки, подобное содержанию обычной книги.

* Воспользоваться вкладкой Предметный указатель, чтобы увидеть алфавитный список ключевых слов, предлагаемый создателями справки.

Можно также воспользоваться вкладкой Поиск, чтобы найти практически любое слово, встречающееся в файлах соответствующей справки. Следует, правда, заметить, что в справке VBA для Office вместо вкладки Поиск есть вкладка Мастер ответов. Предполагается, что вы можете теперь перейти к нужному разделу справки в ответ на целый введенный вами вопрос, но с тем же успехом вы можете просто ввести одно-два слова, а затем щелкнуть на кнопке Найти.

Контекстно-зависимая справка

В редакторе Visual Basic клавиша F1 вызывает контекстно-зависимую справку, т.е. открывает перед вами именно тот раздел справки, который соответствует работе, выполняемой вами в момент вызова. То, что вы увидите, зависит от типа окна, которое будет в редакторе при этом активным, а часто и от того, что именно вы делаете в этом окне.

Такая возможность оказывается действительно удобной при создании программного кода и проектировании форм. В окне программного кода клавиша F1 предоставит справку для термина, находящегося в точке ввода (точка ввода задается текстовым курсором - мигающей вертикальной линией, определяющей место появления печатаемых вами символов). Не волнуйтесь, если вы забыли, как используется какой-нибудь VBA-оператор. Например For . . . Next, или если не помните, какими свойствами и методами обладает нужный вам объект. Просто поместите текстовый курсор в соответствующий оператор и нажмите FI. Пример того, что вы можете при этом увидеть, показан на рис. 3.6.

Рис. 3.6. Получение справки для метода Add в Visio. Если присмотреться, можно заметить, что точка ввода в окне программного кода находится внутри ключевого слова Add

Подобным образом клавиша F1 предоставит вам самую подробную справку о проектировании форм. В окне пользовательской формы можно получить справку о каждом из помещенных в форму элементов управления (рискуя показаться назойливым, я напомню, что элементы управления - это кнопки, флажки, фреймы и т.п.). Щелкните на элементе управления, чтобы выделить его, а затем нажмите F1. Чтобы получить справку об определенном свойстве элемента управления, выделите этот элемент управления, щелкните в строке соответствующего свойства в окне свойств, а затем нажмите F1.

В других окнах клавиша F1 работает следующим образом.

* В окне проводника проекта и окне пользовательской формы нажатие клавиши F1 вызывает раздел справки с описанием окна. Для окна пользовательской формы это сработает, только если не выделен ни один из элементов управления.

* В окне контролируемых выражений, окне локальных переменных и в окне немедленного выполнения нажатие F1 вызывает окно справки со множеством предлагаемых в нем ссылок - подчеркнутых слов и словосочетаний, на которых надо щелкнуть, чтобы перейти к соответствующему разделу справки. Лично мне совершенно не понятно, почему сделано так, что для этих окон подходящий раздел справки не появляется автоматически.

* В окне обозревателя объектов при выделенных классе и члене класса нажатие F1 вызывает появление раздела справки, соответствующего выбранному объекту.

Что особенного в разделах справки VBA

При использовании справки VBA обращайте внимание на ссылки и кнопки ссылок, вызывающие другие относящиеся к рассматриваемому вопросу разделы справки. Научитесь пользоваться ими! Подобно разделу, показанному на рис. 3.7, большинство разделов справки VBA предлагают такую возможность. Если показанный раздел не содержит необходимой вам информации, вполне вероятно, что вы отыщете ее в разделах, предлагаемых ссылками.

Рис. 3.7. Подобно большинству других разделов, этот раздел справки VBA в Word предлагает ряд ссылок на другие разделы справки

В табл. 3.2 приведены некоторые из ссылок, которые вы можете увидеть в окне справки.

Таблица 3.2. Ссылки и кнопки ссылок

Позаимствуйте программный КОД из файла справки

Не упустите возможность использовать фрагменты программного кода, предлагаемые во многих разделах справки VBA. Нередко программный код предлагаемого примера после самых минимальных изменений будет в точности соответствовать тому, что требуется вам. Чтобы использовать примеры справки, выделите нужные вам строки программного кода с помощью мыши, щелкните на выделенном правой кнопкой мыши и в появившемся меню выберите Копировать. После этого перейдите в окно программного кода в редакторе Visual Basic и щелкните на кнопке Вставить в панели инструментов или нажмите Ctrl+V.

Установка всех файлов справки

В зависимости от приложения и от того, как вы его инсталлировали, на вашем жестком диске установлен, а, может быть, и не установлен полный комплект файлов справки VBA. Из-за того, что любая серьезная работа в VBA без файлов справки практически невозможна, убедитесь в том, что все они установлены.

Например, программа установки Office устанавливает не все, а только некоторые файлы справочной системы VBA. Большинство пользователей при установке Office на свои компьютеры используют в программе установки кнопку Типичная. Это, конечно, очень удобно (зачем думать?), но при этом не устанавливается целый ряд важных файлов справки VBA.

Если так же действовали и вы, снова запустите программу установки и выберите опцию Выборочная. По очереди для каждого из приложений Office выберите пункты Справка и Файлы примеров. Когда вы затем щелкнете на кнопке Применить, появится диалоговое окно, подобное показанному на рис. 3.8. В этом окне отметьте флажок пункта Справка по Visual Basic.

Рис. 3.8 Чтобы установить справку VBA, отметьте флажок Справка для Visual Basic

В Office, даже если вы использовали при установке опции Выборочная или Полная, файлы справки VBA для Outlook все равно не устанавливаются на ваш жесткий диск. Чтобы установить справку VBA для Outlook, вам придется самим скопировать соответствующий файл справки из папки valupack\morehelp на компакт-диске Office в папку, куда установлен Office.

1-й шаг. Проектирование программы-примера

Поскольку мне не известно, с каким из VBA-приложений вы работаете, придется предложить вам в качестве примера нечто вполне типичное и, с другой стороны, потенциально полезное. Наша программа-пример должна будет открывать на экране новое окно с показанной в нем злободневной цитатой, а также датой и временем (я называю все это сообщением). Окно будет оставаться на экране до тех пор, пока пользователь не щелкнет на кнопке ОК.

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

* Очевидно, программа имеет одно окно, поэтому вам понадобится одна форма (UserForm).

* Для формы потребуются два элемента управления - надпись для сообщения и кнопка для команды ОК.

* Нужно будет также создать программный код для двух процедур: одной- для надписи, в которую нужно поместить сообщение, а другой - для выхода из программы, когда пользователь щелкнет на кнопке ОК.

Чего наша программа определенно не требует, так это отдельного модуля для ее VBA-кода (модуль - это отдельная единица программного кода, содержащая одну или несколько процедур; более подробно о модулях говорится в главе 6). Обе наши процедуры можно разместить в окне программного кода, ассоциированном с формой. В конце концов, ведь эти процедуры отвечают на события, которые происходят с формой.

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

Процедура выхода из программы тоже вызывается событием, относящимся к форме, а именно - щелчком на кнопке ОК. Эту процедуру тоже можно разместить в окне программного кода формы.

Не забывайте, что у многих VBA-программ вообще нет своих окон. При создании такой программы вам непременно придется создать хотя бы один модуль, чтобы было куда поместить программный код.

2-й шаг. Реализация проекта

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

Первым делом в редакторе Visual Basic создайте новую, чистенькую форму, которая послужит окном программы. Из меню редактора Visual Basic выберите InsertsUserForm, чтобы поместить новую форму на свой экран.

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

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

Рис. 3.9. Только что созданная форма в поисках цели своего существования

Значительно интереснее будет панель элементов управления (рис. 3.10), представляющая собой небольшое окно с набором пиктограмм, которое возникает на экране при работе с формой.

Рис. 3.10. Панель элементов управления VBA с пиктограммами элементов управления, которые вы можете поместить в свою форму

Теперь вы можете несколько оживить форму, добавив в нее пару элементов управления.

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

Но ваша программа это может. Нашей с вами программе-примеру это просто необходимо, так как ей придется отображать дату и время, которые зависят от того, когда выполняется программа.

Чтобы поместить надпись в свою новую пользовательскую форму, выполните следующее.

1. Убедитесь, что форма активна, щелкнув на ней.

Панель элементов управления видна только тогда, когда форма активна.

2. Щелкните на пиктограмме с буквой А в панели элементов управления.

3. Поместите указатель мыши в форму, ближе к левому верхнему краю, и, нажав левую кнопку мыши, перетащите указатель вправо вниз, чтобы появившийся при этом прямоугольник вместил нужное сообщение (используйте рис. 3.11 в качестве руководства).

Рис. 3.11. После помещения в форму элемента управления надписью она должна выглядеть приблизительно так

Каждой новой надписи VBA автоматически приписывает заголовок, поэтому в прямоугольной рамке, ограничивающей наш элемент управления надписью, вы увидите величественный текст Label1. Ясно, что это не тот текст, который нам нужен. Чтобы удалить автоматически созданный текст надписи, придется обратиться к окну свойств.

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

Для управления свойствами предназначено окно свойств. Как видно из рис. 3.12, в окне свойств представлен список всех свойств выделенного в данный момент элемента управления. Чтобы изменить нужное вам свойство, просто найдите его в левом столбце и измените значение этого свойства в правом.

Рис. 3.12. Для изменения установок любого из свойств элемента управления используйте окно свойств

Для надписи в нашей программе-примере нужно изменить лишь два свойства- Name (Имя) и Caption (Заголовок). Замените имя элемента управления с Labell на lblNow (первые три буквы указывают на то, что имя принадлежит элементу управления надписью).

Чтобы сделать это, найдите свойство Name в самом верху списка свойств (оно представлено как (Nan.e)),- это единственное из свойств, заключенное в скобки. Двойным щелчком в правом столбце строки этого свойства выберите его, а затем впечатайте новое имя. (Имена элементов управления используются при создании программного кода, поэтому для них имеет смысл выбирать имена, которые напоминали бы о назначении элементов управления. В главе 6 говорится о соглашениях, которые следует использовать в именах для идентификации создаваемых элементов управления.)

Затем опуститесь по списку ниже и найдите свойство Caption. Здесь просто удалите значение свойства. Почему? Просто потому, что ваша программа сама обеспечит текст для надписи во время выполнения.

Теперь ясно, что вам придется создавать некий программный код, если вы хотите, чтобы программа во время выполнения изменяла свойства элемента управления. Большинство свойств при этом остаются неизменными, а поэтому создание такого программного кода не требует больших усилий. Раз уж вы меняете свойства, заодно измените и заголовок самой формы. Выберите форму, щелкнув на полосе заголовка окна формы. В изменившемся при этом окне свойств найдите свойство Caption и измените его на что-нибудь типа Вы не видели моей клавиатуры? или Моя первая программа в VBA. Этот новый заголовок появится в полосе заголовка формы.

Элемент управления кнопкой команды (чаше называемый просто кнопкой) отличается от надписи тем, что предполагает определенные действия со стороны пользователя программы.

Когда кто-нибудь щелкает на кнопке, ее изображение на экране изменяется так, что она выглядит нажатой, а программа в ответ выполняет какие-нибудь действия.

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

1. Щелкните в окне формы, чтобы сделать его активным снова.

При этом панель элементов управления, которая исчезла, когда вы перешли в окно свойств, возникнет снова.

2. Щелкните на той пиктограмме в панели элементов управления, на которой изображена кнопка (см. рис. 3.11).

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

Теперь форма должна принять вид. как на рис. 3.13.

Рис. 3.13. ВИД формы после того, как в нее добавили кнопку

Теперь вы должны установить нужные значения свойств кнопки. Используя окно свойств, выполните следующие шаги.

1. Измените значение свойства (Name) на OKButton.

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

2. Измените значение свойства Caption на ОК. Этот текст увидит пользователь на кнопке во время выполнения вашей программы.

Вот вы и создали форму для своей программы. Уже к этому моменту ваша программа стала вполне функционирующей VBA-программой - она будет показывать очень симпатичное только что созданное вами окно. Чтобы запустить программу на выполнение, нажмите F5 или щелкните на кнопке Выполнить в панели инструментов редактора Visual Basic. На этой кнопке изображена маленькая направленная вправо стрелка.

Когда вы запустите эту наполовину испеченную программу, на экране появится форма на фоне вашего VBA-приложепня (а не на фоне окна редактора Visual Basic; рис. 3.14). Поле надписи будет пустым, и кнопка ОК ничего делать не будет - не забывайте, что никакого программного кола мы еще не печатали. Чтобы завершить выполнение программы, щелкните на стандартной для Windows кнопке закрытия в правом конце строки заголовка окна.

Рис. 3.14. Запуск пользовательской формы перед добавлением программного кода

Пора перейти к наиболее пугающему и вместе с тем самому увлекательному этапу программирования в VBA - созданию программного кода. Напомню, что для нашей с вами программы требуется создать две процедуры и что они связаны с событиями, возникающими в процессе выполнения программы. Первая процедура должна при появлении на экране формы отобразить нужное сообщение, а вторая - завершить выполнение программы, когда кто-нибудь щелкнет на кнопке ОК.

Чтобы напечатать связанный с формой или одним из ее элементов управления программный код, вам нужно вместо окна формы открыть окно программного кода этой формы. Для этого выделите форму или элемент управления в ней. Для кнопки ОК это сделать легче всего, так почему бы не начать именно с нее? Щелкните на кнопке ОК, чтобы вокруг нее появились маркеры изменения размеров. Теперь для вызова окна программного кода воспользуйтесь любым из следующих способов.

* Выбрать View=Code из меню.

* Нажать F7.

* Щелкнуть на форме правой кнопкой мыши и в появившемся контекстном меню выбрать View Code.

В появившемся при этом окне программного кода должна уже быть заготовка процедуры (рис. 3.15). VBA автоматически создает процедуру для часто используемого в случае кнопки события - простого щелчка на кнопке. Ваша программа использует эту процедуру, когда кто-нибудь щелкнет на кнопке ОК.

Рис. 3.15. VBA создаст такую заготовку процедуры, как только вы откроете окно программного кода для кнопки ОК

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

Private Sub OKButton_Click()

В любой VBA-процедуре первая строка программного кода определяет тип процедуры (в данном случае это процедура .типа Sub, т.е. подпрограмма) и имя процедуры. Private и Sub относятся к ключевым словам VBA, т.е. к словам и символам, которые являются частью языка VBA. Ключевые слова имеют фиксированные специальные значения в VBA, и вы не можете их использовать в качестве имен таких объектов, как процедуры. Кстати, различные виды процедур в VBA обсуждаются в главе 6. В данном случае VBA предлагает для процедуры имя OKButton_Click, которое представляет собой комбинацию имени кнопки и типа события.

Последней строкой автоматически генерируемого программного кода будет:

End Sub

Такой строкой должны заканчиваться все процедуры типа Sub. Эта строка сообщает VBA о том. что выполнение процедуры пора завершить.

Добавление своего программного кода

Текстовый курсор будет мигать между этими двумя созданными VBA строками. Напечатав лишь одну дополнительную строку программного кода, мы дадим возможность программе завершить работу. Вот этот программный код:

Unload Me

Оператор Unload убирает указанный объект из памяти. Здесь это объект с именем Me, имеющим в VBA специальный смысл. В данном случае оно означает форму и весь ее программный код.

Исправление ошибок при вводе программного кода

Фигурально выражаясь, всегда, когда вы печатаете программный код, за вашей спиной стоит компилятор VBA. Если компилятор обнаруживает очевидную ошибку, вы немедленно получаете соответствующее сообщение с информацией об ошибке, по крайней мере в общих словах. Предположим, например, что после оператора Unload Me вы напечатали какой-нибудь лишний символ. Компилятор VBA знает, что Unload Me вполне завершенный оператор и за ним в строке больше ничего не должно следовать.

Как только вы переместите точку ввода в следующую строку, компилятор перепишет весь неправильный оператор красным цветом и выделит посторонний символ. Вы получите также сообщение Compile error. Expected: end of statement (Ошибка компиляции. Ожидался конец оператора).

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

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

1. В текстовом поле слева вверху окна программного кода, в котором до сих пор было написано OKButton, щелкните на стрелке в правом конце поля.

После этого откроется список объектов, имеющих отношение к форме (рис. 3.16).

Рис. 3.16. В открывающемся списке объектов перечислены объекты, имеющие отношение к форме, которой принадлежит это окно программного кода

2. Из раскрывающегося списка выберите UserForm.

VBA создаст новую процедуру для события Click (щелчок). Эта процедура будет вызвана, если пользователь вашей программы щелкнет кнопкой мыши в любом месте фермы, где нет элементов управления. Нашей с вами программе такая процедура не нужна, поэтому пока оставьте ее.

3. Теперь щелкните на стрелке в конце текстового поля, находящегося справа, чтобы открыть список процедур, в котором будут перечислены все события, которые VBA распознает для объекта UserForm.

Этот список достаточно велик, что дает вам возможность сделать свою программу чуткой практически настолько, насколько захотите (рис. 3.17).

Рис. 3.17. В списке процедур представлены события, которые будут для активного в данный момент объекта

4. Выберите Activate - самый первый пункт в списке. Чтобы увидеть этот пункт, вам придется пролистать список.

VBA добросовестно создаст заготовку процедуры UserForm_Activate, которая вызывается при загрузке формы в память.

5. Если вас раздражает пустая процедура UserForm_Click, удалите ее, выделив весь ее текст и нажав клавишу Del.

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

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

Private UserForm_Activate()

Dim Quote As String Quote = Не повторяется такое никогда:

lblNow.Caption = Quote Format(Now, dddddd, hh ч. mm мин.)

End Sub

Первая из напечатанных вами строк

Dim Quote As String

создает переменную с именем Quote и определяет ее как строковую, что означает последовательность текстовых символов.

Следующая строка

Quote = Не повторяется такое никогда:

сохраняет текст Не повторяется такое никогда: в только что созданной переменной Quote. Точно так же, как на уроках алгебры в школе, вы здесь используете знак равенства, чтобы приписать определенное значение переменной. Обратите внимание на то, что VBA перед закрывающими кавычками добавлен пробел, чтобы отделить текст сообщения от следующего за ним текста.

Наконец, строка

lblNow.Caption = Quote Format(Now, dddddd, hh ч. mm мин.)

содержит программный код, который непосредственно отображает нужное сообщение в форме. Эта строка начинается с идентификации элемента управления с именем lblNow как объекта, с которым идет работа. После имени стоит точка, означающая, что далее идет свойство объекта lblNow - в данном случае это свойство Caption. Вообще любое свойство подобно переменной, и его можно изменить во время выполнения программы. Поэтому, чтобы изменить установки свойства, в программном коде используется знак равенства. Оставшаяся часть строки определяет сообщение, которое должно появиться на экране в виде надписи.

Первой частью сообщения является переменная Quote. Следующий затем знак плюс дает указание VBA добавить то, что следует дальше, к тексту, хранящемуся в переменной Quote. В скобках функция Now говорит VBA, что нужно сбегать и узнать текущие показания часов компьютера, которые постоянно отсчитывают дату и время. Затем функция Format берет эту сырую информацию и представляет ее в виде, который сможете прочитать вы. Странный набор букв в кавычках как раз и определяет вил даты и времени на экране, но здесь я не собираюсь вдаваться в детальные объяснения по этому поводу - подробную информацию вы найдете в главе 11.

3-й шаг. Тестирование программы

Так это только шаг 3? Не волнуйтесь, остальные шаги цикла разработки программы не будут слишком длинными.

Теперь программа готова к пробному запуску, с помощью которого вы сможете увидеть, работает пи она в соответствии с вашими планами. Чтобы запустить программу из редактора Visual Basic, выполните следующее.

1. Щелкните либо в окне формы, либо в окне программного кода, чтобы соответствующее окно стало активным.

Вспомните, что выяснить, какое из окон активно, можно по полосе заголовка окна - у активного окна цвет полосы заголовка отличается от цвета полос заголовков неактивных окон (у которых по умолчанию они тускло-серые).

2. Затем воспользуйтесь одним из следующих способов.

*span**** /spanВыберитеspan Run = Run Sub/UserForm из меню.

* Щелкните на кнопке Run (Выполнить) в панели инструментов Standard (Стандартная) редактора Visual Basic. (Сразу после установки приложения панель инструментов Standard оказывается единственной видимой панелью инструментов в редакторе Visual Basic до тех пор, пока вы сами не измените настройки в соответствии с инструкциями главы 5.)

* Нажмите F5.

После небольшой задержки окно нашей с вами программы появится на фоне вашего VBA-приложения (а не редактора Visual Basic). Если все в порядке, вы увидите нечто, очень похожее на рис. 3.18.

Рис. 3.18. Окно готовой программы-примера во время выполнения

Не забудьте выполнить указанный выше п. 1, прежде чем запускать VBА программу! Если не активизировать сначала окно формы или окно ее программного кода, то при попытке запуска программы не случится ничего (или будет запушена какая-нибудь другая программа).

Прежде чем запустить VBA-программу первый раз, ее следует скомпилировать (по поводу определения компиляции снова загляните в главу 1). В процессе компиляции ваша программа готовится к быстротечной жизни, а ее программный кол проверяется строка за строкой на соответствие правилам языка VBA. При первом же отклонении от этих правил компилятор остановится и даст вам шанс исправить ошибку. Даже самая маленькая орфографическая ошибка вызывает экстренную остановку процесса компиляции. Если компилятор обнаруживает ошибку, он выводит на экран небольшое окно с соответствующим сообщением. Среди предлагаемых в этом окне вариантов чаще всего наиболее предпочтительный предлагается кнопкой Debug (Отладка). Щелчок на кнопке Debug переносит вас прямо в окно программного кода, где окажется выделенной строка-обидчик. Компилятор будет помнить результаты своей работы вплоть до выделенной строчки, так что у вас будет возможность исправить ошибку и продолжить компиляцию с того места, где она прекратилась, сделав это любым из упомянутых выше способов для запуска программы.

Если хотите, попытайте счастья и с кнопкой Help (Справка), но не удивляйтесь, если предоставляемая при этом информация окажется слишком общей и поэтому в большинстве случаев бесполезной. Кнопка End (Завершить) прекращает компиляцию и возвращает вас в окно редактора Visual Basic.

Может случиться, что, по мнению компилятора, ваша программа совершенно здорова, но это не значит, вообще говоря, что она будет работать именно так, как вы планировали. Отсутствие ошибок при компиляции - это лишь разрешение начать настоящее тестирование.

Хотя компилятор никогда не пропускает ошибок языка VB.A, он все же не может читать ваши мысли. Так, компилятор будет вполне доволен строками программного кода, удовлетворяющими все правила языка VBA, даже если в программе эти строки лишены смысла.

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

Розы красные

Фиалки фиолетовые

У меня есть велосипед

Любишь ли ты рыбу?

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

Как только компилятор закончит свою работу, программа начнет выполняться. Вы можете теперь испытать все ее возможности и увидеть, работает ли она так, как вы планировали.

Нашу с вами программу тестировать легко. Если в окне будет нужное сообщение, а не Windows Must Die!, и если шелчок на кнопке ОК завершает выполнение программы, то примите мои поздравления. Если же нет, то придется вам заняться искоренением ошибок.

4-й шаг. Отладка

По мере усложнения программ вероятность появления ошибок в работе (ошибок выполнения) растет экспоненциально. После обнаружения такой ошибки главной задачей становится выявление причины ошибки и устранение проблемы. Одним словом, это отладка.

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

К счастью, VBA предлагает несколько средств автоматизации процесса отладки в дополнение к предложенному выше методу ломания головы. Все подробности вы найдете в главе 14.

Знайте, что описанные выше методы - а работают они только в редакторе Visual Basic, - будут единственными способами непосредственного запуска программ, построенных на форме, как наша программа-пример. Чтобы вывести форму на экран из VBA-приложения, нужно с помощью редактора

Visual Basic создать процедуру типа Sub (макрос), которая вызывает форму, а затем выполнить эту процедуру (макрос) в приложении. Для этого сделайте следующее.

1. В редакторе Visual Basic выберите Insert=Module, чтобы создать модуль и открыть окно его программного кода.

2. Напечатайте следующие строки программного кода:

Sub ShowQuote()

UserForml.Show

End Sub

Если ваша форма названа не UserFormi, а как-то иначе, замените это имя во второй строке на правильное.

Сохранив изменения, вы сможете начать выполнение макроса ShowQuote способом, предлагаемым в главе 4. Более подробно выполнение программ, основанных на формах, обсуждается в главе 10.

Я считаю, что лучший способ доступа к VBA-приложениго при работе в редакторе Visual Basic обеспечивается стандартными приемами Windows для перехода от приложения к приложению. Нажимайте Alt-Tab до тех пор, пока в появившемся окне не будет выбрана пиктограмма нужного вам приложения, после чего отпустите клавиши. Любой из следующих способов годится тоже.

* Выберите View=AutoCAD (или имя того приложения, с которым работаете вы).

* Щелкните на кнопке View в левой части панели инструментов редактора Visual

* Basic - на этой кнопке будет пиктограмма, представляющая документ приложения.

* Нажмите Alt+F11.

* Щелкните на кнопке приложения в панели задач Windows.

Вернуться в редактор Visual Basic можно с помощью Alt+Tab, панели задач, снова нажав Alt+F11 или выбрав Сервис=Макрос=Редактор Visual Basic.

Собираясь пожелать редактору Visual Basic доброй ночи, сделайте это одним из следующих двух способов, каждый из которых закрывает редактор и возвращает вас как раз к тому приложению, откуда этот редактор был вызван.

* Выберите FileClose and Return to приложение.

* Нажмите Alt+Q.

Вызов диалогового окна Макрос

Чтобы вызвать диалоговое окно Макрос в приложениях Office или в Visio, выполните одно из следующих действий.

* Выберите команду Сервис=Макрос=Макросы.

* Нажмите Alt+F8.

Другие VBA-приложения предлагают иные возможности для того, чтобы открыть диалоговое окно Макрос.

Диалоговое окно Макрос должно выглядеть подобно изображенному на рис. 4.1. Как всегда, некоторые детали могут быть другими, в зависимости от используемого вами VBA-приложения.

Рис. 4. 1. Диалоговое окно Макрос в приложении PowerPoint

Больше всего места в диалоговом окне Макрос выделено для списка доступных в данный момент VBA-программ.

Строго говоря, все процедуры, приведенные в списке диалогового окна Макрос, являются процедурами типа Sub (т.е. подпрограммами) без аргументов.

(Загляните в главу 2, чтобы убедиться, что это и есть официальное определение макроса.) После запуска такой процедуры от может вызывать процедуры других типов, включая процедуры типа Function (т.е. функции) и процедуры Sub с аргументами. Подробности в главе 6.

Выполнение макроса

Запуск макроса из диалогового окна Макрос вряд ли можно назвать большим достижением.

Выполняемая при этом последовательность шагов должна быть такой.

1. Выберите макрос из списка ниже поля Имя.

2. Щелкните на кнопке Выполнить.

Ну как, круто? Как альтернативу можно использовать двойной щелчок на имени программы в списке.

Единственной сложностью при этом может оказаться поиск в списке диалогового окна

Макрос имени той программы, которую нужно выполнить. Если вы испытываете такие трудности, обратитесь за помощью к следующему разделу.

Поиск макроса в диалоговом окне Макрос

В диалоговом окне Макрос имена приведенных в списке VBA-программ (макросов) могут иногда сбивать с толку. В зависимости от того, где хранится программа, она может приводиться в списке с идентифицирующим ее префиксом.

Рассмотрим для примера Excel, где вы можете выполнять как программы, хранящиеся в активной рабочей книге (т.е. той. которую вы используете в этот момент), так и программы из других открытых рабочих книг. В диалоговом окне Макрос макросы из активной рабочей книги приводятся под своими собственными именами. А вот макросы из других открытых книг представлены именами, составленными из имени рабочей книги и следующего за ним имени макроса с восклицательным знаком между этими именами в качестве разделителя. Пример показан на рис. 4.2.

Рис. 4.2. Диалоговое окно Макрос в Excel приводит имена VBA -программ (макросов) из неактивных рабочих книг, любезно указывая перед именем программы имя содержащей ее книги

В диалоговом окне Макрос в Word процедуры приводятся в списке по их именам, за исключением того случая, когда две или несколько процедур имеют одно ii то же имя. В этом случае имя состоит из имени содержащего процедуру модуля, за которым следуют сначала точка, а затем уже имя процедуры. В качестве доказательства я поместил здесь рис. 4.3.

Рис. 4.3. Диалоговое окно Макрос в Word

Если программа, которую вы хотите запустить, отсутствует, вам необходимо выбрать и окне Макрос другой вариант. Для того чтобы это сделать, воспользуйтесь списком Макросы из, в котором выберите вариант Активных шаблонов.

Кнопки запуска программ

Какое приятное волнение испытываешь, щелкая на маленькой оригинальной кнопке на экране и получая при этом немедленный ответ своего компьютера! Несомненно, существуют и более приятные волнения, но и нажатие кнопки имеет свою прелесть. А если кнопка, на которой вы щелкаете, вызывает созданную лично вами VBA-программу, к этому волнению добавляется еще и небольшое головокружение от успеха.

В некоторых VBA-приложениях назначение кнопок для вызова VBA-программ происходит очень просто, даже если вы создавали программу, не записывая ее в виде макроса. К таким приложениям относятся приложения из Office. В других VBA-приложениях, как в Visio, вам, вероятно, придется самому печатать программный код VBA, который добавит подходящую кнопку.

Ой! А я-то думал, что VBA предлагается в виде визуального средства разработки интерфейса!

Кнопки на панели инструментов или меню

Если вы никак ничего не можете решить по этому поводу, просто помните, что между кнопкой на панели инструментов и элементом меню больших различий не т - все они реагируют на щелчок мыши. Основное отличие состоит в том. что в меню отображается текст, а на кнопке - картинка. Результат использования обоих элементов будет один и то же.

Приложения Office позволяют использовать приемы drag-and-drop для назначения VBAпрограми-е кнопки на панели инструментов или элемента меню.

В Microsoft Word, Excel, PowerPoint, Access, а также Outlook назначать VBA-программе новую кнопку в панели инструментов очень просто- перетащите с помощью мыши. После того как кнопка займет предназначенное ей место, вы можете создать на этой кнопке еще и подходящий рисунок.

Чтобы в Word создать кнопку для вызова VBA-программы, сделайте следующее.

1. Щелкните правой кнопкой мыши в любой из панелей инструментов.

После этого на экране возникнет контекстное меню.

2. В самом низу этого меню выберите Настройка, чтобы открыть диалоговое окно Настройка с вкладками, в котором будет изначально открыта вкладка Панели инструментов.

Открыть диалоговое окно Настройка можно без выполнения п. 1, выбрав из меню Сервис=Настройка.

3. В диалоговом окне Настройка щелкните на ярлыке вкладки Команды (рис. 4.4).

4. Прокрутите список Категории вниз и найдите пункт Макросы. Щелкните на этом пункте, чтобы выбрать его.

При этом справа, в списке Команды, появятся все имеющиеся в вашем распоряжении VBA -программы. (Диалоговое окно Настройка на рис. 4.4 как раз и показывает макросы.)

5. Найдите необходимый макрос в списке (это может быть и VBA-программа, написанная вами с самого начала).

6. Если вы создаете кнопку, найдите в списке ту программу, которой нужно назначить кнопку. Затем перетащите имя этой программы в подходящую панель инструментов. Если вы создаете команду в меню, найдите в списке ту программу, которой нужно назначить кнопку. Затем перетащите имя этой программы прямо в меню.

Ряс. 4.4. Диалоговое окно Настройка с открытой вкладкой Команды

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

7. Закройте диалоговое окно Настройка, чтобы завершить работу.

Теперь всякий раз после щелчка на этой новой кнопке вызывается для выполнения ваша VBA-программа. Чудеса!

Создание кнопок в FrontPage и Excel

В FrontPage и Excel вам придется выполнять несколько иные действия для создания кнопок запуска VBA-программ. После записи макроса или написания VBA-программы выполните пп. 1-4 предыдущей инструкции. В результате, вместо списка доступных макросов, вы увидите только два элемента в списке Команды диалогового окна Настройка:

Настраиваемая команда меню и Настраиваемая кнопка (рис. 4.5). Выполните следующее.

Рис. 4.5. Диалоговое окно Настройка в Excel, готовое к созданию новой кнопки или команды меню

1. Перетащите необходимый элемент, Настраиваемая команда меню или Настраиваемая кнопка, на нужное место на панели инструментов или меню.

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

2. Не закрывая диалоговое окно Настройка, щелкните правой кнопкой мыши на новой кнопке меню, чтобы отобразить ее контекстное меню, показанное на рис. 4.6.

Рис. 4. 5. Используйте это меню для назначений VBA-программы кнопке панели задач в Excel или FrontPage

3. Выберите команду Назначить макрос из контекстного меню.

На экране отобразится отдельное диалоговое окно, в котором будут представлены все доступные макросы.

4. Выберите необходимый макрос.

Выбрав макрос, щелкните на кнопке ОК для возвращения к диалоговому окну Настройка, в котором вы сможете выбрать значок для кнопки. Подробности дальше в разделе Выбор или создание подходящего значка для кнопки.

5. Закройте диалоговое окно Настройка.

Access несколько отличается от других приложений Office, когда дело доходит до назначения VBA-программе кнопки на панели задачи или команды меню. Основное отличие состоит в том, что при создании программ для кнопок или команд вы должны использовать процедуры Function, а не процедуры Sub, как в других приложениях Office. В главе 6 вы найдете подробное описание этих двух типов процедур.

После написания процедуры Function, которая должна выполняться после щелчка на кнопке или выбора команды меню, выполните следующее.

1. Начните с выбора команды Сервис=Настройка, после чего перейдите на вкладку Команды (точно так же, как вы это делаете и в других приложениях Office).

Пример диалогового окна Настройка на программы Word был приведен на рис. 4.4.

2. В списке Категории, расположенном в левой части окна, оставьте выбранным вариант Файл.

3. Перетащите первый элемент из списка команд в необходимое место на панели инструментов или в меню (точно так же, как вы это делаете и в других приложениях Office).

4. Перетащив, щелкните правой кнопкой мыши на полученной кнопке или команде, чтобы отобразить контекстное меню.

Подобное контекстное меню было показано раньше на рис. 4.5.

5. Выберите команду Свойства, чтобы отобразить диалоговое окно свойств.

Внешний вид этого диалогового окна уникален для Access.

6. В текстовом поле действия укажите имя VBA-прогряммы (процедуры Function).

Вы должны указать перед именем программы знак равенства, а после него - скобки, как показано ниже.

=Имя_функции ()

7. Закройте диалоговое окно свойств.

Вы можете настроить внешний вид кнопки, применив приемы, описанные дальше в разделе Выбор или создание подходящего значка для кнопки.

Другие VBA-прпложения значительно отличаются по способу создания кнопок на панели инструментов. Например, в Visio вам придется написать VBA-код. выполняющий всю необходимые действия; в то же время в CorelDraw вам необходимо выполнить действия, очень похожие нате, которые вы выполняете в Word, PowerPoint и FrontPage.

1. Начните с выбора команды Tools=Options (Сервис=Параметры).

2. Из списка, расположенного в левой части окна, выберите Commands (Команды).

3. Выберите Macros (Макрос) из раскрывающегося списка в средней части диалогового окна.

Теперь вы можете перетащить на панель задач любой из доступных макросов.

Ясно, что супер широкие кнопки с надписями типа

VBAДляЧайников.ГрафическиеПрограммы.СозданиеИзображения

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

1. Откройте диалоговое окно Настройка и перейдите на вкладку Команды (см. инструкции из раздела Создание кнопок на панели задач в Access, пп. 1-3).

2. Щелкните правой кнопкой мыши на своей новой кнопке в панели инструментов.

Появится весьма многословное контекстное меню.

2. Примерно посередине этого меню есть пункт Выбрать значок для кнопки, выберите его, чтобы открылось графическое меню изображений для кнопок.

Результат выполнения этой процедуры показан на рис. 4.7.

4. Если вас устроит какое-то из предлагаемых изображений, сразу переходите к п. 8, а иначе продолжайте по порядку.

5. Выберите в контекстном меню пункт Изменить значок на кнопке.

Появляющееся при этом окно редактора кнопок- небольшой студии, в которой можно по точкам менять изображение для кнопки, показано на рис. 4.8.

6. Выберите цвет из палитры цветов, а затем щелкните в нужной вам ячейке увеличенного изображения, чтобы закрасить ее выбранным цветом.

Чтобы удалить закрашенную часть изображения и открыть в соответствующем месте изображения поверхность кнопки, перед закрашиванием щелкните в квадратике

Удалить. Щелчок на кнопках Перемещение позволяет сдвинуть изображение в сторону, где еще нет закрашенных ячеек.

Теперь на кнопке есть изображение и можно удалить с нее текст.

7. Снова откройте контекстное меню (см. п. 2).

8. Установите флажок Основной стиль.

Рис. 4.7, При открытом окне Настройка щелчок правой кнопкой в панели инструментов открывает показанное здесь контекстное меню

Лис. 4.8. Используйте предлагаемый Office редактор кнопок для создания своих собственных изображений на кнопках

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

В Office можно удалить ненужную кнопку, перетащив ее за пределы панелей инструментов. Хитрость здесь заключается в том, что при перетаскивании нужно нажать и удерживать клавиш Alt. Когда рядом с указателем мыши возникнет значок X, отпустите кнопку мыши, и удаление произойдет.

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

В Office объекты кнопок называются CormandBarButtons, а принадлежат они коллекции CommandBarControls. Объект CommandBar (панель инструментов, содержащая коллекцию CcmmandBarControls) размещается в коллекции ComrnandBars, которое может принадлежать объекту Application или объекту Document.

А в Visio, например, отдельная кнопка представляется объектом ToolbarItem. Однако, чтобы воспользоваться конкретным экземпляром объекта ToolbarItem, необходимо получить доступ к той коллекции ToolbarItems, которой этот экземпляр объекта принадлежит.

Сама же коллекция ToolbarItems принадлежит коллекции Toolbars, в свою очередь принадлежащей коллекции ToolbarSet, а уж последняя принадлежит конкретному экземпляру объекта UlObject (объект пользовательского интерфейса). Немного позже в этой же главе с помощью несложного программного кода я покажу, как все это реализуется практически.

Если все эти сложности вас пугают, успокойтесь: вам не придется создавать программный код для своих кнопок с чистого листа. Поищите в справочной системе своего VBA-приложения разделы, посвященные настройке панелей инструментов, и вы наверняка обнаружите там пример, который после несложных модификаций можно использовать в вашем конкретном случае.

Комбинации клавиш в Word, Excel и Access

Если вы хоть немного умеете печатать, то часто используемые вами команды просто умоляют вас назначить им комбинации клавиш. В большинстве приложений, даже в тех, которые ориентированы исключительно на работу с изображениями, нажать клавиши часто быстрее, чем перемещать туда-сюда мышь и щелкать ее кнопками. Единственный недостаток комбинаций клавиш - необходимость запоминать их.

В любом случае некоторые VBA-приложения - в том числе Word, Excel и Access - дают прямой доступ к клавиатуре, позволяя назначить комбинации клавиш VBA-программам. Если вам предлагают такой способ управления, используйте его, не сомневаясь.

Назначение комбинаций клавиш программам в Word

Если уж зашла речь о настройке клавиатуры, то изо всех VBA-приложений самым гибким и простым в этом отношении является Word. Например, чтобы назначить в Word программе с именем Double Current Font Size комбинацию клавиш Alt+Shift+. (т.е. Alt + Shift + клавиша с точкой), действуйте следующим образом.

1. Откройте диалоговое окно Настройка, для чего либо выберите

Сервис= Настройка из меню, либо щелчком правой кнопкой мыши в любой из панелей инструментов откройте контекстное меню и затем выберите пункт Настройка в нем.

2. Щелкните на кнопке Клавиатура в нижней части вкладки Параметры.

Появится диалоговое окно Настройка клавиатуры (рис. 4.9).

3. В списке Категории выберите Макросы.

4. Найдите и выберите свою программу в появившемся справа списке Макросы.

Если программе уже была назначена комбинация клавиш, она будет в поле Текущие сочетания клавиш.

5. Нажмите комбинацию клавиш, которую вы хотите назначить своей программе.

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

Рис. 4.9. С помощью такого диалогового окна вы можете назначить своим VBA-программам комбинации клавиш в Word

6. Щелкните сначала на кнопке Назначить, а затем на кнопке Закрыть, чтобы выйти из диалогового окна.

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

Разместите свои программы в контекстных меню

Приложив совсем немного усилий, вы сможете поселить свою скромную VBA-программу в фешенебельных апартаментах любого контекстного (т.е. вызываемого щелчком правой кнопки мыши) меню.

В Office контекстные меню настраиваются в диалоговом окне Настройка. Сначала нужно сделать видимой панель инструментов Контекстные меню. Откройте диалоговое окно Настройка, выбрав

Сервис=Настройка, и в нем перейдите на вкладку Панели инструментов (если она еще не открыта), щелкнув на соответствующем ярлыке в верхней части диалогового окна. Пролистайте вниз список панелей инструментов, найдите в нем пункт Контекстные меню и щелкните в маленьком квадратике около него.

Панель инструментов Контекстные меню станет видимой. С помощью этой панели инструментов вы сможете получить доступ к любому контекстному меню, чтобы настроить его. Открыв таким образом нужное вам контекстное меню, используйте обсуждавшиеся в начале этого раздела приемы перетаскивания макросов из вкладки Команды диалогового окна Настройка.

Например, Visio позволяет поместить макрос в контекстное меню любой из форм. Выделив форму, выберите Window=Show ShapeSheet. В окне ShapeSheet щелкните в ячейке Action. (Если нужно, вставьте перед этим раздел Actions, выбрав Insert=Section и отметив Actions.)

Затем выберите EditoAction. Вы получите возможность впечатать текст и определить другие свойства пункта меню и назначить ему программу для выполнения. По окончании редактирования это контекстное меню, вызываемое щелчком правой кнопки мыши на данной форме, уже будет включать и пункт для вашей VBA- программы.

Excel тоже позволяет назначить VBA-программам комбинации клавиш, но ограничивает допустимые комбинации сочетаниями клавиши Ctrl с печатаемыми символами (буквами, числами и знаками пунктуации). Чтобы назначить программе комбинацию клавиш, выполните следующее.

1. Откройте диалоговое окно Макросы (почему бы для этого не воспользоваться комбинацией клавиш Alt+F8?)

2. Найдите и выделите свою программу в списке.

3. Щелкните на кнопке Параметры.

4. В появившемся диалоговом окне (рис. 4.10) нажмите клавишу, которую хотите скомбинировать с клавишей Ctrl.

Excel при пом различает буквы верхнего и нижнего регистров. (Другими словами, клавиша с буквой, нажатая вместе с клавишей ?Shiff. отличается от клавиши с буквой, нажатой без клавиши Shift.)

5. Щелкните на кнопке ОК, чтобы вернуться в диалоговое окно Макросы*

Рис 4.10. Назначение VBA программе комбинации клавиш в Excel

В приложениях баз данных Access назначать комбинации клавиш совсем несложно. Приложения Access построены на использовании форм и элементов управления в этих формах. Все, что вам потребуется сделать, это создать процедуры обработки событий для этих форм и элементов управления- процедуры, выполняемые при нажатии клавиши пользователем. Проце1уры обработки событии в мельчайших подробностях описываются в главе 10.

Другое дело, если вы работаете с базой данных Access напрямую, используя команды меню и кнопки панелей инструментов. В этом случае для создания комбинаций клавиш, вызывающих VBA-программы, вам придется назначать эти комбинации клавиш специальным макросам Access. (Напомню, что макросы Access не являются процедурами VBA.) В Access нет средства записи макросов, поэтому вам придется строить макросы вручную в соответствии со следующими инструкциями.

1. В окне базы данных выберите кнопку Макросы, а затем щелкните на кнопке Создать.

Появится диалоговое окно Макрос (рис. 4.11).

2. В столбце Макрокоманда выберите Запуск Программы, как показано на рис. 4.11.

3. Выберите Вид=Имена макросов, чтобы в окне появился новый столбец Имя макроса.

4 Напечатайте в столбце Имя макроса комбинацию клавиш, которую вы хотите назначить своей программе.

Используйте символ ́ для обозначения клавшим Ctrl. а символ + - для обозначения Shift. Буквы и числа можно печатать как обычно, а вот функциональные клавиши нужно заключить в фигурные скобки. Например, для комбинации клавиш Ctrb-k нужно напечатать ́ k, а для Shift + F8 • F8 ).

5. Щелкните в текстовом поле Имя функции и напечатайте имя той процедуры VBA, которую должен вызывать макрос.

Это должна быть процедура типа Function.

6. Закройте окно Макрос, щелкнув на кнопке в правом верхнем углу окна. Когда Access попросит дать макросу имя, напечатайте AutoKeys.

Рис. 4. 1 /. Такое окно используется для создания макросов в Access

Макросы для мыши Visio

Visio предлагает совершенно другом способ вызова VBA-программ - это двойной щелчок на форме, которую вы связали со своим программным кодом. Вот инструкции для назначения форме ответа на двойной щелчок кнопкой мыши.

1. Щелкните на форме, чтобы выделить ее.

2. Выберите Format=Behavior.

3. Перейдите на вкладку Double-Click.

4. Выберите VBA-процедуру своей мечты из списка Run Macro.

5. Щелкните на кнопке ОК.

Теперь после двойного щелчка кнопкой мыши на этой форме всегда будет выполняться ваша VBA-программа.

Легкий завтрак с меню

Я уверен, что вы уже знаете, как использовать меню. 1 см не менее, наверное, вам будет интересно узнать, какие команды есть в меню редактора Visual Basic и где именно они находятся.

По большей части команды меню редактора Visual Basic организованы логично. Например, если вы хотите открыть какое-то окно, без сомнения, нужная команда будет не где-нибудь, а в меню View (Вид). Однако есть и менее очевидные моменты. Следующая небольшая таблица поможет вам найти команды, затаившиеся в меню.

Прогулка по панелям инструментов

Если вы знакомы с Word, Excel или PowerPoint, вероятно, и района с панелями инструментов в редакторе Visual Basic покажется вам вполне удобной, Если же нет. по этому поводу достаточно будет нескольких кратких комментариев.

Редактор Visual Basic предлагает четыре готовые панели инструментов.

* Standard (Стандартная). Это единственная панель инструментов, которую вы видите при первом запуске редактора Visual Basic. Ее кнопки выполняют самые разнообразные функции: сохранение результатов вашей работы, добавление новых форм и модулей, редактирование и выполнение программ.

* Edit (Правка). Кнопки этой панели инструментов пригодятся при редактировании программного кода. Они дублируют команды меню Edit.

* Debug (Отладка). Здесь размешаются кнопки для команд. которые понадобятся вам при вылавливании ошибок и программам.

* UserForm (Пользовательская форма). Эта панель инструментов используется при проектировании форм. Большинство ее кнопок дублируют команды из меню Format для выравнивания, упорядочения и группировки элементов управления в форме.

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

1. Сначала щелкните правой кнопкой мыши в любой панели управления.

Появится контекстное меню (рис. 5.1) со списком всех имеющихся панелей инструментов. Если панель инструментов видима, ее имя будет отмечено галочкой.

Рис. 5.1, С помощью этого контекстного меню можно отображать на экране и прятать панели инструментов

2. В этом меню выберите панель инструментов, которую хотите отобразить или спрятать.

Как только вы отпустите кнопку мыши, на экране произойдут соответствующие изменения.

Панели инструментов редактора Visual Basic могут существовать в одном из трех состояний, как показано в следующей таблице.

На рис. 5.2 показано окно редактора Visual Basic с двумя закрепленными и двумя перемещаемыми панелями инструментов. Скрытыми, закрепленными или перемещаемыми могут быть большинство основных окон редактора Visual Basic.

Чтобы сделать закрепленную панель инструментов перемещаемой, просто перетащите ее от края рабочей области окна к его середине. Самое удобное место для захвата закрепленной панели инструментов - место с краю, где видны две вертикальные (или горизонтальные) полоски.

Эта область панели инструментов называется маркером перемещения. Сделать панель инструментов перемещаемой можно и иначе - дважды щелкнув в области маркера перемещения.

Обратное тоже верно: чтобы превратить перемещаемую панель инструментов в закрепленную, перетащите ее полосу заголовка к любой из сторон рабочей области окна редактора Visual Basic.

Как только указатель мыши окажется достаточно близко, гравитационное поле окна притянет панель инструментов, как магнит. Этот эффект завораживает, но двойным щелчком панель инструментов закрепляется быстрее (она возвращается на то место, где была закреплена в последний раз).

Настройка панелей инструментов и меню

Предположим, что вас почему-то не устраивают панели инструментов, предлагаемые редактором Visual Basic. Ну, так создайте себе новые! Можно добавлять и убирать кнопки и пункты меню в существующих панелях инструментов и меню, а если и этого для вас недостаточно, вы имеете возможность создать свою собственную панель инструментов просто с нуля (это делается точно так же, как и в приложениях Office).

Рис. 5 2 По умолчанию панели инструментов редактора Visual Basic закреплены под строкой меню, но их можно закрепить и вдоль других сторон главного окна или сделать свободно перемещаемыми

Если вам нужно только переместить или удалить уже имеющуюся кнопку, то все, что вам потребуется, это не забыть нажать и удерживать клавишу Alt, пока вы будете перетаскивать кнопку на новое место. При нажатой клавише Alt вы можете сделать следующее.

* Перетащить кнопку на новое место в той же или другой панели инструментов. Если вам нужно поместить в новое место копню кнопки, во время перетаскивания удерживайте нажатыми клавиши Alt и Ctrl.

* Добавить линию разделителя между двумя кнопками, перетащив кнопку справа еще чуть-чуть правее (если перетащить еще правее, кнопка перескочит за соседнюю). Чтобы убрать линию разделителя, перетащите правую кнопку немного влево.

* Удалить кнопку, перетащив ее на любое место, где нет панелей инструментов. Когда рядом с указателем появится значок X, отпустите кнопку мыши, и кнопка из панели инструментов уйдет в историю.

Для более изысканных модификаций потребуется открыть диалоговое окно Настройка.

Оно используется для добавления новых кнопок в панели инструментов и для любых изменений в меню.

Вот последовательность действий, необходимых для добавления новой кнопки в панели инструментов.

1. Щелкните правой кнопкой мыши в любой панели инструментов и в самом низу появившегося контекстного меню выберите Настройка.

Появится диалоговое окно Настройка (рис. 5.3).

Рис. 5.3. С помощью диалогового окна настройки можно внести радикальные изменения в пользовательский интерфейс редактора Visual Basic

2. Если панели инструментов, которую вы собираетесь изменить, нет на экране, перейдите в л налоговом окне Настройка на вкладку Панели инструментов.

Установите флажок рядом с нужной вам панелью инструментов. Здесь же можно добавить и новую панель инструментов, для чего нужно щелкнуть на кнопке Создать и набрать имя.

3. Когда панель инструментов, с которой вы собирались работать, появится на экране, перейдите на вкладку Команды.

Теперь можно перетаскивать объекты из списка в панели инструментов или меню.

4. После того как вид панели инструментов будет удовлетворять вас, закройте диалоговое окно Настройка.

Обратите внимании, при открытом диалоговом окне Настройка перетаскивать и удалять кнопки из панелей инструментов можно и без помощи клавиши Alt. Однако, чтобы скопировать, а не переместить выбранный объект. придется нажать клавишу Ctrl.

Чтобы изменить меню редактора Visual Basic, необходимо открыть диалоговое окно

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

Чтобы добавить или удалить разделительную линию между двумя пунктами меню, перетащите нижний из этих пунктов немного ниже или немного выше.

Чтобы добавить в меню новые пункты, перетащите их с вкладки Команды диалогового окна Настройка точно так же, как вы это делали при создании новых кнопок в панели инструментов (рис. 5.3 и 5 4).

Рис. 5.4. Настройка одною из контекстных меню редактора Visual Basic

Наверное, считая возможность изменения системы главного меню недостаточной, редактор Visual Basic позволяет также изменять контекстные (т.е. вызываемые щелчком правой кнопки мыши) меню. Для этого нужно открыть диалоговое окно Настройка, перейти в нем на вкладку Панели инструментов и отметить флажок Контекстные меню.

В результате этих действий на экране появится небольшая панель инструментов, предназначенная только для настройки (см. рис. 5.4). Найдите в этой панели инструментов нужное вам контекстное меню и щелкните на нем. После этого вы сможете перетаскивать в это контекстное меню объекты с вкладки Команды.

Комбинации клавиш

В табл. 5.1 приведены все комбинации клавиш, задействованные в редакторе Visual Basic.

Кроме них, вы можете использовать клавишные команды Windows для управления курсором и редактирования текста. Не забывайте и о том, что Shift+F10 вызывает контекстное меню для окна или другого объекта, активного в данный момент, - как будто вы щелкаете на этом объекте правой кнопкой мыши.

Таблица 5.1. Комбинации клавиш, предлагаемые редактором Visual Basic

Отображение окон

Работа с программным кодом

Работа со свойствами

Выполнение программы

Одни окна любят одиночество, другие - всегда в компании

Относительно окон редактора Visual Basic вы должны запомнить один основной факт: окон форм и программного кода можно открыть столько, сколько вы пожелаете, а каждое из окон остальных типов может присутствовать на экране только в единственном экземпляре.

Вероятно, вам такое ограничение сразу покажется вполне логичным, а вот лично мне, чтобы разобраться, потребовалось некоторое время.

Несколько окон для программного кода и форм можно открыть потому, что обычно создаются несколько форм и один VBA-модуль. Имея для каждого из этих объектов свое окно, вы получите быстрый доступ сразу ко всем своим формам и модулям.

Некоторые другие окна (а конкретно- окно свойств и окно локальных переменных) изменяют свое содержимое автоматически, когда вы переходите в окно другой формы или соответствующего программного кода. Это похоже на несколько окон по иене одного. Другие же окна - например, окно обозревателя объектов, окно проводника проекта и окно немедленного выполнения - применимы ко всему, что делается в редакторе Visual Basic, поэтому можно открыть только по одному из них.

Видимые и скрытые окна

Почти для каждого окна редактора Visual Basic есть комбинация клавиш, которая открывает его. Это значит, что если окно невидимо, вы можете открыть его, не отрывая рук от клавиатуры. Все эти комбинации клавиш представлены в табл. 5.1. Если вам трудно их запомнить, всегда можно открыть любое из окон через меню View.

Жаль, что эти комбинации клавиш не работают, как выключатели. Если окно уже открыто, нажатие соответствующей комбинации клавиш не прячет его. Чтобы заставить окно уйти, вам придется щелкнуть на маленькой кнопке закрытия X, которая расположена в правом верхнем углу окна.

Чтобы открыть окно, которое уже отображено на экране, но затерялось за другими окнами, выберите имя этого окна из меню Window. В этом меню будут представлены только перемещаемые окна.

Как и во многих других приложениях Windows, для переключения от одного окна к другому вы можете использовать две стандартные комбинации клавиш - Ctrl+Tab и Ctrl+F6. Однако в редакторе Visual Basic в цикле таких переходов будут участвовать только перемещаемые окна.

Вы, наверное, спросите: Что такое перемещаемые окна? Ответ на этот вопрос находится в следующем разделе.

Закрепленные и свободно перемещаемые окна

Подобно панелям инструментов, большинство окон редактора Visual Basic бывают закрепленными, т.е. вы можете привязать их к любой из четырех сторон рабочей области главного окна, где их не перекрывают другие окна. Ясно, что закрепление окна делает рабочее пространство меньше. На рис. 5.5 показан редактор Visual Basic, в котором закреплены все допускающие закрепление окна.

Рис. 5.5. По мере увеличения числа закрепленных окон рабочее пространство редактора Visual Basic, предназначенное для окон редактирования кода и проектирования форм, становится все меньше и меньше

В качестве альтернативы можно сделать окна свободно перемещаемыми по экрану, Перемещаемые окна дают больше пространства для редактирования кода и проектирования форм, но зато часто перекрывают другие окна. Если у вас достаточно большой монитор, наверное, вы предпочтете установить размеры окна редактора Visual Basic меньшими, чем весь экран, и разместить эти перемещаемые окна вне главного окна вообще.

Есть окна, которые нельзя сделать закрепленными, например окна программного кода и пользовательской формы. Кроме того, любое окно вообще можно сделать не закрепляемым.

Чтобы проверить или установить состояние способности закрепляться для всех окон (конечно, кроме окон программного кола и пользовательской формы), нужно выбрать сначала Tools=Options, а затем в появившемся окне щелкнуть на вкладке Docking. Я уверен, что вы доберетесь до этой вкладки и без рис. 5.6, но из-за полной неразберихи на предыдущей иллюстрации вы, наверное, желаете взглянуть на что-нибудь более упорядоченное и понятное.

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

Рис. 5.6. В таком диалоговом окне устанавливается способность к закреплению окон редактора Visual Basic

Вот некоторая информация для размышления, пока вы пытаетесь понять принципы закрепления окон.

* Окна программного кода, пользовательской формы, как и любое другое не способное закрепляться окно, можно развернуть, свернуть или восстановить (последнее на жаргоне Microsoft означает вернуть к размеру, определенному пользователем). Не способные закрепляться окна имеют полный комплект стандартных кнопок Windows в правом верхнем углу - это кнопки сворачивания, разворачивания (или восстановления, если окно уже развернуто) и закрытия окна.

* Можно сразу определить, является ли окно закрепляемым, если посмотреть на его полосу заголовка. Закрепляемые окна имеют только кнопку закрытия окна, а не способные закрепляться окна имеют также кнопки свертывания и развертывания.

* Если развернуть не способное к закреплению окно, то оно займет все свободное пространство рабочей области, оставленное закрепленными окнами.

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

* Все открытые и не способные к закреплению окна доступны последовательна с помощью комбинации клавиш Ctrl+Tab. Эти окна перечислены также в меню Window.

Сохранение структуры экрана

Редактор Visual Basic автоматически сохраняет текущую структуру экрана при выходе из него.

Это значит, что при следующем входе в редактор Visual Basic все ваши окна, меню и панели инструментов будут на тех же самых местах, где их в прошлый раз покинули.

Вызов проводника проектов

Окно проводника проектов должно присутствовать на экране, когда вы впервые открываете редактор Visual Basic, Если же это окно отсутствует, то, для того чтобы сделать его видимым, необходимо выполнить любое из следующих действий.

* Нажать комбинацию клавиш Ctrl+R.

* Щелкнуть на кнопке Project Explorer на панели Standard.

* Выбрать команду View=Project Explorer.

Если вы когда-нибудь пользовались проводником Windows для работы со своими дисками и файлами (ой, извините, документами), то и в окне проводника проектов вы будете чувствовать себя как дома. Проводник проектов предлагает вам иерархическое представление открытых проектов в виде древовидной структуры (рис. 5.7).

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

Каждый из открытых в приложении документов автоматически представляется как проект, даже если вы еще не вводили для этого проекта никакого программного кола и не создавали форм. По умолчанию проект получает имя породившего его документа, но можно изменить имя проекта в диалоговом окне Project Properties (Свойства проекта) или в окне свойств (ознакомьтесь ниже с разделом Изменение имени проекта или модуля в окне свойств).

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

Бесцельное движение по дереву проектов в окне проводника проектов можно использовать, чтобы выглядеть очень занятым, не создавая при этом никакого программного кода. Но проводник проектов полезен не только этим - он обеспечивает самый быстрый способ нахождения и активизации модулей, форм и других объектов, с которыми вы собираетесь работать.

Рис. 5.7. Пример окна проводника проектов в Visio с несколькими одновременно открытыми проектами

Подобно проводнику Windows, проводник проектов в Visual Basic отображает в своем списке небольшой квадратик около каждой группы (ее обычно называют разделом). Когда видимо только имя проекта, а его содержимое скрыто, этот квадратик, называемый индикатором развертывания, содержит знак плюс. Если же видны разделы следующего уровня, то этот индикатор показывает знак минус.

При работе с проводником проектов используются следующие приемы.

* Чтобы развернуть раздел и показать объекты следующих уровней иерархии, щелкните на индикаторе развертывания, когда последний содержит знак плюс, или выделите (подсветите) раздел и нажмите клавишу со стрелкой, направленной вправо.

* Чтобы свернуть уже развернутый раздел и скрыть его дочерние объекты, щелкните на индикаторе развертывания, когда он содержит знак минус, или выделите раздел и нажмите клавишу со стрелкой, направленной влево.

* Чтобы открыть окно пользовательской формы или окно программного кода для данного раздела модуля, формы или модуля класса, дважды щелкните в строке соответствующего раздела в списке или выделите раздел и нажмите Enter.

* Чтобы вызвать окно программного кода пользовательской формы, выделите эту форму в списке и нажмите Shift+Enter.

Если вам трудно запомнить, когда следует использовать Enter, а когда Shift+Enter, используйте кнопки в верхней части окна проводника проектов. Они работают следующим образом.

* Кнопка View Code (Показать программный код), расположенная слева, отображает на экране окно программного кода для выделенного объекта.

* Кнопка View Object (Показать объект), расположенная посередине, отображает на экране сам выделенный объект. Если этот объект - форма, вы увидите ее в окне пользовательской формы. Если это документ, вы автоматически переключитесь в окно вызвавшего редактор Visual Basic приложения, и в этом окне активным будет выделенный вами документ.

* Кнопка Toggle Folders (Выключатель отображения папок), расположенная справа, включает или отключает отображение среднего уровня иерархии. В обычном режиме проводник проектов сортирует формы, модули программного кода и объекты документа по отдельным папкам. Если щелкнуть на этой кнопке, соответствующие папки пропадут с экрана и все объекты проекта предстанут на экране в едином списке, упорядоченном по алфавиту. Чтобы вернуть папки, нужно щелкнуть на этой кнопке еще раз.

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

Рис. 5.8. Контекстное меню проводника проекта

Установка свойств проекта

В диалоговом окне Project Properties (Свойства проекта) можно изменить имя проекта, добавить его краткое описание, назначить проекту файл справки, а также защитить проект от несанкционированного любопытства и изменений. Правда, пока вы не станете достаточно опытным разработчиком VBA-программ, большинство из этих возможностей вам будут не слишком полезны.

И все же вы, по крайней мере, уже знаете, что такое диалоговое окно существует. Чтобы отобразить его на экране, выберите TOO* =Имя проект а Properties из меню или щелкните в окне проводника проектов правой кнопкой мыши и выберите Имя проекта Properties из контекстного меню. На рис. 5.9 вы видите диалоговое окно Project Properties с открытой вкладкой General (Общие).

Рис. 5.9. Вкладка General диалогового окна Project Properties

В списках проводника проектов и обозревателя объектов проекты упорядочены по алфавиту, а это значит, что для перемещения проекта в списке этот проект нужно переименовать. (Конечно, вы можете изменить имя проекта и из чисто эстетических соображений.)

Проще всего изменить предложенное VBA имя проекта с помощью окна

Properties (Окно свойств). Когда вы выделяете какой-либо проект в окне проводника проектов, имя этого проекта появляется в окне свойств. В окне свойств это имя можно изменить на любое другое по своему усмотрению. Изменить имя проекта можно и на вкладке General диалогового окна Project Properties, если это диалоговое окно по каким-либо причинам оказалось открытым.

Если есть вероятность того, что кто-то может получить доступ к вашему компьютеру и что-нибудь сделать с вашими программами, подумайте о защите своих программ паролями.

Чтобы возвести заграждения своей безопасности, откройте диалоговое окно Project Properties и перейдите на вкладку Protection (рис. 5.10).

Рис. 5.10. Вкладка Protection диалогового окна Project Properties как пользоваться возможностями, предлагаемыми на этой вкладке.

Lock project for viewing (Закрыть проект для просмотра). Установка флажка этой опции полностью лишает любого, кто не знает пароля, возможности даже увидеть проект. Если этот флажок установлен, пароль не даст другим открыть диалоговое окно Project Properties, а значит, не даст никому другому возможности закрыть для вас вашу собственную работу.

Password (Пароль). Напечатайте здесь пароль, который вы выбрали для данного проекта.

Confirm Password (Подтвердите пароль). Здесь напечатайте пароль еще раз для гарантии, что при его вводе в предыдущее поле вы не допустили ошибки.

Если ваша память неидеальна, запишите этот пароль и сохраните его там, где вы сможете потом его найти. VBA достаточно надежно зашифровывает пароль, и если вы его потеряете, вам придется создавать проект вновь с самого начала.

Вызов обозревателя объектов

Самый быстрый способ вызова окна обозревателя объектов - нажатие клавиши F2.

Медленнее к той же цели ведут щелчок на кнопке Object Browser в панели инструментов Standard и выбор View=Object Browser из меню. Пример окна обозревателя объектов показан на рис. 5.11.

Рис. 5.1 /. Окно обозревателя объектов

Просмотр объектов

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

Щелчок в поле раскрывающегося списка Project/Library (Список проектов/библиотек) слева вверху окна открывает список библиотек, доступных данному проекту. (В том же списке должен присутствовать и сам проект, так что если его нет - возвратитесь в окно проводника проекта и убедитесь, что нужный проект действительно выбран.) Выбрав в списке АLL Libraries (Все библиотеки), вы сможете просмотреть все доступные в проекте объекты, т.е. объекты из всех библиотек, на которые ссылается проект. Чтобы снова сузить область просмотра до одной библиотеки, выберите ее из этого списка.

Окно обозревателя объектов разделено на несколько панелей (см. рис. 5.11). Размеры любой из этих панелей можно изменить, перетаскивая разделительные линии между ними.

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

Ниже рядом расположены еще две панели. Левая содержит список Classes (Список классов), в котором показаны объекты, классы, коллекции, модули, формы и константы из выбранной библиотеки или проекта. Щелчок в любой из строк этого списка открывает список Member Of (Список членов) соответствующего объекта в правой панели. Этими членами могут быть процедуры, методы, свойства, события или отдельные константы.

Желаете знать, где же прописался ваш собственный программный код? А вы посмотрите повнимательнее на те объекты в списке классов и списке членов, которые отображаются полужирным шрифтом.

Панель Details (Подробности) в самом низу окна обозревателя объектов отображает информацию в выбранном в данный момент объекте, в частности его тип и содержащий его объект (если вы не видите всю эту информацию из-за слишком маленьких размеров панели, перетащите верхний разделитель панели выше или используйте вертикальную полосу прокрутки в правой стороне панели). Щелчок на объекте, содержащем данный, заставит обозреватель объектов перейти к рассмотрению этого объекта.

Работа с обозревателем объектов очень напоминает работу с обозревателем Web-страниц.

Как и в обозревателе Web-страниц, здесь вы тоже можете использовать гиперссылки для перехода к родственным объектам - щелчок на подчеркнутом тексте в панели Details (Внизу окна) отобразит соответствующий объект в окне обозревателя объектов.

Немедленный доступ к программному коду

Если объект, выбранный вами в окне обозревателя объектов, является модулем или процедурой из вашей собственной программы, просто нажмите Enter - и вы увидите окно Code с соответствующим программным кодом. Любители упражнений с мышью могут вместо этого щелкнуть на кнопке Show Definition (Показать определение).

Предполагается, что нажатие клавиши F1 или щелчок на кнопке Help (Справка) вверху окна обозревателя объектов должен открыть раздел справки, соответствующий объекту, методу, свойству или событию, которые оказались выделенными в окне обозревателя объектов. Обычно так и бывает. Если ваш стиль мышления не слишком регламентирован, то случайное блуждание в окне обозревателя объектов и вызов справки для заинтересовавших вас при этом объектов могут оказаться прекрасным способом безболезненного освоения VBA.

Поиск членов

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

1. В раскрывающемся списке библиотек/проектов выберите АLL Libraries (если вы собираетесь искать во всем проекте) или соответствующую библиотеку.

Если вы ошиблись в выборе библиотеки, может случиться, что вы обнаружите объект с нужным именем, но этот объект окажется совсем не тем, который нужен вам, поскольку объекты в разных библиотеках могут иметь совпадающие имена.

2. В поле Search (Найти) введите текст, который требуется найти.

Можно повторить поиск любой из четырех введенных последними текстовых строк, выбрав подходящую из раскрывающегося списка поля Search.

3. Нажмите Enter или щелкните на кнопке Search (Найти), на которой изображен бинокль.

После обязательного при этом дребезжания жесткого диска вы увидите удовлетворяющие условию поиска объекты в новой, специально появившейся для этого панели Search Results (Результаты поиска) над панелями со списками. Здесь тоже можно изменить размеры любого из столбцов, если они слишком малы для отображения нужных объектов.

4. Чтобы закрыть панель Search Results, щелкните на кнопке с двойной направленной вверх стрелкой рядом с кнопкой Search.

Если щелкнуть на той же кнопке еще раз (но теперь на ней будет изображена двойная стрелка, направленная вниз), панель Search Results появится снова.

Использование информации из окна обозревателя объектов в программном коде

Обозреватель объектов удовлетворит любое любопытство к объектам в проекте, но, кроме того, он может служить и довольно неплохим средством создания программного кода. После того как вы найдете что-либо, что хотели бы использовать в своей программе, нажмите Ctrl+C или щелкните на кнопке Copy to Clipboard (Копировать в буфер), чтобы поместить найденное в буфер обмена. После этого переключитесь в окно программного кода и вставьте содержимое буфера обмена в свою программу. Такой метод гарантирует, по крайней мере, отсутствие синтаксических ошибок - вы же знаете, что даже самая ничтожная опечатка может свести с ума любую программу (другими словами, программа никогда не выполняется правильно с первого раза).

Вызов окна программного кода

Для того чтобы открыть окно программного кода для существующего модуля, модуля класса или пользовательской формы, в редакторе Visual Basic предусмотрен целый ряд совершенно различных способов. Сначала нужно найти и выделить объект в окне проводника проектов. После этого для вызова соответствующего окна программного кода можно выполнить любое из следующих действий.

* Нажать клавишу F7.

* Щелкнуть на кнопке View Code в верхней части окна проводника проектов.

* Щелкнуть на объекте правой кнопкой мыши и выбрать View Code из появившегося контекстного меню.

* Выбрать View=Code.

* В случае модуля (но не пользовательской формы!) дважды щелкнуть на нем или нажать клавишу Enter.

Если вы находитесь в окне пользовательской формы, то нажатие клавиши F7 или выбор View=Code откроет окно программного кода этой пользовательской формы.

Создание нового окна программного кода

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

Печатание программного кода

Окна программного кода в VBA являются, по сути, простыми текстовыми редакторами, правда, у них есть специальные возможности для создания и редактирования именно VBA-кода.

Печатание VBA-операторов происходит точно так же, как и в обычном текстовом процессоре, с использованием тех же приемов работы с текстовым курсором и клавиш редактирования текста, стандартных для Windows (нажатие клавиши Ноте осуществляет переход в начало строки, a Ctrl+Home - в начало окна). Точно так же можно выделять текст либо с помощью мыши, либо нажав и удерживая клавишу Shift при перемещении курсора.

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

* Переместить выделенный текст, перетащив его в другое место и опустив там.

* Скопировать выделенный текст в другое место, действуя так же, как и при перемещении, но с нажатой клавишей Ctrl.

Можно перетаскивать текст в новую позицию в том же окне, в другое окно программного кода, а также в окна Immediate (Окно немедленного выполнения команд) и Watches (Окно контролируемых выражений). Если пунктом назначения является другое окно программного кода, то перед тем, как начать перемещение, нужно разместить окна так, чтобы и исходный текст, и место назначения были видны на экране. (Краткое описание окна немедленного выполнения команд и окна контролируемых выражений вы найдете ниже, в разделе Краткое знакомство с окнами для отладки.)

Окно программного кода позволяет отменить последние из внесенных изменений в программный код. Каждый раз, когда вы нажмете Ctrl+Z или выберете Undo (Отменить ввод) из меню Edit (Правка), будет отменено следующее из изменений. Меню Edit предлагает и команду Redo (Повторить ввод)- отмену применения команды Undo, - но команде Redo в редакторе Visual Basic не назначено никакой комбинации клавиш для быстрого ее вызова с клавиатуры.

Перемещение в окне программного кода

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

* Раскрывающийся список слева- это список объектов. В окне программного кода модуля здесь присутствует только пункт ( General ) (Общие), так что в случае модуля на этот список можно не обращать внимание вообще. Другое дело, когда вы работаете в окне программного кода для формы. В этом случае из списка объектов вы можете выбрать конкретный помещенный в форму элемент управления (или саму форму). В результате такого выбора в окне программного кода будет показана процедура, являющаяся для соответствующего объекта процедурой по умолчанию.

* Раскрывающийся список справа - это список процедур/событий. Здесь можно выбрать либо раздел ( Declarations ) (Объявления) для всего окна, либо конкретную процедуру, чтобы отобразить в окне соответствующий программный код. Если вы находитесь в окне программного кода формы, этот список будет содержать только события, допустимые для объекта, выбранного в списке объектов. При выборе события в окне программного кода появляется процедура, соответствующая этому событию.

Рис. 5.13. ЭТИ светлые овалы на полосе в левой части окна программного кода представляют закладки. По умолчанию на цветном мониторе они голубого цвета

Закладки в программном коде

Предположим, сейчас 3 часа ночи. Ваши глаза слипаются, и вас клонит ко сну, но сроки нещадно поджимают, и вы упорно отбиваете на клавиатуре строку за строкой довольно однообразный программный код. Вдруг - прилив вдохновения - вы понимаете, как можно решить одну важную программистскую проблему, над решением которой вы перед этим уже безрезультатно бились добрую половину дня.

Прежде чем перейти в тот модуль, в котором будет воплощена ваша гениальная идея, поместите закладку в том месте, где вы работаете в данный момент. И когда наступит время вернуться, вы без труда очень быстро отыщете дорогу назад, подобно Гензелю и Гретель.

Чтобы поместить закладку в строку программного кода (точнее, рядом со строкой программного кода; рис. 5.13), щелкните на кнопке Toggle Bookmark (Добавить закладку).

Все относящиеся к закладкам кнопки находятся в панели инструментов Edit (Правка), поэтому, чтобы получить доступ к ним, нужно отобразить эту панель инструментов на экране. Иначе можно использовать соответствующую команду меню (Edit=Bookmarks=Toggle Bookmark), но это существенно более длинный путь. (Это жестоко, но Microsoft не предусмотрела комбинации клавиш для закладки.) Закладок можно разместить столько, сколько вы пожелаете.

Ясно, что сама по себе закладка не принесет никакой пользы. Щелкайте на кнопках Next Bookmark (Следующая закладка) и Previous Bookmark (Предыдущая закладка) для последовательного перехода от закладки к закладке, пока не доберетесь до места назначения.

Чтобы удалить отдельную закладку, поместите текстовый курсор в строку с этой закладкой и снова щелкните на кнопке Toggle Bookmark. Если же закладок набралось столько, что использование команд перехода от закладки к закладке уже почти эквивалентно использованию полосы прокрутки, удалите все закладки сразу одним щелчком на кнопке Clear All Bookmarks (Удалить все закладки).

Разделение окна программного кода

Любое окно программного кода можно разделить на два (рис. 5.14). Это позволит вам видеть одновременно различные части программного кода одного и того же модуля. В этом случае очень удобно также копировать текст из одной части программного кода в другую.

Рис. 5.14. Я разделил это окно программного кода

Чтобы разделить окно программного кода, используйте линию разбивки - маленький серый бегунок сразу над верхней стрелкой вертикальной полосы прокрутки в правой части окна. Перетащите линию разбивки вниз, установив подходящие размеры частей окна. Чтобы вновь сделать окно единым, уберите линию разделения двойным щелчком на ней или перетащите ее снова на самый верх окна.

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

Средство List Constants (Получить список констант) работает практически так же, как и средство получения списка свойств и методов, конечно, за исключением того, что в данном случае отображается список констант, определенных для свойства, с которым вы имеете дело. Этот список появляется сразу же после того, как вы напечатаете знак =, например, в строке оператора

Oatmeal.Texture = Gluey

Лично я не могу понять, почему это средство имеет отдельную команду, а не рассматривается как часть средства List Properties and Methods (Получить список свойств и методов). Но как есть, так и есть, и поэтому для вызова списка констант служит несколько иная комбинация клавиш - Ctrl+Shift+J. А чтобы узнать, как использовать сами константы, загляните в раздел Работа с постоянными значениями в главе 7.

Автоматическое дополнение слов

Средство Complete Word (Автоматически дополнить слово) редактора Visual Basic позволяет автоматически ввести практически любой VBA-термин. Активизируется это средство нажатием Ctrl +пробел. В результате на экране возникает список, наподобие обсуждавшегося выше списка свойств и методов. Но в данном случае в списке будет практически все, что вы могли бы напечатать, - объекты, функции, процедуры, константы, методы, свойства и созданные вами переменные. Исключение составляют лишь ключевые слова для обозначения встроенных типов данных, таких как Integer и Variant.

Если перед тем, как нажать Ctrl+пробел, напечатать одну-две буквы, появившийся список будет значительно короче, поскольку будет содержать только строки, начинающиеся с заданных символов. Более того, если вы напечатаете достаточно начальных символов для того, чтобы в списке осталось только одно слово, редактор Visual Basic дополнит начатое вами, как только будут нажаты клавиши Ctrl +пробел, - и без появления какого бы то ни было списка.

Получение списка аргументов

Многие VBA-процедуры требуют, чтобы при их выполнении были определены один или несколько аргументов. Такие процедуры используют в своих вычислениях (или других выполняемых ими действиях) информацию, содержащуюся в этих аргументах. Подобно процедурам, многие методы объектов также требуют задания аргументов.

Тут уж редактор Visual Basic не напечатает аргументы за вас - он просто не может этого сделать, поскольку не знает, какие конкретные значения должны быть у аргументов. Однако он может отобразить на экране что-то вроде шпаргалки - небольшую всплывающую подсказку со списком всех аргументов нужной функции, с указанием типа данных, требуемого каждым из аргументов, и информацией о том, какие из аргументов необязательны. Это всплывающая подсказка Quick Info (Краткая справка), пример ее появления показан на рис. 5.16.

Рис. 5.16. Всплывающая подсказка Quick Info в действии

Если в диалоговом окне ToolsoOptions отмечен флажок Auto Quick Info (Автоматический вызов краткой справки), всплывающая подсказка Quick info будет неизменно появляться, как только вы напечатаете имя функции, метода или процедуры, для которых требуется указать аргументы. Если же соответствующая возможность отключена, всплывающую подсказку Quick Info можно вызвать нажатием клавиш Ctrl+I.

Существует очень много функций и процедур, которым необходимо указывать несколько аргументов. Чтобы избавить вас от необходимости помнить, где именно в списке аргументов вы находитесь, в подсказке Quick Info печатаемый вами аргумент выделяется полужирным шрифтом.

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

Quick Info против Parameter Info

При создании достаточно сложных программ хорошим дополнением к подсказкам Quick Info оказываются подсказки Parameter Info (Справка о параметрах). Часто значение аргумента определяется как значение некоторой функции, например:

MsgBox(Str(AnIntegerVariable))

Здесь функция Str конвертирует целое значение, хранящееся в переменной AnIntegerVariable, в текстовую строку. Эта строка задает аргумент функции Ms gBox (и будет сообщением в том окне сообщения, которое VBA отобразит на экране).

Из-за подобного вложения одних функций в другие подсказки Quick Info может оказаться недостаточно, поскольку Quick Info всегда показывает список аргументов той функции, которая содержит точку ввода. Дополнительный же помощник, подсказка Parameter Info, показывает список аргументов для самой внешней функции, т.е. для той, в которой содержатся все вложенные. Вызвать подсказку Parameter Info можно с помощью клавиш Ctri+Shift+I.

Определение программы

Так что же такое программа? Говоря формально, программа- это цельная, способная функционировать (или неправильно функционировать) совокупность программного кода. Программа должна содержать один или несколько операторов, которые выполняются в порядке, заданном программистом.

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

В этой книге в основном речь идет о программах, имеющих дело только с одним проектом. Краткий обзор использования в VBA-программе нескольких проектов вы найдете в главе 14.

Пример программы

Чтобы сделать обсуждение иерархии VBA-элементов немного менее абстрактным, давайте рассмотрим приведенный ниже программный код модуля. Этот модуль содержит все упомянутые выше элементы (за исключением проекта, поскольку модули содержатся в проектах, а не наоборот). После текста модуля идет обсуждение составляющих его элементов.

Думаю, сначала нужно объяснить, что делают в этом примере программы. Сначала создается совокупность (.массив) из шести целых величин, которым приписываются случайные значения от 1 до 1000. Затем после подсчета числа значений, превышающих определенное пороговое значение, а именно значение 500, полученный результат отображается в небольшом диалоговом окне.

Option Explicit
Const Maximum As Integer = 500
Const HowMany As Integer = 5
Dim ListOfNumbers() As Integer
Sub MAIN()
_ Dim ItemsInList, n, x As Integer
_ ReDim ListOfNumbers(HowMany)
_ Randomize
_ For x = 0 To HowMany
        ListOfNumbers(x) = int( ( 1000 * Rnd) + 1)
_ Next x
_ n = CountBigNumbers()
_ MsgBox (There were   n   values greater than   _
_ Maximum)
End Sub
Function CountBigNumbers()
_ Dim Counter As Integer, y As Integer
_ Counter = 0
_ For = 0 To HowMany
    If ListOfNumbers(y)  Maximum Then
            Counter = Counter + 1
    End If
_ Next у
_ CountBigNumbers = Counter
End Function

Весь этот блок программного кода в своей совокупности представляет собой модуль. Он состоит из ряда операторов, организованных в три раздела. Это раздел объявлений, начинающийся оператором Option Explicit, процедура типа Sub, начинающаяся оператором Sub

MAIN(). и процедура типа Function, начинающаяся оператором Function CountBigNumbers ( ). Большинство операторов этого модуля занимают по одной строке, но оператор в строке, начинающийся с выражения MsgBox, заканчивается в следующей строке.

Планирование модулей

Нельзя сказать, что проблема организации модулей слишком сложна. Имеет смысл подумать только над тем, сколько модулей следует создать и какие процедуры должны в них войти. Вот те моменты, о которых нужно при этом помнить.

Процедуры могут вызывать или выполнять процедуры, хранящиеся в других модулях.

Один модуль также может использовать переменные, объявленные в другом модуле.

Использование процедур и переменных из друтих модулей немного усложняет задачу программирования. Например, можно вызвать процедуру из другого модуля, просто напечатав ее имя. Однако, если имя той процедуры совпадает с именем процедуры из вызывающего модуля, необходимо напечатать перед именем процедуры имя содержащего ее модуля, например ДругойМодуль.НужнаяПроцедура. (Я вообще рекомендовал бы использовать формат Модуль. Процедура всегда, даже если никаких совпадений имен нет.)

В общем, следует размещать связанные каким-либо образом процедуры в одном модуле.

Как правило, один модуль содержит все процедуры одной целой VBA-программы. Это упрощает программирование, поскольку не приходится иметь дело с вышеописанными сложностями с вызовом процедур и переменных из других модулей.

И все же, если вы планируете создание процедур, которые будут использоваться более чем одной программой, имеет смысл организовать эти процедуры в модули по типу выполняемых ими задач, например МатематическиеПроиедуры ИЛИ БлокОбраЕоткиТекста. Можно создавать и модули типа КовыеПроцедуры или СтарыеПроцедурыНаВсякийСлучай. Подробности вы найдете в разделе Выбор имен дальше в настоящей главе.

Что к чему в новом модуле

В окне программного кода для нового модуля есть только один раздел- Declarations (Объявления). Чтобы выяснить, в каком из разделов вы находитесь, взгляните на текст в окне списка справа вверху окна программного кода.

Два типа операторов можно поместить в раздел объявлений модуля.

* Объявления переменных, констант и пользовательских типов данных. Такие объявления сообщают компилятору имя и тип каждого из объектов (но не их значения). Переменные и константы, объявленные в разделе объявлений модуля, могут использоваться в любой процедуре этого модуля.

* Параметры компилятора, с помощью которых можно управлять работой компилятора VBA.

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

Операторы из раздела объявлений имеют и другое, довольно забавное, название - программный код уровня модуля.

Каждая добавляемая в модуль процедура рассматривается как новый раздел. После того как процедура добавлена, ее имя появляется в списке, окно которого находится вверху справа в окне программного кода. Тем самым вы получаете возможность сразу перейти к процедуре, выбрав имя этой процедуры из списка.

Типы процедур

Почти весь создаваемый вами программный код будет содержаться в процедурах всего двух типов - Sub и Function. Процедуры обработки событий, выполняемые в VBA, когда происходит какое-либо событие, например щелчок кнопки мыши, являются специальными процедурами типа Sub. В VBA есть еще один тип процедур-это процедуры типа Property (процедуры свойств). ;

Вот краткое описание особенностей процедур различных типов.

* Процедура типа Sub (подпрограмма) - универсальная процедура для выполнения различных заданий в VBA. Только процедуры типа Sub можно выполнять независимо с помощью приемов, обсуждавшихся в главе 4. Кроме того, одна процедура типа Sub может вызывать (т.е. выполнять) другую.

* Процедура типа Function (функция) тоже может выполнять любой VBA-оператор. Отличие от процедур типа Sub состоит в том, что в данном случае вычисляется некоторое значение, которое возвращается в ту процедуру, откуда процедура типа Function была вызвана.

* Процедура обработки события (event procedure) - это процедура типа Sub специального назначения. Признаю, что об этом я уже говорил. Но зато я не говорил о том, что подробности о процедурах обработки событий вы найдете в главе 14.

* Процедура типа Property (процедура свойства) выясняет или устанавливает значение свойства пользовательского объекта. О процедурах свойств не будет идти речь аж до главы 14, но здесь они упоминаются просто потому, что вы непременно увидите их среди опций диалогового ; окна Add Procedure (Добавление процедуры).

Строго говоря, макрос в VBA- это процедура типа Sub, не имеющая (т.е. не требующая) параметров.

Макросы образуют единственный класс процедур типа Sub, способных выполняться непосредственно путем вызова по имени либо из редактора Visual Basic, либо из VBA-приложения. Чтобы выполнить процедуру типа Sub с параметрами, ее необходимо вызвать из другой процедуры. Работа с аргументами будет обсуждаться в этой же главе в разделе Привлекательные аргументы.

Каркас процедуры

Вот два примера процедур, по одной каждого из типов (Sub и Function):

Public Sub Субмарина()
        MsgBox Поднять перископ!
End Sub
Public Function ФункШин(ДатаРождения As Date)
        ФункШин = DateDiff (yyyy, ДатаРождения, Date)
End Function

Как видите, каждая из процедур имеет начинающий процедуру оператор ее объявления, как минимум одну строку программного кода и завершающий оператор End. Подробнее эти элементы будут рассмотрены чуть позже в разделах Процедуры типа Sub и Процедуры типа Function.

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

После того как окно программного кода модуля будет открыто и станет активным, можно приступить к добавлению новой процедуры. Для начала просто вставьте в модуль оператор объявления процедуры и оператор ее завершения, т.е. оператор End. Это можно сделать двумя способами.

* Выбрать Insert Procedure и заполнить появившееся при этом диалоговое окно.

* Ввести соответствующие операторы вручную.

Печатать или использовать диалоговое окно?

Я рекомендую печатать каркас процедуры вручную просто потому, что использование диалогового окна не дает никакого выигрыша во времени, разве что вы печатаете исключительно медленно. Кроме того, подход сделайте сами позволяет выбрать место размещения процедуры в модуле, которую все равно не удастся заполнить с помощью диалогового окна.

Нужно только щелкнуть в том месте, где должна появиться процедура, напечатать строку с ее объявлением и нажать Enter. Вводить завершающие операторы End Sub и End Function не потребуется - редактор Visual Basic подставит подходящий оператор за вас.

Правда, возможно, что в самом начале освоения VBA вы будете чувствовать себя увереннее с диалоговым окном. Чтобы использовать этот подход, щелкните на кнопке Insert Procedure (Добавить процедуру). (Опять же, наверное, вам придется сначала щелкнуть на этой небольшой полоске со стрелкой рядом с кнопкой Insert и только затем выбрать Procedure из раскрывшегося меню.) Можно также просто выбрать Insert=Procedure из меню.

Появится диалоговое окно Add Procedure (Добавление процедуры). В этом окне нужно напечатать имя процедуры в поле Name (Имя), затем выбрать с помощью переключателей Туре (Тип) и Scope (Область видимости) соответственно тип и область видимости, а также установить, если нужно, флажок All Local variables as Statics (Считать все локальные переменные статическими).

Я знаю, что до сих пор ничего не говорил об области видимости и о статических переменных, но на все эти вопросы вы найдете ответы ниже, в разделе Обзор области видимости.

После щелчка на кнопке ОК редактор Visual Basic вставит пару из объявления процедуры и оператора End в конец модуля, не обращая внимания на то, где находился текстовый курсор до того, как вы открыли диалоговое окно.

Наполнение каркаса процедуры

Создание операторов объявления и завершения процедуры, несомненно, является самым простым делом в процессе создания новой процедуры. А главная работа состоит в печатании операторов VBA, которые должны находиться между открывающим и закрывающим операторами. В этом разделе не предполагается вдаваться в детали того, что именно следует там печатать.

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

Элементы объявления процедуры типа Sub

В операторе объявления процедуры первый термин Public определяет область видимости процедуры. Для области видимости можно указать либо Public, либо Private. При этом Public подразумевается по умолчанию, так что это ключевое слово можно пропустить. Логично, что пропуск ключевого слова Public делает область видимости такой, которой вообще не нужно интересоваться. Снова повторю, что подробно область видимости описана в разделе Обзор области видимости.

Далее идет ключевое слово Sub, которое просто указывает на то, что здесь определяется процедура типа Sub. За ним следует имя процедуры, которое может быть каким угодно, подчиняясь лишь правилам присвоения имен, приведенным дальше в настоящей главе.

Пропущенные аргументы

Завершается объявление парой скобок. Зачем они нужны, если внутри них ничего нет?

Эти скобки могли бы содержать аргументы, если бы у процедуры они были. Аргументы - это элементы данных, которые процедура намеревается получить при вызове. В данном случае процедура не имеет аргументов, поэтому она не только внешне такая приятная, но и в скобках ничего не содержит. Дальнейшее обсуждение аргументов продолжится позже в разделе Привлекательные аргументы'.

Снова повторю, что макрос в VBA по определению представляет собой процедуру типа

Sub, не имеющую аргументов. Чтобы выполнить процедуру типа Sub, у которой аргументы есть, ее нужно вызвать из другой процедуры.

Вызов процедур типа Sub

Любую процедуру - независимо от того, имеет она аргументы или нет - можно выполнить, или вызвать, из другой процедуры. Чтобы вызвать процедуру типа Sub, используйте оператор, представляющий собой имя вызываемой процедуры, как в следующем фрагменте программного кода. Строка, в которой напечатано МойкаМоейСтаройМашины, вызывает процедуру типа Sub:

* * *

МояСтараяМашина = Доблесная

МойкаМоейСтаройМашины

ЧислоПосященийМойки = ЧислоПосященийМойки +1

* * *

Отличия процедур типа Function от процедур типа Sub

Между процедурами типа Function и типа Sub есть одно существенное отличие: в процедуре типа Function обязательно где-то должен присутствовать по крайней мере один оператор, задающий значение этой функции. При этом используется имя процедуры, как будто это обычная переменная. В предыдущем примере присвоение значения осуществляется в строке ДеФункция = х ́ z. После того как программный код в этой строке будет выполнен, ДеФункция будет содержать значение, которое возвратится в вызывающую процедуру для дальнейшего использования там.

Вызов процедур типа Function

Процедуру типа Function можно выполнить, только вызвав ее из другой процедуры.

Как правило, это делается путем присваивания имени данной функции некоторой переменной. В следующем примере переменная ZСтепень получает значение, возвращенное процедурой ДеЗункция:

ZСтепень = ДеФункция(3, 4)

После выполнения этого оператора переменная ZCTeneHb будет содержать значение, вычисленное процедурой ДеФункция, - процедурой типа Function - и этим значением будет 3 . Обратите внимание, что в данном случае процедуре передаются аргументы, заключенные в скобки после имени процедуры.

Привлекательные аргументы

Аргументы представляют значения, которые предполагается передавать от одной процедуры к другой. Аргументы назначаются процедуре тогда, когда необходимо, чтобы эта процедура изменяла свое поведение в зависимости от тех значений, которые она получает при ее вызове. Аргументы могут иметь и процедуры типа Sub, и процедуры типа Function.

Рассмотрим снова процедуру ДеФункция:

Public Function ДеФункция(х As Integer, y As Integer )
    Dim Z AS Integer
    z = x + у
    ДеФункция = x ́ z
End Function

У этой процедуры два аргумента - х и у. Как видно из программного кода, аргументы процедуры являются частью ее объявления. Аргументы размещаются в скобках сразу после имени процедуры в списке аргументов, где для каждого из аргументов задается имя и тип данных (подробности - ниже, в разделе Создание процедур с аргументами).

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

Посмотрите внимательнее на программный код процедуры ДеФункция. После объявления переменной z процедура вычисляет значение этой переменной, равное сумме двух аргументов х и у. В следующей строке, чтобы вычислить возвращаемое значение самой процедуры, аргумент х возводится в степень z. Как видите, к, у и z играют одинаковые роли. Если хотите, можно возвести z в степень х.

Полезные аргументы

Но если аргументы так похожи на обычные переменные, зачем же вообще их использовать? В действительности их можно и не использовать - все, что делают аргументы, можно сделать с помощью обычных переменных. Но аргументы упрощают использование процедур и восприятие программного кода.

Пришло время рассмотреть пару примеров для сравнения. Сначала рассмотрим процедуры, использующие аргументы Модель и ГодВылуска для передачи значений:

Public Sub ВызывающаяПроцедура()
    ДоходОтСтаройМашины = ПродажаСтаройМашины[Rambler _
    Classic,1962)
End Sub


Public Function ПродажаСтаройМашины(Модель As String, _
                    ГодВыпуска As Integer)
    Dim ВозрастнойФактор As Integer
    Dim ЦеновойФактор As Single
    ВозрастнойФактор = ГодВыпуска - 1900
    If Модель = Rambler Classic Then
        ЦеновойФактор = .001
    Else If Модель = Dodge Dart Then
        ЦеновойФактор = .005
    Else If ...
        (другие операторы)
    End If
    ПродажаСтаройМашины = ВозрастнойФактор * _
    ЦеновойФактор * 1000
End Function

Здесь процедура с именем ВызывающаяПроцедура использует процедуру типа Function с именем ПродажаСтаройМашины для вычисления результата с именем

ДоходСтСтаройМашины. Раз процедура типа Function использует аргументы, вы можете сообщить ей непосредственно, какую машину вы продаете и какого она года выпуска.

Теперь рассмотрим две процедуры, выполняющие ту же работу без аргументов. Заметим, что в данном случае необходимо объявить две переменные на уровне модуля, вне процедур, чтобы этими переменными могли пользоваться обе процедуры.

Dim Модель As String
Dim ГодВыпуска As Integer
Public Sub ВызывающаяПроцедура2()
    Модель = Dodge Dart
    ГодВыпуска = 1963
    ДоходОтСтаройМашины = ПродажаСтаройМашины2()
End Sub
Public function ПродажаСтаройМашины 2()
    Dim ВозрастнойФактор As Integer
    Dim ЦеновойФактор As Single
    If Модель = Rambler Classic Then
        ЦеновойФактор = .001
    Else If Модель = Dodge Dart Then
        ЦеновойФактор = .005
    Else If ...
        (другие операторы)
    End If
    ПродажаСтаройМашины = ВозрастнойФактор * _
    ЦеновойФактор * 1000
End Function

Так зачем же возражать?

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

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

* При создании программного кода аргументы помогают уменьшить число переменных, которые требуется создать (вне всех процедур в разделе объявлений модуля).

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

* При вызове процедуры с аргументами VBA заставляет вас определить значения для таких аргументов. Это гарантирует, что процедура получит именно те значения, которых ей требуются.

Вызов процедур с аргументами

Чтобы где-нибудь в программном коде вызвать процедуру с аргументами, просто сразу за именем этой процедуры напечатайте значения каждого из аргументов. Значения должны быть перечислены в том же порядке, в котором соответствующие аргументы заданы в объявлении процедуры.

Единственной возможной сложностью при этом могут стать правила использования или неиспользования скобок. Правила эти следующие.

Скобки для аргументов обязательны при вызове процедуры типа Function для получения возвращаемого значения.

Скобки можно опустить в случае вызова процедуры типа Sub, а также в случае, когда в программном коде, вызывающем процедуру типа Function, возвращаемое значение не используется.

Задание области видимости процедуры

Чтобы задать область видимости процедуры, нужно в начале объявления процедуры просто напечатать ключевое слово Public или Private. Взгляните на следующие примеры:

Public Sub IKr.eadYouO

...( операторы процедуры)

End Sub

Private Function IKneedYou()

.. . (операторы процедуры)

End Function

Поскольку по умолчанию процедуры предполагаются открытыми, ключевое слово Public указывать для этого не обязательно. Однако, если в программе есть хотя бы одна локальная процедура, я рекомендовал бы явно определять и открытые процедуры, чтобы с первого взгляда определить область видимости любой из процедур.

Чтобы ограничить область видимости открытой процедуры рамками одного проекта и сделать ее недоступной для других проектов, поместите в раздел объявлений соответствующего модуля оператор Option Private Module. Подробности об использовании таких операторов вы найдете ниже, в разделах Объявления и Параметры компилятора.

Отступы в программе

Запомните: следует выработать правила использования отступов и неуклонно их придерживаться. Компилятор VBA игнорирует все пробелы в начале строк, так что вы можете смело использовать отступы для наведения порядка. Сравните следующие два фрагмента программного кода и решите, какой из них легче понять:

If intA = 27 Then
If txtChooseColor.Text = Беж Then
intA = 33
intB = 0
End If
For Each objCbar In CommandBars
If objCbar.Name = Моя панель инструментов Then
If objCbar.Visible = False Then
objCbar.Visible = True
end If
End If
Next objCbar
End If
* * *
If intA = 27 Then
        If txtChooseColor.Text = Беж Then
                    intA = 33
                    intB = 0
        End If
        For Each objCbar In CommandBars
                If objCbar.Name = Моя панель инструментов Then
                        If objCbar.Visible = False Then
                                    objCbar.Visible = True
                        end If
                End If
        Next objCbar
End If

Оба эти фрагмента дают один результат, но отступы во втором фрагменте позволяют сразу сказать для каждого из операторов End If, какой из расположенных выше операторов If. . .Then будет ему парой. В результате легче отследить путь выполнения программы в зависимости от сложившихся условий.

Как сделать отступ

Для добавления отступа в строке программного кода нажмите клавишу пробела или Tab, чтобы сдвинуть текстовый курсор вправо. Можно задать расстояние, на которое клавиша Tab сдвигает курсор, если выбрать Tools=Options. В диалоговом окне Options (Параметры) на вкладке Editor (Редактор) есть поле Tab Width (Отступ табуляции), где можно впечатать число, соответствующее количеству пробелов. Поскольку пространства в окне редактора Visual Basic не слишком много, лично я установил отступ табуляции, равный 3 пробелам, хотя можно указать любое число от 1 до 32.

Если по каким-то причинам нажимать клавишу табуляции вам не слишком удобно, всегда можно сдвинуть начало строки вправо или влево с помощью предлагаемых VBA кнопок Indent (Добавить отступ) и Outdent (Удалить отступ) соответственно. Эти кнопки применяются не только к отдельным строкам, но и к выделенным фрагментам текста, так что одним щелчком можно добавить или убрать отступ целого блока. Обратите внимание на то, что при использовании этих кнопок положение точки ввода в строке игнорируется - всегда увеличивается или уменьшается отступ сразу всей строки.

Автоматические отступы

Чтобы до минимума уменьшить объем выполняемой вами работы, редактор Visual Basic автоматически устанавливает отступ в новой строке, равный отступу в предыдущей. Если в новой строке отступ должен быть меньше, просто нажмите клавишу удаления символа перед курсором (клавишу Back Space ). Если навязанная помощь вас слишком уж раздражает, автоматическое создание отступов можно отменить на вкладке Editor в диалоговом окне Tools=Options.

Свободное пространство - это хорошо

Оставленные между группами родственных операторов пустые строки намекают на важность выделенного таким образом фрагмента программного кода. Кроме того, это уменьшает плотность программы и еще упрощает зрительное восприятие программного кода (рис. 6.2).

Не пользуйтесь прокруткой без необходимости!

Одна строка окна программного кода может содержать примерно 300 символов (наверное, вы удивитесь, если я скажу, что максимальное число символов равно 308), так что при желании можно вместить в одну строку довольно длинный оператор. Однако очевидно и то, что удобнее иметь дело с операторами, полностью видимыми в рамках окна программного кода, когда текст в окне не приходится прокручивать туда-сюда.

Использование символа продолжения строки

Чтобы продолжить оператор на следующую строку, поместите в конце текущей строки символ подчеркивания ( _ ). Например, следующие три строки программного кода в совокупности определяют один оператор:

sngWackyNumber = Cos(12 * 57.5 / Sqr(intMyTinyNumber + _

intMyBigNuraber) + CustomDataMassage (sngRawInfo, 12) + _

(bytFirstTuesdaylnAugust * curLastPayCheck) + 1)

Не забудьте перед символом подчеркивания, который называют еще символом продолжения строки, оставить пробел, поскольку без такого пробела вы получите от VBA сообщение об ошибке типа недопустимый символ (invalid character).

И еще одно предостережение: следите, чтобы символ подчеркивания не оказался внутри кавычек, определяющих строку текста (если, конечно, вы не собираетесь включить символ подчеркивания в строку). Подробную информацию об использовании строк символов, включая и то, как можно продолжить их на новую строку, вы найдете в главе 7.

Не используйте операторы в несколько строк

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

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

sngTempl = Sqr(intMyTinyNumber + intMyBigNumber)

sngTemp2 = 12 * 57.5 / sngTempl

sngTemp3 = CustomDataMassage(sngRawInfo, 12)

sngTeinp4 = bytFirstTuesdaylnAugust * curLastPayCheck

sngWackyNumber = Cos(sngTemp2 + sngTemp3 + sngTemp4 + 1)

Этот фрагмент программного кода длиннее и использует несколько дополнительных переменных, но зато за представленными в этом фрагменте вычислениями легче следить. Кроме того, если результат вычислений окажется неправильным, для локализации ошибки можно будет проследить за каждым шагом вычисления в отдельности - ясно, что подобный пошаговый анализ невозможен, когда результат вычисления является результатом выполнения одного длинного оператора.

(Подробно приемы пошагового выполнения программного кода разбираются в главе 9.)

Как создавать комментарии

Комментарий начинается с напечатанного вами апострофа. Все, что напечатано в строке программного кода справа от апострофа, считается комментарием. Для комментария можно выделить отдельную строку, а можно и добавить его в конец строки с активным программным кодом. Пример окна программного кода с множеством комментариев, добавленных после операторов, показан на рис. 6.2.

Рис. 6.2. Какие будут комментарии?

Единственное место в окне программного кода, где разместить комментарий невозможно, - это конец строки, в которой используется символ переноса строки (символ подчеркивания). Например, при попытке разместить комментарий так. как это показано в следующем фрагменте программного кода, вы получите сообщение об ошибке:

a = b _ ' это первая из нескольких строк оператора

Чтобы создать комментарий для оператора, занимающего несколько строк, придется разместить комментарий либо в отдельной строке, предшествующей этому оператору, либо в последней строке самого оператора, например:

' Можно разместить комментарий здесь

z = х - _

' Последняя строка тоже МОЖЕТ содержать комментарий

Когда использовать комментарии

Не скупитесь на комментарии. Приучите себя добавлять хотя бы краткие объяснения по поводу каждой отдельной строки программного кода и описывать подробно функциональное назначение групп операторов, При объявлении переменной добавьте комментарий о том, для чего эта переменная создается и где будет использоваться. При объявлении процедуры запишите, что она делает, какие аргументы и для чего использует, какие другие процедуры вызывает. Приучите себя печатать комментарии всегда, как только наступает затишье в творческом процессе создания программного кода.

Простите уж мою настойчивость, но это действительно важно: во время активной работы с конкретным проектом логика создаваемого программного кода может казаться прозрачной и очевидной. Но это прекрасное чувство ясности вскоре растает- и растает без следа. Когда ваше внимание переключится на что-то другое, уже через несколько дней только комментарии избавят вас от исключительно трудоемкой работы по переводу того, что было сделано вами же, на язык, снова понятный вам. Еще важнее комментарии при работе над проектом, в разработке которого принимают участие другие люди, - в этом случае комментарии просто необходимы для того, чтобы проект вообще мог развиваться.

Комментарии можно также использовать для удаления из потока выполнения программы временно ненужных операторов вместо непосредственного их удаления из программы. Это особенно удобно, когда требуется выяснить эффективность нескольких вариантов решений некоторой проблемы или для того, чтобы временно утихомирить фрагмент программного кода, содержащий ошибку, пока вь; отлаживаете другую часть модуля.

Пространные комментарии

Чтобы разместить в программе многословный комментарий в несколько строк, необходимо поставить по апострофу в каждой строке, занятой этим комментарием. К счастью, в VBA предусмотрена кнопка, с помощью которой можно превращать в комментарии целые блоки текста сразу.

Чтобы вставить в программный код несколько строк комментария, напечатайте текст комментария, как будто это происходит в обычном текстовом процессоре, игнорируя все сообщения редактора Visual Basic об ошибках, появляющиеся на экране каждый раз. когда вы будете нажимать клавишу Enter для перехода на новую строку. Закончив печатать, выделите весь блок текста, которому предназначено стать комментарием, и щелкните на кнопке Comment Block (Добавить в блоке знаки комментария). Редактор Visual Basic добавит необходимый апостроф в начало каждой строки в выделенном блоке.

Имеется также возможность раскомментировать блок текста, в начале строк которого проставлены апострофы. Для этого выберите блок текста и щелкните на кнопке Uncomment Block (Снять в блоке знаки комментария).

С помощью кнопок Comment Block и Uncomment Block можно быстро выключать из потока выполнения программы и снова включать в поток любой блок программного кода. Превращение в комментарий блока программного кода, который пока работает неправильно, очень удобно, когда нужно сначала отладить другую часть программы.

Одно небольшое замечание по поводу тонкостей работы этих кнопок. Если строка уже начинается с апострофа, кнопка Comment Block добавит в начало строки еще один апостроф и т.д. Точно так же, каждый щелчок на кнопке Uncomment Block убирает только один апостроф. А это значит, что если вы с помощью этих кнопок сначала превратите фрагмент выполняемого программного кода в комментарий, а затем снимете знаки комментария, вы не потеряете реальных комментариев, которые могли присутствовать в данном фрагменте программы до всех этих манипуляций.

Убежище Rem для комментариев

Ключевое слово Rem, которое сохранилось еще со времен самых первых версий языка BASIC, выполняет в VBA ту же самую задачу, что и апостроф, - указывает на начало комментария. (Rem- сокращение от английского remark (примечание), как нетрудно догадаться.) Если буквы вам нравятся больше, чем знаки пунктуации, используйте Rem вместо апострофов или комбинируйте эти два признака комментария по своему усмотрению.

Между прочим, эти два признака комментария все-таки имеют одно важное различие в использовании. Чтобы использовать ключевое слово Rem в конце строки, содержащей активный программный код, после этого программного кода перед Rem необходимо напечатать двоеточие (:):

Rem Здесь начало комментария задается ключевым словом Rem

а = b + с: Rem

Видите двоеточие перед Rem?

Использование конкретного типа данных по сравнению с типом Variant: за и против

Одни считают, что указание в объявлении переменной ее конкретного типа данных (т.е. типа, отличного от Variant ) - это хорошо, другие же считают, что это плохо. Объявление конкретного типа данных переменной помогает избежать одних ошибок, но обеспечивает массу возможностей для появления других. Такой подход способствует уменьшению и ускорению выполнения программ, но в большинстве реальных случаев эти усовершенствования, наверное, не будут слишком важны.

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

Dim dateAnniversary As Date

то VBA выведет на экран сообщение об ошибке, когда вы попытаетесь присвоить этой переменной текстовое значение, как здесь:

dateAnniversary = Поездка на Фиджи ' Ошибка

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

Сообщение об ошибке не появилось бы, если dateAnniversary была объявлена как переменная типа Variant, т.е. как переменная, допускающая любой тип данных. Тип данных Variant можно объявить точно так же, как и любой другой, например:

Dim varToolsuite As Variant

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

Dim Toolsuite

Что же касается вопросов оптимизации, то, указывая конкретный тип, вы имеете возможность выбрать при этом тот тип данных, который обеспечивает в точности необходимый минимум для хранения соответствующей информации. Переменная типа Variant занимает больше памяти, чем переменная любого другого типа, да и доступ к такой переменной осуществляется медленнее. Однако такие аргументы начинают играть роль в программах с очень и очень большим числом переменных. Зато объявив все переменные как переменные типа Variant, вы получаете возможность избежать многих ошибок, сделать программный код более гибким, а также сделать более простой модификацию такого программного кода.

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

Выберите подходящую для себя стратегию - объявление конкретного типа данных для каждой переменной или использование типа Variant для всех переменных - и придерживайтесь одной стратегии по крайней мере в рамках одной программы.

Явные объявления приветствуются

Независимо от того, решите вы назначать конкретные типы данных переменным или нет, каждую переменную перед использованием следует объявить. Как серьезный программист, вы можете сделать так, чтобы VBA заставлял вас объявлять переменные. Если в раздел объявлений модуля поместить оператор Option Explicit то при попытке использования предварительно не объявленной переменной VBA будет сообщать об ошибке. После такого своевременного предупреждения вы сможете добавить необходимое объявление в подходящем месте программы.

Такая требовательность VBA в деле явного объявления переменных дает и более ощутимые выгоды: тем самым предотвращается в перспективе вероятность появления в программе серьезных ошибок из-за банальных опечаток.

Представьте себе следующую ситуацию. Вы решили не использовать оператор OptionExplicit в своем модуле. Но вот где-то в глубине процедур в результате случайной незамеченной неточности движения пальцев вы ошибаетесь при печатании имени одной из своих переменных. Когда компилятор VBA дойдет до строки с этой опечаткой, он подумает, что здесь вы просто вводите в оборот новую переменную, и любезно создаст ее для вас. В результате ваша программа может и будет выполняться, но не удивляйтесь, если вдруг выводимый на экран текст окажется ярко-красным или программа сообщит, что население Земли достигло 12 человек.

Наверное, к этому моменту я вас уже убедил, что оператор Option Explicit должен присутствовать в каждом создаваемым вами модуле. Но если это так, то зачем этот оператор печатать каждый раз вручную? Это делать совсем не обязательно. Выберите Tools=Options из меню и в появившемся диалоговом окне Options (Параметры) на вкладке Editor (Редактор) установите флажок Require Variable Declaration (Требовать объявление переменных). После этого редактор Visual Basic будет автоматически вставлять оператор Option Explicit в каждый новый модуль. В старые модули, где такого оператора не было, вам придется впечатать его самим.

По умолчанию переменные локальны

Ключевое слово Private работает точно так же, как и Dim. Например, следующие два оператора объявления функционально идентичны:

Private strLouie As String

Dim strLouie As String

Ввиду того, что ключевые слова Private и Dim работают одинаково, вы можете вообще не использовать, например, Private. А можно использовать только Private, если вы хотите, чтобы это ключевое слово напоминало о том, что переменная достижима только в рамках данной процедуры или модуля.

Глобальное знание

Объявление переменной с помощью ключевого слова Public делает эту переменную доступной из любой части проекта. Например:

Public intUnclassifield As Integer

Правда, такую особую силу ключевое слово Public имеет только тогда, когда вы объявляете переменную в разделе Declarations (Объявления) модуля. VBA не будет возражать и против использования Public внутри процедуры, но таким образом объявленные переменные все равно останутся невидимыми вне процедур, в которых заключаются объявления.

Статическое состояние

Ключевое слово Static в объявлении переменной следует использовать тогда, когда вы хотите, чтобы переменная оставалась в памяти, - для того чтобы использовать ее значение - даже когда процедура завершила свою работу. В следующем примере переменная intLasting Variable используется как счетчик числа вызовов данной процедуры:

Sub TransientProcedure( )

Dim strTransientVariable As String

Static intLastingVariable As Integer

strTransientVariable = Format(Now(), Medium Time)

int LastingVariable = intLastingVariable + 1

MsgBox Сейчас strTransientVariable . _

Эта процедура выполнялась

intLastingVariable раз ( а ).

End Sub

В этом примере оператор intLastingVariable = intLastingVariable + 1 увеличивает значение переменной на единицу при каждом выполнении процедуры. Если переменную intLastingVariable объявить ключевым словом Dim, а не Static, то в начале каждого выполнения процедуры эта переменная получала бы нулевое значение, что лишало бы процедуру всякого смысла вообще.

Объявлять переменные ключевым словом Static (статические переменные) можно только внутри процедур. Если вы хотите, чтобы все переменные в некоторой процедуре сохраняли свои значения (даже когда процедура не выполняется), поместите ключевое слово Static в объявление самой процедуры непосредственно перед ключевым словом, определяющим тип процедуры (т.е. перед Sub или Function), например;

Private Static Sub DoIt All ()

Static Function DontDoVeryMuch(intTimeToWaste As Integer)

Обратите внимание, если в объявлении процедуры присутствует задающее область видимости ключевое слово Private (или Public), то Static идет после него.

Объявление нескольких переменных в одной строке

В одной строке программного кода можно объявить и несколько переменных. Ключевое слово Dim печатается при этом только один раз, а переменные разделяются запятыми.

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

Dim intA As Integer, intD As Integer, intL As Integer

Смешивать различные типы данных тоже разрешается:

Dim curNetWorth As Currency, datSecondTuesday As Date

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

Dim strX, strY, strZ As String

strX и strY интерпретируются как переменные типа Variant, а не как строковые переменные.

Размещение информации в переменных

После того как переменная объявлена, первым шагом в ее использовании обычно бывает наполнение ее информацией (первое размещение информации в переменной называется инициализацией переменной). Чтобы поместить информацию в переменную, нужно присвоить значение информации этой переменной. Как только понадобится, можно заменить данные, хранящиеся в переменной, присвоив ей другое значение.

Присваивание значений

Значения переменным присваиваются с помощью обыкновенного знака равенства. Например, чтобы поместить число 3 в переменную с именем intC, напечатайте intC = 3

В VBA оператор присваивания представляет собой связанную знаком равенства конструкцию, с переменной слева от него и выражением, определяющим значение переменной, справа. В приведенном выше примере выражение представляет собой просто число 3. Такие явно указанные значения называются буквальными значениями. (Выражения будут обсуждаться ниже, в разделе Выражен-и-я.)

Взгляните на следующий оператор присваивания:

strQuot e = Не спрашивай, что я сделал для страны - _

спроси о том, что страна сделала для меня.

В данном случае оператор присваивает текст справа от знака равенства переменной strQuot e. Как и раньше, информация во входящем в этот оператор выражении представляет собой буквальные значения - реальный текст, помещаемый в переменную. Но оператор разбит на две строки, поэтому и текстовое выражение разбито на две отдельные строки. Знак (амперсанд) дает указание VBA соединить эти строки вместе.

Здесь я просто пытаюсь показать, что выражения часто имеют несколько компонентов.

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

Ясно, что до момента реального выполнения оператора присваивания его утверждение не является фактом. В математике равенством 2+2=4 на самом деле утверждается, что значение слева от знака равенства равно значению справа.

В VBA оператор присваивания заставляет переменную быть равной значению выражения. В дальнейшем новый оператор присваивания может изменить значение этой переменной в любое время.

Использование переменных в операторах присваивания

Можно присваивать переменным не только буквальные значения - точно так же можно присваивать и значения, определяемые другими переменными. В операторе curSalePrice = curCost * sngMargin переменной curSalePrice присваивается значение, равное произведению переменных curCost и sngMargin. В данном случае выражение состоит из переменных, а не из буквальных значений. VBA вычисляет результат на основе значений, хранящихся в этих переменных. (Кстати, в полном соответствии с рекомендованными в главе 6 соглашениями по выбору имен, curSalePrice и curCost являются переменными типа Currency.)

Использование функций в операторах присваивания

Поскольку функции и создаваемые вами процедуры типа Function возвращают значения, их тоже можно использовать в операторах присваивания. Например:

ctrFavorite = InputBox(Кто сегодня фаворит?)

В данном случае используется функция VBA Input Box, которая отображает на экране небольшое диалоговое окно с указанным сообщением и полем для ввода ответа пользователем. Этот ответ и будет возвращаемым функцией значением, представляющим собой строку текста (функция Input Box рассматривается подробно в главе 11).

Что содержит переменная перед тем, как ей присваивается значение?

Во время выполнения процедуры VBA выделяет для каждой переменной из этой процедуры пространство в памяти и приписывает переменной начальное значение; означающее, что в переменной ничего не хранится. Чаще всего перед использованием переменной в выражениях вы присваиваете ей нужное вам значение, но вполне допустимо, а порой и выгодно, использовать переменную до того, как вы будете уверены, что она содержит заданное вами значение.

Предположим, что в программе есть процедура, которая должна выполняться только при определенных условиях. Допустим также, что в этой процедуре должно присваиваться значение одной из переменных программы. В такой ситуации, если в другой процедуре нужно выяснить, выполнялась ли первая процедура, то это можно сделать, выяснив, хранится ли в данной переменной значение.

Вот какие значения хранятся в переменных перед тем, как вы им присваиваете свои значения.

Объявление констант

Для объявления констант используется ключевое слово Const:

Const cstrPetsName As String = "Пушок"
Const cDateTarget Date As Date = #5/26/2000#
Const cboolUp As Boolean = True

Все вполне аналогично объявлению переменных, за исключением того, что при объявлении константы необходимо указать ее значение. При объявлении констант можно указывать те же типы данных, что и для переменных, за исключением типа Object, пользовательского типа данных и пока что типа Decimal (см. табл. 7.1).

Обратите внимание, что имена объявленных мною констант начинаются со строчной буквы "с" (означающей сокращение от constant - константа). Таким образом, по имени сразу видно, что это константа, а не переменная. Если вас этот префикс не устраивает, выберите для своих констант другой, более подходящий вам.

Вы можете последовать примеру VBA и Visual Basic и выбрать префикс, соответствующий вашему имени, или префикс, соответствующий имени вашего VBA-проекта. VBA и Visual Basic идентифицируют константы с помощью префикса vb - например vbBl ue (константа, представляющая числовой код для синего цвета, а именно 16711680) или vbKeyTab (константа, представляющая числовой код клавиши , а именно 9). VBA приложения часто идентифицируют свои константы с помощью префикса, специфического для этого приложения, например xlBarStacked (константа, представляющая числовой код для линейчатой диаграммы в Excel, а именно 58).

Кстати, константы, определенные VBA или VBA-приложением, тоже можно использовать в своих программах. Информацию об этих зарезервированных константах можно получить из справочной системы или в окне обозревателя объектов (см. главу 5).

Сравнение значений

В VBA используется шесть операций сравнения для сравнения числовых и строковых значений, а также две специальные операции Like (для строк) и Is (для объектов).

Заметьте, что знак равенства в YBA (=) используется в двух разных случаях.

В объявлении равенство используется для присваивания значения переменной (см. выше раздел "Размещение информации в переменных"), а в качестве операции сравнения знак равенства определяет, будут ли два значения одинаковыми.

Результатом вычисления выражения, основанного на этих операциях, всегда является либо True (Истина), либо False (Ложь). Например, вот выражение с использованием операции <= (меньше или равно):

intX <= 12

Если значением intX является 12, то результатом выражения будет False, поскольку 12 не меньше, чем 12.

Чаще всего выражения с операциями сравнения используются в условных операторах типа If . . . Then. Условные операторы будут подробно обсуждаться в главе 8, но следующий пример нелишний и здесь:

If intX = 2000 Then

Застолье

End If

Здесь с помощью знака операции - выясняется, равны ли значения по обе стороны от него. Если значения равны, то результатом выражения будет True (Истина), иначе False (Ложь); другими словами: '"Если значение intX равно 2000, то выполнить процедуру Застолье".

Сравнение строк

Знаки операций сравнения можно использовать для сравнения строк текста и чисел.

Выражение

"Петуния" = "Нарцисс"

в результате дает False - и это очевидно, поскольку эти две строки не одинаковы.

Но есть случаи, когда результат сравнения строк предсказать не так просто. Чтобы получать правильные результаты при сравнении строк, нужно знать, по каким правилам VBA решает, что одна строка '"больше", чем другая.

Если вы не потребуете сравнивать иначе, VBA будет использовать метод двоичного сравнения. Две строки будут сравниваться на основе числовых кодов входящих в эти строки символов, т.е. кодов, которыми символы представляются в программе. В такой системе кодирования наименьшие числа соответствуют знакам пунктуации, за ними следуют цифры, затем прописные буквы, строчные и, наконец, буквы с акцентами (последнее касается латинской кодировки, поскольку в случае кириллической колировки на месте букв с акцентами находятся русские буквы). В этом случае, ввиду того, что коды строчных букв больше кодов прописных букв, выражения "а" > "А" и "а" > "Z", например, оба дают в результате True.

При сравнении строк VBA начинает сравнивать первые символы этих строк. Если первые символы различны, большей строкой будет та. первый символ которой больше. Если же первые символы равны, VBA сравнивает следующие символы, и т.д.

Чтобы при сравнении использовался другой, интуитивно более понятный метод, поместите в раздел объявлений модуля оператор Option Compare Text.

В результате этого сравнение строк будет выполняться по алфавиту без учета регистра букв (но все равно будет считаться, что буквы с акцентами имеют более высокие коды, чем соответствующие им буквы без акцентов). В этом случае следующие выражения дадут в результате True (Истина):

"а" = "А"

"а" < "Z"

Сравнение строк разной длины

Но что будет, если придется сравнивать строки неравной длины? Если начало одной строки в точности совпадает с другой, более короткой строкой, то длинная строка считается больше короткой. Например:

"В горах, в пещере" > "В горах" дает в результате True (Истина).

Но если две строки различаются не только по длине, но и по содержанию в рамках сравнимой дойны, применяется общий критерий сравнения. Например.

"У меня двенадцать" > "У меня двадцать два" дает в результате True (Истина), поскольку буква е в слове двенадцать больше, чем а в слове двадцать, несмотря на то, что левая часть выражения короче правой.

Сравнение с помощью Like

Как правило, с помощью Like строка сравнивается не с конкретным набором символов, а с заданным образцом, в котором используются замещающие символы, когда нужно убедиться, что строка попадает (или не попадает) в некоторый класс строк. У меня нет возможности вдаваться здесь в детали, но вы должны знать, что сравнение такого типа в VBA есть и что это довольно мощное средство для обработки текстовых данных.

Операторы сравнения в программном коде

Результат выполнения сравнения можно сохранить в переменной (обычно для этого используется переменная типа Boolean) с помощью стандартного оператора присваивания: boolTheAnswerIs = 5 > 4

Поскольку 5 больше, чем 4, результатом сравнения будет True (Истина), а поэтому VBA присвоит переменной boolTheAnswerIs значение True.

Ключевые слова True и False на самом деле встроенные числовые константы

VBA, соответственно представляющие значения -1 и 0. Результат сравнения можно присвоить любой числовой переменной.

Операции сравнения часто используются в условных операторах, чтобы принять решение о выполнении той или иной ветви программного кода:

If intP <= intQ Then
        ЧтоТоНеТак ' вызов процедуры обработки ошибок
End If

Адаптация к местному формату представления денежных величин

Одна из сильных сторон VBA - это возможность автоматической настройки форматов представления дат и денежных величин в соответствии с местными стандартами. В правильно построенную программу вам не придется включать символы типа S, Г или J - VBA добавит именно тот символ, который нужен, основываясь на выборе языка и страны, которые были сделаны с помощью панели управления Язык и стандарты в Windows.

Рассмотрим, например, следующий фрагмент программного кода:

Const ccurMoneyTalks As Currency = 5463.72

MsgBox format ( ccur MoneyTalks, "Currency")

В результате выполнения этого фрагмента в США в окне сообщения появится

$5,463/72, а та же программа во Франции отобразит 5463, 72F.

Используемая здесь функция Format достаточно подробно рассматривается в главе 31.

Чтобы отобразить содержимое переменной в виде правильно представленного денежного значения, совсем не обязательно объявлять эту переменную переменной типа Currency. Функция Format с именованным форматом

"Currency" замаскирует любое числовое значение под доллары, франки или что-то другое, имеющее хождение в вашем регионе.

Другие возможности использования типа данных Currency

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

* хранение больших чисел, выходящих за границы диапазона, допустимого для целых чисел типа Long;

* вычисления с большими числами, когда требуется более высокая точность, чем та, которая обеспечивается типами данных с плавающей запятой.

Значения типа Currency могут иметь до 19 значащих цифр, из них 15 - до запятой и 4 - после (положение десятичного разделителя фиксировано).

Ввод дат

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

#09/1/1998#

#Sep 25, 93#

#Janua 9 1905

Если редактор Visual Basic распознает введенные вами данные как допустимое значение даты, эти данные будут конвертированы в "краткое представление даты", заданное в соответствующей панели управления Windows. Если вы не укажете год, VBA добавит текущий год за вас. Такое конвертирование происходит сразу же, как только вы переместите текстовый курсор в другую строку, а не откладывается до момента, когда программа начнет выполняться.

Время имеет значение

Буквальные значения времени вводятся в формате #часы:минуты:секунды символ#, где символ - это AM или РМ (означающие до полудня и после полудня соответственно). Например:

#10:45:00 РМ#

#2:3:30 АМ#

Печатать незначащие нули, как в #01:02:03 РМ#, не обязательно, но VBA добавит их за вас, как только вы переместите курсор в другую строку программного кода. Точно так же вы можете опустить ненужные вам элементы в представлении времени, и VBA дополнит ваш ввод. Например, вы можете ввести только секунды, напечатав что-нибудь вроде #0:0:23#, a VBA изменит введенное значение на стандартное представление времени - в данном случае на #12:00:23 АМ#.

Математика дат и времени

Сложение и вычитание дат в рамках обычных арифметических операций в VBA возможны, но, к сожалению, результаты такого сложения и вычитания не соответствуют обычным представлениям о датах. Например, #3/19/2005# - #3/19/2004#н е дает в результате '"1 год", как желательно было бы иметь, а дает #12/3 0/1900#. Такой результат обусловлен спецификой представления значений дат в VBA, но я не собираюсь здесь утомлять вас обсуждением этой специфики. Все, что вам нужно, - это знать о существовании в VBA двух функций, DateAdd ( ) и DateDiff ( ), которые должны полностью удовлетворить ваши потребности в математике дат. Использование этих функций обсуждается в главе 11.

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

Di m date Then A s Date

dateThen = #07:15 AM# + #12:00# ' = #07:15:00 PM#

dateThen = #07:15:00 AM# - #0:15 AM# ' = #07:00:00 AM#

dateThen = #07:15:15 AM# + #0:0:30 AM# ' = #07:15:45 AM#

В этом примере показан минимум того, что можно напечатать. Как всегда, VBA конвертирует введенные данные в полноформатное буквальное значение времени, например #0:0:30 АМ# превратится в #12 : 00 : 30 АМ#. И еще (как показано в представленном примере): если вы хотите получить правильные результаты при использовании арифметических операций со значениями времени, то используемые при этом переменные должны явно объявляться как переменные типа Date.

Строки фиксированной длины

В VBA предусмотрено объявление строк двух типов. При стандартном объявлении строк (например, с помощью оператора Dim strMessage As String) создается переменная, которая может хранить строку любой длины. Вы можете изменить размер такой переменной, просто присвоив ей строку другой длины.

Но иногда удобнее зафиксировать длину строковой переменной. Это чаще всего нужно в тех случаях, когда приходится считывать и записывать данные файлов прямого доступа, что не предполагается рассматривать в этой книге, но обсуждается на соответствующей Webстранице ("www . s el denhous e . com/vba). Пока что достаточно объяснений по поводу того, как объявлять строки фиксированной длины. Вот пример такого объявления:

Dim strFixe d As String * 5

Объявленная таким образом переменная всегда будет содержать ровно 5 символов. Если ей присвоить более короткую строку, VBA добавит после символов этой строки нужное число пробелов. Если же переменной присвоить более длинную строку, VBA сохранит в переменной только 5 первых символов, отбросив остальные: strFixed = "abc" ' теперь strFixed содержит "abc" strFixed = "Fourscore and seven years" ' а теперь "Fours"

Основная форма If...Then

Оператор If ... Then выполняет некоторый блок программного кода, если условие, которое вы предложили этому оператору, принимает значение True, и не делает ничего, если условие принимает значение False. Синтаксис оператора следующий:

If условие Then

( операторы, выполняющиеся, когда условие = True)

End If

Простой пример использования оператора If. . .Then можно найти выше в разделе "Анатомия управляющих структур" этой главы.

Обратите внимание на следующие моменты, касающиеся операторов If... Then.

* Здесь условие должно быть условным выражением типа описанных выше в разделе "Курс на использование условных выражений". Если условие принимает значение True, то VBA выполнит операторы, размешенные между If. . .Then и End If.

* Обратите внимание, ключевое слово Then размещается в одной строке с If и выражением условие. При размещении Then в следующей строке (без указания переноса с помощью символа подчеркивания в первой) VBA генерирует ошибку.

* Не забывайте печатать завершающий оператор End If, При его отсутствии VBA не поймет, какой оператор должен быть последним в блоке.

Однострочные операторы If...Then

Если структура If. . .Then должна выполнить только один оператор, когда условие принимает значение True, всю эту структуру можно уместить в одну строку. В таком случае оператор End If не требуется - точнее, его быть не должно. Оператор

If curЦена > 20 Then MsgBox "Цена слишком высока!"

в результате идентичен структуре

If curЦена > 20 Then
        MsgBox "Цена слишком высока!"
End If

Если нужно, чтобы на основании одного условия программа выбирала между двумя альтернативными блоками программного кода, используйте оператор If. . .Then. . .Else.

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

If условие Then
( операторы, выполняющиеся, когда условие = True)
Else
(операторы, выполняющиеся, когда условие = False)
End If

Если условие имеет значение True, VBA выполняет первый блок операторов и, пропустив все остальные операторы структуры, переходит к строке программного кода, следующей сразу за оператором End If. А если условие имеет значение False, то выполняются только операторы, следующие за оператором Else.

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

If TypeOf ctlCurrentControl Is CommandButton Then
        ctlCurrentControl.BackColor = &HFF& ' красный
Else
        ctlCurrentControl.BackColor = &HFFFF00& ' голубой
End If

В этом примере предполагается, что переменная ctlCurrentControl уже содержит ссылку на соответствующий объект в форме. Ключевое слово TypeOf позволяет проверить, является ли объект, на который ссылается переменная, объектом нужного типа - в данном случае объектом CommandButton.

Использование операторов If...Then

Часто, прежде чем принять решение о действиях, которые должна выполнить программа, приходится проверять два или даже больше условий. Это - как в жизни. Когда вы пишете книгу по VBA, то можете рассуждать примерно так: "Если я успею закончить книгу к установленному сроку и если не закончатся деньги, а также если курс рубля к доллару не изменится, то я смогу слетать в октябре на пару недель в Америку. Но если рубль упадет, то мне придется ехать в Тамбов".

В зависимости от ситуации, при этом потребуется добавить в структуру If. . .Then ключевые слова ElseIf или вложенные структуры If . . .Then.

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

If условие! Then
(операторы, выполняющиеся, когда условие! = True)
ElseIf условие2 Then
(операторы, выполняющиеся, когда условие! = False, а условие2 = True)
ElseIf условиеЗ Then
(операторы, выполняющиеся, когда условие! и условие2 = False, а условиеЗ = True)
    (другие операторы ElseIf )
Else ' необязательное ключевое слово
(операторы, выполняющиеся, когда все условия = False)
End If

При этом ключевое слово ElseIf в структуре может повторяться любое число раз.

Ключевое слово Else необязательно, но если оно присутствует, то должно быть в структуре последним.

Чтобы заставить работать этого монстра, представьте себе, что программа помогает вам вести учет в магазине по продаже фотоматериалов. Пленку, срок хранения которой истек, следует списывать и не учитывать в дальнейшем. Если же пленка еще не просрочена, ее нужно учесть в общем количестве пленок соответствующего типа.

Это делается в следующем фрагменте программного кода. Предполагается наличие объекта, представляющего ролик с пленкой, и наличие у этого объекта свойств для даты истечения срока хранения, типа пленки и признака цветности (как альтернативы черно-белого варианта).

If objRollOfFilm.ExpDate < Date Then
        MsgBox " Эта пленка не годится."
ElseIf objRollOfFilm.Type = "Слайдовая" Then
        intСлайдовые = intСлайдовые + 1
ElseIf objRollOfFilm.Color Then
        intЦветныеНегативные = intЦветныеНегативные + 1


Else intЧБНегативные = intЧБНегативные + 1
End If

Первый оператор сравнивает значение свойства ExpDate (срок хранения) с текущей датой.

Если дата окончания срока хранения уже прошла, программа отображает окно сообщения с соответствующей информацией, и это все. Только если пленка все еще годится (т.е. если первое условие принимает значение False), будет выполнен первый из операторов ElseIf. Этот оператор проверяет свойство Туре (тип) объекта, представляющего пленку. Если значением свойства является "Слайдовая", то следующий оператор увеличивает счетчик слайдовых пленок.

Если же пленка другого типа, программа переходит к следующему оператору ElseIf, в котором в качестве условия рассматривается свойство Color (без операций сравнения, в предположении, что это свойство может принимать только значения True или False).

Если значением свойства будет True, то пленка учитывается как цветная негативная, а если значение False, остается только перейти к выполнению Else - больше некуда- и учесть пленку как негативную черно-белую.

В структуре If. . . ElseIf выполняются только операторы, ассоциированные с первым принимающим значение True условием. После выполнения этих операторов все оставшиеся ElseIf и Else пропускаются.

Вложенные операторы If. . .Then в некотором смысле являются противоположностями операторов If. . .ElseIf. Используйте эти операторы, когда для принятия решения нужно проверить дополнительное условие, но только если первое условие принимает значение True. Вложение одного оператора If... Then в другой подобно высказыванию: "Если

X есть Истина и Y есть Истина, то я буду делать А, В и С".

Можно вкладывать один в другой операторы If. . .Then любых видов -

If. . .Then. . .Else, If. . .ElseIf и разнообразные If... Then - и в любой комбинации. Вот схематическое представление пары вложенных операторов If... Then:

If условие! Then
        If условие2 Then
        (операторы, выполняющиеся, когда условие! и условие2 = True)
        ElseIf условиеЗ Then
        (операторы, выполняющиеся, когда условие! и условиеЗ = True, а условие2 = False)
        (операторы, выполняющиеся, когда и условие1 и условие2 = False, а условиеЗ = True)
        End If ' конец внутреннего блока If...Then
(другие операторы, выполняющиеся, когда условие! = True, независимо от того, чему равно условие2)
Else
(операторы, выполняющиеся только тогда, когда условие! = False)
End If

Следующий простой пример программного кода с использованием вложенных операторов If... Then отображает окно с поощрительным сообщением за высокие оценки и необходимый минимум часов классной работы:

If sngGPA > 3.5 Then
                If sngUnits > 10 Then
                        MsgBox "Вы в поощрительном списке деканата!"
                End If
End If

Циклы Do

Все возможные версии оператора Do ... Loop предназначены для повторения заданного блока программного кода неопределенно долго, пока не будет выполнено некоторое условие.

Для того чтобы выяснить, продолжать цикл или нет, оператор Do ... Loop оценивает заданное условное выражение типа условных выражений, используемых для оператора If... Then и описанных выше в разделе "Курс на использование условных выражений".

Случаев, когда структуры Do... Loop полезны, просто не счесть. Вот несколько примеров.

* Отображение сообщения об ошибке снова и снова, пока пользователь не введет подходящую информацию в диалоговое окно.

* Чтение данных из файла на диске, пока не будет обнаружен конец файла.

* Поиск и подсчет числа вхождений некоторой строки символов в более длинной строке.

* Организация холостой работы программы в течение некоторого времени.

* Выполнение некоторых действий по отношению ко всем элементам массива.

* Выполнение (с использованием операторов If... Then ) некоторых действий по отношению ко всем элементам массива или коллекции, удовлетворяющим определенным критериям (массивы и коллекции рассматриваются в главе 13).

Типы операторов Do.. .Loop

В VBA несколько видов циклов Do... Loop, но все они работают очень похоже.

Do. . .Loop Повторяет выполнение блока программного кода, пока некоторый условный оператор внутри цикла не выполнит команду End Do

Do While. . .Loop Начинает и повторяет выполнение блока программного кода, только если заданное условие принимает значение True

Do. . .Loop While Выполняет блок программного кода один раз, а затем повторяет выполнение, пока заданное условие принимает значение True

Do Until. . . Loop Начинает и повторяет выполнение блока программного кода, только если заданное условие принимает значение False

Do. . .Loop Until Выполняет блок программного кода один раз, а затем повторяет выполнение, пока заданное условие принимает значение False

Оператор Do While. . . Loop можно считать прототипом структуры Do. Вот его синтаксис:

Do While условие

(операторы, выполняющиеся, когда условие - True)

Loop

Обнаружив оператор Do While, VBA начинает проверять условие. Если представляющее условие выражение оказывается равным False, VBA игнорирует остальную часть цикла и переходит сразу к операторам программы, следующим за оператором Loop. Если же условие принимает значение True, VBA выполняет операторы в блоке. Достигнув оператора Loop, VBA возвращается опять к оператору Do While, чтобы проверить условие снова.

Как правило, один или несколько операторов в теле цикла могут изменить значение выражения, представляющего условие, поэтому условие может стать равным False. В этом случае VBA прерывает выполнение цикла и, пропустив все его операторы, переходит к выполнению операторов, следующих за оператором Loop. Но если условие все еще равно True, операторы цикла будут выполнены еще раз.

Весь процесс повторяется до тех пор, пока в некоторый момент условие не станет равным False. Другими словами, нет ограничений на число повторений выполнения блока программного кода в цикле. В предположении, что подача энергии не прекратится и компьютер не отключается, цикл будет продолжаться вечно, если условие никогда не примет значение False.

Следующий пример, основанный на использовании двух операторов Do While . . . Loop, переставляет в обратном порядке цифры в числе, предложенном пользователем. Наверное, этот пример не имеет никакой практической ценности, но он эффектный, работает в любом VBA-приложении и достаточно компактный, чтобы иллюстрировать работу циклов Do;

Sub ReverseTheDigits()
Dim intOriginalNumber As Integer
Dim intOneDigit As Integer, strBackwardsNumber As String
Do While intOriginal Number < 10
        intOriginal Number = _
                InputBox("Напечатайте число, большее 9.")
Loop
Do While intOriginalNumber
                intOneDigit = intOriginalNumber Mod 10
                strBackwardsNumber = strBackwardsNumber & intOneDigit
                intOriginalNumber = Int(intOriginalNumber / 10)
Loop
MsgBox strBackwardsNumber
End Sub

В первом цикле Do проверяется, что значение, введенное пользователем, неотрицательно и что во введенном числе не меньше двух знаков (а иначе, что же в нем переставлять?). Когда программа выполняет этот цикл впервые, значением переменной intOriginalNumber будет 0, поскольку до этого переменной не присваивалось никакого значения. Нуль меньше 10, поэтому условие принимает значение True, и VBA начинает выполнение цикла.

Цикл содержит один оператор, отображающий окно ввода, в котором пользователя просят ввести подходящее число. После того как число введено, оператор Loop отсылает процесс выполнения к началу цикла, где введенное число проверяется. Цикл завершит свою работу только тогда, когда проверка покажет, что было введено подходящее число. (Обратите внимание на то, что в данном примере опущены некоторые важные пункты проверки правильности вводимых данных, наподобие проверки того, является ли число целым и не является ли больше максимально допустимого для переменных типа Integer.)

После подтверждения правильности введенного значения VBA переходит к следующему циклу. Условием выполнения этого цикла является положительное значение, содержащееся в переменной. Поскольку ненулевые числа порождают True, можно вместо Do While intOricinalNumbe r > 0 писать просто Do While intOriginalNumber - оба варианта работают одинаково.

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

* В первой строке используется операция Mod, чтобы присвоить переменной intOneDigit остаток от деления числа на 10. Поскольку число делится на 10, остатком будет однозначное число, представленное последней (справа) цифрой исходного числа.

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

* В третьем операторе число снова делится на 10, но на этот раз результат сохраняется f в исходной переменной. При таком делении просто отбрасывается правый знак числа. v Заметим, однако, что перед тем, как результат присваивается переменной, он обрабатывается функцией Int. Использование функции intздесь необходимо, поскольку в противном случае результат был бы округлен и это изменило бы знаки числа по сравнению с введенными изначально.

* В процессе прохода цикла значение intOriginalNumber уменьшается и наконец становится равным 0 после того, как все цифры будут обработаны (любая цифра задает число, меньшее 10, а функция intотбрасывает дробную часть числа). В стране VBA нуль означает False, поэтому цикл завершится, и программа покажет число с обратным расположением цифр.

Другие операторы Do

Разобравшись в базовой форме оператора Do While. . .Loop, несложно понять и его вариации В этом разделе рассмотрены три варианта циклов Do, четвертый обсуждается ниже, в разделе "Когда использовать Do без While или Until".

Do... Loop While

Разница между операторами Do While. , .Loop и Do. . .Loop While очень простая: Do While. . . Loop имеет условие в самом начале цикла, а в Do... Loop While условие идет в самом конце.

В структуре Do While . . . Loop вход в цикл происходит вообще, только если условие принимает значение True, когда программа впервые обращается к циклу. Если сначала условие принимает значение False, цикл не выполнится ни разу.

В структуре Do. . .Loop While, напротив, цикл всегда выполняется по крайней мере один раз, поскольку сначала программа проходит весь блок программного кода, а лишь затем выполняется проверка условия, чтобы повторить выполнение операторов цикла, если условие окажется равным True. Используйте структуру Do ... Loop While тогда, когда значение условия для проверки устанавливается в блоке программного кода цикла.

Другим случаем, когда подходящим решением оказывается структура Do... Loop While, является обработка объекта (типа строки или массива), в котором больше одного элемента. Если вы точно знаете, что элементов не меньше одного, можно допустить выполнение операторов цикла один раз, а затем повторять выполнение столько раз, сколько нужно для оставшихся компонентов.

Do Until...Loop

Операторы Do While. . .Loop и Do Until. . .Loop функционально эквивалентны, т.е. с помощью любого из них будут выполняться одни и те же операторы, если используемые в них условные выражения представляют противоположные условия. Подобным образом дополняют один другой и операторы Do

While. . .Loop и Do Until... Loop.

Представьте себе, что вы ведете передачу по кулинарии и рассказываете своим слушателям рецепт. Вы можете сказать: "Продолжайте вымешивать масло, пока в нем заметны неоднородности" или "Продолжайте вымешивать масло до тех пор, пока оно не станет совершенно однородным". И первое, и второе означают одно и то же.

Подобным образом взаимно дополняются операторы Do While и Do Until. Если в операторе Do While условием является А = В, то эквивалентным ему оператором будет

Do Until с условием А о В.

Do или не Do

Цикл Do в своем условном выражении обеспечивает всю необходимую информацию, на основании которой VBA может принимать решение о продолжении или завершении выполнения цикла. К сожалению, в реальности дело не всегда обстоит так идеально, и иногда изменение другого условия внутри цикла требует немедленного выхода из цикла, для чего в VBA предусмотрен оператор Exit Do.

Действующий только внутри цикла Do, оператор Exit Do немедленно прекращает выполнение цикла и передает управление оператору, следующему сразу после цикла. В следующем примере выполняется конкатенация строковой переменной с некоторой имеющейся строкой, но если переменная содержит больше одного символа, цикл прекращается:

Do While strA <= "2"
            If Len(strA) > 1 Then
                    Exit Do
        End If
            strB = strB & strA
            strA = GetNextCharacter
Loop

Обычно необходимость в операторе Exit Do может возникнуть только во вложенных в цикл операторах If. . .Then и Select Case. В этих случаях цикл выполняется нормально до тех пор, пока не происходит что-то особое или не появляется непредусмотренное значение. Оператор Exit Do можно использовать также и для отладки, для временной отмены выполнения цикла, чтобы не размещать апостроф (') в начале строк целого блока программного кода.

В стандартных операторах Do While/Until. . . Loop условие можно проверять либо в начале, либо в конце цикла. Но что делать, если вы хотите проверить некоторое условие внутри цикла?

В этом случае используйте оператор Do... Loop без While и Until. Но при этом вам понадобится вложить в цикл либо оператор If, либо Select Case. Вложенный условный оператор может содержать оператор Exit Do, что позволит программе прекратить выполнение цикла, когда заданное условие окажется выполненным.

Вот схематическое представление оператора Do ... Loop:

Do
(операторы, выполняющиеся при каждом проходе цикла)
            If условие Then
                    Exit Do
            End If
(операторы, выполняющиеся, только если цикл продолжает выполняться)
Loop

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

Например, часто приходится проверять правильность введенных пользователем данных относительно целого ряда критериев. В следующем примере с помощью структуры Do... Loop цикл ввода повторяется до тех пор, пока пользователь не введет правильную букву ответа:

Sub GetAnAnswer()
Dim strAnswer As String
strAnswer = InputBox("Enter your answer (A-E)")
Do
    If strAnswer = "" Then
    strAnswer = InputBox("You di dn't enter anything." _
    & " Please type a letter between A and E.")
    ElseIf Len(strAnswer] > 1 Then
    strAnswer = InputBox("Your answer should be" _
    & " only one letter long. Please t ry agai n.")
    ElseIf strAnswer < "A" Or strAnswer > "E" Then
    strAnswer = InputBox("You typed an invalid" _
    & " charact er. Type a letter from A to E.")
    Else
    Exit Do
    End If
Loop
End Sub

Эта программа выполнит оператор Exit Do только тогда, когда все три условия, заданные в операторах If n ElseIf, будут выполнены.

В качестве альтернативы для достижения той же цели можно предложить использовать Do WhiLetrue в первой строке структуры, задающей цикл. Поскольку True (константа) всегда имеет значение True, условие всегда выполняется, и, следовательно, VBA обязательно начнет и будет продолжать выполнять цикл. Поэтому, для того чтобы завершить выполнение такого цикла, внутри него должен присутствовать оператор Exit Do.

Важные замечания по поводу циклов For.. .Next

Старайтесь, чтобы ваш программный код всегда оставался понятным. Используйте 1 в качестве начального значения для цикла For. . . Next, если только у вас нет серьезных причин выбрать для этого другое число.

Такие серьезные причины на самом деле бывают, например, когда значение счетчика используется в самом цикле (но, уточню, не меняется в цикле). Если в цикле предпринимаются некоторые действия по отношению к последовательно пронумерованным элементам типа номеров страниц, то в качестве значений для величин начало и конец можно использовать реальные значения номеров этих элементов. В частности, при работе с массивами обычно начало выбирается равным 0 (подробности - в следующем разделе).

В операторе Next счетчик, завершающем цикл For. . . Next, имя переменной-счетчика указывать не обязательно - ключевое слово Next автоматически вычислит следующее значение счетчика и отошлет VBA в начало структуры. Однако определенно стоит приучить себя включать имя счетчика в оператор Next.

Тогда даже в случае нескольких вложенных циклов For. . .Next вы всегда сможете с первого взгляда сказать, какому циклу принадлежит данный оператор Next. He меняйте значение счетчика внутри цикла For. . .Next. Поскольку счетчик является обычной переменной, можно - а иногда и заманчиво - создать программный код, меняющий значение счетчика. Не поддавайтесь!

Стоит ошибиться со счетчиком и можно пропустить пару важных шагов или заставить цикл выполняться бесконечно.

Хотя и можно значение конец для цикла For . . . Next задать переменной, изменение значения такой переменной после начала выполнения цикла не повлияет на процесс выполнения. Цикл все равно будет выполнен столько раз, сколько задано оригинальным значением конец.

Циклы For... Next и массивы

Циклы For. . .Next особенно полезны при работе с массивами, именованными хранилищами для множеств элементов данных. Подробно массивы обсуждаются в главе 13, но дискуссия о циклах For. . . Next осталась бы неполной без нескольких слов о пользе таких циклов в совокупности с этими имеющими большое практическое значение корзинами для данных.

С помощью цикла For. . .Next несложно заполнить массив множеством вычисленных значений, как в следующем примере:

Dim intМассивКвадратов (14) As Integer
For a = 0 To 14
    intMacсивКвадратов( a) = a * a
Next a

Этот пример программного кода начинается с объявления массива из 15 целых значений (15, а не 14, поскольку обычно VBA приписывает первому элементу в массиве индекс 0). Затем используется цикл For . . . Next, в котором каждому элементу массива, от 0 до 14, присваивается значение. Обратите внимание на то, что переменная а используется не только как счетчик, но и как индекс массива, указывающий на номер элемента в массиве.

Вложенные циклы For... Next

Подобно другим управляющим структурам VBA, циклы For. . .Next можно вкладывать один в другой - или в другие управляющие структуры, - так глубоко, как это необходимо. Следующий совершенно бесполезный фрагмент программного кода иллюстрирует эту возможность:

Dim sngC ' наверное, C означает "случайное число"

Randomize ' инициализация генератора случайных чисел

For A = 1 To 5
    sngC = Rnd()
    For B = 1 To 5
            Debug.Print sngC * Rnd()
    Next
Next A

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

1. Предварительная подготовка.

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

2. Начало внешнего цикла For. . .Next.

VBA вызывает функцию Rnd, чтобы присвоить переменной sngC случайное значение.

3. Начало внутреннего цикла For. . .Next.

Этот цикл вычисляет пять других чисел, повторяя вызов функции Rnd при каждом проходе цикла. Результат отображается в окне Immediate.

4. Завершение внутреннего цикла после выполнения им всех пяти вычислений.

Теперь снова продолжится выполнение внешнего цикла. Подчиняясь оператору Next

A, VBA возвращается в начало внешнего цикла.

5. Пп. 2 и 3 повторяются еще для четырех проходов внешнего цикла.

Этот пример, вероятно, тривиален, но его можно заставить выполнять очень полезную работу, если немного подправить. Допустим, вам нужно создать мультимедиа-программу, случайным образом выбирающую пять компакт-дисков и проигрывающую по пять случайным образом выбранных фрагментов с каждого из дисков. В предположении, что вы знаете, как программировать выбор компакт-дисков и воспроизведение записей, предыдущий пример будет как раз подходящей заготовкой.

Использовать вложенные циклы For. . .Next очень удобно при обработке многомерных массивов, если организовать циклы так, чтобы каждый из них соответствовал одному измерению массива.

Немедленный выход с помощью Exit For

Оператор Exit For предназначен для немедленного прекращения выполнения цикла до того, как программа доберется до его конца. Обычно этот оператор используется в условном выражении (If . . . Then или Select Case), вложенном в главный цикл For . . .Next.

Удобно использовать Exit For, когда проверяются массивы, есть ли в них недопустимые значения, когда неправильные данные приводят к прекращению выполнения процесса.

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

For р = 1 То varДлинаМассива
    If varЦена(р) - "Здесь был Ваня!" Then
            MsgBox "Данные испорчены."
            Exit For
    End If
    varЦена(р) = varЦена(р) * sngCOLA
Next p

Задание шага цикла

Полный синтаксис оператора For. . .Next включает необязательное ключевое слово Step (шаг) в первой строке структуры, как, например, в следующем фрагменте программного кода:

Sub ListOddNumbers()
Dim strOddNumbers As String
For F = 1 To 33 Step 2
    StrOddNumbers = strOddNumbers 5 F & " "
Next F MsgBox "Нечетными числами между 1 и 33 являются: " & _
    Chr(13) & strOddNumbers
End Sub

В этом примере цикл создает строку, содержащую все нечетные числа из диапазона, определяемого значениями начало и конец цикла. Значение переменной-счетчика при каждом проходе цикла увеличивается на 2 - шаг, заданный значением аргумента Step. Поскольку начальным значением задано 1, F всегда будет нечетным, что упрощает задачу программирования операторов внутри цикла.

В общем, аргумент Step сообщает VBA, как вычислять следующее значение счетчика по достижении конца цикла. Обычно, когда аргумент Step явно не указан, счетчик увеличивается на 1. Указав аргумент Step, вы можете задать другое значение, на которое нужно будет увеличивать счетчик. При этом можно задать и отрицательное значение, тогда счетчик будет уменьшаться.

И еще раз повторяю- не будьте слишком хитроумными. Необычные значения аргумента Step могут порождать ошибки, которые трудно обнаружить просто потому, что ошибки при этом тоже бывают необычными. Поэтому используйте явное задание аргумента Step только тогда, когда этого явно требует ситуация, да и в этих случаях лучше сначала попытаться найти другие решения, уменьшающие вероятность появления осложнений.

Пример использования Go To

В следующем примере оператор Go To направляет поток программы из главной части процедуры к метке Special Value, если встречается необычное значение:

Function GoToExample (ItemNumber As Integer )
Dim intR As Integer
Select Case ItemNumber
    Case 2412
            Go To SpecialValue
    Case Is < CutOffValue
                DoSomething
    Case >= CutOffValue
            DoHardlyAnything
End Select
( операторы, выполняющие какое-то действия)
GoToExample = intR
Exit Function
SpecialVal ue:
DoSomethingSpecial
GoToExample = intR
End Function

Обратите внимание на формат метки SpecialValue - она размещается в своей отдельной строке и заканчивается двоеточием. Двоеточие здесь просто обязательно - при его отсутствии VBA непременно расстроится и выведет сообщение об ошибке.

Оправдания Go To

Использование оператора Go To считается в программировании признаком низкого качества. Дело в том, что использование этого оператора превращает программный код в "спагетти", когда путь выполнения программы скачет туда-сюда через всю программу. "Спагетти" трудно распутывать, а программный код по мере увеличения в нем числа операторов Go To быстро становится невозможным для чтения. Всегда, когда это возможно, используйте управляющие структуры, позволяющие программе выполняться последовательно.

Но иногда оператор Go To оказывается самым естественным способом для того, чтобы заставить программу делать то, что вам нужно. Может быть, ваша голова уже до предела нагружена невероятным сплетением вложенных циклов и условных операторов, требующих сложного множества критериев. В таких случаях оператор Go To проложит прямую дорогу к выходу из лабиринта, только не используйте его слишком часто.

Вход в режим паузы

Имеется целый ряд возможностей для перевода программы в режим паузы, который можно сравнить со стоп-кадром анимации.

* Запуск программы сразу в режиме паузы с помощью команды Step Into (см. ниже раздел "Сквозь программу по шагам").

* Назначение точки останова строке программного кода. После того как программа при выполнении дойдет до оператора, с которым связана точка останова, выполнение прервется, и программа перейдет в режим паузы.

* Помещение в программный код оператора Stop. После выполнения этого оператора программа переходит в режим паузы, приготовившись продолжить выполнение с оператора, следующего за оператором Stop.

* Щелчок на кнопке Break (Пауза), выбор Run=Break из меню или нажатие комбинации клавиш во время выполнения программы. Используйте эту возможность для восстановления контроля над программой, которая по каким-то причинам не желает останавливаться сама. Никто не сможет предугадать, где при этом программа остановится, но зато после остановки у вас появится возможность увидеть, где это произошло.

* Создание контролируемых переменных типа Break When Value Is True (стоп при значении Истина) или Break When Value Changes (стоп при изменении значения). Тогда программа перейдет в режим паузы, как только значение контролируемой перемен1 ной станет равным True или как только ее значение изменится.

По-другому программа может перейти в режим паузы, когда возникает ошибка выполнения. VBA отображает диалоговое окно с описанием возникшей ошибки (рис. 9.2). В этом окне щелчок на кнопке End (Закончить) останавливает выполнение программы совсем, а щелчок на кнопке Debug (Отладка) переводит выполнение программы в режим паузы. На вкладке General (Общие) диалогового окна Tools=Options вам предоставляются некоторые возможности для выбора круга тех ошибок, появление которых должно останавливать выполнение программы.

Рис. 9.2. Диалоговое окно, сообщающее об ошибке выполнения

Размещение точек останова в программе

Если есть подозрение, что ошибка содержится в каком-то конкретном сегменте программного кода, поместите точку останова как раз перед этим сегментом. На рис. 9.3 видно, как редактор Visual Basic представляет точку останова на экране - в виде довольно жирной точки на полях в окне редактирования.

Рис. 9.3. При назначении точки останова редактор Visual Basic подсвечивает строку программного кода, перед которой должно остановиться выполнение программы

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

Чтобы разместить точку останова, просто щелкните на полях окна редактирования слева от соответствующей строки программного кода. Можно разместить точку останова и с помощью клавиатуры - для этого поместите курсор в нужную строку и нажмите .

Можно разместить столько точек останова в разных строках программы, сколько вы сочтете необходимым. Нельзя только размещать точки останова в строках комментариев и строках с операторами, которые VBA на самом деле не выполняет, например в строках с объявлениями переменных.

Помните о том, что VBA останавливает программу и переключается в режим паузы после выполнения оператора, непосредственно предшествующего оператору с точкой останова. Другими словами, оператор с точкой останова останется пока невыполненным- с него предполагается продолжить выполнение программы после выхода из режима паузы.

Удаление точек останова

Исправив ошибки в программном коде или отказавшись на время от попыток их исправления, вы захотите удалить ненужные точки останова. Удаление точек останова даст возможность VBA при следующем запуске выполнять программу без лишних задержек. Удаляется существующая точка останова точно так же, как и ставится - щелчком на полях в окне редактирования или нажатием клавиши .

Чтобы удалить все назначенные точки останова сразу, выберите из меню Debug=Clear All

Breakpoints или нажмите . Точки останова моментально уйдут в историю - никакая команда Undo (Отменить) не поможет вам восстановить их.

Выяснение места остановки

Когда программа находится в режиме паузы, редактор Visual Basic подсвечивает оператор, который предполагается выполнить следующим. Для гарантии на полях около строки с этим оператором в окне редактирования программного кода появляется стрелка. То, что вы увидите, показано на рис. 9.4 (но чтобы представить его в цвете, пожалуй, без фантазии не обойтись).

Рис. 9.4. Не заметить строку с оператором, который должен будет выполняться следующим, просто невозможно (тем более, что эта строка обязательно будет на экране)

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

Здесь поможет специально предусмотренная для такого случая команда Show Next Statement (Показать следующий оператор). Выберите Debug=Show Next Statement, и редактор Visual Basic быстренько доставит вас к нужному оператору. Есть также команда, позволяющая выбрать в качестве следующего другой оператор, но она будет обсуждаться позже, в подразделе "Назначение другого следующего оператора".

Альтернатива точкам останова: оператор Stop

Точки останова использовать очень просто, но они имеют один недостаток: они временны. Если отлаживаемая программа достаточно сложна, скорее всего, вам не удастся привести ее в полный порядок за один раз. Точки останова не сохраняются в программном коде, поэтому, открыв проект в редакторе Visual Basic в следующий раз, вы их уже не увидите.

Эта проблема решается с помощью оператора Stop. Поместите этот оператор в программный код. и в соответствующем месте программа перейдет в режим паузы. Вместе с другими операторами программы операторы Stop будут сохраняться при сохранении проекта.

Желаете пример, господа? Извольте:

* * *

intДанныеCMapca = ПолучениеДанныхСМарса(1.5454)

Stop

MsgBox "Результат " & intДанныеCMapca /Z

* * *

Взглянув на этот пример, вы можете догадаться, что здесь оператор Stop используется для того, чтобы прозондировать подозрительные результаты, отображаемые в окне сообщения. Выполнение оператора Stop заставит перейти программу в режим паузы сразу после того, как процедура-функция ПолучениеДанныхСМарса присвоит свое значение переменной. Вы получите возможность проверить значения обеих переменных, используемых для вычислений в следующей за оператором Stop строке, чтобы выяснить, какая из переменных стала источником проблемы.

Когда вы достаточно насладитесь режимом паузы (по крайней мере на этот раз), дайте указание VBA продолжить нормальное выполнение программы. Для этого используются команды, находящиеся на тех же местах, что и команды для первоначального запуска программы. В режиме паузы соответствующие пункт меню Run (Выполнить) и кнопка панели инструментов со своих мест никуда не денутся, но изменят свои названия - они будут теперь называться Continue (Продолжить). По-прежнему клавишным эквивалентом для вызова соответствующей команды будет . Продолжая выполнение, программа может снова перейти в режим паузы, если доберется до следующей точки останова или возникнут иные условия, при которых активизируется режим паузы.

Чтобы совсем прекратить выполнение программы, используйте команду Reset

(Остановить выполнение). Для этого можно использовать кнопку Reset или пункт Reset меню

Run. Нажатие останавливает выполнение вообще любой программы в Windows, в том числе и VBA-программ. Но прежде чем нажать , убедитесь, что вы выполняете свою

VB А-программу, потому что в противном случае закроется либо редактор Visual Basic, либо ваше

VBA-приложение, либо какая-то другая программа Windows, оказавшаяся активной в тот момент.

Как и все хорошие отладчики, редактор Visual Basic дает возможность выполнять программу по шагам, по одному оператору за шаг. Такое замедление- просто находка для тех случаев, когда появляется подозрение на наличие логических ошибок, имеющих привычку прятаться в укромных местах программ.

Чтобы использовать все преимущества пошагового выполнения программы, желательно видеть, как в процессе выполнения программы изменяются значения переменных. В этом всегда готово помочь чудесное средство редактора Visual Basic, называемое Auto Data Tips (Автоматические подсказки значений), но еще более подробная информация предоставляется в окнах Locals (Окно локальных переменных) и Watches (Окно контролируемых выражений), которые к тому же позволяют при необходимости изменить значения представленных в них элементов. Все эти возможности будут обсуждаться ниже.

Начнем же, пожалуй, стрех команд Step редактора Visual Basic, а именно: Step Into.

Step Over и Step Out. Все три доступны либо через меню Debug, либо с помощью кнопок панели инструментов Debug, либо следующих комбинаций клавиш.

Step Into

Step Over

Step Out

Команда Step Into (Войти в процедуру) используется, если нужно выполнить процедуру по шагам в порядке естественного выполнения операторов. Каждый раз, когда применяется эта команда, VBA выполняет следующий оператор программы и снова переходит в режим паузы, чтобы вы имели возможность увидеть произошедшие при этом изменения. Удобнее всего вызывать команду Step Into нажатием клавиши .

Свое название эта команда получила из-за того, что при ее использовании происходит вход в любую из вызываемых в программе процедур: если следующим оператором оказывается вызов процедуры типа Sub или Function, то применение команды Step Into приведет к открытию вызванной процедуры в окне редактирования, чтобы вы могли пройти эту процедуру по шагам и увидеть все, что происходит.

Команда Step Into доступна не только в режиме паузы. Если нужно выполнить программу по шагам с самого начала, запустите ее с помощью команды

Step Into. В таком случае команда Step Into начинает выполнение с той процедуры, в которой оказывается текстовый курсор, причем процедура всегда выполняется с самой первой строки.

Команда Step Over (Обойти процедуру) вызывается клавишами и работает подобно команде Step Into, но со следующими двумя отличиями:

* при вызове процедуры команда Step Over не приводит к пошаговому выполнению вызываемой процедуры;

* с помощью команды Step Over нельзя начать выполнение программы в режиме паузы.

Если оператор, который должен выполняться следующим, вызывает некоторую процедуру, команда Step Over выполнит эту процедуру без перерывов, целиком, сделав сразу все имеющиеся в процедуре глупости и не дав вам проверить промежуточные результаты. Обход процедур очень экономит время, когда вы уверены, что вызываемая процедура работает так, как нужно.

Команда Step Out (Выйти из процедуры) вызывается клавишами и прекрасно дополняет команду Step Over. После входа в процедуру в режиме ее пошагового выполнения вы можете решить, что все в порядке или что ошибка найдена и исправлена.

Или, намереваясь щелкнуть на кнопке Step Over, вы можете случайно щелкнуть на кнопке Step Into лично у меня такое происходит регулярно).

В любом из таких случаев нет необходимости проходить по шагам оставшуюся часть процедуры. Чтобы пройти остаток с полной скоростью, используйте команду Step Out.

VBA быстро доставит вас в ту процедуру, из которой вы пришли, подсветив оператор, следующий за оператором с вызовом процедуры.

Добавление и редактирование программного кода в режиме паузы

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

Но есть также изменения (например, изменение типа переменной в ее объявлении), которые заставят VBA прекратить выполнение программы.

Назначение другого следующего оператора

Представьте, что вы, двигаясь сквозь свою программу в пошаговом режиме, вдруг обнаруживаете, что в следующем операторе содержится большая ошибка. Вместо того чтобы выполнить этот оператор и тем самым ввести свою программу в "штопор", вы можете обойти этот оператор и не выполнять его вообще, пока когда-нибудь в будущем не исправите ошибку.

Редактор Visual Basic почти всегда позволяет с помощью клавиш либо мыши назначить другой оператор для выполнения следующим. При этом вы можете перемещаться в программном коде как вперед, так и назад. В дополнение к возможности пропустить неправильный программный код, вы можете повторять выполнение некоторого фрагмента программного кода до тех пор, пока не поймете, как он работает.

Только знайте, что переменные при этом будут хранить те значения, которые они имели перед началом внесения вами изменений. Эти значения могут сильно отличаться от тех, которые переменные имели бы в соответствующей точке при естественном ходе выполнения программы. Если необходимо, назначьте переменным значения по своему усмотрению с помощью окон Immediate, Watches или Locals, которые будут обсуждаться в этой главе ниже.

Вот как назначить другой следующий оператор.

* С помощью клавиатуры переместите точку ввода в строку с нужным вам оператором, ( нажмите или выберите Debug=Set Next Statement из меню.

* С помощью мыши перетащите желтую стрелку на полях в окне редактирования программного кода к строке с новым следующим оператором (рис. 9.5).

Еще один способ пропустить программный код

Есть еще один способ пропустить часть программного кода, на который падает подозрение в содержании ошибки. Этот метод годится и для режима паузы, и для обычного режима редактирования перед запуском программы на выполнение. Как вы уже знаете, можно напечатать апострофы в начале каждой строки того фрагмента программного кода, который нужно пропустить. Тем самым строки программного кода превратятся в строки комментария. Единственный недостаток этого способа- на такое "комментирование" с последующим "раскомментированием" нужно время. Правда, можно "комментировать" сразу целый блок с помощью одного щелчка на кнопке Comment Block (Превратить блок в комментарий) панели инструментов Edit (Правка) (см. главу 6).

Но часто для пропуска фрагмента программного кода самым удобным оказывается назначение метки и временное использование ссылающегося на нее оператора GoTo. Например, при выполнении следующего фрагмента программного кода VBA пропустит все операторы между GoTo ПослеПропуска и оператором, следующим за меткой ПослеПропуска:. - 16

GoTo ПослеПропуска
            A = В + С
            D = А + Е / F
            G = B + D
ПослеПропуска:
: MsgBox '" Format(Now, "dddd"

Когда пропущенный фрагмент понадобится снова, просто удалите строку с оператором GoTo или превратите ее в комментарий. :

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

Замечательная возможность автоматической подсказки значений в VBA позволяет видеть текущее значение любой переменной в программе. Находясь в режиме паузы, задержите на секунду указатель мыши на имени нужной вам переменной, и на экране появится окно подсказки - небольшой прямоугольник с именем и текущим значением переменной в нем (рис. 9.6).

Если же прямоугольники с подсказками значений на экране не появляются, проверьте, чтобы был установлен флажок Auto Data Tips (Автоматическая подсказка значений) на вкладке Editor (Редактор) диалогового окна Options (Параметры).

Редактор Visual Basic позволяет также увидеть тип и область видимости переменной, хотя соответствующая информация и не появляется автоматически. Поместите курсор между буквами или около имени переменной и нажмите , и на экране появится окно подсказки Quick Info (Краткая справка) с этой информацией. Для этого не обязательно находиться в режиме паузы, что особенно удобно при работе с большими программами, когда объявления переменных оказываются где-то далеко в самом начале программы. Пример того, что вы можете увидеть в прямоугольнике краткой справки, показан на рис. 9.7.

Рис. 9.7 Отображение подсказки Quick Info для переменной

Немедленное вознаграждение в окне Immediate

Чтобы открыть окно Immediate (Окно немедленного выполнения команд, рис. 9.8), нажмите или выберите Viewolmmediate Window из меню. Окно Immediate предоставляет следующие возможности:

* видеть результаты вычислений и значения переменных, вывод которых можно направить в это окно с помощью метода Debug.Print;

* выполнять отдельные операторы сами по себе, не помещая их в процедуры: чтобы выполнить оператор в окне Immediate, просто напечатайте его там и нажмите .

"Зачем это нужно?" - спросите вы. Отвечаю.

* Окно Immediate можно использовать просто как калькулятор. Напечатайте в нем выражение типа

Print (27 * 398) + 1414

затем нажмите , и вы немедленно получите результат (см. рис. 14.8). При работе в окне Immediate вам нет необходимости указывать объект Debug.

* Можно направить в окно Immediate вывод промежуточных значений переменных и выражений при выполнении программы, разместив в подходящих строках программы операторы, вызывающие метод Debug.Print. По завершении выполнения программы вы получите возможность просмотреть сразу все выведенные значения (рис. 9.9), чтобы выяснить, все ли они правильны, а не рассматривать их по отдельности в разное время при пошаговом выполнении программы.

Рис. 9.8. Окно Immediate в действии

* В режиме паузы в окне Immediate можно отобразить значение любой переменной или свойства объекта с помощью оператора Print или изменить значение с помощью стандартного оператора присваивания. Можно также стандартным способом вызывать процедуры. При этом вы должны понимать, что в режиме паузы выполняемые в окне Immediate операторы могут иметь доступ только к переменным, объектам и процедурам, находящимся в области видимости той процедуры, которая выполняется в данный момент. Другими словами, результат выполнения оператора в окне Immediate будет тем же, что и результат печатания этого оператора в выполняемой в данный момент процедуре и работы его в ней.

Интересный факт. В окно Immediate можно перетащить текст, выделенный в окне редактирования программного кода, и тогда вам не придется печатать длинные выражения или имена переменных снова (но знайте, если при перетаскивании вы не будете удерживать нажатой клавишу , фрагмент программного кода не скопируется в окно Immediate, а переместится туда из окна редактирования). Клавиша в окне Immediate работает точно так же, как и в окне редактирования программного кода, вызывая справку для ключевого слова, в котором находится текстовый курсор. А вот автоматические подсказки значений здесь не действуют.

Рис. 9.9. Пример вывода программы, использующей метод Debug. Print

Все переменные под присмотром в окне Locals

Если у вас на экране еще есть место, где можно разместить окно Locals (Окно локальных переменных), оно обязательно должно присутствовать на экране все время, пока вы занимаетесь отладкой программы в режиме паузы. Отобразить окно Locals на экране можно щелчком на соответствующей этому окну кнопке панели инструментов Debug или с помощью View=Local s Window из меню.

Как видно из рис. 9.10, в окне Locals автоматически отображаются имена, значения и типы данных всех переменных, доступных в выполняемой в данный момент процедуре. Эта информация обновляется редактором Visual Basic после выполнения любого из операторов, так что вы всегда будете видеть в окне Locals текущие значения переменных.

Рис. 9.10. Вид окна Locals в режиме паузы

Механика процесса

Как и ряд других окон редактора Visual Basic, окно Locals по умолчанию закреплено, но может отображаться и в виде свободно перемещаемого окна. Основы использования окон редактора Visual Basic обсуждались в главе 5.

Если нужная вам информация не помещается в столбце, помните о том, что ширину столбцов можно менять. Поместите указатель мыши на разделитель между заголовками столбцов и, когда он превратится в двунаправленную стрелку, перетащите разделитель влево или вправо, чтобы установить нужную ширину столбца.

Если снова взглянуть на рис. 9.10, вы увидите, что некоторые строки в окне Locals сообщают информацию об обычных переменных, а некоторые- о массивах, переменных пользовательских типов и объектах. Такие элементы не имеют собственных значений, а содержат другие переменные или элементы иных типов. Изначально после запуска процедуры в окне Locals они представлены в виде свернутых разделов, так что вы не увидите содержащихся в них подчиненных элементов. Чтобы развернуть любой из свернутых разделов, щелкните в прямоугольнике с плюсом слева от имени раздела (то, что можно увидеть, развернув раздел, показано на рис. 9.11).

В развернутых уже на самом верхнем уровне иерархии окна Locals будут показаны только переменные, явно или неявно объявленные в самой выполняемой в данный момент процедуре. Чтобы увидеть переменные уровня модуля, доступные всем процедурам данного модуля, разверните самый первый из разделов в окне Locals. Этот раздел всегда принадлежит модулю, содержащему выполняемую процедуру. В окне Locals не появляются открытые переменные или переменные из других проектов.

Рис. 9.11 Вид окна Locals для той же процедуры, что и на рис. 9.10, но разделы, там свернутые, теперь развернуты

Как редактировать значения переменных

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

1. Щелкните два раза (но не делайте двойной щелчок) на текущем значении переменной так, чтобы оказалось подсвеченным только это значение.

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

2. Напечатайте новое значение.

Если значение должно быть строковым, заключите его в кавычки, а если это значение даты, поместите его между парой знаков #.

3. Если вы передумали менять значение переменной, нажмите , а чтобы подтвердить изменения - .

Если редактор Visual Basic сочтет предложенное вами значение недопустимым, вы получите сообщение об ошибке с некоторыми объяснениями по поводу того, что именно оказалось неправильным.

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

Ключевое средство отладки: окно Watches

Когда вы освоите работу с окном Locals, работа с окном Watches (Окно контролируемых выражений) покажется просто забавой. Окно Watches делает, по сути, то же самое, что и окно Locals, но с одним очевидным отличием - те выражения, значения которых будут показаны в этом окне, должны выбрать вы. Примерный вид окна Watches показан на рис. 9.12.

Рис. 9.12. Окно Watches редактора Visual Basic

Используйте окно Watches при отладке больших программ, в которых большое число разных процедур работает с открытыми переменными. Добавив эти переменные в окно Watches, вы сможете контролировать их значения, независимо от того, какая из частей программы выполняется в данный момент.

Окно Watches появится на экране автоматически, как только вы зададите контролируемое выражение. (О том, что такое контролируемое выражение, вы узнаете во врезке "Об отличиях между окнами Watches и Locals".) Если на экране не хватает места, вы всегда можете закрыть это окно, щелкнув на кнопке закрытия в его верхнем правом углу.

Об отличиях между окнами Watches и Locals

Кроме того, что появляющиеся в окне Watches объекты выбираете вы, окно Watches отличается от окна Locals следующим.

* Каждая из строк окна Watches позволяет контролировать значение любого допустимого в VBA выражения, а не только отдельной переменной. Например, вполне годятся выражения типа (X - Y) >, 15, "Выбранный цвет - " & strColor или даже просто 2 + 2. Именно поэтому в случае окна Watches говорится о контролируемых выражениях.

* Из-за того что в окне Watches можно контролировать переменные из любого модуля или процедуры проекта, в этом окне добавлен еще один столбец Context (Контекст). В этом столбце указывается область видимости, в рамках которой отображается значение данной переменной или выражения. Если выполняемая процедура находится вне заданного контекста, вы и увидите только пометку (Вне контекста). :.

Добавление контролируемых выражений

Если вы любите свободу выбора, вам обязательно понравится иметь дело с окном Watches. Приготовьтесь удивиться тому, сколько есть разных способов добавления контролируемых выражений в это окно.

Правда, независимо от выбранного в конце концов способа, начать нужно с окна редактирования и выделить в нем переменную или выражение, значения которых требуется контролировать. Здесь "выделить" означает подсветить все выражение, как в любом текстовом редакторе, пользуясь мышью или клавишами со стрелками.

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

Перечислим способы, которыми можно добавить контролируемые выражения.

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

контекстного меню пункта Add Watch, открывающего диалоговое окно Add Watch.

* Выбор Debug=Add Watch из меню, в результате чего также открывается диалоговое окно Add Watch.

* Щелчок на кнопке Quick Watch панели инструментов Debug или выбор DebugoQuick Watch из меню. Редактор Visual Basic отобразит на экране подтверждающее сообщение с описанием почти уже добавленного вами контролируемого выражения, но у вас не будет возможности каким-либо образом это выражение изменить.

* Перетаскивание выделенного выражения в окно Watch. При этом контролируемое и выражение создается без каких-либо дополнительных промежуточных шагов.

А если вы предпочитаете делать все своими руками, то можете в окне редактирования программного кода не выбирать ничего, а сразу щелкнуть на кнопке Add Watch и просто напечатать интересующее вас выражение вручную в соответствующем поле диалогового окна Add Watch.

Работа с окном Add Watch

На рис. 9.13 изображено окно Add Watch (Добавление контролируемого выражения), возникающее на экране в результате выбора Debug=Add Watch из меню или выбора пункта

Add Watch из контекстного (вызываемого щелчком правой кнопки мыши) меню в окне редактирования программного кода. В окне Add Watch уточняются детали, касающиеся добавляемых контролируемых выражений.

В поле Expression (Выражение) указывается выражение, подлежащее контролю. Если перед открытием окна было выделено нужное выражение, менять в окне ничего не придется, но вы всегда имеете возможность подправить выражение.

В разделе Context (Контекст) можно определить процедуру, в которой редактор Visual Basic будет вычислять и отображать значение переменной. Изначально в полях Procedure

(Процедура) и Module (Модуль) будут указаны процедура и модуль, из которых вы добавляете контролируемое выражение. Если вы хотите видеть значение при выполнении другой процедуры, выберите ее имя. Если это процедура из другого модуля, то сначала выберите нужный модуль, а уж затем процедуру.

Рис. 9.13 Диалоговое окно Add Watch

Если вы хотите, чтобы значение переменной присутствовало в окне, независимо от того, какая процедура данного модуля выполняется, выберите (Аll Procedures) (Все процедуры), первый пункт в списке процедур. А если вы хотите видеть значение всегда - в течение всего времени выполнения программы - в списке модулей выберите (All Modules) (Все модули).

Для обычных контролируемых выражений в разделе Watch Type (Тип контроля) оставьте выбранным переключатель Watch Expression (Контролируемое выражение). Оставшиеся две возможности для выбора будут обсуждаться немного позже, в разделе "Использование контролируемых выражений для назначения точек останова".

Проще всего модифицировать существующее контролируемое выражение, внося изменения в столбец Expression (Выражение) окна Watches. Сначала щелкните в строке нужного вам выражения, чтобы выделить ее, а затем щелкните на самом выражении, чтобы выделить его. После этого можете менять свое выражение на любое другое.

Как и в окне Locals, в окне Watches тоже можно менять значение выражения прямо во время выполнения программы. А вот установки в столбце Context для контролируемого выражения в окне Watches менять нельзя. Для этого нужно открыть диалоговое окно Edit Watch (Редактирование контролируемого выражения), предлагаемое меню Debug или контекстным (открывается щелчком правой кнопки мыши) меню в окне Watches. В этом диалоговом окне вы сможете изменить контекст контролируемого выражения, его тип и даже само выражение точно так же, как в окне Add Watch при первоначальном добавлении выражения к списку контролируемых.

Использование контролируемых выражений для назначения точек останова

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

С помощью переключателей из раздела Watch Type (Тип контроля) в окнах Add Watch и Edit Watch вы получаете возможность назначить автоматические точки останова следующих двух типов.

* Точки останова, автоматически переводящие выполнение программы в режим паузы, как только программа выполнит оператор, изменяющий на ненулевое значение заданного выражения (напомню, что в VBA 0 означает False, а любое ненулевое значение - это True). Чтобы назначить автоматическую точку останова этого типа, выберите переключатель Break When Value Is True (Стоп при значении Истина).

* Точки останова, автоматически переводящие выполнение программы в режим паузы, как только программа выполнит оператор, изменяющий значение заданного выражения. Чтобы назначить автоматическую точку останова этого типа, выберите переключатель Break When Value Changes (Стоп при изменении значения).

Несмотря на свои выдающиеся таланты, "останавливающие" контролируемые выражения в окне Watches выполняют все, что требуется от обычных контролируемых выражений. Отличить контролируемые выражения разных типов можно только по маленьким пиктограммам слева от имен этих выражений. На рис. 9.14 эти пиктограммы различимы с трудом, но на экране они видны довольно хорошо.

Рис. 9.14. Контролируемое выражение типа "стоп при изменении значения * на основе переменной caseRange толь/со что перевело выполнение программы в режим пары

После того как изменение значения контролируемого выражения активизирует связанную с этим выражением точку останова, VBA приостановит выполнение программы, переведя ее в режим паузы. В окне редактирования программного кода оператор, вызвавший изменение, будет предшествовать подсвеченному. В окне Watches подсвечено контролируемое выражение, вызвавшее переход в режим паузы, так что вы увидите, значение какого из контролируемых выражений изменилось (см. рис. 14.34).

Отлов “диких” ошибок с помощью On Error и

Если в ходе выполнения программы что-то идет не так, как нужно, обычно на работе программы это сказывается катастрофически. VBA прекращает выполнение программы и выводит диалоговое окно с немногословным сообщением об ошибке выполнения. Пример такого сообщения вы уже видели на рис. 9.2. На выбор вам предлагается щелкнуть либо на кнопке End (чтобы завершить выполнение программы), либо на кнопке Debug (чтобы перейти в режим паузы), либо на кнопке Help (чтобы отобразить на экране раздел справки, соответствующий произошедшей в вашей программе ошибке).

Ни одно из этих предложений не выглядит вполне удовлетворительным, особенно при выполнении программы в процессе эксплуатации, а не отладки. Менее раздражающей оказывается ситуация, когда ваша программа может сама распознать ошибку и исправить или, по крайней мере, мягко обойти ее прежде, чем VBA выскочит со своим грубым сообщением об ошибке. А если сделать это нельзя, то неплохо хотя бы одарить пользователя немного более дружелюбным сообщением по этому поводу.

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

Как я уже упоминал - но повторяю здесь, поскольку это было слишком давно, - появление ошибок выполнения обусловливается следующими двумя причинами.

* Наличие ошибок в логике программы, вследствие которых возникает программная ситуация, недопустимая с точки зрения VBA. Представьте, например, что в программном коде имеется оператор, в котором некоторое значение делится на значение переменной. Если перед этим переменной в программе будет присвоено нулевое значение - вы попались. Делить на нуль категорически запрещено, от этого у компьютера может случиться удар, и поэтому VBA остановит выполнение программы.

* Возникновение непредвиденного стечения обстоятельств, не позволяющего программе продолжить работу. Например, разрыв соединения с базой данных, сетевым сервером или страницей Internet может не позволить программе получить необходимые для ее работы значения.

Но независимо от причин, выход один - организация защиты программы и пользователя с помощью создания программного обработчика ошибок.

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

Чтобы добавить в процедуру программный код обработчика ошибок, нужно сделать следующее:

* добавить в начало процедуры оператор On Error, сообщающий VBA, где найти программный код обработчика ошибок;

* в конец процедуры добавить оператор Exit Sub (или Exit Function), за котор рым должен следовать программный код обработчика ошибок;

* создать программный код самого обработчика ошибок, начало которого должно идентифицироваться некоторой меткой.

Все три шага при этом обязательны. Например, без оператора On Error VBA не узнает, что обработчик ошибок вами вообще предусмотрен.

Оператор On Error делает обработчик ошибок доступным, сообщая VBA о том, где найти этот обработчик ошибок в программном коде. В использовании этот оператор выглядит так: On Error GoTo метка, где метка - это метка, идентифицирующая в процедуре начало программного кода обработчика ошибок.

Вот пример использования оператора On Error:

Sub ErrorHandlerDemo()
On Error GoTo ErrorHandler
        MamaVariable = DoThisFunction (X,Y,Z)
        PapaVariable = DoThatProcedure
        EabyVariable = MamaVariable + PapaVariable
' здесь завершается выполнение процедуры, когда ошибок нет
        Exit Sub
Error Handler:
(здесь размещаются операторы обработчика ошибок)
End Sub

Вам полезно знать, что существуют еще две формы оператора On Error.

* On Error GoTo 0 отменяет программную обработку ошибок в процедуре, начиная с данного места, и выполняет очистку объекта Err. Используйте этот оператор чтобы отменить действие ранее выполненного оператора On Error GoTo метка, если по каким-то причинам вы предпочтете отказаться от услуг своего обработчика ошибок в пользу "крикливо бесцеремонного" обработчика VBA.

* On Error Resume Next дает указание VBA игнорировать строку программного кода, ставшую причиной ошибки, и продолжить выполнение со следующей за ней строки. Ясно, что игнорирование ошибки не устраняет ее, но оператор On Error Resume Next оказывается полезным при работе с объектами из содержащего программу приложения или других компонентов, которые создали не вы, - эти достаточно тонкие вопросы обсуждаются в главе 14.

Если обработчик ошибок является частью той процедуры, в которой он размещен, VBA будет выполнять операторы обработчика ошибок при каждом выполнении процедуры. Ясно, что этого быть не должно. Нужно, чтобы обработчик ошибок выполнялся только тогда, когда в программе возникает ошибка.

Чтобы обработчик ошибок не выполнялся, когда это не нужно, необходимо добавить перед началом программного кода обработчика ошибок оператор Exit, как показано выше в примере из подраздела "Использование оператора On Error". Если это процедура типа Sub, то используйте оператор Exit Sub, а для процедуры типа Function используйте Exit Function.

Сам по себе обработчик ошибок состоит из следующих компонентов:

* метка, показывающая, где начинается программный код обработчика ошибок;

* программный код, призванный определить тип возникшей ошибки;

* программный код, обрабатывающий ошибку;

* оператор, дающий указание продолжить выполнение основной части процедуры (необязательный компонент).

Для идентификации начала программного кода обработчика ошибок поместите в первой строке обработчика ошибок стандартную метку VBA (напомню, что метка представляет собой любое допустимое слово, за которым следует двоеточие). Как уже объяснялось выше, в случае возникновения ошибки этой метке должен передать управление оператор On Error. В следующем примере такой меткой является ThisIsTheErrorHandler:

* * *

ThisIsTheErrorHandler:

* * *

( здесь размещаются операторы обработчика ошибок)

* * *

End Sub

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

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

Как правило, при выяснении того, что произошло, используется объект Err VBA. Объект Err всегда доступен в любой VBA-программе. Его можно использовать сразу, без предварительного создания его экземпляра. В объекте Err VBA автоматически сохраняет информацию о последней из случившихся в программе ошибок. Вашей программе остается только выяснить значения свойств объекта Err, в частности значения свойств Number (Номер) и Description (Описание).

Свойство Number сообщает номер ошибки. Вы можете присвоить значение этого свойства переменной или использовать его непосредственно в условном выражении, как в следующем примере:

Sub ЕщеОдноСообщение()
On Error GoTo ПытаюсьДуматьНоНеВыходит
* * *
(склонные к ошибкам операторы )
Exit Sub
ПытаюсьДуматьНоНеВыходит:
Select Case Err.Number
        Case 7 ' выход за пределы памяти
                    ( обработка ошибки номер 7)
        Case 11 ' деление на нуль
                    (обработка ошибки номер 11) .
        ... (и т.д.)
        Case Else
                    ( обработка всех остальных ошибок)
End Select
End Sub

В этом примере оператор Select Case сравнивает значение свойства Number с рядом фиксированных значений, для каждого из которых нужно создать обрабатывающий соответствующую ошибку фрагмент программного кода. Обработка ошибки может включать следующее.

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

* Попытка получить данные снова из того же или альтернативного источника.

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

Для эффективной работы со свойством Number нужно знать, каким именно ошибкам соответствуют возвращаемые этим свойством номера. Из-за недостатка места я не могу представить здесь соответствующий список. В некоторых VBA-приложениях - к ним относятся и приложения Office 97 - информация об ошибках, встречающихся чаше всего, имеется в разделе Trappable Errors (Распознаваемые ошибки) справки по VBA. Этот раздел можно найти, напечатав trappableerrors в поле ввода на вкладке Предметный указатель в окне справки. В справочной системе Office 2000 подобного раздела мне найти не удалось.

Даже если ваш программный код не может обработать какую-то ошибку или если вы просто не хотите утруждать себя, вы все равно можете не допустить появления стандартного сообщения VBA об ошибке, использовав свойство Description (Описание) объекта Err.

Следующий фрагмент программного кода отображает исключительно вежливое сообщение об ошибке, частью которого является строка, предоставленная свойством Description:

strМоеСообщение = "С сожалением сообщаю Вам, что " _
        & "в эту в целом замечательную программу все же " _
        & "вкралась ошибка. Как сообщает наш надежный " _
        & "источник (VBA), причиной беспокойства является "
MsgBox strМоеСообщение & Err.Description

Некоторые VBA-приложения предлагают свои объекты и функции, с помощью которых можно получить дополнительную информацию о специфических проблемах данного приложения. Например, Microsoft Access предлагает для этого специальный объект Error.

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

Если вы предпочтете продолжить выполнение текущей процедуры, поместите в обработчик ошибок оператор Resume. Оператор Resume имеет несколько вариантов.

* Если просто напечатать Resume в отдельной строке, то этот оператор вернет управление в процедуре тому же оператору, который вызвал ошибку. Это разумно, если обработчик ошибок решает проблему и вы уверены, что ошибка не возникнет вновь.

* Чтобы пропустить оператор, ставший причиной появления ошибки, используйте в обработчике ошибок оператор Resume Next. Тогда выполнение продолжится с оператора, следующего непосредственно за оператором, вызвавшим ошибку.

* Чтобы продолжить выполнение с определенного места в процедуре, используйте в обработчике ошибок оператор Resume метка. Здесь метка означает ссылку на метку, размещенную где-то в процедуре, но, очевидно, не на метку, идентифицирующую начало программного кода обработчика ошибок. Ясно, что в данном случае вы должны задать соответствующую метку в процедуре.

Запуск форм

В процессе разработки формы ее можно запустить (т.е. активизировать выполнение и отобразить на экране) в любое время. Для этого выполните следующее.

1. Выберите окно формы.

Щелкните в окне формы или в окне программного кода, ассоциированного с формой.

2. Отобразите форму.

Нажмите или щелкните на кнопке Run (Выполнить).

После этих действий ваша форма появится на фоне VBA-приложения (а окно Visual Basic пока скроется из виду). Вы сможете проверить, что происходит после щелчков на форме и ее элементах управления. При этом не забывайте, что если ваша форма входит как часть в другую программу, то эта форма при ее автономном запуске может работать не так, как она работала бы в рамках выполнения содержащей ее программы.

Во время запуска окно формы должно быть выбранным. В редакторе Visual Basic маркеры выделения по периметру формы остаются видимыми и при переключении в другое окно редактора Visual Basic. Форма может казаться выделенной, но при этом не запускаться нажатием клавиши . Так что если вдруг на экране неожиданно возникнет диалоговое окно Macros (Макросы), просто щелкните сначала в нем на кнопке Cancel (Отмена), а затем в любом месте нужной вам формы, прежде чем повторить попытку ее запуска.

Чтобы прекратить выполнение формы, которую вы еще не снабдили кнопкой Отмена, щелкните на ее закрывающей кнопке, находящейся с самого края, справа в строке заголовка формы. Или нажмите и переключитесь в окно редактора Visual Basic, где можно щелкнуть на кнопке Reset (Остановить выполнение) панели инструментов.

Чтобы запустить форму в автономном режиме, вы должны находиться в окне редактора Visual Basic и использовать только что описанные приемы. Но форма создается для ее запуска из VBA-приложения, для чего вам нужно активизировать форму из программного кода, как рассказано дальше в настоящей главе, а сам программный код выполнить с помощью приемов, обсуждавшихся в главе 4.

Формы и элементы управления - программируемые объекты

Напомню еще раз, что формы и элементы управления - это полноценные объекты VBA. со своими свойствами, методами и событиями. Формы и элементы управления отличаются от других объектов лишь одним; вы можете менять их свойства в диалоговых окнах без программирования. Правда, для каждого элемента управления (за исключением некоторых надписей и фреймов) вам все же потребуется написать некоторый программный код. Да и формы тоже часто требуют программирования. Не забывайте об этом при обдумывании плана работ по своему проекту. Этап программирования в процессе создания форм обсуждается дальше в настоящей главе.

Один момент, касающийся форм в Microsoft Access: хотя для создания VBA программ в Access и используется стандартный язык VBA, а формы Access со своими элементами управления выглядят и работают точно так же, как и в других VBA-приложениях, формы Access все же не являются стандартными VBAформами. Свойства элементов управления в Access отличаются от свойств стандартных элементов управления VBA, поэтому формы, созданные в Access, и формы, созданные в других VBA-приложениях, не взаимозаменяемы.

Планирование форм для программы

Создавать формы в VBA легко и просто, но их проектирование в реальной программе требует тщательного планирования. Не забывайте, что формы являются частью большой программы, которая имеет вполне определенное практическое назначение. Поэтому, прежде чем начать забавляться с формами, уделите хотя бы немного времени следующим шагам.

1. Определите цель для своей программы.

Это потребуется, даже если в программе нет форм вообще, но если формы нужны, то при их создании всегда следует помнить о главной цели всей программы.

2. Для каждой из форм в программе определите ту специальную задачу, которую должна решать данная форма в русле главной задачи программы.

Какую информацию должна отображать форма, какая информация потребуется от пользователя и какие данные потребуются пользователю для того, чтобы решить, в какое русло направить выполнение программы дальше? Ответы на эти вопросы вы должны трансформировать в конкретные элементы формы.

3. Для каждой специальной задачи подберите тот элемент управления, который лучше всего подходит для ее решения.

Вы собираетесь попросить пользователя выбрать одну из нескольких взаимоисключающих возможностей? Тогда используйте кнопки переключателей. Но если возможности независимы, то лучше всего использовать флажки.

4. Решите, где именно разместить каждый из элементов управления в форме.

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

5. Выяснив все эти детали, сделайте (хотя бы мысленно) набросок общего вида своих форм.

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

6. После того как вы учтете все вышеописанные практические детали, можете подумать об эстетических элементах.

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

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

И я хотел бы обратить ваше внимание на то, что при полном игнорировании планирования впоследствии наверняка потребуется немало усилий для переделки созданных форм.

Печать форм в процессе проектирования

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

Чтобы распечатать формы проекта в редакторе Visual Basic, выполните следующее.

1. Если нужно распечатать только одну форму, выделите ее в окне проводника проектов, если же нужно распечатать все формы некоторого проекта, выделите форму, модуль или любой другой компонент этого проекта.

2. Выберите File=Print или нажмите .

3. В появившемся диалоговом окне отметьте флажок Form Image (Изображение формы)

4. Снимите флажок Code (Программный код), если вы не желаете распечатывать вместе с изображением формы ее программный код.

5. Выберите Current Module (Данный модуль), если нужно распечатать только одну форму, или Current Project (Данный проект), если нужно напечатать все формы проекта.

6. Щелкните на кнопке ОК.

Дизайн новой формы

Только что созданная новая форма (рис. 10.1) представляет собой чистое поле для ваших упражнений в разработке пользовательского интерфейса. Вы можете менять размеры формы и ее положение на экране, подбирать форме цвета и размещать в ней элементы управления, которые будут выполнять важные задачи.

Рис. 10.1. Только что созданная форма (обратите внимание на панель элементов управления возле нее и пиктограммы элементов управления в этой панели)

Перед созданием новой формы убедитесь, что активен именно тот проект, в котором должна разместиться создаваемая форма. Сначала откройте документ проекта в VBA приложении, затем переключитесь в редактор Visual Basic. Если приложение позволяет открыть несколько документов сразу или если для документа используется шаблон, то для выбора нужного проекта необходимо использовать проводник проектов. (О работе с проводником проектов говорилось в главе 5.)

Создание формы

Для создания новой формы VBA выберите Insert=UserForm из меню редактора Visual Basic или из контекстного меню (вызываемого щелчком правой кнопки мыши) в окне проводника проектов. Новая форма (точнее, заготовка новой формы) появится в специально созданном для нее окне, а возле формы появится панель элементов управления (см. рис. 10.1) - специальная панель инструментов, содержащая элементы управления, которые можно разместить в этой форме.

Добавление элементов управления из панели инструментов Toolbox

Теперь заготовка формы на экране, и можно добавлять в нее элементы управления - всякие разные штучки в форме, с помощью которых взаимодействуют люди. Элементы управления берутся из панели элементов управления (панели Toolbox).

Панель элементов управления автоматически появляется при создании новой формы, если только перед этим вы не закрыли эту панель. Панель элементов управления грациозно исчезает с экрана, когда вы щелкаете в любом из окон, не содержащих формы, и возникает снова после щелчка в окне формы. Если же панель элементов управления не видна, когда она вам понадобилась, выберите View=Toolbox, чтобы вызвать ее.

Чтобы добавить в форму элемент управления, выполните следующее.

1. Щелкните на пиктограмме того элемента управления в панели элементов управления, который вы хотите поместить в форму.

2. Переместите указатель мыши на форму.

Указатель мыши примет вид крестика с рисунком выбранного элемента управления.

3. Нажмите левую кнопку мыши и перетащите указатель, очертив область на форме, которую должен занять новый элемент управления (рис. 10.2).

4. Отпустите кнопку мыши.

В форме должен появиться новый элемент управления.

Рис. 10.2. Добавление элемента управления в форму

Обычно сразу же после добавления элемента управления в форму указатель мыши приобретает свой обычный вид, позволяющий выбирать объект. Если вам нужно добавить несколько элементов управления одного и того же типа, вместо одного щелчка на пиктограмме соответствующего элемента управления в панели элементов управления сделайте двойной щелчок. Чтобы закончить добавление элементов управления, щелкните на пиктограмме стрелки в панели элементов управления.

Работа со свойствами форм и элементов управления

Формы и элементы управления VBA являются объектами, а поэтому имеют свойства, задающие вид и поведение форм и элементов управления на экране. Эти свойства, как и свойства любых других объектов в программе, можно проверить и изменить.

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

Общий вид окна свойств показан на рис. 30.3. Если окно свойств на экране отсутствует, оно появится после выбора View=Properties Window из меню или нажатия .

Рис. 10.3. Окно свойств для формы VBA

Когда не ясно, что означает какое-либо свойство или как установить его значение, просто вызовите справку. Щелкните в поле свойства и нажмите , чтобы на экране появилось окно справки с текстом соответствующего раздела справки VBA.

Очень удобны следующие особенности окна свойств.

* В окне свойств автоматически отображаются свойства того объекта, который выбран

в окне формы (это может быть как элемент управления, так и сама форма).

* Выбрать элемент в форме для работы с ним можно из раскрывающегося списка вверху окна свойств (рис. 10.4).

Обратите внимание на то, что в поле списка в верхней части окна показаны имя и тип того объекта, со свойствами которого вы имеете дело в данный момент.

В окне свойств есть две вкладки, на которых отображается один и тот же набор свойств, но на вкладке Alphabetic (По алфавиту) свойства упорядочены по размеру годового дохода (шутка), а на вкладке Categorized (По категориям) они классифицированы по родственным признакам.

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

Слева будут указаны имена свойств, а справа от каждого имени - поле, в котором вы сможете изменить текущую установку соответствующего свойства.

Рис. 10.4. С помощью раскрывающегося списка вверху окна свойств можно выбрать любой элемент управления в форме или саму форму, свойства которых нужно увидеть или поменять

Изменение установок свойств

В зависимости от свойства, установки свойств можно менять одним из следующих трех способов:

* просто печатая новое значение;

* выбирая новое значение из раскрывающегося списка;

* выбирая новое значение в диалоговом окне.

Некоторые свойства позволяют как напечатать новое значение, так и выбрать подходящее из списка.

До тех пор пока вы не щелкнете в поле свойства, нельзя сказать, предлагается ли для этого свойства раскрывающийся список или диалоговое окно. Если для свойства предлагается список или диалоговое окно, после щелчка в поле свойства появится кнопка, на которой можно щелкнуть. (В случае раскрывающегося списка на кнопке будет направленная вниз стрелка, а в случае диалогового окна - многоточие; см. рис. 10.3.)

Пока элементы управления не добавлялись в форму, в раскрывающемся списке окна свойств будет представлена только сама форма. Но после того, как хотя бы один элемент управления добавлен, вам придется следить за тем, какой из объектов выбран (сама форма или один из элементов управления). В VBA это совсем нетрудно - по углам и сторонам выбранного объекта появляются маленькие квадратики маркеров.

Конечно, чтобы выделить объект, можно просто щелкнуть на нем. Но иногда это оказывается не слишком простым делом.

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

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

Ключевые свойства форм

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

При создании формы возьмите за правило устанавливать следующие свойства формы еще до того, как в форму будут добавлены элементы управления.

В следующих разделах эти свойства обсуждаются подробнее.

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

Формы и элементы управления действительно имеют свойство Name (Имя). Если задуматься, здесь есть некоторое противоречие. С одной стороны, для ссылки на объект нужно его имя. Но если для доступа к формам из коллекции Forms или к элементам управления в форме использовать цикл For Each, то программа получит ссылку на объект, и не зная его имени.

В любом случае, главное здесь то, что задаваемое вами в свойстве Name имя будет именем объекта, которое вы используете в своем программном коде, когда захотите что-либо сделать с этим объектом. Имя формы или элемента управления должно быть допустимым в VBA именем (никаких пробелов и знаков пунктуации; см. главу 6). Кроме того, имя должно описывать функциональное назначение объекта в программе.

А заголовок формы или элемента управления - это нечто другое. Заголовок формы представляет собой текст, появляющийся в ее строке заголовка. Заголовок же элемента управления - если для этого элемента управления заголовок вообще предусмотрен, - это текст надписи, появляющийся на этом элементе управления. Свойство Caption (Заголовок) можно изменить, впечатав новый текст в соответствующее поле окна свойств. В случае элементов управления можно сначала щелкнуть на элементе управления в форме, чтобы выделить его, а затем щелкнуть на нем еще раз и редактировать заголовок прямо на элементе управления. (Не используйте при этом двойной щелчок - тогда откроется окно редактирования программного кода.)

Классическим примером модальной формы является обычное диалоговое окно: пока диалоговое окно открыто, вы не можете работать с другими частями программы; чтобы работать с другим окном или с самим документом, вы должны сначала закрыть диалоговое окно. Точно так же, когда активна модальная форма, в VBA могут выполняться только те процедуры, которые принадлежат этой форме. Форма может реагировать на события, но остальная часть программы остается "замороженной", равно как и само приложение, в котором выполняется программа, остается недоступным пользователю, пока эта форма не будет закрыта.

В VBA 6.3 (точно так же, как и в VBA 6) вы можете назначить любому диалоговому окну модальное или немодальное поведение. По умолчанию для соответствующего свойства ShowModal формы установлено значение True, и это значит, что форма будет модальной.

Если нужно обеспечить пользователю возможность переключаться от этой формы к другим открытым формам и обратно, выберите для этого свойства значение False. В этом случае ваша программа- та, которая отобразит немодальную форму, - продолжит активно выполняться и тогда, когда форма будет на экране.

Пользователи программы получают возможность перемещаться от формы к форме только тогда, когда все открытые в данный момент формы определены как немодальные.

Как только программа отобразит модальную форму, выполнение остальной части программы приостановится, пока пользователь не закроет эту форму. Если перед отображением модальной формы на экране присутствовали другие отображенные программой формы, эти формы останутся на экране видимыми, но их нельзя активизировать до тех пор, пока модальная форма не будет закрыта.

Хотя эта книга посвящена преимущественно VBA 6, если вы работаете с более ранними версиями VBA, вам следует знать, что в VBA 5 все формы модальны- свойства ShowModal у них нет.

Перед тем как приступить к более или менее серьезному проектированию форм, я считаю нужным сообщить вам, что, как и любая серьезная графическая программа, редактор Visual Basic имеет координатную сетку. Эта сетка составлена из воображаемых магнитных линий - вертикальных и горизонтальных. При перемещении или изменении размеров элементов в форме их стороны автоматически размещаются вдоль ближайшей линии сетки. Здесь я должен подчеркнуть, что сетка очень поможет в работе, если правильно выбрать ее параметры для разрабатываемого проекта.

Но вернемся к нашим баранам. Менять размеры форм и элементов управления совсем просто. Можно задать значения свойств Height (Высота) и Width (Ширина) в окне свойств, но еще проще захватить и перетаскивать один из маркеров изменения размеров объекта- один из маленьких квадратиков, появляющихся вокруг изображения объекта, когда последний выделен. Я понимаю, вы знаете, как изменять размеры объектов - любая программа в Windows (от Paint до чего угодно), позволяющая менять размеры графических объектов, использует именно этот метод. Но, на всякий случай, привожу формальное описание процедуры.

* Чтобы изменить размеры формы в одном измерении, перетащите нижний или правый боковой маркер.

* Чтобы изменить размеры формы в обоих измерениях, сразу перетащите угловой маркер.

Обратите внимание на то. что для изменения размеров годятся только белые маркеры, а большинство маркеров формы - черные. Черные маркеры не делают ничего, только выделяют саму форму. Форма в своем окне всегда привязана к верхнему левому углу окна, но не беспокойтесь - позиция формы на экране от этого совершенно не зависит.

Можно непосредственно задавать размеры формы или помещенных в нее элементов управления, меняя числовые значения свойств Height и Width в окне свойств, Значения в данном случае задаются в пунктах (пункт равен 1/72 дюйма).

Управление размещением формы на экране

Вы имеете полный контроль над тем, где именно на экране должна появляться форма при отображении ее программой (или при пробном запуске самой формы из окна редактора Visual Basic). Для этого предлагается использовать свойство StartUpPosition.

По умолчанию для этого свойства устанавливается значение 1-CenterOwner. Это значит, что форма должна появиться в центре окна VBA-приложения - независимо от его размеров и положения на экране (правда, если форма при этом частично оказывается за пределами экрана, то она придвинется своим краем вплотную к краю экрана, но никак не дальше).

Если нужно, чтобы форма всегда появлялась посередине экрана, независимо от того, где размещено окно VBA-приложения, выберите для свойства Start Up Position значение 2 Center Screen. Чтобы установить свои собственные значения, выберите 0 -Manual, а после этого задайте значения свойств Left (Левый край) и Тор (Верх).

Чтобы изменить положение элемента управления в форме, просто перетащите этот элемент управления туда, куда нужно. Если же вам нужна особая точность, напечатайте подходящие числовые значения для свойств Lef t (Левый край) и Тор (Верх).

Если вы хотите придать своим формам трехмерный вид, воспользуйтесь свойством Special Effect, имеющимся у форм и некоторых элементов управления. При выборе для этого свойства значения из раскрывающегося списка, отличного от 0 (соответствующего плоскому виду), объекту придается небольшая, но достаточно заметная глубина.

Перед тем как перейти к использованию профессиональных команд форматирования для элементов управления, давайте разберемся с основами. Мы уже обсудили выше, в разделе "Ключевые свойства форм", как менять размеры элементов управления и перемешать их с помощью мыши или посредством изменения значений свойств. В этом разделе мы рассмотрим другие простые приемы редактирования форм и элементов управления в них.

Как и все другие программы для Windows, редактор Visual Basic позволяет вырезать, копировать и вставлять элементы управления и по отдельности, и группами. При этом используются стандартные команды меню и стандартные комбинации клавиш. Кроме того, в вашем распоряжении кнопки Cut (Вырезать), Сору (Копировать) и Paste (Вставить) панели инструментов Standard (Стандартная) редактора Visual Basic. (Эти кнопки выглядят точно так же, как аналогичные кнопки в Microsoft Office.)

Из этих команд дополнительных пояснений требует только команда Paste. Когда вы вставляете элемент управления из буфера обмена, VBA помещает элемент управления в центр формы, даже если эта часть формы не видна на экране. Но если перед операцией вклеивания выбрать фрейм или форму с множеством страниц, элемент управления будет размещен в центре соответствующего объекта.

Один или несколько элементов управления можно удалить, не помещая их в буфер обмена, если нажать клавишу или выбрать Edit=Delete. Обратите внимание на то, что нажатие клавиши в данном случае не работает.

Можно выделить группу элементов управления, а затем перемещать их, менять размеры, вырезать или применять иные команды форматирования как к одному целому. Очень удобно таким образом одновременно устанавливать одинаковые значения общим свойствам элементов управления.

Для выделения сразу нескольких элементов управления используйте следующие приемы.

* Щелкните на пиктограмме стрелки в панели Toolbox и, перетаскивая указатель мыши, охватите прямоугольником выделения те элементы управления, которые нужно включить в группу выделенных. Если в прямоугольник выделения попадет хотя бы часть элемента управления, этот элемент управления окажется в группе выделенных.

* Щелкните на первом элементе управления в группе, а затем, нажав и удерживая клавишу , щелкните на элементе управления в противоположной части области выделения. В результате будут выделены все элементы управления, находящиеся между теми двумя, на которых вы щелкали.

* Щелкните на элементе управления, удерживая при этом нажатой клавишу . Элемент управления будет добавлен к группе выделенных или будет исключен из нее в зависимости от того, был во время щелчка элемент управления выделен или нет.

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

Обычно можно отменить результаты последней команды форматирования с помощью команды Undo (Отмена), вызываемой нажатием клавиш . Однако отмена не действует после изменения размеров формы, а также для изменений, выполненных в окне свойств.

Сетка - это разметка из вертикальных и горизонтальных линий, "нанесенных" на формы. Сетка выполняет следующие функции.

* Визуализация направляющих, вдоль которых размешаются элементы управления с помощью мыши. Направляющие линии проходят через точки, на которые вы наверное, обратили внимание при работе с формами.

* Автоматическое выравнивание элементов управления по линиям сетки при перемещении или изменении размеров элементов управления с помощью мыши. Независимо от вашего желания, при перемещении (или изменении размеров) элементов управления с помощью мыши стороны элементов управления "прилипают" к линиям сетки. Хотя это и ограничивает вас в гибкости, зато обеспечивает заметную согласованность при разметке формы.

Эти две функции работают независимо. Можно, например, сделать сетку невидимой, но оставить в силе автоматическое выравнивание или наоборот.

Чтобы установить параметры сетки, выберите Tools= Options из меню. В появившемся диалоговом окне Options (Параметры) щелкните на вкладке General (Общие), чтобы добраться до элементов управления, с помощью которых задаются параметры, о которых идет речь (рис. 10.5).

Рис. /0.5. Шаг сетки задается на вкладке General в диалоговом окне Options

В верхней левой части этого диалогового окна вы найдете несколько параметров, относящихся к сетке.

* Show Grid (Показывать сетку). Снимите этот флажок, если хотите, чтобы точек сетки на форме не стало. Состояние этого параметра не влияет на автоматическое выравни1 вание по линиям сетки.

* Width (Ширина) и Height (Высота). С помощью значений в этих полях текста задается шаг (т.е. расстояние между точками) сетки в вертикальном и горизонтальном направлениях соответственно.

* Align Controls to Grid (Выравнивать элементы управления по линиям сетки). Когда этот флажок отмечен, работает функция "прилипания" к линиям сетки. Сняв этот флажок, вы получите полную свободу в позиционировании и изменении размеров элементов управления. И повторяю, сетка может оставаться видимой, когда функция автоматического выравнивания отключена.

Форматирование элементов управления

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

К счастью, в VBA есть все средства для создания хорошо организованных форм. Причем, хотя для этого все еще нужна некоторая ручная работа, средства автоматического форматирования VBA позволяют автоматизировать значительную часть процесса.

Команды, которые относятся к размещению и позиционированию элементов управления в форме, находятся в меню Format (Формат) редактора

Visual Basic (рис. 10.6). Хорошее предварительное знакомство с пунктами этого меню и его многочисленных подменю сослужит вам хорошую службу во время проектирования формы.

Использование панели инструментов UserForm

При работе с формами в редакторе Visual Basic очень удобной оказывается панель инструментов UserForm. Если эта панель инструментов на экране не видна, отобразите ее, щелкнув правой кнопкой мыши в любой из видимых панелей инструментов и выбрав UserForm в появившемся меню. На рис. 10.7 панель инструментов UserForm показана как свободно перемещаемая панель.

Рис. 10,7. Панель инструментов UserForm предлагает кнопки для часто используемых команд форматирований элементов управления

Кнопки панели инструментов UserForm соответствуют пунктам меню Format. Некоторые из этих кнопок комбинированные - справа от них видны небольшие направленные вниз стрелки, раскрывающиеся в списки опций. Если щелкнуть на главной части такой кнопки.

VBA немедленно активизирует опцию, выбранную последней. Чтобы выбрать другую опцию, щелкните на маленькой стрелке и выберите опцию из появившегося списка.

Выбрать с помощью мыши сразу несколько элементов управления просто, но этот метод оказывается не идеальным в том случае, когда приходится постоянно работать с одним и тем же набором элементов управления как с отдельной единицей. Объединив все эти элементы управления в группу, вы избавляетесь от необходимости выбирать все эти элементы управления каждый раз, когда приходится с ними что-то делать, и тем самым исключаете возможные при таком выборе ошибки. На рис. 10.8 показаны примеры сгруппированных наборов элементов управления.

Рис. 10.8. Несколько групп элементов управления. Обратите внимание, что прямоугольники выделения охватывают все элементы управления в группе

Создать группу несложно.

1. Выделите все элементы управления, которые должны войти в группу.

2. Щелкните на кнопке Group (Сгруппировать) панели инструментов UserForm или выберите Format=Group из меню.

Группировка позволяет применять команды форматирования сразу ко всем элементам группы одновременно. Например, если необходимо выровнять расстояния между тремя рядами кнопок, сгруппируйте кнопки по рядам, выделите все три образовавшиеся группы и выберите Horizontal Spacing=Make Equal из меню (подробнее об этом - ниже в разделе "Выравнивание горизонтальных и вертикальных расстояний").

Хотя лучше всего не перекрывать одни элементы управления другими, это бывает необходимым, когда содержимое формы должно меняться в процессе выполнения программы.

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

Но в окне редактора Visual Basic все элементы управления всегда видимы - разве что какой-нибудь из них полностью закрыт другими элементами управления в форме. Если такое случилось, используйте команды Order (Упорядочить) из меню Format, чтобы переупорядочить элементы управления.

Вот рекомендации по поводу использования команд Order.

* Если можно добраться хотя бы до небольшого кусочка спрятанного элемента управления, щелкните на нем, чтобы выделить его, а затем выберите Format=Order=Bring to Front (Формат= Упорядочить= На передний план), чтобы элемент управления оказался поверх других.

* Если нужный вам элемент управления полностью закрыт другими элементами управления, выделите самый верхний из них и отправьте его под все остальные, выбрав Format=Order=Send to Back (Формат=Упорядочить=На задний план). Повторяйте эту операцию до тех пор, пока нужный вам элемент управления не окажется наверху.

* Если вы специально разместили элементы управления так, чтобы во время выполнения программы они пересекались, используйте команды Format=Order=Bring Forward (Формат=Упорядочить=Переместить вперед) и Format=Order=Bring Backward (Формат=Упорядочить=Переместить назад), чтобы разместить пересекающиеся элементы управления так, как вам нужно. Эти команды перемещают элемент управления в стопке на одну позицию вперед или назад.

Одновременное форматирование нескольких элементов управления

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

Нет, этот раздел не отступление от темы ради развлечения или каприза. Для некоторых команд форматирования, предназначенных для работы сразу с несколькими элементами управления, один из элементов управления служит отправной точкой для выполняемой команды. На жаргоне VBА такой элемент управления называется доминирующим элементом управления.

Когда используется команда Format=Make Same Size (Формат= Сделать одного размера), например, чтобы получить набор элементов управления одного размера, VBA копирует размеры (высоту, ширину или оба значения) доминирующего элемента управления для остальных выделенных элементов управления. То же самое происходит и для команды Align (Выровнять)- другие элементы управления выравниваются по доминирующему элементу управления, который остается на месте. Результат выполнения команд Horizontal Spacing

(Расстояние по горизонтали) и Vertical Spacing (Расстояние по вертикали) из меню Format тоже зависит от того, какой элемент управления доминирует.

На рис. 10.9 видно, что только у одного из выделенных элементов управления маркеры изменения размеров - белые. Это - доминирующий элемент управления, признаком которого как раз и служат белые маркеры. Другие выделенные элементы управления окружены черными маркерами.

Рис. 10.9. Элемент управления, вокруг которого видны белые маркеры изменения размеров, является доминирующим элементом управления

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

Выравнивание элементов управления

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

Вместо того чтобы исправлять это вручную, воспользуйтесь командами Align (Выровнять), которые сделают все за вас. Эти команды позволяют выставить на одной линии соответствующие стороны всех выделенных элементов управления как по горизонтали, так и по вертикали.

Чтобы выровнять несколько элементов управления, сделайте следующее.

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

2. Выберите Format=Align из меню, а затем конкретный тип выравнивания из появившегося подменю.

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

Три имеющиеся в меню Format команды Make Same Size (Сделать одного размера) автоматически приведут все выделенные элементы управления к размерам доминирующего элемента управления. Немедленное выравнивание размеров предусмотрено отдельно для ширины и высоты, а также для обеих этих характеристик сразу. Эти три команды присутствуют также в раскрывающемся меню соответствующей кнопки панели инструментов UserForm.

С помощью команд Horizontal Spacing (Расстояние по горизонтали) и Vertical Spacing (Расстояние по вертикали) из меню Format можно менять расстояния между выделенными элементами управления, причем четырьмя вариантами на выбор. Из них три варианта оказываются весьма полезными, а один из этих трех доступен только тогда, когда выделено не меньше трех элементов управления. Вот как эти варианты работают.

* Make Equal (Сделать одинаковыми). Выравнивает расстояния между выделенными элементами управления (число последних должно быть не менее трех). Крайние элементы управления остаются на месте, а элементы управления между ними сдвигаютk ся. Если элементов управления только два, команда работать не будет.

* Increase (Увеличить) и Decrease (Уменьшить). Увеличивает или уменьшает расстояния между выделенными элементами управления на величину, соответствующую одному шагу сетки в выбранном вами направлении. Доминирующий элемент управления остается на месте, а остальные сдвигаются.

* Remove (Удалить). Сдвигает элементы управления так, что между ними не остается просвета и их стороны касаются одна другой. Доминирующий элемент управления остается на месте.

Использование свойств Enabled и Locked

Два свойства Enabled и Locked управляют тем, будут ли элементы управления или вся форма доступны пользователю. Очевидно, вы захотите получить полный доступ к элементам управления, находящимся в форме. В противном случае возникает вопрос, зачем же они тогда находятся в форме? Однако иногда элементы управления для вас недоступны. Очень часто элементы управления находятся в форме, однако в данный момент они окрашены в серый цвет. Это говорит о том, что использовать сейчас их нельзя. Например, если в текстовом процессоре не выделен какой-нибудь фрагмент текста, команда Cut (Вырезать) не доступна, так как вырезать нечего.

Свойство Enabled определяет, будет ли элемент управления или форма, находящиеся в фокусе, реагировать на движение мыши или нажатие клавиши на клавиатуре. В фокусе Windows может находиться только один объект. Для того чтобы показать, что данный объект находится в фокусе, Windows размещает вокруг данного элемента управления пунктирные границы.

Когда свойство Enabled равно True, элемент управления появляется обычным образом и может находиться в фокусе. Когда свойство Enabled равно False, Windows отображает на экране неактивную (серую) версию этого элемента управления, который не может находиться в фокусе (рис. 10.10).

Рис. 10.10. В этом диалоговом окне есть активные и неактивные переключатели и кнопки, а также неактивное текстовое поле

Свойство Locked определяет, что выполняет элемент управления. Если свойство Locked равно True, можно щелкать на элементе управления, использовать любые комбинации клавиш, бросать в него камнями, но элемент управления ничего не будет делать (обратитесь к разделу "Назначение быстрых клавиш" дальше в настоящей главе). Однако если свойство Enabled равно True, элемент управления будет находиться в фокусе и нормально выглядеть.

Настройка порядка перехода по нажатию клавиши табуляции

К наиболее интересным особенностям Windows можно отнести то, что при нажатии клавиши фокус перемещается с одного элемента управления на другое. При этом элементы управления выделяются после нажатия клавиши . (Для того чтобы перемещаться в обратном порядке, воспользуйтесь комбинацией клавиш .)

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

Переход по клавише табуляции основан на порядке, в котором элементы управления добавлялись в форму. Можно добавить элементы управления и затем удалить ненужные.

А что делать для того, чтобы перейти от одного элемента управления к другому? Обычно для этого используются кнопки для перемещения влево и вправо, а также вверх и вниз, однако иногда элементы управления можно пропустить. Проще всего изменить порядок расположения элементов управления, выполнив View=Tab Order (Вид=Порядок вкладок). На экране появится небольшое диалоговое окно, показанное на рис. 10.11. Для того чтобы переместить элементы управления в списке, находящемся в данном диалоговом окне, щелкните на элементе управления, который необходимо переместить, после чего щелкните на кнопке Move Up (Вверх) или Move Down (Вниз).

Рис. 10.11. Используйте диалоговое окно Tab Order для того, чтобы контролировать, как пользователи перемещаются по форме VBA с помощью клавиатуры

Порядок размещения элементов управления контролируется с помощью свойства TabIndex. Значение свойства TabIndex равно 0 для первого элемента управления, 1 - для второго элемента управления и т.д. Как только вы измените значение этого свойства, VBA автоматически изменит и другие значения.

Для того чтобы удалить элемент управления из списка, установите значение TabIndex, равное False. Это не изменит расположение элемента управления. Если вы снова установите значение свойства TabIndex. равное True, элемент управления появится там же, где и раньше.

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

Для того чтобы назначить клавиши, введите один символ в поле Accelerator (Клавиша) в диалоговом окне Properties (Свойства). В заголовке элемента управления должен быть один символ. Также в одной и той же форме не должны указываться одни и те же клавиши для различных элементов управления. VBA автоматически подчеркнет быструю клавишу.

Для того чтобы добавить быструю клавишу для элемента управления, которое не имеет свойства Caption, такого как текстовое поле или полоса прокрутки, выполните следующее.

1. Создайте метку для элемента управления.

О метках я поговорю в следующем разделе.

2. Настройте порядок расположения таким образом, чтобы метка находилась перед другими элементами управления.

3. Назначьте быстрые клавиши для метки.

Теперь после того, как пользователь воспользуется быстрой клавишей, фокус переместится на следующее за меткой элемента управления. На рис. 10.12 показана форма, которая использует эту технику.

Рис 10.12. Если вы воспользуетесь комбинацией клавиш , фокус переместится в поле, в котором можно ввести имя своего любимого животного

Надписи предоставляют прямоугольную область в форме, в которой можно ввести сообщения. С точки зрения пользователя программы, надпись - это не элемент управления; она не позволяет пользователю что-либо контролировать. Надписи представляют собой текст или рисунок. Пользователь не может изменить существующий текст или скопировать его в буфер обмена.

Таким образом, для программиста надписи важны, так как они позволяют создавать сообщения для общения с пользователями. Обычно элементы используются для идентификации элементов управления и их функций. Подобный пример приведен на рис. 10.13. Это особенно полезно для элементов управления без подписей, таких как полоса прокрутки или счетчики.

Рис. 10.13. Элементы управления заголовками в верхней части данной формы устанавливают функцию для каждой полосы прокрутки

Элемент может выглядеть как стандартное текстовое поле и не позволяет пользователю копировать содержащийся в нем текст. Установите свойство элемента управления заголовками Special Effect равным 2 (для sunken) и свойство BackColor - белый.

Ввод элементов управления текстом

Элементы управления отображают текст, который называется заголовком. Для того чтобы разместить свой собственный текст на элементе управления, измените текст в свойстве Caption в окне Properties (Свойства). Также можно изменить текст прямо в элементе управления, для чего дважды щелкните на нем. После этого рядом с текстом появится курсор. Для того чтобы перейти на новую строку, воспользуйтесь комбинацией клавиш .

Элементы управления могут автоматически настраивать себя, изменяя содержащийся в них текст. Для этого необходимо изменить параметры в окне Properties (Свойства). На рис. 10.14 показан пример работы этих свойств. Например, можно выполнить следующее.

* Оставьте значение свойства Wordwrap равным True (no умолчанию), если вы хотите, чтобы VBA автоматически разделял текст на отдельные строки и размешал их в пустом пространстве, как это делает любой текстовый процессор. Если вы установите значение свойства Wordwrap равным False, все заголовки текста останутся в одной строке.

* Установите значение свойства AutoSize равным True, если вы хотите, чтобы разf мер элемента управления изменялся автоматически. Если значение свойства WordWrap будет также равно True, элементы управления размещаются вертикально. Если изменить значение свойства Wordwrap на False, элементы управления увеличатся таким образом, что займут одну строку.

* Используйте свойство Text Align для того, чтобы контролировать, каким образом текст располагается внутри элемента - слева, в центре или справа.

Рис. 10.14. Элементы управления, содержащиеся в данной форме, демонстрируют различные параметры свойств WordWrap И AutoSize

Автоматическое изменение бывает полезно, однако иногда это приводит к проблемам. Как только элемент управления увеличится, он может стать непропорциональным другим элементам формы. Точнее, элемент может быть слишком велик. Это приводит к тому, что он закроет другие элементы формы или выйдет за границы формы. Если вы используете автоматическое изменение размера, необходимо внимательно следить за тем, чтобы текст на элементах управления никогда не был слишком большим.

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

Ниже показано, как это сделать:

LbllnspirationalMessage.Caption = "Laugh and be happy!"

Для того чтобы в элементе управления текстом сделать обрыв строки, используйте строковый литерал, связанный с символом возврата каретки в операторе присвоения. (Более подробная информация об объединении текста содержится в главе 11.)

Сбор информации с помощью текстовых полей

Когда необходимо собрать информацию о пользователе, используется текстовое поле.

Ваш код может извлекать все, что пользователь введет в данное текстовое поле. На рис. 10.15 показано подобное текстовое поле.

Рис. 10.15. Большое белое поле в центре данной формы является текстовым полем, в котором ктото ввел сообщение

Если вы попытаетесь создать диалоговое окно со всего одним текстовым полем для ввода информации о пользователе, вероятнее всего, вам не нужна вся форма. Вместо этого можно воспользоваться функцией Input Box (подробнее о ней я расскажу в главе 11). Элементы управления текстовым полем можно использовать вместо функции Input Box в следующих случаях.

* Вам необходимо сделать красивое или отвратительное диалоговое окно. В этом случае функцию Input Box использовать нельзя.

* Вам необходимо, чтобы в одном диалоговом окне, кроме текстового поля, находился еще один элемент управления.

* Вы хотите проверять правильность содержимого поля, когда пользователь вводит текст.

Используя текстовое поле, можно сделать программу с процедурой обработки событий, которая будет выполняться всякий раз, как пользователь нажмет любую клавишу на клавиатуре. При этом проверяется, соответствует ли нажатая клавиша установленным вами критериям. Используя функцию Input Box, вы можете только проверять содержимое и только после того, как пользователь закроет текстовое поле.

В текстовом поле можно разместить стандартный текст. При этом пользователю не придется вводить данные в текстовом поле, если содержащаяся в нем информация подходит для него. Для того чтобы ввести в текстовое поле стандартный текст, щелкните один раз в текстовом поле, выделив его, После этого повторно (но не два раза) щелкните в текстовом поле для того, чтобы перейти в режим ввода текста. Затем вводите текст. Также можно ввести текст в поле свойств Value в окне Properties Value (Свойства). (Запомните: текстовые поля не имеют заголовков.)

В действительности текстовое поле имеет как свойство Value, так и свойства Text. Оба эти свойства одинаковы для текстовых полей, однако многие другие элементы управления, такие как кнопки и полосы прокрутки, имеют только свойство Value, но не имеют свойства Text. Так как свойства Value и Text функционально одинаковы для текстовых полей, они равноценны. Я использую свойство Value только потому, что мне легче запомнить его параметры, а также потому, что многие другие элементы управления имеют это же свойство.

Для того чтобы обсудить использование свойства Value (или Text) на примерах, ознакомьтесь с разделами "Извлечение информации, введенной пользователем" и "Использование стандартных свойств элемента управления" ниже в настоящей главе.

Извлечение информации, введенной пользователем

Для того чтобы выяснить, какой текст ввел пользователь в текстовом поле, программа должна извлекать свойства Value или Text. Обычно вы должны назначить свойства для строковой переменной с оператором, как показано ниже:

strText BoxText = txtMessageFromUser.Value

После запуска программы переменная strText BoxText теперь содержит любой тип пользователя в текстовом поле, которое называется xt MessageFromUser.

Использование стандартных свойств элемента управления

Многие элементы управления обладают стандартными свойствами, к которым относится свойство Value.

В случае текстового поля вы не должны явно указывать, какое свойство используется - Value или Text - для настройки и извлечения содержимого текстового поля в коде VBA.

Поскольку свойство Value является стандартным свойством текстового поля, можно его пропустить. Следующая инструкция размещает сообщение в текстовом поле:

txtRUListening = "Do as I say!"

В данном примере в текстовом поле размешается текст, который пользователь ввел в строковой переменной:

strWhatHeard = txtSoundOffTextBox

Создание автоматически изменяющихся текстовых полей

Текстовые поля имеют те же свойства AutoSize, Wordwrap и Text Align, что и элементы управления. Работают они почти так же. Более подробная информация об этих свойствах содержится в разделе "Отправка сообщений с надписями" раньше в настоящей главе. Однако свойство Wordwrap работает только в текстовых полях, состоящих из нескольких строк, о чем я расскажу в главе 19, "Еще о VBA-формах".

Использование кнопок

Если вы хотите что-либо сделать, и сделать именно сейчас, проще всего нажать кнопку и получить немедленный результат. Кнопки создают ощущение власти над программой.

Стандартная кнопка представляет собой серый объект, на котором находится поясняющий текст, например OK, Cancel или Guess Again, Friend. Если простой текст оскорбляет ваш изысканный вкус, на кнопку можно поместить небольшое изображение. Для того чтобы сделать это, в окне Properties (Свойства) в поле свойства Picture щелкните на небольшой кнопке, на которой изображены три точки. Вы получите доступ к диалоговому окну, которое позволит указать файл с рисунком. На рис. 10.16 показаны различные кнопки.

Рис. 10.16. Кнопки могут быть различного размера, формы и формата. На двух кнопках, расположенных в нижнем левом углу, вместо текста находятся рисунки

К сожалению, кнопки ничего не будут делать, если о них ничего не сказано в программе. Щелчком на кнопке вызывается событие Click, однако вы должны написать код для того, чтобы сказать VBA, какое действие должно произойти, когда происходит событие.

Выбор стандартных кнопок

В основной части диалоговых окон нажатие клавиши приводит к нажатию кнопки. Эта кнопка является стандартной кнопкой, так как именно она реагирует на нажатие клавиши , за исключением случая, когда фокус переместился на другой элемент управления.

Для того чтобы назначить кнопку стандартной кнопкой в форме, установите значение свойства Default равным True. Конечно, в форме может быть только одна стандартная кнопка.

Если диалоговое окно позволяет изменить данные или параметры настройки, неплохо было бы предоставить пользователю возможность отмены внесенных изменений. По договоренности, кнопка, предназначенная для отмены сделанных изменения, называется Cancel (Отменить). Если вы не придерживаетесь принятых обозначений, можно назвать эту кнопку 'Never mind" или "Forget it". Независимо от того, что именно написано на данной кнопке, она предназначена для отмены предыдущих операций.

Также по договоренности, после нажатия клавиши любое диалоговое окно закрывается, как будто пользователь щелкнул на кнопке, на которой написано Cancel (Отменить) (или что-либо другое). Если свойство кнопки Cancel равно True, это означает, что после нажатия клавиши программа будет вести себя так, как будто вы щелкнули на кнопке Cancel (Отменить).

Если свойство Cancel равно True, это автоматически не означает, что после щелчка на кнопке диалоговое окно будет закрыто. Это связывает клавишу с событием кнопки Click.

Рамка - это очень важный элемент форм VBA и представляет собой простой прямоугольник с заголовком в верхней части. В рамке можно разместить другие элементы управления.

Рамки служит для следующих двух целей.

* Для визуального выделения группы связанных элементов управления. Это помогает понять пользователю, что эти элементы управления связаны. Также рамки позволяют разделить большие формы на несколько участков (рис. 10.17).

* Для выделения группы кнопок, из которых пользователь должен выбрать только одну.

Рис. 10.17. В данной форме используется три различные рамки для упорядочения групп кнопок

В разделе "Выбор элемента с помощью переключателя", дальше в настоящей главе, я подробно рассматриваю использование рамок. В данном разделе я коснусь основ - использования рамок для организации всех типов элементов управления.

Как только вы добавите рамку в форму, размещение любых других элементов управления в рамке свяжет их и рамку. Теперь при перемещении рамки элементы управления переместятся вместе с ней. При этом они будут занимать те же места в рамке, что и раньше.

Добавить элемент управления в рамку можно следующим образом.

* Нарисовать новый элемент управления в рамке. Создание нового элемента управления происходит обычным образом. Для этого необходимо щелкнуть на соответствующем значке в панели инструментов и затем перетянуть его на то место в форме, на котором он будет находится. В нашем случае - в рамку.

* Переместить существующий элемент управления в рамку. Перетягивайте элемент управления с помощью мыши до тех пор, пока указатель мыши не окажется в рамке. Как только вы отпустите кнопку мыши, элемент управления окажется в рамке.

После того как вы разместите элемент управления в рамке, границы рамки станут выделенными, как будто выбран данный элемент управления (рис. 10.18).

Рис. 1018. После того как вы выберете элемент управления, связанный с рамкой, данная рамка тоже будет выглядеть выбранной

Для того чтобы разорвать связь между элементом управления и рамкой, достаточно просто перетянуть данный элемент управления в другое место формы. Как только указатель мыши окажется вне границ рамки, отпустите кнопку мыши. При этом связь между элементом управления и рамкой будет разорвана, а сам элемент управления окажется в другом месте.

Теперь оба объекта (форма и элемент управления) можно перемешать отдельно.

Выбор элемента с помощью переключателя

Как в жизни, так и в программном обеспечении, есть много взаимоисключающих вариантов. Покупая мороженое, вы выбираете либо с изюмом, либо с орехами, либо в фруктами, но никогда не все три сразу. Покупая платье или брюки, вы всегда покупаете только те вещи, которые подходят вам по размеру. А когда вы собираетесь жениться на Анне, о других претендентках вы не думаете (Анна должна этому радоваться!).

В Windows для изображения взаимно исключающих вариантов выбора используются так называемые переключатели. Это небольшие круглые кнопки, которые работают как нажимные кнопки на радиоприемниках в автомобилях. Одновременно можно слушать только одну радиостанцию. На рис. 10.19 показан типичный набор переключателей.

Рис. 10.19. Переключатели в действии

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

Не беспокойтесь о том, как создать группу переключателей. Все, что вам необходимо сделать, - это разместить кнопки в одном месте в форме. VBA автоматически объединит их в группу. При запуске программы будет выбран только один переключатель.

А что это за странные слова: переключатели должны быть размещены "в одном месте формы"? Конечно, это не официальная терминология VBA, но можно сказать следующее: одна часть формы является самой формой. Каждая добавленная вами рамка элемента управления создаст другую часть формы. И каждая вкладка элемента управления, состоящего из нескольких вкладок, также является отдельной частью формы (о элементах управления, состоящих из нескольких вкладок, которые создаются для ноутбуков и которые похожи на обычные диалоговые окна Windows, я расскажу в главе 19). Можно разместить рамку внутри другой рамки или на вкладке элемента управления, состоящего из нескольких вкладок. Каждая вложенная рамка занимает свою часть формы.

Если в форме есть несколько рамок, VBA рассматривает переключатели, которые не находятся внутри любой рамки, как одну группу, а переключатели, находящиеся в рамке, - как отдельную группу. На рис. 10.20 видно, что я имею в виду.

Рис. 10.20. Три отдельные группы переключателей

Для того чтобы выбрать переключатель, достаточно просто щелкнуть на нем. Однако обычно после выбора переключателя немедленно ничего не происходит. Диалоговое окно останется открытым. Это позволит пользователю еще раз подумать и, может быть, выбрать другой переключатель. И только после того, как пользователь щелкнет на кнопке ОК, он подтвердит свой выбор.

Перед программистом стоит задача: как понять, какой переключатель выбран? Для этого вы должны проверить значение свойства Va l ue для каждого переключателя в группе. Правда, есть способ обойти это. Для этого можно воспользоваться инструкцией If. . .ElseIf:

If OptionEuttonl.Value = True Then
            ChosenOption = "Bill"
ElseIf OptionButton2.Value = True Then
            ChosenOption = "Bob"
ElseIf OptionButton3.Value = True Then
            ChosenOption = "Barney"
Else
            ChosenOption = ""
End If

Переключатели полезны, когда приходится иметь дело с большим количеством взаимоисключающих вариантов. Однако, когда необходимо выбрать несколько вариантов, лучше воспользоваться флажками или кнопками с фиксацией. Флажки и кнопки с фиксацией используются для выбора одного из пары противоположных вариантов, например Yes (Да) или No (Нет). On или Off, True или False и Stay или Leave. На практике отличие между флажком и кнопкой с фиксацией состоит в том, как они выглядят.

* Флажок - это маленький квадратик, в котором появляется галочка, если выбран параметр Yes, On или True. (Если квадратик пустой, значит флажок сброшен.)

* Кнопка с фиксацией похожа на обычную кнопку. Единственное отличие состоит в том, что, когда вы щелкаете на ней, она остается нажатой.

На рис. 10.21 показаны несколько флажков и кнопок с фиксацией.

Рис. 10.21. Флажки и кнопки с фиксацией

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

Обратите внимание на то, что каждый отдельный флажок показывает, выбран ли элемент, возле которого он установлен.

Рис. 10.22. Устанавливать и сбрасывать флажки можно независимо

Как обычно, свойство Value содержит информацию, относящуюся к выбору параметров пользователем. Если флажок установлен, свойство Value равно True, если флажок сброшен, свойство Value равно False. Такая же ситуация и с кнопками с фиксацией: свойство Value равно True; если кнопка нажата. В противном случае свойство Value равно False. Для выбора параметров можно воспользоваться следующим кодом:

If tglLightSwitch.Value = True Then
            TurnLightOff
Else
            TurnLightsOff
End If
[ не всегда код автора безупречен…
If tglLightSwitch.Value = True Then
аналогичен
If tglLightSwitch.Value Then
w_cat ]

Если вы просто хотите изменить текущее состояние флажка или кнопки с фиксацией, лучше всего воспользоваться оператором Not. В следующем коде флажок устанавливается, если он был сброшен, и сбрасывается, если он был установлен:

ChkYesOrNo.Value = Not chkYesOrNo.Value

Выбор параметров из списка и комбинированных окон

Если вы предполагаете, что для элемента может быть четыре-пять взаимоисключающих вариантов выбора, созданное вами диалоговое окно будет слишком загроможденным, ведь в нем может быть 10 -12 флажков. Пользователь может устанавливать флажки в зависимости от собственных предпочтений. Но из-за такого количества элементов в форме станет слишком тесно.

Список- это возможность, предоставляемая Windows для решения многих проблем.

В списке содержится перечень параметров, которые пользователь может выбрать (рис. 10.23).

Рис. 10.23. В данной форме в верхней части располагается список, а в нижней - комбинированное окно

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

Комбинированный список объединяет в себе достоинства простого списка и текстового поля.

Пользователь может выбрать необходимый элемент из списка, а если такового не окажется в списке, ввести его. Основное отличие между списком и комбинированным списком заключается в следующем: для того чтобы раскрыть весь комбинированный список, необходимо щелкнуть на кнопке, на которой изображен треугольник. Скорее всего, вы знакомы с комбинированными списками, но посмотрите на рис. 10.24, чтобы вспомнить, как он выглядит.

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

Узнав, что такое список, не пользуйтесь им

Я советую использовать комбинированные списки для контроля всех параметров, которые содержатся в списке, независимо от того, вводит или нет пользователь текст, которого нет в данном списке. Забудьте о простых списках.

И вот почему: простой список VBA не может отображать элементы в виде раскрывающегося списка, Вместо этого вы имеете дело с списком, в котором перечислены все доступные варианты выбора сразу. Это не всегда удобно, так как, если в списке слишком много элементов, он займет слишком большую часть формы. Если элементов в списке немного, лучше воспользоваться переключателями или флажками.

В то же время комбинированные списки более компактные, так как они всегда занимают только одну строку. Для того чтобы комбинированный список превратился в обычный простой список, достаточно установить значение свойства Style равным 2

(f mStyleDropDownList). А теперь подумайте: стоит ли мучиться со списками?

Теперь пришла очередь самого трудного. Окно Properties (Свойства) нельзя использовать для ввода вариантов выбора, которые должны находиться в списке или комбинированном списке. Вместо этого вы должны написать код для метода AddItem элемента управления или связать элемент управления с источником данных (он представляет собой электронную таблицу Excel или базу данных Access).

Для того чтобы создать список прямо в коде, используется соответствующая процедура для события Activate данной формы. Она должна содержать несколько инструкций, которые похожи на приведенный ниже пример:

Private Sub UserForm_Activate()
        cmbOptionPol l.AddItem "Over population"
        cmbOptionPol l.AddItem "Global warming"
        cmbOptionPol l.AddItem "No time to smell the roses"
        cmbOptionPol l.AddItem "No roses to smell"
        cmbOptionPol l.AddItem "Taxes on the rich too high"
        cmbOptionPol l.AddItem "Too many social services"
        cmbOptionPol l.AddItem "Inadequate social services"
        cmbOptionPol l.AddItem "HMOs"
End Sub

Технические подробности размещения элементов из базы данных в списке или комбинированном списке выходят за пределы данной книги, однако вы должны знать, что это возможно.

Для того чтобы найти элемент, который пользователь выбрал или ввел в списке или комбинированном списке, используйте свойство объекта Value в коде. Назначьте свойству соответствующую переменную, как показано ниже: strOption = cmbOptionFoll.Value

Покажите то, что имеете!

Решив добавить в свою VBA-программу пользовательские формы, вы неизбежно столкнетесь с необходимостью показать эти формы на экране. Иначе зачем эти, пусть даже самые лучшие в мире, формы нужны, если их никто не увидит?

Из-за того, что VBA-программа может при необходимости пользоваться интерфейсом содержащего ее приложения, программа не отображает никакую из ее форм автоматически. В этом отношении VBA отличается от своего собрата Visual Basic, где программа по сути является формой.

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

Загрузка и отображение форм

Процесс отображения формы в VBA состоит из двух шагов;

* загрузка формы в память;

* отображение формы на экране.

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

Отображение форм осуществляется методом Show. Например, если именем формы является FormICa, то нужно просто напечатать:

FormICa.Show

Заметьте, что Show - это метод объекта Us er Form, поэтому метод добавляется к имени формы после точки-разделителя. Если указанная форма еще не загружена в память, метод Show сначала загрузит форму, а потом сделает ее видимой.

Чтобы загрузить форму в память перед отображением, используйте оператор Load. Load - это не метод, поэтому в данном случае синтаксис другой (по сравнению с использованием Show):

Load ФормАльДеГид

Зачем загружать форму, не отображая ее? Загрузка формы происходит намного дольше, чем ее отображение. Программа любой сложности выполняет немало процедур инициализации (типа чтения данных из файлов, вычисления начальных значений переменных и создания объектов), поэтому при запуске программы некоторая задержка весьма привычна. Если в это время вы загрузите и свои формы, пользователь отнесется к задержке благосклоннее, чем к такой же задержке во время работы программы. Единственный недостаток предварительной загрузки форм заключается в том, что для них нужна память, которая могла бы использоваться для других целей.

Можно загрузить форму и без оператора Load, выполнив оператор, в котором вызывается свойство либо метод формы или любого из помещенных в нее элементов управления. При этом можно вносить в форму изменения перед тем, как она отображается на экране, Хотя окно свойств редактора Visual Basic позволяет безо всякого программирования управлять тем, как форма будет выглядеть и вести себя на экране, здесь нужно отметить следующее: часто вообще нельзя узнать, как должна выглядеть и что должна делать форма (или ее элементы управления), пока программа не начнет выполняться.

Предположим, например, что в заголовке формы должны отображаться текущие дата и время. Вы не можете предугадать, когда именно пользователь запустит вашу программу, поэтому вам придется поручить VBA указать дату и время за вас. Это можно сделать, например, так:

Sub DisplayDateCaptionedForm()
        DateCaptionedForm.Caption = Now
        DateCaptionedForm.Show
End Sub

Аналогично можно заставить надпись или текстовое поле формы отображать информацию о том, что в данный момент выделено в VBA-приложении. На рис. 10.24 показано то, что можно увидеть в результате выполнения следующей процедуры VBA, связанной с подходящей формой в Visio:

Sub DisplayShowSelectionForm()
        Dim ItemCount As integer, Message As String
        Items = ActiveWindow.Selection.Count
        Message = "Выделено объектов: " & CStr(Items) S "."
        ShowSelectionForm.lblCountOfItems.Caption = Message
        ShowSelectionForm.Show
End Sub

Рис. 10.24. В этой программе содержание текста надписи выясняется непосредственно перед отображением формы

Обратите внимание на строку программного кода, в которой изменяется свойство элемента управления "'надпись" в форме:

ShowSelectionForm.lblCountOfItems.Caption = Message

Технически невозможно получить доступ к свойству или методу формы до тех пор, пока форма не будет загружена, Однако вам не нужно писать для этого явный оператор. VBA автоматически загружает форму, как только потребуется выполнить оператор, ссылающийся на одно из ее свойств или на один из ее методов. Ссылка на свойство или метод любого из элементов управления в форме порождает тот же эффект.

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

Но, как говорится, содрать с капусты листья можно многими способами. В нашем случае есть варианты- события Initialize (Инициализация) и Activate (Активизация) формы.

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

* Используйте событие Initialize для программного кода, который должен выполняться только при первой загрузке формы.

* Используйте событие Activate для программного кода, который должен выполняться при каждом отображении формы на экране (включая и первое отображение).

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

Используйте метод Hide (Скрыть), чтобы закрыть форму и таким образом получить возможность вернуться в документ VBA-приложения или активизировать другую форму. Это делается следующим оператором:

FormErly.Hide

Правда, метод Hide можно использовать не в любом месте программы. Если форма модальная, метод Hide нужно поместить в процедуру обработки события, принадлежащую самой форме.

Как упоминалось раньше в настоящей главе, если открыта модальная форма, выполняться могут только процедуры, связанные с этой формой.

И кстати, при вызове метода Hide в процедуре обработки события, принадлежащей этой форме, имя формы указывать не требуется - VBA достаточно сообразителен, чтобы понять, что в данном случае метод Hide принадлежит именно этой форме. Поэтому в процедуре обработки события, принадлежащей форме, можно просто напечатать Hide и эта форма исчезнет.

Чаше всего оператор Hide размещают в конце процедуры обработки события Click (Щелчок) для КНОПОК ОК, Отмена или Закрыть. Примеры вы найдете ниже, в разделах

"Добавление кнопок Закрыть и Отмена" и "Программирование кнопки ОК".

Скрытая форма не удаляется из памяти, вы сможете отобразить ее снова без лишних задержек с помощью метода Show в любое время.

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

Как и для загрузки формы, для выгрузки формы из памяти используется не метод, я оператор Unload Formation.

Выгрузка формы удаляет ее и с экрана, если до этого форма была видима.

Если известно, что форма больше в программе не понадобится, замените метод Hide в процедурах обработки событий формы на оператор Unload. В этом случае оператор Unload Me эквивалентен оператору Unload имя_формы, поскольку ключевое слово Me представляет текущую форму.

Однако, в отличие от метода Hide, оператор Unload применим и к модальным формам, которые не присутствуют на экране. С помощью оператора Unl oad, размещенного в главной части программы (т.е. в процедуре, не связанной с формами), можно выгружать любые формы, в том числе и скрытые модальные формы.

Главные события

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

После каждого нажатия клавиши, перемещения мыши или щелчка на кнопке генерируется программное событие. Ваша программа регистрирует каждое такое событие и проверяет, не содержит ли программный код формы процедуру, связанную с этим событием. Если подходящей процедуры нет, событие пройдет для программы бесследно. Но если форма имеет процедуру, соответствующую событию, то программа сразу же оживет и честно выполнит эту процедуру.

Процедура обработки события может делать все, что и любая другая процедура: вычислять значения переменных, манипулировать свойствами и методами объектов, загружать и отображать другие формы. После завершения выполнения процедуры обработки события контроль возвращается к форме. Программа перейдет в состояние ожидания следующего события.

Формы VBA и элементы управления в них могут распознавать самые различные события. (На жаргоне VBA, когда говорится, что объект "имеет" события, подразумевается, что объект может регистрировать и распознавать эти события.) У форм и элементов управления есть одинаковые события, но набор событий каждого объекта индивидуален. Часто встречающиеся события приведены в табл. 10.1.

Таблица 10.1. Избранные события форм и элементов управления

Программирование обработки событий

Как видно из табл. 10.1, формы и элементы управления могут отвечать на многие события. Но когда форма действительно отвечает на какое-нибудь конкретное событие? Только тогда, когда она имеет соответствующую процедуру для этого события. Процедуры обработки событий должны быть кем-то созданы - в данном случае вами.

Создание процедуры обработки события не отличается от создания любой другой процедуры в VBA. Нужно только знать, куда поместить соответствующие операторы. Программный код для процедуры обработки события, как и весь остальной связанный с формой программный кол, в редакторе Visual Basic размешается в окне программного кода этой формы.

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

1. Откройте окно программного кода формы.

Двойной щелчок на форме или любом ее элементе управления - самый короткий путь для этого. Иначе можно выделить форму и выбрать View=Code из контекстного (вызываемого щелчком правой кнопки мыши) меню для формы или элемента управления, с которыми вы собираетесь работать, или же нажать , когда форма выделена в ее окне UserForm.

2. В окне программного кода формы выберите объект, для которого вы хотите создать процедуру обработки события.

Объект выбирается из раскрывающегося списка объектов вверху слева в окне программного кода формы (рис. 10.25).

3. Выберите событие, для которого нужно создать программный код.

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

Рис. 10.25. Выбор элемента управления в окне программного кода формы перед началом создания процедуры обработки события

Как только из раскрывающегося списка процедур будет выбрано событие, VBA немедленно перенесет вас прямо к процедуре его обработки. Если для события еще не создано никакого программного кода, VBA создаст для вас заготовку процедуры, разместив курсор ввода в пустой строке между оператором объявления процедуры и ее завершающим оператором (см. рис. 10.25). Если процедура обработки события уже содержит программный код, VBA просто поместит курсор ввода в его первую строку.

Вам не стоит беспокоиться об объявлении процедур, так как VBA делает это автоматически, когда вы выбираете событие в окне программного кода

Рис. 10.26 Только что созданная заготовка процедуры обработки события в окне редактора Visual Basic

Как влдно из рис. 10.26, синтаксис процедур обработки событий не отличается от синтаксиса обычных процедур типа Sub. Единственное, что отличает процедуру обработки события, так это ее имя. Чтобы процедура обработки события вообще функционировала, ее имя должно состоять из имени объекта (формы или элемента управления), за которым следуют символ подчеркивания и официальное имя события VBA. Посмотрите на следующие примеры:

Private Sub cmdCalcuiateSquareRoot_Click()
End Sub
Private Sub UserForm_Activate()
End Sub
Private Sub sclVolumeControl_Change ()
End Sub

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

Например, предположим, что вы создали процедуру обработки события Click (Щелчок) для кнопки, которой было автоматически присвоено имя CommandButtonl. Тогда именем процедуры будет CommandButtonl_Click. Спохватившись, вы изменили имя кнопки на более информативное, например cmdВернутьИзКорзины. Но после этого, до тех пор пока вы не измените оригинальное имя процедуры на cmdВернутьИзКорзины_Сliск, соответствующая кнопка во время выполнения будет просто торчать в форме тихо и безответно, независимо от того, сколько раз вы на ней щелкнете.

Поскольку при изменении имени кнопки VBA не удаляет соответствующие этой кнопке процедуры, вам не нужно создавать процедуру вновь, а нужно только изменить ее имя. Можно сделать и по-другому: начать новую процедуру обработки события для кнопки, а затем с помощью команд Cut (Вырезать) и Paste (Вставить) перенести программный код из оригинальной процедуры в новую.

Когда не нужно создавать процедур обработки события Click

Большинство элементов управления VBA распознают событие Click. Но, за исключением кнопок, обычно нет необходимости и даже неразумно создавать процедуру обработки события Click, даже если нужно, чтобы объект отвечал на щелчки кнопки мыши. Причина в том, что эти элементы управления отвечают на щелчки автоматически и обычно так, как требуется.

Предположим, вы поместили в форму VBA несколько кнопок. После запуска формы на выполнение щелчок на кнопке выделяет эту кнопку и для этого не требуется никакого программирования. Точно так же VBA автоматически обрабатывает щелчки на кнопках выключателей и переключателей. VBA знает, что щелчок должен изменить состояние элемента управления на противоположное, если для элемента управления предусмотрено только два состояния (состояние включен/выключен- для выключателя, отмечен/не отмечен- для флажка и т.д.). А после щелчка в поле текста этот элемент управления автоматически перемещает курсор ввода в то место, где вы щелкнули.

Но VBA не может передать информацию о состоянии элемента управления вашей программе- это придется делать вам, создавая программный кол. Что введет пользователь в поле текста? Какой флажок отметит и для какого снимет отметку? Какую из кнопок переключателей выберет? Ваша программа не узнает об этом до тех пор, пока вы не создадите программный код, позволяющий выяснить и обработать эту информацию.

Здесь нужно использовать свойство Value, в котором содержится информация о текущем состоянии элемента управления, если этот элемент управления может быть в разных состояниях или содержать данные. Вы можете заставить программу считывать значение свойства Value при каждом его изменении, если создадите процедуру обработки события Change. Можно также просто прочитать значение свойства Value после того, как форма будет скрыта с экрана. Подробнее об этом - в разделе, посвященном событию Change, и разделе "Основные приемы программирования форм".

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

Для этого нужно поместить программный код соответствующих действий в процедуру обработки события Click формы:

Private Sub UserForm_Click( )
...(программный код, инициируемый событием)
End Sub

Обратите внимание на то, что имена всех процедур обработки событий формы начинаются с UserForm, независимо оттого, какое имя вы назначили самой форме. Если вы действительно собираетесь создавать процедуру обработки события Click формы, то должны четко представлять себе, что VBA выполнит эту процедуру после щелчка пользователя только в той части формы, которая не закрыта каким-нибудь элементом управления. Другие процедуры обработки событий, связанных с манипуляциями мышью, работают аналогично.

Для элементов управления типа полос прокрутки, кнопок прокрутки переключателей и выключателей главным событием является событие Change. Эти элементы управления реагируют на щелчки мыши и нажатия клавиш, но реагируют автоматически. VBA вместе с Windows делают всю "грязную" работу по изменению внешнего вида элемента управления и изменению его установок в соответствии с тем, какие клавиши или какие кнопки мыши были нажаты.

Возможно, вы захотите, чтобы программа отвечала не на сами нажатия, а на те изменения, к которым они привели. В таком случае вы должны создать программный код для события Change. Событие Change происходит, когда изменяется значение элемента управления (т.е. когда изменяется значение свойства Value). При этом не имеет значения, почему произошло изменение значения- после щелчка кнопки мыши или печатания либо потому, что какая-то процедура в программе в одном из своих операторов манипулировала значением свойства Value этого элемента управления.

Не исключено также, что вы захотите, чтобы программа отвечала на изменение значения некоторого элемента управления по окончании работы с ним пользователя. В таком случае нужно создать программный код для события After Update, которое возникает при передаче фокуса ввода другому элементу управления.

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

Используйте события Keypress, KeyDown и KeyUp, чтобы отвечать на нажатия клавиш пользователем. Событие Keypress удобно использовать для распознавания клавиш с обычными "печатаемыми" символами (буквы, числа, знаки пунктуации), когда нужно обработать информацию, вводимую в текстовое поле или в поле со списком. С помощью этого события распознаются также многие из комбинаций типа <Ог1+клавиша>, а также клавиша . Немного позже я покажу, как проверить или изменить напечатанный символ с помощью процедуры обработки события KeyPress.

События KeyDown и KeyUp, напротив, распознают практически любую посылаемую им комбинацию клавиш, включая выкрутасы типа . С этими событиями работать труднее, чем с KeyPress, но зато они позволяют использовать более широкий набор сочетаний клавиш. Например, можно создать процедуру обработки события KeyDown, которая позволяет с помощью комбинаций и > соответственно уменьшать или увеличивать значение полосы прокрутки, например, на 10.

Основные приемы программирования форм

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

Большинство диалоговых окон имеют, как минимум, одну кнопку главной команды и кнопку, убирающую диалоговое окно с экрана. В зависимости от того, что делает диалоговое окно, на этой кнопке обычно написано либо Закрыть, либо Отмена, но вполне допустимы и другие надписи - Выход, Готово, Пропустить, Закончить и т.п. Такая кнопка потребуется любой вашей форме.

По общепринятому соглашению кнопки Закрыть и Отмена просто прячут или выгружают форму, и ничего больше. Следующие рекомендации помогут определить, какая из этих кнопок лучше подойдет для вашей формы.

* Используйте кнопку Закрыть для форм, которые только отображают информацию или выполняют свою задачу немедленно, без изменения установок программы или модификации переменных, которые будут использоваться в программе позже.

* Используйте кнопку Отмена для форм, которые изменяют переменные или установки программы. После щелчка пользователя на кнопке Отмена диалоговое окно должно закрыться без записи таких изменений - все должно остаться так, как было до открытия диалогового окна. Такая форма должна также иметь кнопку ОК, щелчок на которой подтверждает изменения и вносит их.

Подобно любым другим кнопкам, для того чтобы отвечать на щелчки на них, кнопки Закрыть и Отмена требуют создания процедур обработки события Click. В большинстве случаев эти процедуры содержат всего один оператор, как в следующих двух примерах:

Private Sub cmdClose_Click ()
        Hide здесь подразумевается ссылка на форму
End Sut
Private Sub cmdCancel_Click ()
        Unload frmOptions
End Sub

Для любой кнопки можно использовать метод Hide или оператор Unload. Разница между этими двумя способами закрытия формы обсуждалась в разделах "Как скрыть видимую форму" и "Удаление формы из памяти".

Конечно, процедуры, связанные с кнопками Закрыть и Отмена, могут до закрытия формы сделать что-то еще, например отобразить диалоговое окно, в котором пользователю предлагают подтвердить (или не подтвердить) желание закрыть форму.

Private Sub cmdClose_Cl ick()
        Message = "Вы действительно хотите закрыть " _
                    & "диалоговое окно и отменить все " _
                    & "внесенные вами изменения?"
        If MsgBox(Message, vbYesNo) = vbYes Then
                    Hide ' закрыть, если пользователь ответил Да
        End If ' иначе не делать ничего
End Sub

Не забудьте связать кнопку Закрыть и Отмена с клавишей . Пользователи привыкли нажимать для выхода из диалоговых окон, и вы не должны обманывать их ожиданий. Тем более, что в данном случае не придется создавать процедуру обработки события KeyPress-- просто установите для свойства Cancel значение True в окне свойств.

Представьте себе типичное диалоговое окно. Вы ожидаете, что после щелчка на кнопке ОК программа воспримет введенные в окно данные как окончательные и соответствующим образом изменит внешний вид, поведение или данные программы. После этого форма должна удалить себя с экрана.

В соответствии с этими ожиданиями вы должны создать и процедуру обработки события Click для кнопки ОК. Все, что должен сделать в данном случае программный код,- это передать значения от элементов управления переменным программы или использовать значения элементов управления в условных выражениях. Последняя строка процедуры должна содержать либо метод Hide, либо оператор Unload. В следующих примерах txtCName и txtCAddress представляют текстовые поля. Первых два оператора передают их значения соответствующим переменным программы. Затем программа проверяет состояние выключателя tglSend и, если он включен, выполняет процедуру SendBillToCustomer.

Наконец, она прячет форму:

Private Sub cmdOK_Click()
        strCustomerName = txtCName.Value
        strCustomerAddress = txtCAddress.Value
                    ' проверка состояния выключателя
        If tglSend.Value = True Then
                    SendBillToCustomer
        End If
        Hide
End Sub

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

В таком случае в процедуру соответствующего элемента управления крайне желательно добавить программный код, проверяющий правильность ввода. Этот программный код должен введенные пользователем данные оценить с точки зрения удовлетворения заданным критериям. Если критерии удовлетворены, программный код сохраняет введенные значения или передает их другой части программы. В противном случае можно отобразить сообщение или как-то по-другому информировать пользователя о том, что возникла проблема (рис. 10.27).

Можно также с помощью этого программного кода конвертировать введенные данные в данные подходящего вида, например сделать все буквы прописными.

Рис. 10.27. Для проверки введенных данных в текстовом поле и отображения этого сообщения об ошибке использовалась процедура обработки события Change

Проверка значений элементов управления требует использования операторов

If. . .Then и Select Case. В следующем простом примере проверяется на допустимость значение элемента управления кнопками прокрутки:

Private Sub spnVolumeControl_Change()
        If spnVolumeControl.Value = 13 Then
        MsgBox "13 не является допустимым значением."
        End If
End Sub

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

Вы сами должны выбрать подходящую для проверки процедуру, ответив на следующие вопросы.

* Насколько быстро должен выполняться программный код проверки?

* В какой момент нужно информировать об ошибке пользователя- в момент появления неправильного значения или уже после того, как пользователь закончит формирование вводимых данных?

* Основывается ли проверка на значениях, полученных от нескольких элементов управления?

Работа с функцией Format

Функция Format, имеющаяся в VBA 5 и VBA 6,- невероятно гибкая. Она применима практически к любым типам данных и имеет настраиваемый вывод- если ни один из встроенных форматов не подойдет, вы можете создать свой, какой пожелаете.

В упрощенной форме синтаксис функции Format выглядит так (здесь опущены два необязательных и редко используемых аргумента, относящихся к датам, - о них вы можете узнать из справки VBA):

Format(выражение,"формат")

Аргумент выражение должен содержать выражение, представляющее число, строку или дату, которые вы хотите форматировать (т.е. отобразить в подходящей форме). Ясно, что этот аргумент обязателен.

Аргумент формат и является тем аргументом, который выполняет реальную работу. Как видно из следующего примера, аргумент формат нужно заключить в кавычки.

Чтобы использовать функцию Format, присвойте ее переменной либо свойствам Value или Caption элемента управления в форме. Например, оператор

lblDateMessage.Caption = "Сегодня " & _
        Format(Now, "Long Date")

отображает текст "Сегодня 19 март 2001 г." в виде текста надписи элемента управления lblDateMessage (в предположении, что сегодня 19 марта 2001 года).

Использование встроенных форматов для функции Format

В табл. 11.2 приводятся именованные встроенные форматы для данных различных типов в VBA. Используйте их как аргумент в функции Format. He забудьте при этом заключить в кавычки имя выбранного вами формата (из первого столбца таблицы).

Таблица 11.2. Именованные форматы для использования с функцией Format

Можно создать свои собственные форматы, собрав их из символов, имеющих специальные значения для аргумента формат. Например, чтобы отобразить строки текста символами верхнего или нижнего регистров, используйте функцию Format с аргументами ">" или "<" соответственно. За неимением места я не могу описывать все эти специальные символы- вы найдете их самостоятельно, открыв сначала раздел Format Function (функция Format ) в файле справки VBA, а затем щелкнув на ссылке See Also (см. также) и просмотрев разделы User-defined Formats (пользовательские форматы). Но чтобы не совсем вас разочаровывать, я привожу следующий пример с парой пользовательских форматов в действии. Кроме того, этот же пример иллюстрирует использование еще одной встроенной функции VBA - Iif:

MsgBox "Сейчас " & Format(Now, "h:nn") & _
            ". Это время " & Iif(Format(Now, "a/p") = "a", _
            "до обеда.", "после обеда.")

Если вы выполните этот программный код до обеда, оператор отобразит на экране строку типа "Сейчас 9:07. Это время до обеда". После обеда вы получите нечто похожее на сообщение, показанное на рис. 11.1. (Кстати, функция MsgBox обсуждается ниже в этой же главе в разделе "Отображение окон сообщений".)

Рис. 11.1. Окно сообщения

Теперь объяснения. В первой функции Format аргументом формат является "h:nn".

Символ h соответствует стандарту отображения часа одной цифрой, когда имеется в виду время до 10:00. После двоеточия пп задает отображение минут с незначащим нулем, если прошло меньше 10 минут после начала часа.

Вторая из используемых функций Format вложена в функцию Iif. Ввиду того, что аргументом формат в данном случае является "а/р", возвращаемыми значениями будут просто либо "а", либо "р", в зависимости от того, превышает время 12 часов дня или нет. Обычно а/р используется как компонент более длинной строки аргумента формат, но в данном случае результат функции видеть не требуется, и он обрабатывается функцией Iif.

Функция Iif - это миниатюрная версия оператора If... Then (обсуждаемого в деталях в главе 32). Синтаксис этой функции следующий:

Iif (выражение, результатЕслиИстина, результатЕслиЛожь)

В переводе на "человеческий" язык функция работает следующим образом: если выражение есть истина, то функция возвращает значение результатЕслиИстина, если же выражение есть ложь, то возвращается значение результатЕслиЛожь.

В прелыдущем примере выражением для проверки было

Format(Now, "а/р") = "а"

Поэтому если функция Format возвращает значение а, данное выражение есть Истина.

Если же она возвращает любое другое значение, включая р, то выражение есть Ложь. Затем VBA вычисляет результат функции Iif на основе того, является ли значение выражения истиной или ложью. Если это значение Истина, функция Iif возвращает до обеда, а если Ложь, то после обеда.

В VBA 6 были добавлены несколько функций, подобных функции Format, - Format Number, Format DateTime, Format Currency и Format Percent - для работы сданными соответствующих типов. Подобно оригинальной функции Format, каждая из этих функций-наследниц возвращает строку с форматированным представлением исходного значения. Ввиду того, что эти новые функции по умолчанию возвращают результаты, нужные вам чаще всего, эти функции могут оказаться в использовании удобнее, чем сама функция Format. Вкратце их работу можно описать следующим образом.

* FormatNumber(число,ЧислоЗнаковПослеЗапятой, ОтображатьНезначащийНуль, ИспользоватьСкобкиДляОтрицательныхЧисел, ГруппироватьРазряды). Возвращает значение числа- единственного обязательного аргумента- в виде форматированной строки. Если опустить необязательные аргументы, функция FormatNumber отформатирует число на основе установок по умолчанию, заданных на вкладке Числа окна контрольной панели Язык и стандарты Windows. В предположении, что языком Windows выбран русский, вы получите число вида 132 328,55. Необязательные аргументы функции FormatNumber позволяют изменить заданные по умолчанию значения для числа знаков после запятой, отображения незначащего нуля перед запятой для чисел, меньших 1, представления отрицательных чисел в скобках и отделения групп разрядов одной от другой (например, пробелами).

* Format DateTime (дата, формат). Конвертирует значение даты в форматированную строку. Если аргумент формат не указан, строка форматируется в соответствии с системными установками для краткого формата даты и длинного формата времени, заданными на вкладках Дата и Время панели управления Язык и стандарты Windows. Здесь аргумент формат является числом (а не строкой, как в функции Format), но его можно задавать, используя именованные константы вида vbLongDate или vbShort Time.

* Format Currency (число). Возвращает значение числа, отформатированного как денежное, в соответствии с текущими установками в панели управления. В остальном функция Format Currency работает подобно функции FormatNumber и имеет те же необязательные аргументы.

Format Percent (число). Умножает число на 100 и добавляет знак процентов (например, 0,05 превращается в 5,00%). Функция Format Percent имеет те же необязательные аргументы, что и функция FormatNumber. Чтобы не выводить знаки дробной части, задайте аргумент ЧислоЗнаковПослеЗапятой равным 0 (например, Format Percent ( .05, 0)).

Как упоминалось в главе 9, VBA автоматически конвертирует данные одних типов в другие "на лету". Такие автоматические преобразования, конечно, удобны, да и получаемые при этом результаты обычно соответствуют желаемым. Правда, при этом нужно обязательно подчеркнуть слово обычно.

Когда автоматическое преобразование вас не устраивает, VBA готов предложить массу функций для явного преобразования данных одних типов в другие. Эти функции можно использовать для того, чтобы

* быть уверенным, что VBA выполняет именно то преобразование, которое нужно;

* выполнить преобразования, которые не выполняются в VBA автоматически;

* сделать свой программный код яснее.

Для конвертирования данных в VBA предусмотрена целая группа функций - CBool, Cbyte, CCur и т.д. - своих для каждого из встроенных типов данных, за исключением Object. Например, в результате выполнения оператора boolMaybe = CBool (123) переменная bool Maybe будет содержать значение True (вообще любое число, не равное нулю, в результате даст True, наверное потому, что любое такое число ассоциируется с чем-то существующим).

Замечу, однако, что, кроме превращения самой операции конвертирования в явную, эти функции не делают ничего такого, что не может предложить VBA при автоматическом конвертировании. (Об особенностях функции СDec см. в главе 9.)

Функции Fix и intотбрасывают дробную часть любого заданного им числа, возвращая целое число. Но, в отличие от функций CInt и CLng, они не выполняют привычного округления - например, int(4 . 98 9) возвращает 4, а не 5.

Результаты этих двух функций отличаются только при обработке отрицательных чисел.

Тогда intвозвращает ближайшее к значению аргумента меньшее целое число, a Fix просто отбрасывает дробную часть аргумента.

Функции Hex и Oct преобразуют стандартные десятичные целые числа в строки, содержащие соответственно их шестнадцатеричные и восьмеричные эквиваленты.

Возможность явного конвертирования в обратном направлении в VBA не предусмотрена, но зато вы можете напечатать буквальные шестнадцатеричные или восьмеричные значения и позволить редактору Visual Basic превратить их в десятичные автоматически. При этом любой шестнадцатеричный или восьмеричный литерал должен предваряться специальным кодом: шестнадцатеричный – кодом &Н, а восьмеричный - кодом &О (это буква О, а не цифра 0). Например, в результате выполнения оператора intBas es = 10+&О12 + &НА значением переменной intBases будет число 30, как и должно быть (это очевидно).

Некоторые функции VBA конвертируют числа в строки. К таким функциям относятся следующие.

* CStr. Превращает данные любых типов (кроме типа Object ), включая числовые, в соответствующую им строку. Вывод форматируется в соответствии с установками заданными в панели управления Язык и стандарты Windows. Например, во Франции CStr ( 200.02) на выходе выдаст строку "200, 02". Здесь следует заметить, что хотя результирующая строка и соответствует региональным установкам, подаваемые на вход числовые данные должны быть представлены в формате, соответствующем английскому языку США.

* Str. Конвертирует число в строку, но всегда форматирует строку в соответствии со стандартом английского языка США с точкой в качестве десятичного разделителя.

* Функции конвертирования в числовые типы данных. Конвертируют строки в соответствующие числовые значения, но только тогда, когда все символы в строке распознаются как допустимые для чисел. В данном случае тоже все зависит от установок в панели управления. Например, в России CDbl ("200, 02р. ") в результате дает 200, 02; в США тот же оператор порождает ошибку, но CDbl ( "$200 . 02" ) прекрасно работает.

* Val. Конвертирует числа в строках в числовые значения, останавливаясь там, где встречается первый символ, недопустимый для чисел. Независимо от установок панели управления, распознает только цифры и десятичную точку (а не запятую, например). Однако игнорирует пробелы, символы табуляции и переходы на новую строку.

Так, выражение Val ("28 190.43 12 by 14 ") в результате даст 28190,4312.

Chr. Конвертирует числовой ANSI-код в соответствующий символ. Используйте эту функцию, когда в строку нужно поместить символ, который нельзя напечатать.

Asc. Примерно соответствует обратной к функции Chr - возвращает числовой код первого символа в строке.

Работа со строками

В VBA имеется довольно богатая коллекция операторов и функций для форматирования строк и извлечения тех их частей, которые вы сочтете особенно привлекательными. В табл. 11.3 я представил все относящиеся к строкам команды, которые мне удалось обнаружить.

Таблица 11.3. Операторы и функции для обработки строк

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

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

Представим, например, что у вас есть список полных имен в виде следующих строк:

"Самодур, Иван Акакиевич, акад."

"Невеселый, Степан Федорович, проф."

"Шутник, Василий Степанович, канд."

(такой список должен храниться в массиве строк; массивы будут рассматриваться в главе 13).

Предположим, что кто-то заставил вас убрать звания в конце каждой из вышеприведенных строк. Имена в списке имеют разную длину, так что готовые функции задачу не решают.

Но если предположить, что оригинальное имя содержится в переменной str-Старая, то поможет следующий трюк:

strНовая = Left(strСтарая, Len(strСтарая) - 7)

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

1. Сначала вызывается функция Len, которая вычисляет длину оригинальной строки.

2. Из результата, полученного в п. 1, вычитается 7, поскольку каждое из званий занимает семь символов в конце строки (включая запятую и пробел).

В результате получится число, которому должна быть равна длина новой строки.

3. Вызывается функция Left, использующая вычисленную длину в качестве значения второго аргумента.

Функция Left читает столько символов, сколько задано вторым аргументом, из строки, указанной первым аргументом, возвращая только эти прочитанные символы.

4. Новая, более короткая строка, возвращенная функцией Left, присваивается переменной

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

strMMfl = Mid (strHoBafl, InStr (str-Новая, ",") + 2)

Функция Mid извлекает символы из любого места в строке, которую вы укажете в виде аргумента. Второй же аргумент этой функции говорит, с какого места в этой строке следует начать извлечение символов. В данном случае этот аргумент представляет собой выражение, состоящее из функции InStr плюс 2.

Функция InStr ищет в заданной строке (первый аргумент) другую строку (второй аргумент).

В данном случае второй аргумент - это запятая, которая в списке следует за фамилией. Значение, которое возвращает InStr, соответствует номеру позиции в первой строке, где встречается вторая строка, - теперь вы знаете, где заканчивается фамилия.

К значению, возвращенному функцией InStr, добавляется 2, чтобы пропустить запятую и следующий за ней пробел и найти позицию, с которой начинается имя. Теперь функция Mid извлечет символы, начиная с этого места и до конца строки (поскольку не указан третий, необязательный аргумент длина).

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

В табл. 11.4 представлено описание таких команд. У некоторых функций в этой таблице опущены необязательные аргументы - вы всегда сможете уточнить детали по справке VBA.

После таблицы несколько наиболее важных команд, относящихся к датам и времени, рассматриваются подробнее.

Чтобы воспользоваться предоставляемым здесь материалом, вы должны ясно представлять, как VBA обрабатывает значения дат и времени и как работать с переменными, хранящими даты (см. главу 7).

Таблица 11.4. Операторы и функции для работы с датами и временем

При задании аргументов не забывайте заключать буквальные значения дат в пару символов #, а строковые значения типа интервалов дат - в кавычки.

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

Функция Now возвращает текущие системные дату и время в формате переменной типа Data, как, например, в случае datЛовиМомент = Now.

Чтобы обеспечить работу с системным временем и системной датой по отдельности, VBA предлагает по паре отдельных команд для каждого из этих двух элементов системы. Несколько неожиданным при этом оказывается то, что в каждой из пар и оператор, и функция имеют одинаковые имена.

Например, чтобы извлечь (т.е. получить) системное время в формате даты VBA, нужно использовать функцию Time, а чтобы установить (т.е. задать) системное время, необходимо использовать оператор Time. Другими словами, ключевое слово Time выполняет различные действия в зависимости от контекста:

datЭтоMoeBpeмя = Time ' функция Time возвращает значение

' системного времени

Time (113:15 АМ#) ' оператор Time устанавливает системное время

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

Исчисление дат

Как вы знаете, время - понятие относительное. Поэтому главное - получить дату и время в таком виде, чтобы сравнить их с другими датами и временем. Иногда нужно знать, как далеко отстоят одна дата от другой или одно время от другого. А иногда бывает нужно знать, какая дата будет, скажем, через два года и три месяца. Несколько предлагаемых в VBA функций для обработки значений дат и времени превращают вычисления с датами в совсем простое дело.

Используйте функцию DateAdd, когда нужно узнать, какая дата наступит через три года или что было на часах один час и пятнадцать минут тому назад. Такие вычисления можно выполнить и без компьютера вообще, но они требуют особой внимательности, поскольку операции с компонентами значений дат и времени не подчиняются правилам привычной арифметики десятичных чисел (дней недели - 7, секунд - 60, и т.д.), да и самих компонентов наберется немало.

Функция DateAdd имеет следующий синтаксис: DateAdd (интервал, число, начальная_дата).

Возвращаемое функцией значение равно значению, полученному в результате добавления к начальной дате (или начальному времени) заданного числа интервалов. Если нужна разность, а не сумма, задайте для аргумента число отрицательное значение. В табл. 11.5 приведен набор символьных кодов, которые допустимы для аргумента интервал (при использовании не забудьте заключить соответствующий код в кавычки).

Таблица 11.5. Значения аргументов функций DateAdd и DatDiff

уууу Год

q Квартал

rа Месяц

у День года

d День

w День недели

ww Неделя

h Час

n Минута

s Секунда

Например, в результате выполнения оператора

datБыло = DateAdd ("s", -90, Now)

переменная datБыло будет содержать значение, соответствующее времени, которое было 90 секунд тому назад относительно текущего времени. Если вам нужно отобразить на экране только ту часть этого значения, которая относится ко времени, используйте функцию Format с соответствующим времени аргументом форматирования (например, Format (datБыло, "Medium time ")), как было описано в разделе "Форматирование данньк".

При этом функция DateAdd не возвращает недопустимых значений дат: если добавить один месяц к дате 31 августа, то результатом будет 30 сентября. Точно так же функция DateAdd не забудет, если нужно, изменить в результате и год.

С помощью функции DateAdd можно добавлять или вычитать некоторое число однотипных интервалов, но, например, для выяснения даты, которая была два года и три месяца назад, ничто не мешает применить эту функцию дважды.

В качестве альтернативы VBA предлагает для дат и времени две другие функции, которые позволяют смешивать интервалы,- Date Serial и TimeSerial. Каждая из этих функций имеет по три аргумента;

DateSerial (год, месяц, день]

TimeSerial (часы, минуты, секунды)

Все аргументы в данном случае обязательны и должны быть выражениями, дающими целые значения (а не значения типа Date). Посмотрите, можете ли вы сказать, что будет получено в результате выполнения следующего фрагмента программного кода, и обратите внимание на вычисления в третьем аргументе:

intГод = 1999

intМесяц = 12

intДень = 3 1

datНовоеТысячелетие = DateSerial (intГод, intМесяц, intДень + 1)

И, конечно же, любые из этих аргументов или даже все могут быть просто числами.

Используйте функцию DateDiff, чтобы выяснить, сколько определенных интервалов времени (годы, месяцы, недели и т.п.) помещается между двумя заданными датами или моментами времени. Например:

lngСколько = DateDiff ("m", #2/12/90#, #10/12/01#)

В результате выполнения этого оператора переменная lngСколько - переменная типа Long - будет содержать число месяцев, прошедших между двумя указанными датами. Для первого аргумента функция DateDiff требует код интервала времени, и в данном случае "m" сообщает функции о том, что нужно измерять в месяцах, а не в годах, неделях или каких-либо других единицах.

Представленная ниже процедура типа Function использует функции DateDiff и DateSerial для вычисления возраста персоны в годах. Чтобы избежать появления ошибок при выполнении программы, можете добавить в программный код проверку типа данных того значения, которое получит аргумент, задающий дату рождения (используйте для этого функцию IsDate), а также проверку того, что полученная дата рождения не находится в будущем.

Function WhatAge(dateDateOfBirth As Date)
Dim intAge As Integer ' задайте Long, чтобы допустить возраст > 255 intAge = DateDiff ("yyyy", DateDateOfBirth, Date)
‘ проверяется, день рождения в этом году был или нет:
If DateSerial ( Year ( Date), Month(DateDateOfBirth), _
            Day(DateDateOf Birth)) > Date Then
                        intAge = intAge – 1
End If
WhatAge = intAge
End Function

Из-за, так сказать, паразитического образа жизни на больших приложениях, VBA программы зачастую не требуют никаких элементов пользовательского интерфейса (диалоговых окон, меню и т.п.)- При запуске VBA-программа может выполняться на базе активного документа приложения, сообразуя свои действия с содержимым этого документа.

Ясно, правда, и то, что существует немало ситуаций, когда требуется прямое взаимодействие с конечным пользователем VBA-программы. Прекрасные возможности для создания интерактивных окон в программе предлагают средства создания пользовательских форм VBA (о чем мы говорили в главе 10), но если есть возможность обойтись более простыми средствами, то чем проще, тем лучше.

Две VBA-функции, MsgBox и Input Box, обеспечивают неплохие возможности базового уровня для передачи пользователю сообщений и получения от него ответов.

* Функция MsgBox отображает окно с сообщением, но не только - она позволяет определить, на какой из двух (или больше) кнопок щелкнул пользователь, чтобы закрыть окно.

* Функция Input Box отображает окно с сообщением и полем, в котором пользователь имеет возможность напечатать ответ.

Формально синтаксическая конструкция функции MsgBox выглядит так:

MsgBox(сообщение[, кнопки] [, заголовок] [, файл_справки, раздел])

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

В своей простейшей форме функция MsgBox действует как оператор. От вас требуется только напечатать его в отдельной строке и добавить сообщение, которое требуется отобразить. Например:

MsgBox "Это проверка работы MsgBox."

В результате выполнения такой строки VBA отобразит на экране окно с сообщением, подобное показанному на рис. 11.2 (пример А).

Рис. 11.2. Три простых окна сообщения

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

Сообщение может быть также переменной или выражением. Как обычно, VBA автоматически конвертирует за вас числовые значения и даты в отображаемые символы. Например, следующий фрагмент программного кода вполне работоспособен, а результат показан на рис. 11.2 (пример Б):

intWishCount = 3
datWhen = Format(Now, "Short date")
strInfol = "Ha "
strInfo2 = " осталось желаний: "
MsgBox strlInfol & datWhen & strInf o2 & intWishCount

Чтобы отобразить сообщение в несколько строк, добавьте в сообщение символы перехода на новую строку (их ASCII-код равен 13) с помощью функции Chr (пример В на рис. 11.2).

MsgBox "Это первая строка." & Chr(13) & "Это вторая строка.'

Можно разбить текст многострочного сообщения и на столбцы, используя символы табуляции (их ASCII-код равен 9).

Кроме сообщения, в окне сообщения может присутствовать одна из нескольких стандартных пиктограмм, а также несколько кнопок стандартного вида. Все это задается указанием одного числового значения для необязательного аргумента кнопки.

С пиктограммой ваше окно сообщения будет выглядеть немного "круче", чем простенькие окна с рис. 11.2. Показанное на рис. 11.3 окно сообщения содержит пиктограмму критической ситуации (эта пиктограмма обычно вызывает у пользователя некоторое волнение).

Рис. 113. Непростое окно сообщения

По умолчанию окно сообщения имеет только кнопку ОК, но можно в него добавить и кнопки с надписями Отмена, Да, Нет, Стоп, Повтор и Пропустить в различных комбинациях. На рис. 11.3 как раз показано окно с одной из таких комбинаций кнопок.

Как и для подобных аргументов многих других функций, значение для аргумента кнопки вычисляется как сумма констант, представляющих наборы кнопок и пиктограммы. Можно подсчитать нужное значение вручную, но лучше создать подходящее выражение из именованных VBA-констант, предлагаемых как раз для этих целей. В табл. 11.6 эти константы приведены вместе с их числовыми значениями и описаниями назначения.

Таблица 11.6. Константы VBA для окон сообщений и окон ввода

С помощью этой таблицы несложно подсчитать, что при вызове функции, отобразившей окно сообщения, показанное на рис. 11.3, значение аргумента кнопки было равным 531. Но кому хочется это значение считать? Легче напечатать следующий оператор:

intA = MsgBox("Нажмите кнопку", vbYesNoCancel + vbCritical
     + vbDefault Button3, "VBA для 'чайников'")

Третья из констант, использованных в выражении для аргумента кнопки, константа vbDefaultButton3, назначает третью кнопку (считая слева направо) кнопкой, выбираемой по умолчанию. В данном случае это кнопка Отмена. Если внимательно рассмотреть рис. 11.3, можно увидеть, что кнопка Отмена получила фокус ввода - надпись на ней очерчена пунктирной рамкой, и это означает, что именно эта кнопка будет активизирована, если вы нажмете клавишу пробела или .

Смысл отображения кнопок в окне сообщения заключается в предоставлении пользователю возможности выбора действия. В данном случае пользователю не нужно ничего печатать - следует только щелкнуть на одной из кнопок. А вам нужно суметь выяснить, на какой из кнопок щелкнул пользователь.

Это просто, поскольку функция MsgBox возвращает целое значение, как раз соответствующее той кнопке, на которой щелкнул пользователь. Чтобы не нагружать свою память, вы можете сравнивать возвращаемое значение не с конкретными числами, а с предлагаемыми VBA именованными константами. Вот эти константы вместе с их действительными значениями.

vbOK 1

vbCancel 2

vbAbort 3

vbRetry 4

vbIgnore 5

vbYes 6

vbNo 7

Если в окне сообщения всего две кнопки, для выяснения, на какой из кнопок был щелчок, прекрасно подходит оператор If ... Then. Например:

If MsgBox ("Начинать?", vbYesNo) = vbYes Then
ЧтоНибудьСделать
Else
НэДелать Ничего
End If

Когда кнопок больше, приходится использовать оператор If . . .Then. . .Else If.

По умолчанию окно сообщения отображает в строке заголовка имя того VBA приложения, из которого выполняется программа (см. рис. 11.2). Этот заголовок можно изменить на любой другой, задав соответствующее значение аргумента заголовок в операторе вызова функции MsgBox (см. рис. 11.3).

Получение информации от пользователя

Если вам нужна от пользователя более конкретная информация, не укладывающаяся в рамки выбора из трех кнопок, используйте функцию Input Box. Вот ее формальная синтаксическая конструкция, из которой удалены некоторые необязательные аргументы, расширяющие возможности:

InputBox(сообщение[, заголовок] [, ответ])

Как видно из рис. 11.4, эта функция отображает диалоговое окно с полем текста, куда пользователь может впечатать некоторую, как предполагается, важную информацию. Чтобы передать эту информацию программе, присвойте возвращенное функцией Input Box значение строковой переменной: strB = InputBox("Какие места предпочитаете?", "TWA", "У прохода")

Рис. 11.4. Простое окно ввода

Хотя с помощью окна ввода можно получить больше информации, чем с помощью окна сообщения, с окном ввода программисту работать легче - тут нет кнопок и пиктограмм, которые можно выбирать. Аргументы сообщение и заголовок точно такие же, как и в случае функции MsgBox. Вы можете облегчить задачу пользователю, задав значение аргумента ответ. Тем самым вы предложите ему ответ, принимаемый по умолчанию, - если предложенный вами ответ подойдет, пользователь сможет просто нажать клавишу .

В случае переменной типа Boolean изменить ее значение на противоположное проще всего с помощью операции логического отрицания Not. При этом результат применения операции нужно просто присвоить той же самой переменной.

Например, оператор boolBlinking = Not (boolBlinking) делает значение переменной boolBlinking равным True, если значением было False, и, наоборот, равным False, если значением было True.

Финансовые функции

VBA предлагает ряд функций для подсчета рублей-копеечек в выплатах по ссуде или возвращениях инвестиций. Я не имею здесь возможности обсуждать все эти функции, но собираюсь все же рассмотреть функцию Pmt для расчета выплат по ссуде.

Используйте функцию Pmt для расчета сумм, которые предстоит выплачивать вам (или которые должны выплачивать вам) по закладной с фиксированными процентами или какому либо другому займу. Вот формальный синтаксис функции Pmt:

Pmt(ставка, кпер, сумма[, цель[, тип]])

Первый аргумент, ставка, задает ставку процента выплат по займу за определенный период времени. Задаваемая вами ставка процента должна соответствовать периодичности выплат. Если нужно выплачивать ежемесячно по 8%-ной закладной, то не забудьте, что 8% является годовой нормой. В таком случае ставка должна задаваться выражением типа .08/12 (8% разделенные на 12 месяцев).

Аргумент кпер должен задаваться целым значением, представляющим общее число выплат, которые предстоит сделать по займу. Для ежемесячных выплат в течение 5 лет кпер должно быть равно 5 * 12, или 60. Общая сумма займа задается аргументом сумма.

Остальные аргументы необязательны. Чтобы рассчитать, сколько вам нужно откладывать, чтобы накопить определенную сумму, задайте аргумент цель, чтобы передать функции Pmt запланированную сумму в виде отрицательного числа- это сумма на будущее. (При этом аргумент ставка задает ожидаемую ставку процента. Если некоторая часть из целевой суммы уже накоплена, эта часть должна задаваться аргументом сумма.) Аргумент тип позволяет указать, когда должны проводиться выплаты - в конце каждого периода (задается значением 0 и подразумевается по умолчанию) или в начале (значение 1).

Чтобы использовать функцию Pmt в программном коде, присвойте ее значение переменной типа Double. Например:

dblPay = Pmt (.08/12, 360, 300000) ' Типичная закладная
dblSav = Pmt (07/12, 120, 12500, -75000) ' Цель = 75000р.

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

Таблица 11.8. Финансовые функции VBA

Даже после всех приведенных выше таблиц и обсуждений, обзор встроенных команд VBA остается далеко не полным. Некоторые из команд будут обсуждаться в следующих главах, но эту главу я завершу еще одной таблицей с множеством команд, которые вполне могут вам пригодиться.

Таблица 11.9. Различные встроенные команды VBA

При задании аргументов не забывайте заключать буквальные значения таких параметров, как путь, в кавычки.

Объекты как компоненты VBA-приложений

Начать изучение объектов лучше всего с рассмотрения их как частей VBA приложения и его документов. Любой элемент графики (shape) в Visio является объектом, равно как и любая связь (connect), установленная между двумя такими элементами графики (рис. 12.1). Точно так же объектами являются и слои, на которых размещаются элементы графики, и страницы, на которых располагаются слои. Объектом будет и сам документ, содержащий все эти страницы, слои, элементы графики и связи.

Рис. 12. l Примеры объектов VBA

Подобным образом к объектам Excel относятся ячейки, в которых размещаются данные и формулы, именованные диапазоны ячеек, диаграммы, украшающие многие документы, отдельные рабочие листы и целые рабочие книги. И во всех приложениях Microsoft Office - как и во многих других VBA-приложениях- меню и панели инструментов, а также пункты этих меню и кнопки в этих панелях инструментов тоже являются объектами.

Объекты VBA существуют в иерархии, в которой объекты одних типов содержатся в объектах других типов. Подобные иерархии объектов рассматриваются ниже, в разделе

"Что такое объектная модель", а пока что мы сконцентрируем внимание на обсуждении понятия индивидуального объекта.

Объекты на уровне понятий

Если вам трудно ассоциировать объекты с графическими элементами, ячейками рабочего листа или кнопками панели инструментов, представляйте себе объекты как материальные предметы. Вы же можете представить, как вырезаете ножницами из листа бумаги кружочек и наклеиваете его на другой лист бумаги. А в ячейку рабочего листа вы можете впечатать числа, на кнопке можете щелкнуть.

Правда, кроме таких конкретных объектов, VBA-приложения предлагают и более абстрактные.

* в Microsoft Excel объект CustomView задает пользовательское представление рабочей книги (в Excel пользовательское представление определяет внешний вил рабочей книги на экране и ее параметры печати).

* В Microsoft Word объект File Search представляет, как сказано в соответствующем разделе справки, "функциональные возможности диалогового окна Открытие документа (меню Файл)". Обратите внимание, этот объект представляет не само диалоговое окно, а его функциональные возможности.

* В Visio объект Style представляет атрибуты линий, текста и заливки для графических элементов.

* В VBA имеется несколько объектов, доступных для всех VBA-приложениЙ. Так, например, объект Collection представляет контейнер для переменных или других объектов, с которыми, независимо от типов этих объектов, предполагается работать как с единым целым.

Практическое определение объекта

Вы можете заметить, что порой представить объект VBA в материально осязаемом виде не так-то просто. Но это и к лучшему - чем дальше вы уходите от материализации объектов, тем свободнее будете себя чувствовать при работе со всем диапазоном доступных объектов.

Используемое программистами-практиками определение объекта оказывается совсем простым: объектом называется любая именованная сущность, имеющая

* свойства, т.е. установки, которые можно проверить и изменить;

* методы, т.е. действия, которые может выполнить объект, когда программа попросит об этом;

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

Если вам не чуждо чувство прекрасного, вы можете заметить, что для таких щедро одаренных созданий термин объект не очень-то подходит, поскольку эти объекты больше похожи на братьев наших меньших, чем на инертные лампы. У тигров и китов есть отличительные особенности глаз, конечностей и хвостов, а у объектов - свойства. Лошади и собаки умеют по команде выполнять разные трюки или убегать от опасности, а объекты имеют методы и события.

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

Классы объектов и конкретные объекты

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

В противоположность конкретному объекту, класс объекта можно сравнить со строительным проектом. По одному проекту можно построить множество домов, в которых будут жить люди, но в самом проекте никто не живет. Точно так же в классе планируются типы данных, которые могут использоваться объектом, и определяются методы, свойства и события объекта. На основе этого плана вы создаете экземпляр данного класса - тот объект, который будет содержать реальные данные. На основе одного класса можно создать столько объектов, сколько вы пожелаете, чтобы использовать каждый из них для различных целей и с различными данными.

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

Коллекция- это VBA-объект специального назначения. Как видно из самого названия, коллекции предназначены для упрощения работы с набором объектов, когда этот набор объектов нужно использовать как одно целое. Как правило, все объекты в коллекции имеют один и тот же тип. Например, коллекция Shapes в Visio состоит из объектов Shape, а коллекция Pages - из объектов Page.

Но есть и коллекции, которые оказываются более либеральными к типу входящих в них объектов. Например, VBA предлагает родовой объект Collection, предназначенный для хранения в нем объектов любых типов в любой комбинации. Если возникнет необходимость готовить самые невероятные смеси, то коллекции VBA окажутся как раз кстати.

Позже, в разделе "Работа с коллекциями объектов", мы с вами выясним, как получить доступ к отдельным объектам в коллекциях, а в главе 13 вы узнаете, как использовать свойства и методы самих коллекций (не забывайте, что они тоже являются объектами) и как создавать свои собственные коллекции на основе родового VBA-объекта Collection.

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

Как уже упоминалось, объекты VBA существуют в иерархической зависимости один от другого. Кроме обладания своими собственными свойствами, методами и событиями, объекты высших ступеней иерархии служат в качестве контейнеров для одного или целого множества подчиненных объектов. Эти вложенные объекты в свою очередь содержат другие объекты и т.д.

Вся система таких иерархических отношений конкретного VBA-приложения называется объектной моделью этого приложения. Часто представляемая в графическом виде, объектная модель приложения описывает вложения одних объектов в другие. Пример графического представления одной из объектных моделей показан на рис. 12.2.

Рис. 12.2. Объектная модель Visio с компакт-диска Visio 2000

Как видно из рис. 12.2, на вершине объектной модели VBA-приложения находится объект Application (приложение), являющийся контейнером для всех других объектов приложения, с которыми вы можете работать. Ваш VBA-проект тоже является объектом-контейнером, в котором размещаются все созданные вами модули программного кода и формы, равно как и документ проекта. (О структуре VBA-проекта и его компонентах говорилось в главе 7.)

Понимание важности объектной модели

Вам придется сообщать VBA о том, какой конкретный объект нужен вам для работы, поэтому хорошее понимание объектной модели VBA-приложения оказывается очень важным для эффективной работы в нем. С помощью диаграммы объектной модели приложения, подобной показанной на рис. 12.2, очень просто проследить всю цепочку объектов, которой принадлежит нужный вам объект. В данном случае, например, сразу видно, что объект Connect является членом коллекции Connects, принадлежащего объекту Master, который в свою очередь... .

Расширение объектной модели

В программах, созданных в VBA, совсем не обязательно ограничивать себя использованием объектов только одного VBA-приложения. Не обязательно даже ограничиваться использованием только VBA-приложений как таковых. Можно использовать вообще любые приложения и "компоненты", удовлетворяющие стандарту Component Object Model (COM) фирмы Microsoft (Component Object Model можно перевести как объектная модель компонента).

Стандарт СОМ представляет собой набор технических спецификаций, регламентирующих правила определения объектов в приложениях и других программных единицах, а также правила предоставления таких объектов для использования в других приложениях. Чтобы обозначить, что удовлетворяющим стандарт СОМ приложением можно управлять из другого приложения, используется специальный термин автоматизация. Кстати, стандарт СОМ относится не только к VBA или Visual Basic, он понятен многим другим средствам разработки приложений (например, компиляторам C++), которые таким образом могут использовать соответствующие объекты.

Стандарт СОМ открывает фантастические возможности для создания мощных VBA приложений, допускающих настройку пользователем. Теперь вы можете (я не сказал легко) создавать приложения, позволяющие одновременно обрабатывать информацию, полученную из диаграмм Visio, документов Word, рабочих листов Excel и т.п. Ваше приложение может отображать всю эту информацию в окнах, которые разработаны вами, но которые в то же

время используют специальные функциональные возможности отображения информации этих приложений-компонентов.

Разработка пользовательских приложений такого уровня, очевидно, относится к непростым задачам, поэтому в данной книге это будет обсуждаться весьма поверхностно (в главе 14). Но я должен по крайней мере упомянуть, что возможности VBA открывают путь к великим свершениям.

Использование объектов в программе

Теперь, когда теоретические основы пройдены, наступает время практических рекомендаций по программированию с использованием объектов VBA. Начнем, пожалуй, с использования в программном коде свойств, методов и событий объектов, а уж после этого перейдем к более тонким вопросам идентификации объектов, которые предполагается использовать.

Хотя в самом понятии объекта и есть кое-что, над чем можно поломать голову, использовать объекты достаточно просто. Поскольку объекты имеют имена, вы всегда можете знать, с каким из объектов работаете. Чтобы идентифицировать в программном коде метод или свойство объекта, с которыми предполагается иметь дело, нужно просто напечатать имя объекта, за ним точку и, наконец, имя метода или свойства.

Например, MyShape.LineStyle идентифицирует свойство LineStyle объекта с именем MyShape в Visio. Точно так же MyWorksheet. Calculate идентифицирует метод Calculate объекта рабочего листа с именем MyWorksheet в Excel.

Правда, здесь вы можете задать себе вопрос: "Но как же мне узнать имя объекта, которое необходимо поместить в начале?" Блестящий вопрос! Вот только ответ на этот вопрос требует достаточно пространных пояснений, которые я отложу до раздела ''Идентификация объекта для использования", сосредоточившись сначала на обсуждении свойств, методов и событий. А пока что примите на веру, что объект можно вызвать по его имени.

Как вам стало очевидным из раздела "Что такое объектная модель", каждое VBA приложение имеет свою неповторимую объектную модель (иерархию объектов), а каждый из его объектов имеет свой собственный набор свойств, методов и событий. Чтобы заставить эти объекты работать в программе, вам необходимо хорошо разобраться в деталях объектной модели соответствующего приложения.

Во многих приложениях справка о VBA содержит специальный раздел, в котором вы найдете графическое представление объектной модели этого приложения (рис. 12.4). Если диаграмма объектной модели не появилась перед вами при первом же вызове справки, перейдите в окне справки на вкладку Содержание, где она будет представлена под рубрикой типа Microsoft Excel Objects.

Используя диаграмму объектной модели в качестве гида, вы сможете открыть информацию о конкретном объекте, дважды щелкнув на его имени в диафамме. Иначе получить нужную информацию можно, отыскав в указателе справки соответствующий раздел и открыв его. Как правило, в любом разделе, посвященном объекту, имеются ссылки на другие разделы, содержащие дополнительную информацию о свойствах, методах и событиях соответствующего объекта. (Заметьте, здесь идет речь о справке о VBA для соответствующего приложения, а не об общей справке о приложении или VBA. О работе со справочной системой VBA см. главу 4.)

Рис. 12.4. Объектная модель Excel

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

Полное описание обозревателя объектов см. в главе 6.

Выяснение и установка свойств объектов

Вероятно, свойства - это самые простые для понимания характеристики объекта. Каждое свойство хранит информацию о некотором аспекте внешнего вида, поведения, содержимого объекта или, если хотите, о его генеалогии.

Например, объект Document может иметь свойство Pages, говорящее о числе страниц в документе. Объект Shape может иметь свойство Fill, задающее цвет графического элемента. Объекты CornmandButton (представляющие кнопки в диалоговых окнах) имеют свойство Caption, задающее текст, появляющийся на кнопке.

Как правило, VBA-программа может выяснить, какая информация хранится в том или ином свойстве, чтобы затем принять решение о том, следует ли предпринять какие-либо действия или просто отобразить на экране текущие установки свойства. Программа может и, наоборот, изменить установки свойств с тем. чтобы соответствующий объект изменил свой внешний вид или поведение, - но только в том случае, когда свойство допускает такое изменение (многие свойства допускают чтение своих значений, но не их изменение).

Изо всех типов свойств легче всего разобраться со свойствами, задающими различные аспекты внешнего вида объекта. Например, объект Shape в Visio среди прочих свойств имеет следующие.

Эти свойства задают внешний вид объекта в документе.

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

Некоторые свойства, например AreaUZ для объекта Shape в Visio, могут принимать любое значение. Другим же допускается назначить только одно из некоторого списка заранее определенных значений. Многие свойства могут принимать только одно из двух возможных значений, таких как True или Falsе. Торячий или Холодный, Сухой или Мокрый.

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

Знание того, как менять значение свойства, еще не означает, что его можно менять. Некоторые свойства позволяют выяснить свои значения, но не позволяют менять их. Это свойства только для чтения. Существуют также, хотя встречаются значительно реже, свойства только для записи - их значения можно изменить, но прочитать их текущие значения нельзя. Однако большинство свойств предназначено для чтения и записи - их значения можно и прочитать, и изменить.

Главной задачей свойства является описание некоторой характеристики объекта, но вы должны знать, что установки свойства - это обычные данные, в принципе ничем не отличающиеся от тех данных, которые вы размещаете в переменных VBA. А если так, то можно представлять себе свойства как более или менее постоянно существующие переменные, которые не требуется объявлять.

При таком представлении переменных можно говорить, что любое свойство хранит данные определенного типа точно так же, как переменная. Например, свойство, которое может принимать только два взаимоисключающих значения (True или False. Счастливый или Несчастный, Левый или Правый), имеет тип Boolean. Одни свойства являются строками, другие- целочисленными значениями, третьи- десятичными числами с дробной частью или плавающей запятой и т.д. Свойства могут быть и объектами. (О допустимых в VBA типах данных см. главу 7.)

Чтобы выяснить или, как говорится, получить текущее значение свойства, используйте свойство так, как будто это функция или процедура типа Function. А значит, присвойте это свойство некоторой переменной в своем программном коде. Переменная при этом должна иметь тот же тип, что и свойство, или, по крайней мере, иметь подходящий тип.

В следующем примере объект представляет собой, скажем, вопрос для вступительного экзамена. Свойство, значение которого выясняется здесь, описывает сложность вопроса по десятибалльной шкале;

Dim intСложность As Integer
intСложность = objЭкзаменационныйВопрос.УровеньСложности

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

Но для чего выяснять текущее значение свойства? Как правило, это значение используется в условных операторах и на его основе принимается решение о выполнении или невыполнении программой определенных действий. (В данном случае, например, это может быть если УровеньСложности вопроса выше 8 и если ответ правильный, то количество баллов за ответ удвоить".) Значение свойства удобно сохранить в переменной и тогда, когда нужно присвоить это значение такому же свойству другого подобного объекта.

Правда, если значение свойства используется только однажды, совсем не обязательно присваивать его переменной - в выражении можно использовать и само свойство. Например:

If objЭкэаменационныйВопрос.УровеньСложности > 8 Then
                int0бщееЧислоБаллов = intОбщееЧислоВаллов + _
(intЧислоБалловЗаОтвет *2)
End If

Такая практика удобна, но не забывайте, что частое обращение к свойствам объектов замедляет работу программы. Если значение некоторого свойства используется больше одного-двух раз, это значение лучше сохранить в переменной - VBA извлекает значение обычной переменной значительно быстрее, чем значение свойства.

Не забывайте, что свойства- это просто обремененные славой переменные. Поэтому свойствам можно присваивать значения точно так же, как обычным переменным, поместив в строке имя свойства слева, а значение - справа от знака равенства. В операторе objМузыкаМеталл.ФакторРаздражения = 999 значение свойства ФакторРаздражения- наверное, мера искажений, резонансов и всевозможных шумов - для объекта objМузыкаМеталл устанавливается равным 999:

objМузыкаМеталл.Мелодия = False
objМузыкаМеталл.Название = "У меня блохи. Плохо."

Многие объекты имеют свойство, выбираемое по умолчанию. Прочитать или установить значение такого свойства можно, указывая только имя объекта и не указывая имя самого свойства. Обратившись снова к предыдущему примеру, предположим, что для объекта objMyзыкaMeтaлл свойством по умолчанию является Название. Тогда последний оператор в примере можно записать проще:

objМузыкаМеталл = "У меня блохи. Плохо."

Использовать свойства по умолчанию удобно, конечно, когда вы точно знаете, какое именно свойство объекта выбирается по умолчанию. Если же вы сомневаетесь или предполагаете, что потом не удастся вспомнить, какое именно свойство выбирается по умолчанию, то лучше в таком случае напечатать имя свойства.

Как уже упоминалось в разделе "Установки свойств - это данные", свойство одного объекта может указывать на другой объект. Это дает возможность обращаться к дочерним объектам данного объекта-контейнера так, как будто дочерние объекты являются свойствами этого контейнера. Например, в выражении Toolbar.ToolbarItems

ToolbarItems - свойство объекта Toolbar, но значением этого свойства является объект ToolbarItems.

На самом деле именно такое использование свойств объектов является основным средством идентификации объектов для использования в программе (подробности приведены ниже, в разделе "Идентификация объекта для использования").

Подобно тому, как свойства объекта указывают на подчиненные объекты, с помощью свойств можно выяснить, какому контейнеру принадлежит сам объект. Например, если в Visio в переменной хранится ссылка на объект Pages и вы хотели бы выяснить, к какому документ) она относится, то выражение Pages.Parent возвратит ссылку как раз на нужный документ. А если вам потребуется узнать, какому приложению принадлежит данный объект, то, как правило, можно пропустить все промежуточные ступени иерархии и обратиться сразу на самый верхний уровень с помощью свойства Application: Pages.Application.

Методы в действии

Методы - это именованные действия, которые объект может выполнить по команде.

Ввиду того, что любой метод является неотъемлемой частью объекта, объект сам знает, что ему делать, когда вы вызываете метод.

Например, объект, задающий графический элемент, может иметь метод ReSize, изменяющий размеры, и метод Rotate, поворачивающий графический элемент на странице документа.

Объект, представляющий ячейку рабочего листа, может иметь метод Calculate, пересчитывающий значение в ячейке, и метод Clear, удаляющий ее содержимое. Объект, представляющий целый документ, скорее всего имеет методы Print (Печать) и Save (Сохранить).

На самом деле, методы представляют собой не что иное, как процедуры, привязанные к конкретному объекту. Чтобы вызвать метод, необходимо напечатать имя объекта, точку, а затем имя метода. Оставив в стороне сумасшествие металла, давайте рассмотрим объект objМузыкаДжаз в предположении, что он представляет цифровую запись джазовых композиций в мультимедиа-программе. Вполне возможно, что такой объект имеет метод Воспроизведение. Вот как его можно вызвать:

objМузыкаДжаз.Воспроизведение

В основном техника вызова методов вполне согласуется с техникой вызова процедур и функций VBA, о которой шла речь в главе 7.

* Чтобы вызвать метод, требующий ввода аргумента, напечатайте аргумент после имени метода. В следующем примере метод Воспроизведение получает аргумент, говорящий о том, сколько раз нужно воспроизвести пьесу:

objМузыкаДжаз.Воспроизведение3

* Если метод имеет несколько аргументов, печатайте их через запятую (в следующем примере предполагается, что Негромко является именованной константой, задающей невысокий уровень громкости, a intCкopocть - переменной, определяющей скорость воспроизведения):

objМузыкаДжаз.Воспроизведение 2, Негромко, intCкopocть

* Чтобы вызвать метод, возвращающий значение, присвойте метод переменной или используйте его в выражении как обычную процедуру типа Function. В этом случае все аргументы, независимо от их числа, необходимо заключить в скобки:

dateВремяВоспроизведения = _
    objМузыкаДжаз.Воспроизведение(2, Негроко,intCкopocть)

Как и в случае свойств, методы совершенно разных классов объектов могут иметь одинаковые имена. Например, объекты, содержащие группы элементов или других объектов, как правило, имеют метод Add.

Обратите внимание, что метод меняет установки одного или нескольких свойств. Например, объект objМузыкаДжаз может иметь свойство только для чтения ЧислоИсполнений, допускающее изменение только методом Воспроизведение, но его значение в то же время можно выяснить оператором типа intИсполнения = objМузыкаДжаз.ЧислоИсполнений. Некоторые объекты имеют методы, единственное назначение которых - установка значений определенных свойств.

События

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

* Физические действия пользователя программы, например щелчок кнопкой мыши, перемещение курсора, прыжки и пляски вокруг компьютера. (Ну, ладно-ладно, прыжки и пляски вокруг компьютера, очевидно, не относятся к событиям, распознаваемым VBA.)

* Ситуации, в которые попадает объект в ходе выполнения программы. Например, если речь идет об объекте, представляющем документ, то к событиям можно отнести открытие и закрытие документа, добавление и удаление страниц (такие события в Word распознаются объектами Application и Document ). В Visio объекты Pages могут отвечать на девять различных событий, среди которых BeforeShapeDelete (Перед удалением графического элемента) и TextChanged (Изменение текста). Другие примеры таких не связанных с формами событий вы найдете в главе 4.

То, какие события данный объект может распознавать, определяете не вы, а ваше VBA-приложение. К вашим задачам относится создание программного кода, определяющего, что должен делать объект в ответ на распознаваемое событие. Здесь следует обратить внимание на такой момент: вам не нужно вызывать процедуру обработки события из программного кода- при наступлении соответствующего события объект автоматически предпримет запрограммированные вами действия.

Программирование процедур обработки событий для форм рассматривается в главе 10. Те же самые приемы, в основном, применяются и в случае не связанных с формами событий, правда, тут существуют некоторые тонкости, варьирующие от приложения к приложению, а иногда даже в рамках одного приложения. Исчерпывающая информация по этому вопросу должна содержаться в справочной документации вашего приложения или в файлах его справки.

Понимание объектных выражений

Объектное выражение представляет собой фрагмент программного кода – выражение, "указывающее" на конкретный объект. С помощью правильно построенного объектного выражения можно изменять свойства объекта, вызывать его методы или присвоить объект переменной.

Обсуждаемые здесь приемы исключительно важны для практического программирования с использованием VBA, хотя сразу понять их не очень просто. Из-за того что в программе могут использоваться много объектов одновременно, полное объектное выражение должно включать все объекты, содержащие нужный вам объект. Попробую пояснить это следующим образом. Предположим, вас просят отправиться и найти "того парня". Вы сразу же спросите: "Какого еще того?"' А вот если бы вас попросили найти самого старшего школьника, живущего в доме №3 по улице Цветочной в городе Шепетовка, Украина, то вам не пришлось бы задавать такой вопрос. (Правда. вы бы тогда, наверное, спросили "Зачем?'") Конечно, если вы уже находитесь в доме №3 по улице Цветочной, и в том доме живет только один школьник, то команда типа "покормить мальчишку" будет вполне адекватной. Точно так же, когда контекст ясен, и VBA не требует полного списка объектов.

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

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

Например, рассмотрим следующее выражение, идентифицирующее конкретный объект в документе Word;

ThisDocument.Sections(2).Range

В этом выражении не одна, а две точки. Посмотрите, Range является свойством объекта Section, который, в свою очередь, является свойством объекта ThisDocument. Возможно, чтобы понять идею, вам этого примера уже достаточно, но если нет, то в следующем разделе вы найдете более подробные объяснения.

В большинстве объектных моделей VBA объект Application (Приложение) находится на самой вершине иерархии. Однако обычно не возникает необходимости включать этот объект в выражения - VBA соображает достаточно неплохо для того, чтобы понять, что вы работаете с объектами текущего приложения, если вы специально не указываете иного.

Объект Application содержит объект Documents - коллекция, представляющая все открытые документы. Если вам нужно работать с конкретным документом, необходимо идентифицировать его среди членов этого объекта-коллекции Documents. Например.

Documents(5) представляет объект Document № 5 в коллекции Documents.

В примере объектного выражения вы, однако, видите ключевое слово ThisDocument. Во многих VBA-приложениях ThisDocument используется для обозначения объекта Document, ассоциированного с вашим проектом.

В Word каждый объект Document имеет свойство Sections, которое ссылается на коллекцию Sections, - объект, представляющий множество всех разделов документа. Поэтому первая часть указанного выше выражения - ThisDocument.Sections -идентифицирует конкретную коллекцию Sections, принадлежащую объекту ThisDocument. Идентифицировав объект Sections, вы получаете возможность выбрать конкретный член этой коллекции. Таким образом, Sections (2 ) ссылается на второй раздел документа.

Теперь о завершающей части выражения. Тонкость здесь заключается в том, что хотя .Range идентифицирует свойство объекта Section, значением этого свойства является объект Range. Таким образом, все выражение обеспечивает ссылку на этот объект Range.

Использование выражения, подобным образом прокладывающего путь к конкретному объекту сквозь дебри иерархии объектов, в профессиональной фразеологии VBA называется "получением объекта".

В рассмотренном выше примере объектного выражения

ThisDocument.Sections(2).Range

объект Sections представляет собой коллекцию. В VBA коллекцией называется объект специального типа, который может содержать любое число других объектов.

Определенные в VBA-приложениях коллекции обычно содержат объекты одного типа. Например, коллекции Sections в Word содержат только объекты Section, а коллекции Pages в Visio могут принадлежать только объекты Page. (Правда, VBA предлагает и родовой объект Collection, в котором вы можете разместить объекты любых типов. О том, как создавать и использовать свои собственные коллекции такого рода, говорится в главе 13.)

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

* Сослаться на объект по его месту или номеру индекса в коллекции. Именно это и сделано в рассмотренном выше примере объектного выражения - (2 ) задает ссылку на второй объект Section в коллекции Sections.

* Сослаться на объект по имени. Многие объекты имеют имена. Если вам известно имя объекта, который необходимо использовать, то вместо номера в объектном выражении можно указать имя. Например, в Visio объекты Page могут иметь имена, поэтому вполне допустим следующий пример:

ThisDocument.Pages ("Моя любимая страница")

Никто не любит вводить длинные и сложные объектные выражения, даже если они достаточно понятны, как выражение ThisDocument.Sections(2).Range.

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

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

Процесс создание объектной переменной можно разбить на два этапа.

1. Создание переменной, которая будет использоваться для хранения ссылки на объект.

2. Присваивание переменной ссылки на объект, с которым в дальнейшем необходимо будет работать.

Подробно каждый из этих этапов обсуждается в следующих двух разделах.

Объектные переменные объявляются точно так же, как переменные любого другого типа.

Стандартным при этом является использование оператора Dim (но точно так же, как и с переменными других типов, вы можете использовать в объявлении ключевые слова Public.Private или Static вместо Dim). Вот два примера объявления объектных переменных:

Dim objВеликийОбъект As Object ' типичный объект
Dim objShapeObject As Shape ' объект Shape

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

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

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

* Уменьшается вероятность появления ошибок. Как уже упоминалось, в этом случае VBA не позволит присвоить переменной объект неправильного типа. Кроме класса объекта, компилятор проверит также и остальную часть программного кода, чтобы убедиться в том, что вы везде используете только методы и свойства, допустимые для объектов данного класса. При поздней привязке компилятор не смог бы выполнить такую проверку, и попытка использования недопустимого свойства или метода обнаружилась бы только во время выполнения программы.

* Ускоряется выполнение программы. Поскольку компилятор может определить, имеет ли объект те методы и свойства, которые вызываются в программе, самой программе не придется тратить время на проверку этого во время ее выполнения.

* Упрощается программный код. Чтобы выяснить, для какого класса объектов предназначена данная переменная, вам нужно просто взглянуть на строку с ее объявлением.

Несмотря на все эти преимущества, поздняя привязка предпочтительнее в следующих двух ситуациях.

* Когда одну и ту же переменную предполагается использовать для объектов различных классов. Это оправданно, когда разным классам присуши одинаковые методы или свойства, используемые в программе. Имея подобную переменную, вам не придется переписывать программный код несколько раз, чтобы делать одно и то же с разными объектами.

* Когда объекты вызываются из других приложений и поэтому их нельзя объявить с помощью ранней привязки. Использование объектов из других приложений относится г к углубленным вопросам VBA-программирования (краткое обсуждение которых вы найдете в главах 10 и 19), но вам не мешает знать о таком потенциальном ограничении.

Как вы знаете, переменная типа Variant может хранить информацию любого типа, в том числе и ссылки на объекты. Если вы объявляете переменную без явного указания на то, что это объект, то, выбирая позднюю привязку, вы сможете разместить в ней ссылку на объект позже.

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

Set objShapeObject = ThisDocurcent.Pages(1).Shapes(4)

Обратите внимание, что синтаксис в данном случае немного отличается от того, каким вы присваивали данные обычным переменным (см. главу 9). Точно так же, как в случае данных других типов, между именем переменной и приписываемым ей объектом помещается знак равенства. Единственное отличие в том, что здесь оператор должен начинаться с ключевого слова Set.

Когда доступ к объекту уже не нужен, неплохо освободить объект от привязки к переменной. В результате программа сможет использовать участок памяти, ранее занятый объектом, а вы будете уверены в том, что ваш программный код не внесет по ошибке ненужные изменения в данный объект.

Сделать это совсем просто. С помощью оператора Set присвойте переменной ключевое слово Nothing, как в следующем примере:

Set objPriceIsNoObject = Nothing

Если объект, с которым вы собираетесь работать, еще не существует, вам придется его создать. В простых VBA-программах для этого используется метод Add, предназначенный для создания объектов, встроенных в ваше VBA-приложение, т.е. в приложение, с которым ассоциируется ваш проект. (В некоторых приложениях, возможно, именем такого метода будет что-то типа AddShape или AddDocument - проверьте в справочной системе приложения, чтобы знать точно.)

Самое главное - выяснить, метод Add какого именно из объектов следует применить. Цель - найти объект, который должен служить контейнером для создаваемого объекта. Обычно (но не всегда) подходящий контейнер представляет собой коллекцию.

Например, предположим, что нужно создать новый объект Layer в Visio. Объект Layer соответствует слою изображений в Visio. т.е. группе графических элементов, с которыми можно работать одновременно. Каждый объект Layer принадлежит объекту Layers, представляющему коллекцию из (одного или нескольких) слоев изображений. Исходя из лих соображений, для создания нового слоя вы должны выбрать метод Layers . Add.

Конечно, необходимо идентифицировать тот конкретный объект Layers, в котором

VBA придется создать ваш новый объект Layer. Коллекция Layers принадлежит конкретному объекту Page в объекте Document. Поэтому полностью оператор для создания нового объекта Laye r должен выглядеть примерно так:

ThisDocument.Pages(2).Layers.Add ( "Новый слой")

Объект Layer тоже имеет метод Add, но его нельзя использовать для создания подобного нового слоя. Метод Add объекта Layer добавляет объект Layer в данный слой, а не создает еще один такой же Layer.

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

АсtivePresentation.Slides.Add1.ppLayoutTextAndClipart

Как видите, новый слайд тоже добавляется в подходящий объект-контейнер - коллекция Slides.

Ввод длинных ссылок на объекты не приносит слишком много радости, а именно такие ссылки содержат операторы, использующие метод Add, - поэтому имеет смысл при создании объекта сразу же создать и переменную для этого нового объекта. Тогда в следующий раз вместо длинной ссылки на объект в программном коле можно использовать имя переменной. Вот пример использования такого подхода:

Dim objМойМалыш As Glide
Set objМойМалыш = ActivePresentation. Slides .Add 1, _
     ppLayoutTextAndClipart

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

* Создание новой копии объекта, уже существующего в проекте.

* Использование объекта из другого приложения или компонента ActiveX (COM).

* Создание экземпляра объекта на основе класса, созданного вами в модуле класса.

В зависимости от ситуации, при этом используется либо ключевое слово New в объявлении переменной или операторе Set, либо функция Create Object. Здесь я не собираюсь объяснять, как конкретно используется такая техника - она относится к тонким вопросам программирования и обсуждается в главах 10 и 19. Я только обращаю ваше внимание на существование ключевого слова Mev,- и функции CreateObjеct с помощью которых создаются обычные объекты.

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

Проверить идентичность двух ссылок на объекты можно с помощью оператора Is. Значением соответствующего выражения будет True, если ссылки идентичны, и False, если ссылки указывают на разные объекты. Вот фрагмент программного кода, иллюстрирующий использование оператора Is:

Dim objObject l As Object, objOb]ect2 As Object
If objObjectl Is objObject2 Then
MsgBox "Это тот же самый объект!"
Else
MsgBox "Это разные объекты."
End If

С помощью оператора Is можно сравнить объектную переменную и с объектным выражением, например, так:

If objObiect3 Is ThisDocument.Pages(2).Shapes(3) Then

Обратите внимание, оператор Is (как и любой другой оператор) нельзя использовать для выяснения идентичности содержимого двух объектов.

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

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

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

With objПолнаяОбъективность
.Name = "Опрос общественного мнения" ' установка свойства Name
.DisplayName ' вызов метода DisplayName
sngРегион = .Area ' выяснение значения свойства Area
intПодтасовка = .Rotate(60) ' вызов метода Rotate (Поворот)
' и сохранение возвращаемого им значения в переменной
End With

Как видите, конструкция With. . .End With может включать операторы, в которых читаются и устанавливаются свойства, вызываются методы. Обратите внимание на то, что данная конструкция не задает цикл - входящие в нее операторы выполняются только один раз.

Конструкции, использующие With, можно вкладывать одну в другую. Это удобно, когда нужно выполнить ряд действий и по отношению к некоторому объекту, и по отношению к одному из содержащихся в нем объектов. Пример предоставляет следующий фрагмент программного кода. В нем выполняются самые различные действия с объектом Block в AutoCAD. Во вложенной структуре With обрабатывается один из графических объектов, содержащихся в объекте Block.

Разобраться в деталях вам помогут комментарии.

With Block.Item("Монстр")
' Объект Block с именем "Монстр" делает следующее:
' переименовывает Block с помощью свойства Name
.Name = "Душечка"
' Выясняет число объектов в нем, с помощью свойства Count
intЧислоОбъектов = .Count
' Вызывает метод AddCircle
' для центра = 0 и для радиуса = 5
AddCircle (0#, 5#)
With.Item (1)
' эта вложенная структура With ссылается на первый
' графический объект в объекте Block
' графический объект перемещается с помощью метода Move
.Move (15, 20)
' изменяется свойство Color этого графического объекта
.Color = 221
End With
End With

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

IntНовыйЦвет = InputBox (" Введите число, задающее " _
& "цвет первого объекта в блоке " & .Name)
If .Count > 12000
MsgBox "Да этот блок просто гигант!"
End If

Вообще-то, управляющем структурам VBA (группам операторов, предназначенных для управления потоком выполнения программы) посвящена глава 8, но одну из таких структур мы рассмотрим здесь, потому что она используется только с объектами. Как аналог идеи цикла For. .Loop, в VBA структура For Each. . .Next представляет множество операторов, относящихся ко всем объектам в некоторой коллекции. Правда, хотя обе структуры выглядят очень похоже, между ними есть существенные различия по сути, и For

Each. . . Next проще в использовании. Вот синтаксис:

For Each элемент In группа
(операторы для выполнения при каждом проходе цикла)
Next элемент

Ключевым различием в использовании For Each. . .Next и For. . .Next является то, что здесь вам не требуется указывать число повторений выполнения цикла- это за вас выяснит VBA. В операторе For Each с помощью переменной элемент определяется тип объекта в коллекции, а с помощью аргумента группа задается коллекция, с которой нужно работать.

Следующий простой пример работает в AutoCAD, где коллекция Blocks является коллекцией объектов Block и каждый объект Block содержит неограниченное число графических объектов типа Cone (конус) или 3DFace (трехмерная поверхность). В этом фрагменте программного кода всего лишь отображается имя каждого объекта Block из коллекции Blocks:

Dim objB As Block
For Each objB In Blocks
        Debug.Print objB.Name
Next objB

Ясно, что этот пример мир не переворачивает, но вы должны видеть его потенциальную мощь. Структура For Each. . .Next может вызывать любую комбинацию действий, доступных после вызова методов и свойств объектов, входящих в коллекцию.

Когда вам нужна определенная игла в коробке с иглами, другие иглы вас не интересуют.

Чтобы выполнить определенные действия по отношению к одному конкретному объекту в коллекции, используйте внутри структуры For Each. . .Next оператор If. . .Then.

Когда условие If... Then обнаружит объект вашей мечты, дальше искать станет бессмысленно, и тогда быстрый выход из цикла обеспечит оператор Exit For.

Снова обратившись к коллекции Blocks из AutoCAD, рассмотрим следующий пример:

Dim objК As Block
For Each objK In Blocks
If objK.Name = "Ерунда"
objK.Delete
Exit For
End If
Next objK

В этом примере вложенная конструкция If. . . Then используется для того, чтобы обнаружить объект Block с именем "Ерунда" среди всех объектов Block в коллекции Blocks.

После того- и только после того- как нужный Block найден, выполняются операторы внутри структуры If... Then. "Выполняются" здесь относится, главным образом, к первому из операторов, который удаляет объект Block. Миссия завершена. Цикл больше не нужен, поэтому Exit For прерывает его, и программа может продолжить свою работу.

Ссылка на элемент массива

Каждый массив в VBA имеет имя, т.е. аналог заголовка списка на листе бумаги. Чтобы работать с отдельным элементом массива, нужно сослаться на него по имени массива и индексу - целому числу, соответствующему месту элемента в массиве. Например, выражение intLottoArray ( 3 ) ссылается на третий (или четвертый, в зависимости от системы нумерации) элемент массива с именем intLottoArray. Как вы, наверное, догадались, intв начале имени массива говорит о том, что в этом массиве предполагается хранить целые значения. Поэтому можно утверждать, что данные, хранящиеся в intLottoArray (3), представляют собой целое число.

Данные массива

При работе с массивами нужно помнить следующее.

* Можно создавать массивы данных любых типов. VBA с успехом хранит в массивах строки, даты, денежные значения и данные любых числовых типов.

* В одном массиве могут храниться данные только одного типа. Нельзя создать массив с раздельными ячейками для хранения и данных типа Date и данных типа String.

Правда, второе ограничение очень легко преодолеть. Как вы уже знаете, тип данных Variant допускает хранение данных любого из допустимых в VBA типов, и массивы данных типа Variant тоже вполне допустимы. Здесь следует иметь в виду, что информация, хранимая в виде данных типа Variant, занимает существенно больше места в памяти, чем та же информация в виде данных более определенного типа; для массивов произвольной длины это может потребовать дополнительно очень значительного расхода памяти. Но необходимость поместить в один массив неопределенной длины набор данных различных типов возникает крайне редко.

С другой стороны, довольно часто необходимо работать с наборами родственных в некотором смысле элементов разного типа. Именно такие наборы составляют структуру типичной базы данных. В базе данных для хранения адресов, например, каждая запись представляет собой некоторый набор элементов информации (имя и адрес), относящихся к одному объекту (человеку). Для подобных данных как раз и предлагается создавать пользовательские типы данных- как это сделать, вы узнаете чуть позже, в разделе "Определение своих собственных типов данных").

Объявление массивов

Как и обычные переменные, массивы должны быть объявленными. При этом объявление массива по форме отличается от объявления переменной только в одной дополнительной детали. Вот несколько примеров:

' Объявление одномерного массива данных типа Date:
Dim datTimeOfImpact (cdatMaxObservations) As Date
' Объявление массива типа Currency без объявления размера:
Public curPriceQuot es () As Currency
' Объязление четырехмерного массива типа Integer:
Dim intArrayOf Integers (34, 13, 29, 4) As Integer

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

(Обратите внимание, что в первом из вышеприведенных примеров размер одномерного массива задается именованной константой.)

Не забудьте при объявлении массива указать тип данных, включив в объявление массива As Type с подходящим ключевым словом, задающим тип. Если не указать тип, VBA создаст массив типа Variant, в результате чего требования вашей программы к памяти возрастут, а ее выполнение замедлится. Массивы данных типа Variant допустимы и в некоторых ситуациях могут быть вполне подходящим решением, но всегда, когда это возможно, лучше назначать массивам конкретный тип данных.

Общее число элементов данных в массиве равно произведению величин, характеризующих каждое из его измерений, - вы об этом уже знаете. Но здесь нужно обратить ваше внимание на одну деталь. Число элементов в массиве intArray Of Integer s в третьем объявлении из предложенного выше примера равно 35x14x30x5, так что это маленькое объявленьице резервирует место для массивчика из 73500 элементов.

Вы можете спросить, почему я считаю, что размер массива по каждому из его измерений на единицу больше соответствующих значений в объявлении (35 вместо 34 и т.д.). Ответ вы найдете ниже.

Нумерация элементов массива

Если вы не укажете иное, элементы массива индексируются (т.е. нумеруются) начиная с 0; говоря иначе, первым в массиве будет элемент с индексом 0. По этой причине значение, задающее размерность массива в объявлении, должно быть на единицу меньше числа элементов, которые предполагается иметь. Например, если предполагается создать массив из 10 элементов, для размера нужно указать значение 9.

Об этом не следует забывать, когда придется обращаться к элементам массива. Ссылка типа intMaccив (1) на самом деле означает обращение ко второму элементу в массиве.

Если же вам не нравится отсчет от 0, можно начать нумерацию элементов в любом массиве от другого числа - обычно от 1. Чтобы заставить VBA нумеровать все массивы от 1. поместите в раздел объявлений модуля (перед всеми процедурами) оператор

Option Base 1

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

Можно задать схемы нумерации и для каждого из измерений в отдельности. Например:

Dim sngNumbers (55 То 75, 7 Тo 16, 99)

В этом примере объявляется трехмерный массив, в котором по первому измерению имеется 21 место, с началом нумерации от 55 до 75; по второму - 10 мест с началом нумерации с 7, а последнее измерение предполагает наличие 100 месте нумерацией от 0.

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

Dim strХорошиеМысли (9, 19) As String

объявляет двумерный массив, который всегда будет содержать 30 строк и 20 столбцов строковых данных (конечно, массив на самом деле не содержит данные в строках и столбцах, по мысленное представление массива в виде подобной таблицы очень удобно).

Фиксирование размера массива при его объявлении определенно можно рекомендовать, если точно известно, что изменение размера массива не потребуется.

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

Оценка преимуществ использования коллекций

Если вы чувствуете себя вполне уверенно при работе с объектами VBA, то использование объектов Collection для управления множествами элементов может оказаться для вас более простым, чем использование массивов. Методы Add и Remove позволяют без труда изменять размеры коллекции, и при этом вероятность возникновения ошибок будет меньше, чем при использовании оператора ReDim в разных частях программы. (Эти преимущества становятся особенно важными, если необходимо часто добавлять и удалять элементы группы.)

Кроме того, элементам коллекции можно назначить имена, по которым позже получают доступ к элементам. При этом вы не только получите возможность выбрать описательные имена, которые легко запомнить, но ускорите доступ к данным, особенно при числе элементов, превышающем 100.

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

Но самое главное ограничение при использовании объектов Collection - запрет па хранение в них данных пользовательского типа, т.е. их нельзя непосредственно использовать с базами данных (см. ниже раздел "Определение своих собственных типов данных"). Правда, с помощью несложных приемов программирования это ограничение довольно просто обойти. И кроме того, серьезно работая с VBA с базами данных, вы все равно, скорее всего, будете использовать готовые объекты из ядра Microsoft Jet (DAO) и библиотек ODBC, а не объекты, созданные кустарным способом.

Создание объектов Collection

Объекты Соlection создаются в программе точно так же, как и любые другие объекты, с использованием ключевого слова As для определения типа. Как и с другими объектами, вас есть на выбор два варианта.

* Можно объявить имя переменной для объекта и затем использовать оператор Set, чтобы создать ее. При этом в операторе Set нужно использовать ключевое слово New, чтобы создать новую коллекцию. Например:

Dim colMixedBag As Collection

* * *

Set colMixedBag = New Collection

' создание коллекции

colMixedBag.Add "Howard, Ethel"

' добавление элемента

* Можно обязать VBA создать объект автоматически при первом использовании переменной в программном коде. Для этого нужно поместить ключевое слово New в объявление переменной;

Dim colSetOfStuff As New Collection

* * *

' следующий оператор создает коллекцию

' при добавлении в нее целого значения

colSetOfStuff.Add intStuffing

Для заполнения созданной коллекции данными используйте метод Add (Добавить) точно так же, как при добавлении объектов во встроенные коллекции VBA-приложения (см, главу 12). Примеры использования метода Add вы найдете и в предыдущем разделе.

Синтаксис метода Add выглядит так:

Add (элемент[, имя] [, before индекс] [, after индекс])

При этом выражение элемент обязательное, оно может быть буквальным значением, переменной, ссылкой на объект или более сложным выражением, составленным из этих компонентов, - в общем, всем, что возвращает значение, распознаваемое VBA. Остальные аргументы метода Add необязательны, они обсуждаются в следующих разделах.

В общем-то, всегда можно обратиться к элементу коллекции по его индексу в этой коллекции, ло зачастую удобнее назначить элементу информативное имя. Для этого нужно при добаюекии элемента R коллекцию указать его имя в виде строки:

colFinancials - Add 14 32 3 . 44, "Продажи за февраль"

В этом операторе в коллекции colFinancials добавляется значение 14323 .44. Одновременно для этого элемента создается имя. Вполне допустимо при задании имени использовать переменную типа String.

Имя не только легче запомнить, чем индекс, оно, к тому же, обеспечивает единственный надежный способ доступа к конкретному элементу коллекции. При использовании методов Add и Remove позиции элементов данных в коллекции могут меняться. Даже если элемент с №69 станет 29-м, вы все равно сможете воспользоваться значением этого элемента, если знаете его имя.

Имя элементу можно присвоить только с помощью метода Add. Чтобы присвоить имя элементу, уже существующему без имени, придется удалить имеющуюся копию с помощью Remove и использовать Add для добавления элемента снова.

Иногда удобно разместить элементы коллекции в определенном порядке. И даже если при этом нельзя добавлять элементы в нужном порядке последовательно, то все равно нет проблем - метод Add позволяет вставлять элементы туда, куда требуется, просто доя этого нужно использовать аргументы before (.перед) и after (после).

Предположим, что вам нужно вставить новый элемент перед 35-м элементом в коллекции.

Вы можете использовать для этого оператор следующего вида:

colAnimals. Add strSpecies, before 35

Добавленный элемент станет 35-м элементом коллекции, подвинув все последующие (В отличие от- массивов, элементы коллекций нумеруются с 1.) Чтобы сообщить VBA, где вставить новый элемент, можно использовать и имя существующего элемента, например:

colОвощи. Add = stiCopt, after "Помидор"

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

Ясно, что в оператор, использующий метод Add, можно включить либо before, либо after, но никак не оба этих аргумента.

Для добавления в коллекцию множества элементов можно использовать цикл For . . . Next, подобно тому, как это делалось с массивами. Например:

Dim X As Integer, Y As Integer
У = 12
For X = 1 To 30
        colHouseOfValues.Add Y * X
Next X

Говоря очевидное, сообщаю вам, что метод Remove удаляет элемент из коллекции. Объект для удаления можно задать либо с помощью индекса, либо с помощью имени, например:

colМинералы.Remove 2123
colМинералы.Remove "Боксит"

Не забывайте, что при удалении элемента, VBA, так сказать, "заполняет дыры" - номера всех элементов, следующих за удаленным, уменьшатся на 1.

Запутаться в размерах коллекции несложно, особенно после многократного использования Add и Remove. Родовой объект Collection имеет только одно свойство – Count (подсчет), - но, в силу вышесказанного, это свойство оказывается жизненно важным. Значение этого свойства можно присвоить переменной, например, так:

intРазмерКоллекции = col20Вопросов.Count

Его можно также использовать в условном выражении, как здесь:

If colPrices.Count > 1000
        MsgBox "Слишком много позиций!"
End If

Кроме того, значение свойства Count можно использовать в цикле For . . . Next, чтобы выполнить некоторые действия по отношению ко всем элементам коллекции, например:

Dim Z As Integer
For Z = 1 To col Prices.Count
        MsgBox "Цена " & col Prices ( Z)
Next Z

Но лучше для этого использовать цикл For Each. . . Next (см. главу 8).

Чтобы идентифицировать конкретный элемент в коллекции, используется индекс элемента или его имя (если оно определено). Например, значение элемента коллекции можно присвоить переменной:

datДеньРождения = colДниРождения("Василий Али-Бабаевич")

К сожалению, вам придется отслеживать имена самим - VBA не предлагает возможности прочитать имена элементов коллекции. Кроме того, нельзя изменить имя элемента иначе, как удалив этот элемент из коллекции и затем добавив его вновь.

Точно так же нельзя в существующий элемент коллекции поместить новое значение. Следующий оператор присваивания работать не будет: colInventory(1465) = 119

Опять же, единственный способ изменения значения в коллекции - удаление соответствующего элемента и добавление нового с новым значением. Подобных ограничений нет для объектов Dictionary (словарь), которые обсуждаются в главе 14.

Как уже было сказано, применение класса Collection VBA ограничивается тем, что в нем нельзя хранить данные пользовательских типов. С этим ограничением можно смириться, если выбрать подходящую систему создания имен элементов. В следующем примере при каждом проходе цикла For. . .Next в коллекции создается запись базы данных. Эта запись состоит из трех полей, каждое из которых идентифицируется именем, составленным из простого описательного признака и номера записи. Вот соответствующий программный код:

Dim I As Integer, strName As String

Dim strPhone As String, strAddress As String

For I = 1 To Total ' I идентифицирует номер записи

' получение данных для этой записи

strName = InputBox("Введите имя для этой записи")

strPhone = InputBox("Введите номер телефона для _ этой записи")

strAddress = InputBox("Введите адрес для этой записи")

' Добавление "полей" для этой записи в коллекцийе

colDatabase.Add strName, "Имя" & I

colDatabase.Add strPhone, "Номер телефона" & I

colDatabase.Add strAddress, "Адрес" & I

Next I

Впоследствии можно извлечь информацию, хранимую в отдельной записи по описательному признаку и номеру, как в следующем операторе:

MsgBox colDatabase("Имя2")

Если вы собираетесь создавать реальные программы для управления информацией в базах данных, не используйте для этого коллекции объектов - они имеют слишком много ограничений. Вместо этого используйте подключаемые компоненты доступа к базам данных (соответствующие примеры вы найдете в главе 14). Если же вы хотите выполнить всю работу самостоятельно, создайте свои собственные классы для объектов, позволяющих работать с пользовательскими типами данных. Ваши объекты должны позволять хранить в них любые комбинации данных, которые могли бы извлекаться как свойства. Кроме того, неплохо было бы добавить программный код для проверки правильности сохраняемой в отдельных элементах информации. (Модули классов рассматриваются, хотя и не слишком подробно, в главе 14.)

Знакомство с пользовательскими типами данных

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

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

Объявление пользовательского типа данных

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

Туре Персона

intНомер As Integer ' номер работника

strФамилия As String

strИмя As String

strAдpec As String

lngТелефон As Long

datДатаНайма As Date

End Type

Здесь объявляется новый пользовательский тип данных Персона. Как ясно показывают строки с отступами, этот тип состоит из целого значения, трех строковых значений, длинного целого и даты. (Обратите внимание на то, что при объявлении типа необходимо назначить каждому элементу имя - простого указания типа данных недостаточно.) Когда вы объявите переменную типа Персона, в этой переменной автоматически будет предусмотрено место для всех шести элементов, перечисленных в объявлении типа.

Обратите внимание и на то, что для оператора type требуется оператор End Туре, завершающий блок объявления. Если вы забудете об этой завершающей строке, компьютер будет ругать вас.

И еще: пользовательский тип можно объявить только на уровне модуля (в разделе объявлений в самом начале модуля). Внутри процедуры объявить пользовательский тип нельзя.

Объявление переменных пользовательского типа

Как и встроенные типы данных, пользовательский тип остается абстрактным понятием до тех пор, пока вы не объявите переменную соответствующего типа. Для этого не требуется что-то особенное- годится стандартный синтаксис объявления обычных переменных. Точно так же в объявлениях переменных пользовательского типа можно использовать ключевые слова Publiс, Private и Static. Вот пример объявления такой переменной с помощью стандартною оператора Dim:

Dim usrРаботник As Персона

Как видите, при этом не требуется объявлять элементы внутри пользовательского типа.

И хотя оператор Dim задает имя новой переменной, имена ее элементов фиксируются в объявлении соответствующею пользовательского типа.

Чтобы получить целую базу данных вашего пользовательскою типа, объявите массив с помощью оператора следующего вида:

Private Персонал( 1 То 25) As Перcона

Обработка информации, представленной пользовательским типом данных

После объявления переменной пользовательского типа ее можно "начинять" информацией. При этом необходимо присвоить значение каждому из элементов, составляющих тип.

А для этого нужно идентифицировать элемент с помощью имени переменной, за которым следую почка и имя элемента. Например:

usrРаботник.strФамилия = "Ёлкин"

При заполнении нескольких элементов сразу оператор With поможет сократить объемы необходимого печатания. Вот пример использования этого оператора:

"With из usrРаботник

.strФамилия = "Исаков"

.strИмя = "Василий"

.datДатаНайма - #12/9/48#

End With

Для присвоения данных элементам в массиве пользовательского типа используйте стандартные индексы массива. В следующем примере такой индекс задается переменной:

Персона ( intНомер).strИмя = "Марфа"

Работа с переменными пользовательского типа данных

Если переменная пользовательского типа хранит полный набор данных, можно присвоить ее содержимое другой переменной того же типа- все содержимое сразу, без копания в элементах, из которых состоят эти переменные. Например, чтобы присвоить содержимое переменной изгРаботник второй ячейке в массиве Персонал, используйте оператор

Персонал(2) = usrРаботник

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

Sub WriteData()
Open "С:\Database\Сотрудники.dat" For Binary As #1
For i = 1 To intРазмерБазыДанных ' цикл по всем записям
                Put #1, , Персонал(i)
Next i
Close #1 ' закрытие файла - обязательный шаг
End Sub

Чтение данных из файлов и запись данных в файлы на диске обсуждаются в главе 18.

Работа с определенными кнопками

Если вам необходимо настроить параметры определенной кнопки, вам необходимо идентифицировать эту кнопку в VBA-коде.

Вы можете указать кнопку одним из следующих способов.

* Используя индексный номер кнопке в коллекции Controls объектов панели инструментов, к которой она относится. Индексный номер кнопки соответствует ее расположению на панели инструментов; при этом кнопке, расположенной в крайнем левом (или в крайнем верхнем) углу, соответствует индексный номер 1. Ниже приведен пример подобного обращения к объекту:

CommandBars ("Bar None").Controls ( 3)

Проблема состоит в том, что Office позволяет пользователям перетаскивать кнопки по панели инструментов, поэтому ничто не гарантирует, что вы обращаетесь именно к той кнопке, которая вам необходима.

* Использование свойства Caption кнопки. Вы можете ввести любой заголовок, используя пользовательский интерфейс Office. Выберите команду Сервис=Настройка, перейдите на вкладку Команды появившегося диалогового окна Настройка. Щелкните на интересующей вас кнопке правой кнопкой мыши, чтобы увидеть имя кнопки. Следующая команда ссыпается на кнопку, свойство Caption которой равно "Угадай мой вес".

CommandBars("BarNone").Controls("Угадай мой вес")

Вы можете определить заголовок прямо в программном коде, но вам все равно придется указать кнопку одним из других способов.

* Используя метод FindControl коллекции CommandBars для обнаружения кнопки. Этот метод обнаруживает кнопки по нескольким критериям. Наиболее полезным оказывается использование свойства Tag. Однако, чтобы оно сработало, вам сначала необходимо присвоить этому свойству уникальное значение, используя инструкцию, подобную приведенной ниже.

CommandBars ("Bar None").Controls (,,"Tag0l")

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

CommandBars.FindControl(, , "Tag0l")

В этом примере запятые относятся к необязательным параметрам метода FindControl, которые не потребуются вам при нахождении элементов управления (в нашем случае, кнопки) по свойству Tag.

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

Отображение пользовательских экранных подсказок для кнопок на панели инструментов

Экранные подсказки- это те небольшие сообщения желтого цвета, которые появляются на экране после подведения указателя мыши к определенному элементу на одну-две секунды.

Экранные подсказки для панелей инструментов должны быть включены, и по умолчанию это именно так. Если же это не так, выберите команду Сервис=Настройка, перейдите на вкладку Параметры, после чего установите флажок Отображать подсказки для кнопок.

По умолчанию экранная подсказка для кнопки содержит только ее имя. Однако, если вы не боитесь немного попрограммировать на VBA, вы сможете добавить текст к экранной подсказке, изменив ее свойство ToolTipText. Приведенный ниже программный код добавляет экранную подсказку для воображаемой кнопки в Excel:

Sub Этой_Кнопке_Нужна_Экранная подсказка!)
CommandBars("Mr. GoodBar").Controls ( 2).ToolTipText = _
        "Форматирование ячейки: по центру, полужирный, денежный"
End Sub

Вам необходимо выполнить эту процедуру всего один раз. Поскольку Office сохраняет новые экранные подсказки в шаблоне документа, с которым вы работаете, вы можете удалить процедуру в любое время.

Контроль над Помощником

Используйте свойства объекта Assistant (табл. 14.1) для контроля за тем, как и когда

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

Таблица 14.1. Свойства объекта Assistant