Выношу на суд общественности, принимаются предложения, поправки, дополнения.
Думаю, что также нужно больше примеров.
------------------------------------------------------------------------------------
Заглавное утверждение этой статьи:
Уберите из своего кода Select, Selection, Activate
а также то, что начинается с Active (ActiveSheet, ActiveDocument, ActiveWorkbook, ActiveCell и т.п.)
Теперь разберем подробнее.
А почему нужно от всего этого избавиться?
Во-первых – код можно сильно сократить, его будет легче читать, разбирать, редактировать, он будет работать быстрее.
Во-вторых – это источник глюков программы, зачастую трудноуловимых. Прежде всего это вмешательство пользователя. Пока программа работает, пользователь может тыкнуть мышкой куда попало, переключиться на другое окно и т.п. Выделение или активная книга меняется и в лучшем случае программа вылетает, в худшем – запорет нужные данные. Также я сталкивался, что разные версии офиса могут вести себя по-разному с активными документами, и программа, написанная в одной версии Экселя, работая с ActiveWorkbook, неверно работала в другой версии.
Откуда все берется?
Ну прежде всего из записи макросов. Стандартная и разумная рекомендация – если не знаешь, как сделать что-то – запусти запись макроса и сделай нужные действия. Но только макрос ведь пишет все действия пользователя, а пользователь сначала выделяет объект, а потом с ним что-то делает. Поэтому и получается, что макрос сначала записывает команду Select, а потом какие-то действия над Selection.
Записав макрос, дальше стоит его разобрать, вычленить необходимые методы и функции и убрать лишнее. Или посмотреть, как записался макрос, а дальше писать свою программу.
Как избавиться?
Рассмотрим на примере Экселя. Прежде всего сама книга. В большинстве случаев ActiveWorkbook надо заменить на ThisWorkbook. ActiveWorkbook – это активная книга (которую, как я упоминал, пользователь или какие-то обстоятельства могут изменить). А ThisWorkbook – это книга, в которой находится ваша программа и она всегда одна и та же, даже если активная книга поменялась.
Иногда ActiveWorkbook используется для работы с другой книгой, открытой или созданной из текущей. В этом случае надо поступить следующим образом:
1.
2.
3.
4.
5.
6.
7.
'объявляем переменную, которую будем использовать
'для ссылки на нужную книгу
Dim OtherWorkbook As Workbook
'затем создаем новую книгу:
Set OtherWorkbook = Workbooks.Add
'... или открываем существующую:
Set OtherWorkbook = Workbooks.Open("c:\blablabla.xls")
С полученной переменной можно делать то, что раньше делалось через ActiveWorkbook. Например закрыть эту книгу:
А как избавиться от Selection?
К примеру, мы покрасим текст в нескольких ячейках на другом листе. Записанный макрос будет выглядеть так:
1.
2.
3.
Sheets("Лист3").Select
Range("C17:D20").Select
Selection.Font.ColorIndex = 3
Но это запись действий пользователя. А нам совсем необязательно повторять все за пользователем. Мы можем покрасить текст напрямую:
1.
Sheets("Лист3").Range("C17:D20").Font.ColorIndex = 3
А если это нужно сделать в ранее созданной (см. выше) другой книге, то так:
1.
OtherWorkbook.Sheets("Лист3").Range("C17:D20").Font.ColorIndex = 3
А когда работа с Select, Active и прочим все же требуется?
В немногих случаях. Во-первых, когда требуется взаимодействие с пользователем. Например, пользователь на свое усмотрение выделил какой-то диапазон ячеек, а нам его нужно программой обработать. Тогда мы как раз и обращаемся к Selection. Или когда пользователю после завершения работы макроса требуется что-то отобразить или выделить. Тогда мы используем Activate или Select (как правило, как последнюю команду в работе программы).
Во-вторых, есть все-таки ситуации, в которых не обойтись без Select. Я пока столкнулся с одной ситуацией, в которой не нашел другого пути (впрочем, это не значит, что его нет), а именно программное закрепление областей в Экселе:
1.
2.
Range("B2").Select
Windows(1).FreezePanes = True
