Стив Каммингс vba для чайников

Интересный факт. В окно 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, но разделы, там свернутые, теперь развернуты

Зачем редактировать значения переменных

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

* Предыдущая строка программного кода содержит ошибку, в результате которой переменной присвоено неправильное значение. Вы это заметили, но хотели бы продолжить выполнение программы. Прежде чем продолжить, неплохо было бы исправить значение переменной, чтобы ошибка не повлияла на последующие операторы.
* Вы хотели бы проверить выполнение программы при разных значениях переменной, не меняя текста самой программы. В таком случае используйте команду Set Next Statement (Назначить оператор следующим), чтобы повторить выполнение фрагмента программы несколько раз, задавая при этом разные значения в окне Locals.
* Реальные значения, которые программа будет получать в процессе ее использования, ей сейчас недоступны (например, программа должна считывать информацию из базы данных или из Internet). В этом случае с помощью окна Locals вы можете имитировать получение программой подходящих значений.

Как редактировать значения переменных

Для того чтобы изменить значение переменной в окне 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 метка. Здесь метка означает ссылку на метку, размещенную где-то в процедуре, но, очевидно, не на метку, идентифицирующую начало программного кода обработчика ошибок. Ясно, что в данном случае вы должны задать соответствующую метку в процедуре.