Книга
← К списку книгЗагрузка разделов…
активнаАктивные записи участвуют в каталоге и синках. Неактивная книга скрыта, но не удалена из базы.
Книга
А. Гладкий, А. Чиртик
^^эфф=ктб.
Excel
Оглавление
Введение11
Структура книги.11
Общие положения12
Назначение и функциональные возможности Microsoft Excel 13
Используемая терминология 13
Тексты программ на сайте издательства 16
От издательства16
Глава 1. Краткое руководство по VBA 17
Знакомство с VBA18
Возможности VBA18
Структура проекта VBA18
Структура модуля VBA21
Соглашения, применяемые при описании синтаксиса VBA21
Комментарии в программе23
Идентификаторы 23
Переменные24
Встроенные типы данных24
Ссылки. Тип данных Object 26
Объявление переменных 27
Инициализация переменных 28
Явное и неявное объявление переменных.. 28
Константы 29
Операторы ..29
Операторы для работы с численными значениями.. 29
Операторы сравнения 30
Логические операторы 32
Массивы „32
Объявление массива ..33
Задание нижней границы по умолчанию .... 34
Изменение размера массива34
Определение границ массива35
Доступ к элементам массива35
Использование переменной Variant при работе с массивами35
Использование функции Array для заполнения массива36
Краткое содержание
Введение11
От издательства - 16
Глава 1. Краткое руководство no VBA17
Глава 2. Рабочая область Microsoft Excel80
Глава 3. Создание трюков с помощью макросов16В
Глава 4. Трюки и эффекты с помощником281
Глава 5. Эксперименты с диаграммами289
Глава 6. Создание полезных программ 306
Глава 7. Полезные советы 339
Приложение. Основные объекты Excel351
Алфавитный указатель 367
Д. Д. Гладкий, А. А. Чиртик
Excel Трюки и эффекты
Серия «Трюки и эффекты»
Заведующий редакцией Руководитель проект* Научные редакторы Художник Корректоры Верстке
Д, Гуре кий
М Моисеева
М. Моисеева, А. Чиртик
А. Гитсрво
Т Курьхиович, Е. Павлович
Д.Коршук
ББК 32 973.23-018.2
УДК 004.42
Гладкий А. А-, Чиртик А. А.
Г52 Excel. Трюки и эффекты. — СПб.: Питер, 2006. — 368 с.: ил. — (Серия «Трюки и эффекты»)
ISBN 5-489-01223-9
Даннах книга предназначена для пользователей Microsoft Excel н содержит описание приемов и методов работы, которые ввиду своей специфичности недостаточно представлены (либо вообще не представлены) в пользовательской, справочной н иной соответствующей документации. Изучение приведенных в иные примеров позволит читателю открыть для себе неизвестные ранее возможности Excel. Предлагаемый материал легко уеммваетев благодерх тому. что излагается доступным и понятным языкам
© ЗАО Издательский дом «Питер». 2008
Все прем aauiwuew. Ни навив часть данной книги не может быть воедхжзеедана в «ей бы тс mi было Форме бн пивьмаиноттт разрешения алада льдах авторских прав.
Информация, оадержащаяс* а даней eave, годучана м источников, рассматриваемы» иапггшжстеоы кас иадемад*. Там на менее, имея в виду есяможные чепоаенасвиа или тахивчео»* ошмбям, надататмство и» может твреитирозеть абсоттякуто тон. кость и попшту приводимых старений и не песет отаепттаанноеть хе вотмежные ошибки, сия венные с мел Ольхованивы книги.
ISBN 5-46901223-9
ООО *Пхт»р Притт. 194044. Свлхт-Петербург. Б.СаыпсоюнксххЯир 29а.
Лшеям* ИД Н 05714 от 07.Q9.OJ.
Налогов** льгот* — обивроесайсгаЯ хвюсафахжгор продухи** ОК 005-93, том 2;953005— литере тура учабивх-Поллхстио в печать 01)2.05 Форист ?0Х)00 /н. Усл.п. л. 29.67, Тираж 3500 до. ЗашМ 6843.Отпечатено с пловы* лвдпеоятиаов * ФГУП «Печатные двор* ам. А. М. ТорысогоФедерального агентств* по печати и массовым коммупикацивм-)971!О.Свнкт-Пстербург. ЧквлоесхиО пр.. 15.
А. Гладкий, А. Чиртик
/лрюкиОэФ*®^"
^ПИТЕР*
Москва - Санкт-Петербург • Нижний Новгород - ВоронежРостов-на-Дону - Екатеринбург - Самара • НовосибирскКиев - Харьков - Минск
2006
6868Глава 1. Краткое руководство по УВА
68
68
Таблица 1.12. Значения, используемые для формирования стиля окна (продолжение)
Констант! VBA
Значение
Пояснение
vbDefaultButtonl
0
Выделяется первая кнопка (слева направо)
vbDefaultButton2
256
Выделяется вторая кнопка
vbDefau!tBution3
512
Выделяется третья кнопка
vbDefaukButton4
768
Выделяется четвертая кнопка
vbApplicationModal
0
До закрытия окна пользователь не может работать с приложением
vbSysiemModal
4096
До зажрытня окна пользователь не может работать со всеми приложениями
vbMsgBoxHelpButton
16384
Отображение кнопки Help (Справка)
vbMsgBoxSctForeground
65536
Нс отображать охао сообщения поверх всех других
vbMsgBoxRight
524288
Выравнивать текст по правому краю
vbMsgBoxRtlRcading
1048576
Включить режим вывода текста справа налево
После того как пользователь закроет окно, функция возвратит значение, соответствующее нажатой в нем кнопке. Возможные значепия, возвращаемые функцией MsgBox, И их объяснения приведены в табл. 1.13.
Таблица 1.13. Значения, возвращаемые функцией MsgBox
Константа VBA
Значение
Нажатая кнопка
vbOK
1
OK
vbCancel
2
Cancel (Отмена)
vbAbort
3
Abort (Стоп)
vbRetry
4
Retry (Повтор)
vblgnore
5
Ignore (Пропустить)
vbYcs
6
Yes (Да)
vbNo
7
No (Нет)
Обработка ошибок времени выполнения
Иногда в процессе работы программы возникают ситуации, когда та иля иная инструкция не может быть выполнена, например при попытке расчета значения выражения. в котором происходит деление на ноль, или при обращении к приводу компакт-дисков, когда диска в нем нет. В таких случаях генерируется ошибка времени выполнения. Если в программе не предусмотрен перехват ошибок, то будет выдано соответствующее сообщение об ошибке, а выполнение программы прекратится. Согласитесь, такое поведение программы является отнюдь не самым лучшим и дружественным по отношению к пользователю.
Коллекции 36
Добавление элементов37
Количество элементов в коллекции37
Удаление элементов из коллекции38
Доступ к элементам коллекций 38
Определяемые пользователем типы данных 38
Структуры38
Перечисления 41
Управление выполнением программы 42
Циклы43
Инструкции выбора46
Инструкции безусловного перехода49
Процедуры и функции _51
Объявление процедур 51
Вызов процедур 53
Объявление функций. Возврат значения54
Вызов функций55
Особенности передачи параметров56
Определение и преобразование типов переменных 56
Определение типов переменных 58
Преобразование типов 60
Файловый ввод/вывод 61
Открытие файлов61
Дескрипторы файлов. Функция FreeFile 62
Закрытие файлов .-...63
Чтение из файлов и запись в файлы 63
Определение конца файла 66
Определение текущей позиции файла 66
Стандартные окна сообщений ... 67
Обработка ошибок времени выполнения .......68
Перехват ошибок.69
Обработка перехваченных ошибок 69
Классы в VBA71
Создание класса на VBA 71
Свойства класса 72
Методы класса 73
Использование класса в программе_ 73
Использование API-функций в VBA..74
Объявление API-функций75
Вызов API-функций76
Использование объектов Excel 76
Объектная модель Excel 77
Доступ к объектам Excel из программы 78
Глава 2. Рабочая область Microsoft Excel ВО
Рабочая книге 81
Автозапуск любимого файла при загрузке Excel 81
Эксперимент с кнопкой Закрыть на панели инструментов81
Общий макрос для всех книг Excel 82
Восстановление важной информации из испорченного файла83
Быстрое размножение рабочей книги83
Сохранение рабочей книги с именем, представляющим собой текущую дату84
Создание книги с одним листом85
Установка и снятие защиты рабочей книги85
Закрытие рабочей книги только при выполнении условия86
Быстрое удаление из рабочей книги ненужных имен87
Сортировка листов в текущей рабочей книге88
Импорт данных, для которых нужно более 256 столбцов92
Рабочий лист95
Листы-синонимы 95
Автоматическая вставка URL-адреса 95
Быстрый переход по рабочему листу 96
Разные листы с общими данными 97
Рисование «правильных* фигур97
Скрытие данных от посторонних97
Новый лист — через макрос98
Блокировка использования контекстного меню98
Вставка колонтитула с именем книги, листа и текущей датой 99
Проверка существования листа 99
Проверка, защищен ли рабочий лист 100
Сколько страниц на всех листах? 101
Автоматический пересчет данных таблицы при изменении ее значений 101
Ячейка и диапазон ЮЗ
Быстрое заполнение ячеек103
Автоматизация ввода данных в ячейки103
Ввод дробных чисел104
Сбор данных из разных ячеек 105
Выделение диапазона над текущей ячейкой 105
Поиск ближайшей пустой ячейки столбца 106
Поиск максимального значения в диапазоне 106
Автоматическая замена значений диапазона 107
Засекречивание содержимого ячейки107
Всем ячейкам диапазона — одно значение 109
«Фотографирование* ячеек109
Добавление в ячейку раскрывающегося списка 110
Быстрое заполнение диапазона Ц0
Гиперссылки — в виде обычного текста 114
Помещение в ячейку электронных часов 115
«Будильник* 115
Поиск данных в диапазоне 116
Создание цветной границы диапазона118
Автоматическое определение адреса ячейки118
Автоматизаций добавления примечаний в указанном диапазоне119
Заливка диапазона120
Ввод строго ограниченных значений в указанный диапазон120
Последовательный ввод данных123
Быстрое выделение ячеек с отрицательными значениями124
Получение информации о выделенном диапазоне 125
Панель инструментов изменения числового формата ячейки 127
Тестирование скорости чтения и записи диапазонов 129
Работа с формулами 131
Складывание и вычитание даты и времени * 131
Складывание диапазонов разных листов 131
Накопление итога в ячейке131
Быстрое размножение формул132
Маскировка формул от других пользователей 132
Быстрое суммирование всех ячеек столбца или строки133
Вместо формулы — текущее значение 133
Повышение точности вычисления формул134
Быстрая проверка правильности формул 134
Скрытие сообщений об ошибках при вычислениях136
Разработка и применение полезных пользовательских функций 136
Объединение данных диапазона 137
Объединение данных с учетом форматов 136
Эксперименты с датой......., 139
Выбор из текста всех чисел 139
Прописная буква только в начале текста 140
Перевод чисел в «деньги» 140
Подсчет количества повторов искомого текста 142
Суммирование данных только видимых ячеек 143
При суммировании — курсор внутри диапазона_.143
Вывод суммы прописью 144
Начисление процентов в зависимости от суммы 144
Еще о расчете процентов 146
Сводный пример расчета комиссионного вознаграждения 147
Подсчет количества ячеек, содержащих указанные значения 150
Подсчет количества видимых ячеек в диапазоне 151
Поиск ближайшего понедельника 152
Подсчет количества полных лет 153
Проверка, была ли сохранена рабочая книга 153
Расчет средневзвешенного значения 154
Преобразование номера месяца в его название 155
Расчет суммы первых значений диапазона 155
Поиск последней непустой ячейки диапазона.". 156
Поиск последней непустой ячейки столбца 156
Поиск последней непустой ячейки строки 157
Подсчет количества ячеек в диапазоне, содержащих указанные значения 157
Англоязычный текст — заглавными буквами 15В
Отображение текста «задом наперед» 159
Поиск максимального значения на всех листах книги 160
Использование относительных ссылок161
Определение типа данных ячейки 162
Выделение из текста произвольного элемента163
Генератор случайных чисел 165
Случайные числа — на основании диапазона 166
Глава 3. Создание трюков с помощью макросов168
Подсчет количества открытий файла 169
Получение «закрытой» информации 170
Произвольный текст в строке состояния170
Быстрое изменение заголовка окна171
Ввод данных с помощью диалогового окна 173
Применение функции без ввода ее в ячейку 174
Скрытие строк и столбцов от посторонних 174
Быстрое выделение ячеек, расположенных через интервал177
Определение количества ячеек в диапазоне и суммы их значений 178
Подсчет именованных объектов 180
Быстрый поиск курсора 181
Поиск начала и окончания диапазона, содержащего данные 181
Трюки с примечаниями 182
Подсчет примечаний 182
Вывод на экран всех примечаний рабочего листа 183
Создание списка примечаний рабочего листа184
Несколько трюков в одном примере 186
Дополнение панели инструментов 188
Примеры создания панелей инструментов . 189
Формирование пользовательского меню 192
Проверка наличия файла по указанному пути 194
Автоматизация удаления файлов 197
Перечень имен листов в виде гиперссылок 198
Удаление пустых строк на рабочем листе 199
Запись текущих данных в текстовый файл200
Экспорт и импорт данных201
Одновременное умножение всех данных диапазона 203
Преобразование таблицы Excel в HTML-формат205
Поискданных нештатными средствами 210
Включение автофильтра с помощью макроса ...211
Трюки с форматированием 212
Изменение формата представления чисел нештатными средствами... 212
Помещение последнего символа ячейки над строкой213
Создание нестандартной рамки213
Быстрая вставка фамилий должностных лиц в документ 214
Вызов окна настройки шрифта. 215
Вывод информации о текущем документе 216
Вывод результата расчетов в отдельном окне 216
Вывод разрешения монитора 217
Что открыто в данный момент? ................ 218
Создание бегущей строки ................... 219
Создание бегущей картинки 219
Мигающая ячейка 221
Вращающиеся автофигуры ..222
Вызов таблицы цветов225
Создание калькулятора ■ »■■»» •***•*■■ ■»*■»»»♦■»»■• •< ***♦*•■ t*»tl *••»»*♦*• »*♦*•»*••♦•#••• * *■• • *•*■ . 226
Еще о создании пользовательских меню 228
Меню с пользовательскими командами 228
Замена стандартного меню пользовательским- 233
Склонение фамилии, имени и отчества 234
Получение информации об используемом принтере ..........239
Вывод текущей даты и времени241
Автоматическое создание документов Word на основе табличных данных Excel 242
Создание списка панелей инструментов и контекстных меню245
Создание списка пунктов главного меню Excel. 246
Создание списка пунктов контекстных меню 247
Отображение панели инструментов при определенном условии248
Скрытие и отображение панелей инструментов 251
Создание меню на основе данных рабочего листа 252
Создание контекстного меню 256
Просмотр содержимого лапки.... 260
Получение информации о состоянии дисков 265
Расчет среднего арифметического 267
Вывод списка доступных шрифтов . 268
Обработка сразу нескольких внешних файлов 269
Запуск таблицы символов из Excel 271
Создание раскрывающегося списка 274
Добавление команды в меню276
Добавление команды в меню Сервис 276
Добавление команды в меню Вид277
Глава 4. Трюки и эффекты с помощником281
Мультфильм с помощником в главной роли282
Дополнение помощника текстом, заголовком, кнопкой и значком283
Новые параметры помощника285
Использование помощника для выбора цвета заливки286
Главаб. Эксперименты с диаграммами289
Построение диаграммы с помощью макроса290
Сохранение диаграммы в отдельном файле293
Построение и удаление диаграммы нажатием одной кнопки294
Вывод списка диаграмм в отдельном окне296
Применение случайной цветовой палитры297
Эффект прозрачности диаграммы298
Построение диаграммы на основе данных нескольких рабочих листов... 300
Создание подписей к данным диаграммы303
Глава 6. Создание полезных программ306
Программа для составления кроссвордов307
Написание макросов...307
Создание пользовательских форм311
Порядок использования программы313
Игра -Минное поле* 315
Игра -Угадай животное» 318
Расчет на основании ячеек определенного цвета323
Создание программы323
Работа с программой337
Глава 7. Полезные советы339
Приложение. Основные объекты Excel351
Объект Application 351
Объект Chart 355
Объект Range 357
Объект Workbook 362
Объект Worksheet364
Алфавитный указатель367
Введение
В настоящее время табличный редактор Excel, который является разработкой корпорации Microsoft и входит в состав пакета Microsoft Office, является одним из самых популярных программных продуктов. Во многом это обусловлено возможностью применения Excel в самых разных отраслях: данную программу используют математики, IT-раэработчики, инженеры, экономисты, бухгалтеры, аналитики, менеджеры и т. д. Такое распространение Excel объясняется широкими функциональными возможностями программы и вместе с этим простотой в использовании (удобным и понятным пользовательским интерфейсом, возможностью быстрого ввода и обработки данных, наглядностью представления информации и др.).
Порядок использования программы подробно описывается в справочной подсистеме (вызов справки осуществляется нажатием клавиши F1 или с помощью команды главного меню Справка ► Справка: Microsoft Excel). Однако в процессе эксплуатации программы можно также использовать приемы и методы, которые в стандартной документации не рассматриваются либо рассматриваются поверхностно— как правило, потому, что они становятся известны только в результате активной эксплуатации Excel (то есть открываются опытным путем). Иногда они являются сюрпризом даже для самих разработчиков и открывают новые, порой самые неожиданные возможности программы. Описанию подобных трюков и посвящена эта книга.
Большинство описываемых в книге трюков и эффектов выполняется средствами языка VBA (переход к редактору VBA осуществляется с помощью команды главного меню Сервис ► Макрос ► Редактор Visual Basic или комбинации клавиш Alt+Fll). Наряду с этим книга содержит описание приемов, выполняемых «подручными* средствами, без программирования.
Структура книги
В главе 1 рассказывается об основах программирования на встроенном в пакет Microsoft Office языке Visual Basic for Applications (VBA). Главный упор сделан, на описание синтаксиса и особенностей использования основных конструкций VBA.
В главе 2 рассматриваются нестандартные, но вместе с этим полезные и практичные решения, которые можно реализовать в рабочей области программы, здесь же рассказывается о приемах работы с файлами Excel (то есть с рабочей книгой). Приводится описание нестандартного использования формул Excel, а также порядок формирования и применения большого количества пользовательских функций. В отдельный раздел вынесено описание трюков и эффектов, которые применяются к ячейкам и диапазонам рабочего листа.
Глава 3 является самой объемной. В ней описывается большое количество самых разнообразных трюков и эффектов, относящихся к различным сферам использования
программы. В частности, здесь рассказывается о создании пользовательских меню (какобычных,таки контекстных) и панелей инструментов. о нестандартных приемах форматирования, о работе с примечаниями и др. Большинство приведенных в данной главе трюков имеют практический характер, но есть и такие, реализация которых служит лишь развлекательным либо эстетическим целям.
Пользователи программы наверняка знают, что при работе со справочной информацией можно использовать системного помощника, в качестве которого выступает забавный анимированный персонаж. В главе 4 рассматривается несколько трюков, которые можно применить к встроенному системному помощнику. Особо следует отметить сучубо развлекательный. но весьма интересный трюк с -танцующим» помощником, описание которого приводится в разделе «Мультфильм с помощником в главной роли» (этот трюк можно применить к любому из имеющихся в системе анимированных персонажей).
У тех пользователей, которые часто работают с диаграммами, наверняка вызовет интерес глава 5. В ней рассказывается, как быстро создать диаграмму с помощью макроса, создать диаграмму на основании данных нескольких рабочих листов, быстро изменять тип диаграммы с помощью специально созданного контекстного меню и др.
В главе 6 приведено несколько примеров создания небольших программ — как развлекательных. так и применяемых в работе, а также показаны приемы испо;п»зова- ния созданных программ.
В главе 7 содержится перечень полезных советов, которые могут пригодиться как начинающим, так и опытным пользователям программы. Для удобства восприятия материал представлен в режиме «вопрос - ответ».
В приложении описаны наиболее часто используемые в приведенных в книге примерах стандартные объекты Excel: Application, Chart, Range, Workbook и Worksheet.
Общие положения
При написании книги использовалась версия Excel 2002. Тем не менее большинство приведенных в книге трюков работает и в других версиях программы.
Перед тем как вплотную приступать к изучению нестандартных приемов работы с Excel, кратко вспомним, для решения каких задач предназначена данная программа и каковы ее функциональные возможности, а также определимся с основными терминами и понятиями, которыми мы в дачьнейшем будем оперировать
Подразумевается, что данную книгу будут изучать пользователи, имеющие как минимум начальное представление об Excel Тем не менее не будет лишним вспомнить, какие задачи решаются с помощью этой программы, а также ознакомиться с используемой в книге терминологией.
Назначение и функциональные возможности Microsoft Excel
Табличный редактор Microsoft Excel предназначен для решения следующих задач.
Ввод и обработка табличных данных с использованием встроенных механизмов формул, функций, макросов и др.
а Анализ и управление данными (автоматический расчет итоговых и промежуточных данных, структуризация и консолидация данных, использование сводных таблиц и отчетов и др.),
Импорт необходимых данных из различных источников (включая базы данных OLAP) и последующая их обработка. Поддержка XML-формата.
Работа с графическими объектами и диаграммами,
Взаимодействие и обмен данными с программой Lotus Notes, а также интеграция с другими программными продуктами («Галактика», «1С» и др.).
Работа в Интернете (изменение данных на веб-странице, размещение данных Microsoft Excel в Интернете, поддержка веб-файлов и гиперссылок и др.).
Доступ к данным совместное другими программами (Word, PowerPoint, Access И др ).
Q Формирование самых разнообразных отчетов: анал итических, сводных, графических, в виде диаграмм и др.
Выполнение стандартных функций Microsoft Office: печать документа, поиск данных и их замена, проверка наличия ошибок, защита данных и Др.
Создание приложений с применением языка программирования VBA.
С помощью Excel можно решать и другие задачи, возникновение которых обусловлено потребностями конкретного пользователя.
Используемая терминология
В данной книге используются следующие основные термины и понятия.
Автофнгура — готовая к использованию фигура заданной формы, которую можно добавлять на рабочий лист или в диаграмму. В Excel имеется встроенный набор автофигур.
о Диаграмма — визуальный способ представления числовых значений. Программа Excel поддерживает работу с различными видами диаграмм: гистограммами, круговыми, пузырьковыми, графиками и др.
Имя — идентификатор, который предоставляет возможность ссылаться на какой-либо объект (ячейку, диапазон, формулу и т. д ).
Комментарий — текст, который следует в программном коде сразу после символа «1» вплоть до окончания данной строки и игнорируется при выполнении программы. Комментарий обычно включает в себя произвольную информацию
вспомогательного характера, предназначенную для описания и пояснения определенных фрагментов кода либо всего кода.
Q Контекстное меню — меню, содержащее список команд, которые предназначены д ля работа с конкретным объектом. Для вызова контекстного меню нужно щелкнуть на объекте правой кнопкой мыши или нажать комбинацию клавиш Shift+FlO.
Макрос — программа, которая написана на встроенном в Excel языке программирования Visual Basic for Application (VBA). Переход в режим работы с макросами осуществляется с помощью команд подменю Сервис ► Макрос.
Массив — определенное количество ячеек либо значений, с которым работают как с единым целым. Иначе говоря, массив — это группа элементов одного типа, которые имеют общее имя.
О Модуль — совокупность описаний, инструкций и процедур, сохраненная под общим именем в редакторе VB А.
Надстройка — программа, внедренная в Excel с целью расширения функциональных возможностей. Для подключения надстроек следует воспользоваться командой главного меню Сервис ► Надстройки.
Настройка — изменение ныне действующих параметров работы Microsoft Excel стандартными средствами, доступ к которым осуществляется из рабочего интерфейса Excel. Параметры работа программы можно разделить на два основных вида.
Общие параметры — редактирование этих параметров приведет к соответ
ствующим изменениям во всех рабочих книгах, в том числе и во вновь создаваемых
ПРИМЕЧАНИЕПРИМЕЧАНИЕЛокальные параметры — редактирование этих параметров вызовет соответствующие изменения только в текущей книге.
ПРИМЕЧАНИЕ
ПРИМЕЧАНИЕ
Некоторые параметры работы Microsoft Excel можно изменить без использования стандартных средств.
Область задач — элемент программы, предназначенный для быстрого выбора одной из нескольких связанных задач.
а Панель инструментов — панель, включающая в себя кнопки и иные элементы управления, которые используются для выполнения различных команд. Управление отображением панелей инструментов осуществляется с помощью команд подменю Вид ► Панели инструментов. Для перехода в режим настройки панелей следует выполнить команду Вид ► Панели инструментов ► Настройка.
Печать — вывод содержимого рабоче Й книги (полностью либо частично) па бумажный носитель с помощью принтера. На печать можно выводить следующие объекты: рабочую книгу, несколько рабочих книг, рабочий лист, несколько рабочих листов, диапазон ячеек на рабочем листе, диапазон ячеек на нескольких рабочих листах, графические объекты, диаграммы. При атом существует возможность вывода на печать нескольких копий объекта за один сеанс.
Пользовательский интерфейс — средство взаимодействия пользователя с программой В состав пользовательского интерфейса входят меню, панели инструментов, диалоговые окна и др. В Excel применяется стандартный пользовательский интерфейс Windows.
Примечание — вспомогательная информация произвольного характера, относящаяся к определенной ячейке и хранящаяся независимо от содержимого этой ячейки. Чтобы добавить примечание к какой-либо ячейке, нужно выделить ее курсором и выбрать в контекстном меню пункт Добавить примечание, после чего с клавиатуры ввести требуемый текст.
Рабочая мига — файл, который создается, редактируется и сохраняется средствами Microsoft Excel. В большинстве случаев рабочая книга имеет расширение XLS. Основной структурной единицей рабочей книги является рабочий лист (см ниже).
О Рабочий лист — основной элемент рабочей книги, предназначенный для ввода, редактирования и хранения данных, а также для выполнения вычислений. По умолчанию в состав рабочей книги включены три рабочих листа. Основной структурной единицей рабочего листа является ячейка (см. ниже). В состав каждого рабочего листа входит 16 777 216 ячеек, которые образуют сетку из 65 536 строк и 256 столбцов.
Редактор VBA — интегрированная среда разработки, в которой осуществляется написание кодов (программирование) на языке VBA. Переход в данный режим выполняется с помощью команды главного меню Сервис ► Макрос ► Редактор Visual Basic.
Строка заголовка — стандартный элемент интерфейса многих приложений, расположенный вето верхней части. В данной строке отображается имя программы.
Строка формул — предназначена для ввода формул и редактирования содержимого ячеек,
Форматирование — изменение отображения ячейки (ее «внешнего вида»-) либо представления данных, содержащихся в ячейке. Параметры форматирования ячейки не зависят от ее содержимого, и наоборот. Не стоит забывать, что после применения форматирования отображенное в ячейке значение может не совпадать с ее фактическим значением (наиболее характерный пример — округление: в ячейке хранится значение о, 24, но в соответствии с параметрами форматирования на экране может отображаться значение о, 2).
^g^ СОВЕТ
ШМ » Точное фактическое значение, хранящееся в ячейке, при необходимости можно увидеть в строке формул, где оно отображается независимо от параметров форматирования.
Формула — специальный инструмент Excel, предназначенный для расчетов, вычислений и анализа данных. Формула может включать в себя константу, оператор, ссылку, имя ячейки (диапазона) и функцию (см. ниже). Операторы бывают трех видов.
Арифметический оператор — предназначен для выполнения арифметических действий и выдающий в качестве результата числовое значение.
Оператор сравнения — используется для сравнения данных и выдает в качестве результата лопгческое значение истина или ложь.
Текстовый оператор — применяется для объединения данных.
Функция — готовая формула Microsoft Excel для расчетов, вычислений и анализа данных Каждая функция может включать в себя константу, оператор, ссылку, имя ячейки (диапазона) и формулу. Пользовательская функция — это функция, написанная пользователем на языке VBA.
Электронная таблица — интерактивная программа, состоящая из набора строк и столбцов, которые выводятся на экран в отдельном окне.
Ячейка — наименьшая (элементарная) часть электронной таблицы, предназначенная для ввода и хранения информации. Каждая ячейка может содержать текст, число или формулу. Кроме того, при работе с ячейками используются следующие элементы.
• Адрес — это месторасположение (координаты) ячейки Адрес состоит из буквы (номера) столбца и номера строки, на пересечении которых расположена данная ячейка
- Ссылка — указание на адрес ячейки. Ссылки могут быть абсолютными (то есть не изменяющимися при перемещении и копировании ячейки), относительными (эти ссылки изменяются при перемещении и копировании ячейки) и смешанными. Внешняя ссылка — это ссылка на ячейку, расположенную в другой рабочей книге.
После того как мы вспомнили основные термины и понятия, используемые в Excel, можно приступать к изучению нестандартных приемов и методов работы сданной программой. И в первую очередь мы рассмотрим трюки, выполняемые в рабочей области
Тексты программ на сайте издательства
Все приведенные в книге коды программ (листинги) можно загрузить с сайта издательства «Питер* по адресу http://www.piter.com/dowriLoaty97B546901223/.
От издательства
Ваши замечания, предложения и вопросы отправляйте по адресу электронной почты gurski@min5k.piter.com (издательство «Питер», компьютерная редакция).
Мы будем рады узнать ваше мнение!
На сайте издательства http://www.piter.com вы найдете подробную информацию о наших книгах.
Краткое руководство по VBA
Цельданной главы —ознакомить читателя с основами программирования на встроенном в пакет Microsoft Office языке Visual Basic for Applications (VBA).
Эта глава рассчитана на пользователей, имеющих некоторый опыт создания программ на других объектно-ориентированных языках программирования, то есть представляющих, что такое переменная, константа, оператор, цикл, массив, класс, объект и т. д. Главный упор в данной главе сделан на описание синтаксиса и особенностей использования основных конструкций VBA
Знакомство с VBA
VBA — это язык программирования, поддерживаемый большинством приложений пакета Microsoft Office. Для запуска среды программирования VBA можно использовать команду меню Сервис ► Макрос ► Редактор Visual Basic или сочетание клавиш Ait+Fll.
Возможности VBA
Благодаря высокой степени интеграции в приложения, язык VBA обеспечивает программисту возможность легко использовать существующие возможности Microsoft Office для решения специфических задач. Не менее легко VBA позволяет добавлять в приложения этого пакета новые возможности, увеличивая их функциональность и удобство работы с ними.
Применительно к Excel программист на VBA может реализовывать следующие возможности (естественно, это далеко не полный список):
добавление функций, выполняющих специфические расчеты;
ускорение ввода данных в таблицу;
автоматизацию типичных, часто выполняемых пользователем действий;
создание новых команд меню, панелей инструментов как на основе уже имеющихся, так и выполняющих совершенно новые действия;
а повышение наглядности данных (например, с помощью различной окраски ячеек):
автоматизацию обработки больших объемов данных;
о автоматизацию создания разнообразных отчетов, бланков н прочих действий, связанных с выбором заданной информации из большого объема исходных данных.
Реализация всех этих возможностей при использовании VBA очень часто достигается написанием небольшого количества достаточно простого программного кода,
Структура проекта VBA
Внешний вид редактора VBA с открытым проектом представлен на рис. 1.1.
Знакомство с VBA
Рис. 1.1. Проект VBA
В редакторе открыты три окна: слева вверху — окно структуры проекта (Project), слева внизу — окно свойств (Properties) и справа — окно с текстом программы модуля. С помощью окна Project (Проект) можно просматривать структуру проекта, добавлять и удалять элементы проекта, открывать для редактирования содержимое модуля (двойным щелчком на значке соответствующего модуля). Окно Properties (Свойства) используется для задания свойств выделенных элементов проекта.
В общем VBA-проект в Microsoft Excel может содержать следующие влементьг
модули (стандартные модули VBA);
о модули класса;
модули рабочей книги;
модули рабочих листов;
модули диаграмм;
формы.
Стандартный модуль VBA
Стандартный модуль VBA — это элемент проекта, который содержит программный код, непосредственно используемый остальными элементами проекта (глобальные функции, переменные, константы и т. д.). В окне структуры проекта стандартные модули группируются в папку Modules.
Обычно в стандартном модуле записываются программы, которые не привязаны к конкретным объектам, таким как рабочий лист и рабочая книга. Именно в этом модуле записывается большинство примеров (трюков), рассматриваемых в последующих главах книги.
Модуль класса
Модуль класса — это модуль, в котором записывается программный код, реализующий работу пользовательских (созданных программистом) классов, В окне структуры проекта такие модули группируются в папку Class Modules.
Модуль рабочей книги
Модуль рабочей книги (Эта книга в папке Microsoft Excel Objects) — это модуль класса, в котором реализуются дополнительные возможности по манипулированию рабочей книгой. Программы, записанные в этом модуле, могут напрямую обращаться к свойствам и методам объекта рабочей книги (см. описание модулей класса в конце главы). Отличием модуля рабочей книги от обычного модуля класса является то, что из программы на VBA нельзя создать экземпляр объекта рабочей книги — он создается автоматически.
Модуль рабочего листа
Модуль рабочего листа (папка Microsoft Excel Objects) — это модуль класса, в котором реализуются дополнительные возможности по манипулированию определенными рабочими листами книги. Программы, записанные в этом модуле, могут напрямую обращаться к свойствам и методам объекта рабочего листа. Из программы на VBA также нельзя создать экземпляр объекта конкретного рабочего листа — можно создать только новый рабочей лист с пустым модулем.
Модуль диаграммы
Модуль диаграммы (папка Microsoft Excel Objects)—это модулькласса, в котором реализуются дополнительные возможности по манипулированию диаграммами, вынесенными на отдельные листы рабочей книги. Особенности модуля диаграммы аналогичны особенностям модуля рабочего листа
Форма
Форма (палка Forms) — это элемент проекта VB А, с помощью которого можно создавать диалоговые окна для взаимодействия с пользователем. Форма состоит из двух частей: модуль формы и собственно форма (диалоговое окно).
Модуль формы — это Модуль класса, в котором реализуется поведение формы. Использование этого модуля аналогично использованию обычного модуля класса. Для открытия модуля формы используется пункт View Code (Просмотр кода) контекстного меню окна Project (Проект).
Для задания внешнего вида диалогового окна используется редактор форм, который открывается с помощью пункта View Object (Просмотр объекта) контекстного меню. Форма, открытая для редактирования внешнего вида, показала на рис. 1.2.
Рис. 1.2. Редактирование фермы
Для изменения свойств открытой формы используется окно Properties (Свойства). В окне Toolbox (Панель инструментов) можно выбирать элементы управления, добавляемые в форму. После добавления любого элемента управления двойным щелчком на нем можно перейти к редактированию соответствующего кода в модуле формы.
Структура модуля VBA
При разработке любой программы на VBA программный код записывается в одном или нескольких модулях, типы которых были рассмотрены ранее. Код, записанный в любом модуле VBA имеет следующую структуру.
Объявления переменных, директивы (с использованием ключевого слова Option), объявления API-функций.
Объявления и реализация процедур н функций.
Соглашения, применяемые при описании синтаксиса VBA
В данном разделе приводится описание элементов, которые используются для формального задания синтаксиса конструкций языка VBA Сведения об этих элементах приведены в табл. 1.1.
Таблица 1.1. Элементы описания синтаксических конструкций УВА
Элемент
Описание
Значение
Текст, написанный курсивом, обозначает произвольное значение (константное, такое как строка "D^sd-txt”, или значение переменной)
Инструкции
Это слово используется для обозначения произвольной последовательности инструкций программы Может употребляться с номером, например «Инструкции!». Также может употребляться в составе словосочетания в его начале, например «Инструкции подпрограммы»
Open
Текст, записанный без использования курсива (кроме слова «Инструкции»), является ключевым словом или идентификатором VBA (названием инструкции, оператора, функций и т. д.)
^Нео6язшпельный_Эхвмеит1
Используется для указания необязательных элементов конструкции
Элемент! | Элемент!
Применяется для указания возможности выбора употребляемого элемента конструкции (то есть использовать или элемент!, или элемент!)
...
Используется для указания возможности повторения последнего элемента конструкции бесконечное количество раз
ПРИМЕЧАНИЕ
Кроме описанных в таблице элементов, при задании формата синтаксических конструкций и в текстах программ используется символ подчеркивания *_». Он является стандартным символом VBA. Текст, который заканчивается символом подчеркивания, представляет собой одно целое с текстом на следующей строке.
Чтобы сказанное выше стало более понятно, ниже приведен пример формального задания синтаксической конструкции языка VBA В качестве примера взят формат упрощенного объявления локальной переменной (смысл всех элементов данной конструкции будет полностью раскрыт в последующих разделах главы):
Dim | staticИмя_перемвнной [АзИМя_®ипа1 [, ИияпеременноЙ [Аз ИМя_типа] ]...
Приведенная запись означает, что строка объявления локальной переменной должна начинаться инструкцией Dim или static. После инструкции должен следовать идентификатор переменной. Необязательным элементом конструкции является указание типа переменной. Но если тип указывается, то значение в квадратных скобках (первых) должно быть использовано полностью, то есть ключевое слово Аз не должно использоваться без указания имени типа. Объявления переменных можно продолжить в этой же строке без повторного использования инструкции Dim. но разделяя их запятой (см. вторые скобки). Подобные объявления можно продолжать в строке до бесконечности (об этом говорит использование многоточия после вторых скобок).
2323Идентификаторы
23
23
Примеры объявлений переменных, удовлетворяющие указанному формату, приведены ниже:
Dim IntPos Аз Integer
Dim vaгValue, intValue Аз Integer
Static strText As String
Static varl Ae Variant, var2 As Variant, var3 As Variant
Комментарии в программе
В VBA предусмотрены два способа введения комментариев в программы. Первый — это использование ключевого слова Rem для обозначения начала комментария. Второй — использование вместо Rem апострофа ('). Главным различием этих двух способов является то, что ключевое слово Rem должно находиться в начале строки программы. При этом вся строка является комментарием. Например:
Rem Объявление переменкой
Dim intRes as Integer
Rem Присвоение значения переменной
intRes e 123
Комментарий же, вводимый с помощью апострофа, может быть расположен как в отдельной строке, так и на одной строке с другими инструкциями (в конце этой строки):
* Объявление переменной
Dim intRes Аз Integer
intRes - 123 * Присвоение значения переменной
Все комментарии в VBA являются однострочными, но при необходимости их текст может быть перенесен на следующую строку с использованием символа подчеркивания:
Длинный комментарий, текст которого не помещается _ в одной строке
или
Rem Длинный комментарий, текст которого не помещается в одной строке
Идентификаторы
Идентификаторами в VBA являются названия переменных, констант, функций, процедур, классов, типов данных и прочих элементов, не являющихся зарезер- вировавпными словами языка (названиями инструкций, операторов, встроенных функций ит.д.).
Среда разработки VBA поддерживает кодировку символов Unicode. Поддержка данной кодировки разработки означает, что программист может использовать в составе идентификаторов символы любого поддерживаемого алфавита (например, кириллицы).
При формировании идентификаторов необходимо учитывать следующее.
Идентификатор должен состоять только из букв (любогоалфавита). цифр и символа подчеркивания.
Первым символом иденп |фикатора должна быть буква.
ВНИМАНИЕ
УВА ие различает регистр символов в идентификаторах. Это значит, что еидентификаторы strmyText и strMyText будут представлять одну и ту же пе
ременную. Эго же справедливо и для идентификаторов процедур, функций. классов и т.д.
Рассмотрим примеры корректных идентификаторов VB А
strText
CDST0M_Data2
Функция^Суммы
РасчетПрибыли
Переменные
Данны й раздел предназначен для того, чтобы ознакомить читателя с основными особенностями использования переменных при написании программ на языке VBA
Встроенные типы данных
VBA располагает множеством встроенных типов данных. Условно эти типы можно разделить на численные, строки, ссылки и типы для хранения даты и времени
Численные типы данных
Основные характеристики численных типов VBA приведены в табл. 1.2.
Таблица 1.2. Численные типы данных VBA
Тип
Объем памяти (байт)
Диапазон значений
Byte (байт)
1
От Одо 255
Integer (целое)
2
От -32 768 до 32 767
Тип
Объем памяти (байт)
Диапазон значений
Long(длинное целое)
4
От-2 147 483 648 до2 147 483 647
Single
(с плавающей точкой)
4
От -3.402 823Е38 до -1.401 298Е-45, от 1 401298Е-45 до 3.402 823Е38
Double (с плавающей точкой двойной точности)
8
От -1.797 693 134 862 32Е308 до -4.940 656 458 412 47Е-324, от 4.940 656 458 412 47Е-324 до 1 797 693 134 862 32Е308
Currency (масштабируемое целое)
8
От -922 337 203 685 477.5808 до 922 337 203 685 477.5807
Decimal (фиксированной длины, повышенной точности)
14
Без дробной части:
+/-79 228 162 514 264 337 593 543 950 335;
с максимальной точностью:
+/-7.922 816 251 426 433 759 354 395 033 5 (до 28 знаков
после запятой)
Variant
(дм числовых
значений)
16
Любое значение из указанных д ля остальных типов диапазонов
ПРИМЕЧАНИЕ
Численный тип Decimal как самостоятельный тип на сегодняшний день не поддерживается. Однако его можно использовать в пределах типа Variant (о типе Variant будет рассказано далее).
Строки
Для хранения символьных данных в VBA реализована поддержка типа данных
string (строка). В переменных этого тина могут храниться как отдельные символы, так и большие фрагменты текста. Строки в VBA бывают двух видов: фиксированной длины и переменной д лины. Разница между этими двумя типами строк понятна из-их названий.
Строки фиксированной длины применяются тогда, когда длина текста, хранимого в них, постоянна илп не может превышать известный предел (например, для хранения отдельных символов). Строки фиксированной длины в ряде случаев обрабатываются быстрее строк переменной длины Максимальнаядлинастрокификсирован- ной длины — околи 65 400 символов.
Строки переменной длины являются более гибким инструментом обработки текста в программах на VBA Длина этих строк может динамически изменяться в зависимости от длины хранимого в них текста. Максимальная шина таких строк — около 2 млн символов.
Дата и время
Для удобства работы со значениями даты и времени в VBA введен тип данных Date. Он позволяет задавать значения времени и даты в формате, удобном для восприятия, а также упрощает вычисления с временными интервалами. Этот тип данных, естественно, используется и в таблицах Excel.
Для строгости нужно заметить, что тип Date не является внутренним типом, используемым VBA для хранения даты и времени. Вместо него применяется тип Single (число с плавающей точкой). Целая часть этого числа — количество суток прошедших с 30 декабря 1899 года, дробная — прошедшая часть текущих суток
Тип данных Variant
В VBA предусмотрен один универсальный тип данных — Variant. Переменная этого типа может хранить значение любого поддерживаемого VBA тапа (в том числе и ссылки на объекты, о которых будет рассказано ниже).
Однако при обработке переменных типа Variant тратится дополнительное время на определение и преобразование типа данных в этих переменных — самый универсальный тип данных VBA оказывается и самым медленным. Поэтому следует избегать слишком частого и неоправданного использования переменных этого типа (например, в качестве целочисленных итераторов, счетчиков и т. д ).
Когда переменная типа variant пуста (ей не присвоено никакого значения), она заполняется специальным значением Empty.
Ссылки. Тип данных Object
Важно понимать, что в VBA переменные, предоставляющие доступ к объектам, являются только ссылками ня эти объекты. В данном языке программирования невозможно получить сам объект (его двоичный код). Все операции по созданию, манипулированию и удалению объектов осуществляются только с использованием ссылок.
Объекты, доступные из VBA, существуют, пока на них установлена хотя бы одна ссылка. Первая ссылка на объект устанавливается при его создании. В процессе работы можно как устанавливать новые ссылки на объект, так и удалять их (с использованием специальной инструкции Set). Пусть dbjRef — ссылка на некоторый объект. Тогда операция установления новой ссылки будет иметь такой вид:
Set objNeWRef - objRef
Теперь objNewRef ссылается на тот же объект, что и ob^Bef. Операция же удаления ссылок будет аытлядетъ следующим образом:
Set objNewRef — Nothing
Set objNewRef — Nothing
Если на объект не было других ссылок кроме этих, то он будет удален.
Для доступа к объектам в VBA предусмотрен тип данных Ooject. Он является универсальным, так как может быть ссылкой на объект любого типа.
Объявление переменных
Для объявления переменных элементарных типов (не массивов) в блоке объявлений модуля используется следующая инструкция.
Public I Private [WithEvents] Ммя_переменной [As [New] Имя_типа] _ (, Имя_переменной [As [New] Имятипа^
Ключевые слова, записанные до первых квадратных скобок, задают область видимости переменных:
Public — позволяет объявлять глобальные переменные и общие переменные- члены класса (о классах будет рассказано позже);
Private — позволяет объявлять переменные, доступные только в одном модуле, и частные переменные-члены класса.
Для объявления переменных элементарных типов (не массивов) в процедурах или функциях используется такая инструкция (локальных переменных):
Dim | Static [WithEvents] Имя_переиеннсй [As [New] Имя_типаА [, Имя—переменной [As [New] Имятира^]
Ключевые слова, записанные до первых квадратных скобок, задают время жизни переменных:
Dim - используется для объявления локальных переменных, которые уничтожаются после выхода из процедуры;
static — используется для объявления локальных переменных, значения которых сохраняются между вызовами процедуры или функции.
Ключевое слово WithEvents используется для указания того, что переменная может обрабатывать события объектов ActiveX.
Имяпеременной — это идентификатор объявляемой переменной.
Имятпипа — название типа данных объявляемой переменной.
Если конструкция [As [New] Инятипа] не используется, то типом объявляемой переменной автоматически становится тип variant.
Если используется ключевое слово New, то создается новый объект. New нельзя использовать совместное WithEvents, а также при объявлении переменной типа object и если тип Имятипа не является объектным
Ниже приведены примеры объявления переменных на VBA:
Public intData Ав Integer
Private intCount Ав Integer, varData Dim BtrText As String Static a, b, c Dim objRef As Object Dim objCtrl Ab New Control
f
ВНИМАНИЕ
При объявлении в одной строке нескольких переменных слово As относит-
ся только к переменной, непосредственно после идентификатора которой
оно следует. Например, при объявлении Dim a, b, с As Integer переменные а и b будут иметь тип Variant, а переменная с—тип Integer.
Инициализация переменных
После того как переменная объявлена. VBA производит ее инициализацию указанным ниже образом.
Переменным численных типов автоматически присваивается нулевое значение.
Строки переменной длины после объявления являются пустыми (имеют нулевую длину). Строки фиксированной длины заполняются нулевыми символами.
Данные типа Date инициализируются значением 00:00:00 10.12.1899 (это равняется нулю при представлении даты в численном формате, о котором было рассказано выше).
Все переменные типа object и подобные (то есть ссылки на объекты определенного типа) принимают значение Nothing, если при их объявлении не создан новый объект (не использовалось New).
Явное и неявное объявление переменных
Рассмотренное выше объявление переменных называется явным.
VBA также поддерживает неявное объявление переменных. Под неявным объявлением подразумевается возможность использования переменной без ее объявления посредством инструкции Dim, static. Private или Public. При нервом обращении такой переменной для нее автоматически выделяется память и происходит ее инициализация. Следует отметить, что все неявно объявленные переменные имеют тип Variant.
Использование неявного объявления переменных может как упростить написание программ, так и значительно усложнить процесс их отладки. Например, можно долго разбираться, почему после вычисления выражения dblSalaryAccovnt ~ dblSalaryAcovnt ♦ 10.5 значение переменной dblSararyAccount стало равным нулю, если до этого оно было равно 5.375. Все дело в небольшой ошибке в названии идентификатора переменной, в результате которой создается новая переменная dblSalaryAcount, которая инициализируется нулевым значением. При ис- яользовании явногообъявления переменных подобных ошибок в программе быть не может, потому что каждый раз при нахождении необъявленного идентификатора VBA выдает ошибку.
Для включения требования обязательного объявления переменных используется директива Option Explicit. Чтобы данная директива добавлялась в каждый новый
модуль автоматически, нужно с помощью меню Tools ► Options (Сервис ► Параметры) редактора VBA открыть диалоговое окно Options (Параметры) и на вкладке Editor (Редактор) установить флажок Require Variable Declaration (Явное описание переменных).
Константы
Как и в любом другом языке программирования, в VBA можно сопоставлять с идентификаторами константные значения.
Объявление констант в языке VBA во многим сходно с объявлением переменных. Синтаксис инструкции объявления константы следующий:
[Public I Private) Const Имяконстанты [As Имя_типа\ — Значение Два ключевых слова в первых скобках задают область видимости константы:
Public — используется для объявления глобальных констант;
Private — используется для объявления констант, доступных только в том модуле, где они объявлены.
По умолчанию, то есть когда не употреблены указанные ключевые слова, константа является Private.
Имя^онстпанты — задает идентификатор константы.
Значение — константное значение (например, "Стротл_1", 1.2 4 5 и т. д.) либо выражение, в число аргументов которого не входят переменные и функции.
Если тип константы не задан, то он автоматически выбираете^ VЬ Л , г ходя из ее значения. Ниже приводятся примеры объявления констант:
Const PI As Double •• 3.14159265359
Public Const MyCongtString ■ "MyConst"
Private Const НавваниеТаблицы As string - ’’Отчеты”
Операторы
Язык VBA содержит большое количество встроенных операторов, которые позволяют выполнять разнообразные действия над всеми встроенными в VBA типами. Операторы и их операнды по определенным правилам составляются в выражения. Данный раздел посвящен описанию операторов, предоставляемых VBA-программисту.
Операторы для работы с численными значениями
Информация обо всех операторах для работы с численными значениями приведена в табл. 1.3.
Формат оператора
Описание
Результат — Выражение
Оператор присвоения правой части выражения левой
Результат = Выражение! +Выражение!
Оператор суммы
Результат = Выражение! - Выражение!
Оператор разности
Результат = Выражение! * Выражение!
Оператор произведения
Результат =• Выражение! / Выражение!
Оператор деления
Результат =* Выражение! \ Выражение!
Оператор целочисленного деления (возвращает целую часть от результата деления)
Результат = Выражение! Mod Выражение!
Оператор, возвращающий остаток пт деления
Результат = Выражение! Л Выражение!
Оператор возведения в степень. Основание степени —Выражение!, показатель степени—Выражение!
Таблице 1.3. Операторы для работы с численными значениями
ПРИМЕЧАНИЕ
Оператор «+» может использоваться и для соединения строк. Однако в VBA существует специальный оператор «&», выполняющий эту функцию. Рекомендуется использовать для соединения строк именно оператор «&», так как это способствует легкому визуальному отделению операций над строками от операций над другими типами данных, что. в свою очередь, улучшает читаемость кода.
Операторы сравнения
Результатом выполнения всех операторов сравнения является значение типа Boolean. Если операнды какого-либо оператора удовлетворяют его условию, то возвращается значение True, иначе возвращается значение False. Все операторы сравнения, поддерживаемые VBA, приведены в табл. 1.4.
Таблица 1.4. Операторы сравнения
Формат one ратора
Описание
Результат = Выражение! = Выражение!
Оператор равенства. Возвращает True, есша значения выражений равны
Результат = Выражение! > Выражение!
Оператор «больше». Возвращает True, если значение Выражение) больше значения Выражение!
Результат = Выражение! < Выражение!
Оператор «меньше». Возвращает True, если значение Выражение) меньше значения Выражение!
Результат — Выражение) >— Выражение!
Оператор «больше либо равно». Возвращает True, если значение Выражение) больше или равно значению Выражение!
Формат оператора
Описание
Результат = Выражение! <- Выражение!
Оператор «меньше либо равно». Возвращает True, если значение Выражение! мевише или равно значению Выражение!
Результат = Выражение! о Выражение!
Оператор неравенства. Возвращает True, если значения выражений не равны
Описанные операторы сравнения могут принимать в качестве операндов значения выражений любого типа, то есть фактически оперируют с типом данных variant. Если один из операндов равен Empty, то результатом выполнения операторов будет специальное значение null. Если операнды несравнимы, то при выполнении описанных выше операторов генерируется ошибка: «Несоответствие типа*.
Режим сравнения строковых значений можно задать с помощью директивы Option Compare. Для Excel работают дваварианта данной директивы: Option Compare Text (текстсравниваетсябеэучетарегистрасимтюлов)ис>ртгоп Compare Binary (сравниваются бинарные коды символов, пря этом автоматически учитывается их регистр). По умолчанию сравнение строк происходит согласно директиве Option Compare Binary.
В VBA реализованы два специфических оператора, которые тоже относятся к операторам сравнения, — это операторы Like и is. Эти операторы также возвращают значение типа Boolean как результат сравнения.
Оператор is используется для определения, являются ли две ссылки ссылками на один и тот же объект. Этот оператор допускает использование в качестве операндов только ссылки на объекты. Формат данного оператора такой:
Результат ■ Ссыпка! Ie Ссылка!
Оператор Ике используется для проверки, удовлетворяет ля текст в строке заданному шаблону. Формат этого оператора следующий:
Результат ■ Строка Like Шаблон
Перечень символов, которые могут употребляться в строке шаблона, приведен в табл. 1.5.
Таблице 1.5. Перечень возможных символов в строке шаблоне
Символы в шаблоне
Соответствующие символы в строке
*
Любое количество любых символов
?
Любой одиночный символ
*
Любая одиночная цифра
^Список_симвало«3
Любой одиночный символ из заданного списка
[\Список_символов]
Любой одиночный символ, не входящий в заданный список
В качестве примера определим, является ли строка м15 26 QA" номером автомобиля серии ОА или ОО. Значение сгроки-шаблоуа будет равно "6# Н О[АО]", а результатом применения оператора "15 26 ОА" Like "## t# о [АО] "будет значение True.
Для задания непрерывного диапазона символов в квадратных скобках можно воспользоваться знаком «минус* (-). При этом символы необходимо указывать в возрастающем порядке (по номеру в алфавите): [A-Z] а не [2 -А].
ПРИМЕЧАНИЕ
Если необходимо, чтобы в шаблоне присутствовали специальные символы, приведенные в табл. 1 5, то необходимо заключить соответствующие знаки в скобки: ([), (]), (*), (?), (*)-
Логические операторы
В VBA введен ряд операторов, которые используются в составе логических выражений (например, условие в инструкции If-Then-Else, которая будет рассмотрена позже). Формат логических операторов VBA (кроме импликации) к их описание приведены в табл. 1.6 (все выражения, используемые в операторах, — логические, принимающие значение True или False).
Таблица 1.6. Логические операторы УВА
Формат оператора
Описание
Результат - Выражение! Eqv Выражение!
Эквивалентност*. Возвращает True, если значения выражение равны
Результат = Выражение! And Выражение!
Логическое И. Возвращает True, если оба выражения имеют значение True
Результат = Выражение! Or Выражение!
Логическое ИЛИ Возвращает True, если как минимум одно из выражений имеет значение True
Результат - Выражение! Хог Выражение!
Исключающее ИЛИ. Возвращает True, если выражения имеют противоположные значения
Результат = Not Выражение
Логическое НЕ. Возвращает значение, противоположное значению выражения Выражение
Массивы
При создании программ часто приходится оперировать большими количествами данных одного типа и имеющих одинаковый смысл. Для хранения таких данных используются массивы. Массив — это совокупность значений одного типа, объединенных в одной переменной.
Язык VBA предоставляет широкие возможности д ля использования массивов. В данном языке программировать w работа с массивами значительно упрошена. Например,
при выполнении программы автоматически контролируется выход за пределы массива. Также VBA-программисту при работе с массивами не нужно заботиться о выделении и освобождении памяти.
Объявление массива
Для объявления массивов в VBA используются инструкции, формат которых приведен ниже:
Public I Private Имямассива ([Размерность]) [As Имятипа] _ [, Имямассива {[Размерность]) [As Имя_типа 1 ]...
или
Dim I Static Имямассива {[Размерность]) [As Имятипа) [, Имямассива {[Размерность]) [Аз Имя_типа]]...
Первая инструкция используется для объявления массивов ва уровне модуля, вторая — для объявления массива в процедуре или функции (все аналогично объявлению переменных).
Объявление массива отличается от объявления любой другой переменной тем, что при объявлении массива после идентификатора переменной указывается размерность. Если размерность не указана, то создается динамический массив, размер которого можно изменять во время выполнения программы. Для динамического массива инструкция объявления является формальной: чтобы этот массив можно было использовать, к нему необходимо применить инструкцию ReDim (об этой инструкции будет рассказано далее).
При указании размерности массива необходимо учитывать, что элемент Размерность имеет следующий формат:
Вижняя^граница То Верхняя__граница I Колмчество_элементов _ [, Нижняя_граница То Еерхняя_граница [ Количестзо_злементов]
В VBA разрешено создавать многомерные массивы с количеством измерений не более 60. Размерности измерений массива разделяются запятой.
При задании размерности в виде Низюшяераница То Верхняя_граница нужно явно указывать нижнюю и верхнюю границы измерения массива (например, 50 То 100). При задании размерности можно также просто указывать требуемое количество элементов в данном измерении массива. При таком задании в качестве нижней границы измерения используется значение по умолчанию (об изменении этого значения будет рассказано далее).
Ниже приведены примеры объявлений массивов (переменного размера, двух одномерных и двух многомерных):
Dim avarValuesO
Dim astrValnes(1 To 10) As String, astrValues2(10) As String
Dim aintValues(l To 10, 1 To 3) Аз Integer, aintValues(10, 3) As Integer
Задание нижней границы по умолчанию
Как было сказано ранее, при указании размерности измерения массива может ис пользоваться значение нижней границы по умолчанию.
Для задания нижней границы, используемой по умплча нию, предназначена директива Option Base.
Существуют только два варианта данной директивы-
Option Base О
И
Option Base 1
Первый вариант устанавливает нижнюю границу равной нулю (используется по умолчанию), а второй — единице.
Изменение размера массива
Язык VBA позволяет изменять размер динамического массива во время выполнения программы. Кроме того, VBA дает возможность изменять количество измерений такого массива Для этого используется инструкция ReDim, формат которой следующий:
ReDim [Preserve] Имя_масскша ([Размерность])[Rs ИМятапя] _ [, Имя_массива ЦРазмерность]) [Rs Име_типа] ]...
Назначение элементов данной инструкция полностью аналогично назначению одноименных элементов инструкции Dim (при использовании ее для объявления массивов). Тип элементов массива можно указывать только в том случае, если Имямассива — это идентификатор переменной типа Variant.
При выполнении инструкции ReDim без использования ключевого слова Preserve значения всех элементов, которые ранее были в массиве, теряются. Ниже приведены примеры таких инструкций:
ReDim astrValues(1 То 10), aintValuee(10, 20)
ReDini varRrray(2 To fl) Ra Boolean
Использование Preserve позволяет изменять размер массива, не теряя значений его элементов. Однако использование данного ключевого слова налагает ряд ограничений на возможности манипулирования массивами:
нельзя изменять количество измерений массива;
нельзя изменять размерности измерений массива кроме размерности последнего измерения;
можно изменять только верхнюю границу последнего измерения массива
Рассмотрим пример использования инструкции ReDim с ключевым словом Preserve:
Первая инструкция ReDim для динамического массива
ReDim astrValues(l Та 5, 1 То 10)
1 Увеличение размера массива
ReDim Preserve astrValuestl То 5, 1 То 25)
уменьшение размера массива
ReDim Preserve astrValues(1 То 5, 1 То 15)
Определение границ массива
Так как VBA позволяет задавать произвольную нижнюю границу массива, при написании программ крайне удобно наличие возможности узнать границы массива во время выполнения программы. Для этой цели в VBA введены две функции, формат которых следующий:
LBound ^Имямассива [, Номеризмерения! )
RBound <Имя_массива [, Нвмер_иямерения1)
Функция LBound позволяет получить нижнюю границу массива, a RBound—верхнюю. Обе функции принимают в качестве аргументов идентификатор массива и номер измерения, границу которого нужно получить. Нумерация измерений начинается с единицы. Если параметр Номер_иамеренияопущен,то егозначение принимается равным единице. Обе функции возвращают значение типа Long.
Ниже приведен пример получения нижней и верхней границ первого измерения массива avarValues (значения сохраняются в переменных типа Long):
IngLBound - LBound (avarValueg)
IngRBound * RBound(avarValues)
Доступ к элементам массива
Для доступа к элементам массива в VBA указывается номер этого элемента в круглых скобках после идентификатора переменной массива. Номера измерений массива разделяются запятыми. Например (для одномерного и трехмерного массивов):
intNum — aintValuea(16)
intNum - alntValuee(12, 32, 3)
Использование переменной Variant при работе с массивами
Язык VB А поддерживает универсальный тип данных variant, которому находится применение и при работе с массивами. Переменной этого типа можно присваивать массив. В результате этой операции в переменной Variant формируется копия
массива. Далее с такой переменной можно работать либо как с обычной переменной, либо как с массивом (использовать доступ к элементам), например:
Dim aintvalues(1 То 3) As Integer
Dim varArray
Присвоение массива переменной типа Variant
varArray = aintvalues
Доступ к элементам массива
varArray(1) ■ 1
varArray{2> - 2
varArray(3> - 3
Возможность присвоения массива переменной типа Variant на самом деле широко используется в VBA при передаче массивов в функции и процедуры, а также при возврате функциями массивов.
Для определения того, содержит ли переменная типа Variant массив, можно использовать функцию IsArray, имеющую следующий формат:
IsArray[Переменная)
Данная функция возвращает значение типа Boolean: True — если в переменной с именем Переменная содержится массив, и False — в противном случае
Использование функции Array для заполнения массива
В VBA имеется возможность быстрого заполнения массива значениями. Эта возможность реализована в функции Array. Ее формат такой:
Array [Списожэлементов)
В качестве аргументов функция принимает список значений, разделенных запятой. Возвращает она заполненный заданными значениями массив, сохраненный в переменной типа Variant. Ниже приведен пример использования функции Array:
Dim varArray
Заполнение массива значениями
varArray = Array(1, 2, 3, 4, 5)
Коллекции
Коллекции (они же семейства и множества) — это объекты, которые позволяют хранить произвольное количество элементов любого типа Элементы в коллекции идентифицируются уникальным ключом, которым может быть не только номер зле-
мента в коллекции, но и значение строкового или другого типа. При программировании на VBA различные коллекции используются очень часто. Например, к коллекции Workbooks нужно обращаться для получения ссылки на объект workbook нужной рабочей книги, к коллекции worksheets — для получения ссылки на объект Worksheet нужного рабочего листа и т. д.
В VBA коллекции реализованы во встроенном классе collection. Создание объекта Collection ничем не отличается от создания объекта другого типа:
Dim col As New collection
ИЛИ
Dim col As Collection
Set col •= New Collection
Добавление элементов
Для добавления элементов в коллекции реализован метод Add, имеющий следующий формат:
Ссыпка.Add Элемент (, Ключ] [, ДоВавить_передЦ, ДоВавить_после]
Единственным обязательным параметром метода Add является значение добавляемого элемента. Элемент может быть константой или переменной любого типа, кроме типа, определенного пользователем. При добавлении элемента можно указать ключ, который будет однозначно идентифицировать элемент в коллекции. Ключ это любое значение типа variant.
По умолчанию новые элементы добавляются в конец коллекции. Для изменения порядка добавления элементов используются параметры Добавитьперед и Доба- вить_после, с помощью которых указывается номер или ключ того элемента, перед которым или после которого нужно вставить новый элемент. Нумерация элементов в коллекции начинается с единицы.
Ниже приведены примеры инструкций, добавляющих новые элементы в коллекцию:
col.Add •’Valuel", "Keyl"
col.Add "ValueZ", "KeyZ"
col.Add "ValuaO", ,"Keyl"
Количество элементов в коллекции
Для определения количества элементов в коллекции используется свойство только для чтения Count. При его получении возвращается значение типа Long. Пример получения количества элементов коллекции приведен ниже:
IngCount - col.Count
Удаление элементов из коллекции
Для удаления элементов из коллекции используется метод Remove:
Ссылка.Remove Номер
Единственным параметром метода Remove является номер элемента в коллекции или его ключ. Например, для удаления значения "Value2", добавленного в коллекцию при рассмотрении метода Add. можно использовать инструкцию
col.Remove 3
ИЛИ
col.Remove "Кеу2"
Доступ к элементам коллекций
Для получения значений элементов коллекции используется метод item, который возвращает значение соответствующего элементу типа:
Ссылка. Item (Номер)
Единственным параметрам метода item является "Номер — это ключ элемента или его порядковый номер в коллекции. Например, для получения значения элемента с ключом ”Кеу1" (или номером 2) можно использовать следующие инструкции:
val - col.Item("Key!">
val - col.Item(2)
Следует отметить, что item является для объекта Collect ion методом по умолчанию, поэтому значения элемента с ключом "Kayl" можно получать и таким образом:
val = col("Keyl")
val - col(2)
Определяемые пользователем типы данных
Язык VB А предоставляет программисту достаточно большие возможности для создания и использования специфических типов данных: структур и перечислений.
Структуры
Структура — это сложный тип данных, представляющий собой совокупность переменных, хранящихся и обрабатываемых совместно. Переменные, входящие в состав структуры, называются полями (членами) структуры. В состав структуры могут входить переменные как стандартных, так и определенных пользователем типов данных.
Использование структур в программах зачастую позволяет уменьшить объем и сложность алгоритмов работы с данными Например, для хранения большого количества записей с именами, адресами и телефонами потребовались бы три массива. При использовании же структуры с палями для имени, адреса и телефона для хранения всей информации потребуется всего один массив (VBA позволяет создавать массивы структур).
Описание структур
Для описания структуры в программе на VBA в блок деклараций модуля необходимо поместить следующую конструкцию:
[Public | Private] Туре Им* структуры
Поле!
Поле2
ПолеК
End Туре
Ключевые слова Public и private задают область видимости структуры (поумолчанию используется public):
Public — применяется для описания структуры, которую можно использовать (объявлять переменные этого типа) во всех модулях проекта; недопустимо в модулях класса;
Private — применяется для описания структуры, которую можно использовать только в том модуле, где эта структура описана.
После ключевого слова Туре следует имя описываемой структуры. Внутри блока Type-End Туре помещаются объявления переменных-членов структуры Эти объявления аналогичны объявлениям обычных переменных и отличаются только отсутствием в начале ключевых слов Dim, stat ic. Private или Public и тем, что в одной строке можно объявлять только одну переменную.
Пусть некоторой компании необходимо хранить данные об имени, фамилии, адресе, телефоне и дате рождения своих сотрудников. Совместно с этими данными нужно хранить информацию о проекте, в котором принимает участие каждый сотрудник. Ниже представлено описание структур, с помощью которых можно реализовать хранение требуемых данных.
Туре ПроектИиформация
Название Ал string
Срох__эавершвния As Date
End Type
Type Сотрудник
Имя Ae String
Фамилия As String
Адрес As String
Телефон Ав String
Дата_рождеиия As Date
Проект Аа ПроектЯнформация
End Туре
Далее на этом примере рассмотрим особенности работы со структурами в программах на VBA.
Объявление переменных, содержащих структуры
Объявления переменных, содержащих структуры, выглядят точно так же, как объявления переменных другого типа. Ниже приведен пример объявления одной переменной. содержащей структуру Сотрудник:
Dim worker Аз Сотрудник
VBA позволяет создавать массивы любых типов данных, в том числе н структур:
Dim workers(15) Аз Сотрудник
В данном случае будет создан массив из 15 структур типа сотрудник.
ПРИМЕЧАНИЕ
При объявлении переменных, содержащих структуры происходит автоматическая инициализация всех полей созданных структур.
Доступ к полям структур
Для доступа к содержимому полей структуры необходимо использовать символ «.» (точка). Ниже приведен пример получения значения полей с именем и телефоном сотрудника;
strFlrstName " worker.Имя strPhone - worker.Телефон
При доступе к массиву структур получение значения полей будет выглядеть следующим образом:
strFlrstName = workers(15).Имя
strPhone - workers(15)-Телефон
Получить значения полей вложенной структуры можно следующим образом (проект — вложенная структура):
strName - worker.Проект.Название
datDate •* worker.Проект.Срок_заяершения
При работе со структурами необходимо помнить, что каждое поле структуры — это переменная, которой можно присваивать значение. Ниже приведен пример заполнения структуры с информацией о сотруднике:
worker.Имя * "Иван" worker.Фамилия - “Иванов" worker.Адрес " “ул. Первомайская, л. 100, кв- 5“ worker.Телефон = 11 (095) 200 00 00" worker.Дата_рождения * ”12.03.1976* worker.Проект.Название - "Плак здания" worker.Проект.фок_эавершения = "15.09.2005”
Содержимое полей структур можно использовать в любых корректных выражениях. например:
strFuIlName- “Имя: " 6 worker.Имя 6 ", фамилия: " 6 worker .Фамилия
При использовании заполненной чуть выше структуры (с информацией о сотруднике Иванове) строка strFullWame в результате обработки выражения получит значение "Имя: Иван, фамилия: Иванов ”.
Перечисления
VBA позволяет определять целочисленные типы данных с ограниченным количеством значений — перечисления. Каждому значению перечисления соответствует идентификатор.
Использование перечислений, во-первых, позволяет оградить программиста от ошибок (не нужно знать значения элементов перечислений), а во-вторых, может повысить читаемость программного кода, так как вместо малоинформативных значений типа 167353 в программе используются идентификаторы типа ActlonSave. Использование перечислений также избавляет от необходимости создания глобальных целочисленных констант, которые используются только как значения параметров функций и процедур.
Описание перечислений
Для описания перечисления в блок деклараций модуля необходимо поместить следующую конструкцию:
[Public I Private] Enum Имя_перечисления Идентификатор! [= Значение!] Идентификатор2 [- Значение^]
Идентификаторы [— Значением^ End Enum
Ключевые слова Public и Private задают область видимости перечисления точно так же, как для структуры (см. выше).
После ключевого слова Enum следует имя описываемого перечисления. Внутри блока Enum-End Enum задаются идентификаторы значений перечисления и, если нужно, сами значения, которые сопоставляются с идентификаторами.
Если значение элемента перечисления явно не указывается, то оно автоматически формируется следующим образом:
□ если элемент перечисления первый, то ему присваивается нулевое значение;
□ если элемент не первый, то его значение равняется значению предыдущего элемента, увеличенному на единицу.
Ниже приведен пример описания перечисления:
Enua MyEnum
valuel
value2 “ IDO
valuel
End Enum
В приведенном примере создается перечисление, содержащее три идентификатора и значения. При этом с идентификаторами значения сопоставлены следующим образом: valuel имеет значение о, value? — значение 100, a value3 —101.
Использование перечислений
Объявление переменных для перечислений ничем не отличается от объявления переменных других типов. Ниже приведены примеры объявления переменной и массива переменных для перечисления MyEnum:
Dim EnumValue As MyEnum
Dim EnumValuea(255) As MyEnum
Таким переменным можно присваивать любые численные значения, ио можно (и даже нужно) использовать идентификаторы этих значений. Например:
EnumValue - valuel
EnumValues(100) = valuel
Идентификаторы значений элементов перечисления можно использовать во всех выражениях, в которых употребляются переменные с типом соответствующего перечисления. Например:
If EnumValue = value? Then ..
Здесь значением выражения EnumValue - value? является True, если EnumValue имеет значение value? (или 10о), и False — в противном случае.
Управление выполнением программы
Язык VBA поддерживает ряд способов управления порядком выполнения инструкций программы в пределах функции или процедуры: инструкции безусловного и условного перехода, циклы. Большое количество этих инструкций, и наличие различных вариантов обеспечивают максимально эффективное и удобное их использование при написании программ.
Циклы
В VBA реализовано несколько способов организации циклов. Их разнообразие и гибкость играют существенную роль в упрощении программ на языке VBA, а также во многом способствуют повышению наглядности программного кода.
VBA поддерживает четыре вида циклов: обычный цикл Fox-Next, цикл For Each-Next для просмотра элементов массивов и коллекций, циклы Hhl le-Wend и Do-Loop. Циклы различных видов могут быть вложены друг в друга. Рассмотрим каждый из них
Цикл For-Next
Цикл For-Next в VBA является самым простым и очень часто используемым. Формат данного цикла следующий:
For Счетчик — Начальяов_«ачевме То Конечноезначение [Step Шаг]
^.ИнструкиииД
[Exit For]
[Инструкции]
Next [Стетчик]
Здесь Счетчик—это переменная-итератор любого численного типа. Начолъное_зна- чение, Конечное_значениел Шаг — численные значения или идентификаторы переменных численного типа. После ключевого слова Next можно (но не обязательно) указывать идентификатор итератора цикла, конец тела которого обозначает данное ключевое слово. Указывать идентификатор переменной-итератора после Next особенно удобно при организации сложных вложенных циклов.
В начале выполнения цикла итератору присваивается значение элемента Началь- ное^значение. Инструкции, записанные в теле цикла, выполняются до тех пор, пока значение итератора не превзойдет значение элемента Конечиоезмачение (станет больше или меньше его в зависимости от направления изменения итератора). Шаг и направление изменения итератора (увеличение или уменьшение) задаются элементом Шаг. Если шаг изменения итератора равен единице, то данный элемент можно опустить.
Для преждевременного выхода из цикла предусмотрена инструкция Exit For. При ее встрече в теле цикла выполнение программы переходит на следующую инструкцию после ключевого слова Next.
Ниже приведен пример трех вложенных циклов For-Next, итераторами которых являются целочисленные переменные 1, j и к:
For 1 - 10 То 1 step -1
For j • 1 То 20
For к - 10 То -10 Step -2
■ Выполнение каких-то действий
Next к
Next j
Next А
Цикл For Each-Next
Цикл For Each-Next используется для просмотра всех элементов массива или коллекции. Формат данного цикла следующий:
For Each Элемент In Контейнер
[Инструкции]
[Exit For]
[Инструкции]
Next [Элемент]
Здесь Элемент — это идентификатор переменной-итератора, а Контейнер — идентификатор массива или коллекции. Для цикла For Each-Next допустимый тип итератора зависит оттого, просматривается массив или коллекция. При просмотре массива итератор должен иметь тип Variant. При просмотре коллекции итератор может иметь тип Variant или быть ссылкой на объект.
После ключевого слова Next можно (но не обязательно) указывать идентификатор итератора цикла, конец тела которого обозначает д анное ключевое слово.
Для преждевременного выхода из цикла используется такая же инструкция Exit For, как и для цикла For-Next.
Ниже приведен пример использования цикла For Each-Next ДЛЯ просмотра массива astrstringe:
For Each varltem In astrStrlngs
* Выполнение каких-то действий над элементом varltem
Next
Цикл While-Wend
While-Wend является самым простым циклом, с помощью которого можно осуществлять определенные действия до тех пор. пока выполняется заданное условие.
Формат данного цикла следующий
While Условие
[ Инструкции]
Wend
Инструкции в теле цикла While-Wend выполняются до тех пор, пока логическое выражение Условие имеет значение True (значение этого выражения вычисляется при каждой итерации).
Ниже приведен пример организации цикла While-Wend:
While i < 100
' Действия в цикле
1-1*3
wend
Следует отметить, что цикл Whlle-Wend является значительно упрощенным и ограниченным с точки зрения разнообразности способов его использования.
Цикл Do-Loop
Цикл Da-Loop предоставляет гораздо больше возможностей при организации циклических действий с проверкой логического условия, чем никл While-wend. Проверка логического условия окончания цикла может происходить в начале каждой итерации цикла, при этом формат цикла следующий:
Do (While I Until Условие!
(Инструкции!
[Exit Dol
(Инструкции!
Loop
Проверка условия может также происходить в конце каждой итерации никла (тогда выполняется как минимум одна итерация цикла):
Do
(Инструкции!
[Exit DO]
(Инструкции!
Loop [While | Until Условие!
В приведенных форматах Условие — любое логическое выражение. При использовании ключевого слова while цикл выполняется до тех лор, пока Условие имеет значение True, а при использовании ключевого слова Until — пока Условие имеет значение False. Для выхода из цикла предусмотрена инструкция Exit Do.
Ниже приведен пример использования цикла Do-Loop:
Do While i < 100
i - i + 1
DO
j - j * 5
’ Действия
Loop Until j > 200
LOOP
Инструкции выбора
Язык VBA поддерживает инструкции, позволяющие осуществлять различные действия в зависимости от выполнения или невыполнения заданных условий, — инструкции выбора if-Then-Else и select.
Инструкция If-Then-Eise
Инструкция VBA if-Then-Eise предоставляет возможность выбора одного из действий в зависимости от значений заданных логических выражений Формат данной инструкции следующий:
If Выражение! Then
[Инструкции! 1
[Elself Выраженив2 Then
[Инструкции!J]
[Elself Выражением Then
[Инструкции^] ]
[Else
[Инструкции] ]
End If
Здесь Выражение 1 - Выражением—логические выражения. Если какое-либо из этих выражений истинно, то выполняются инструкции, находящиеся после соответствующего ключевого слова if или Elself. Если ни одно из выражений не является истинным, то выполняются инструкции, записанные после ключевого слова Else (если, конечно, это ключевое слово используется).
Рассмотрим пример использования инструкции if-Then-Else:
If intAction — 1 Then
1 Выполнение сложения
res — в + b
Elself intAction =■ 2 Then
• Выполнение вычитания res - a - b
Elself intAction - 3 Then
' Выполнение умножения res * a * b
Else
* Заданное действие не поддерживается
End If
В приведенном примере с помощью инструкции if-Then-El ее выбирается одно из трех поддерживаемых действий для переменных а и Ъ: сложение, вычитание
или умножение. То, какое действие выполнять, определяется по содержимому переменной intAction. Если она имеет значение, отличное от 1,2 и 3, то выполняются инструкции, следующие после ключевого слова Else.
Язык программирования VBA также поддерживает упрощенный вариант инструкции If-Then-Else:
If Выражение Then [Инструкции!] [Elee Инструкций]
Здесь Выражение — это логическое выражение, при истинном значении которого выполняются инструкции после ключевого слова Then. Если Выражение не истинно,то выполняются инструкции после ключевого слова Else (если это ключевое слово используется). При использовании этой формы инструкции if- Then-Else следует учитывать, что она записывается в одну строку (или в несколько строк, но с использованием символа подчеркивания). Также необходимо учитывать, что Инструкции! и Инструкции^ представляют собой либо одну инструкцию VBA, либо несколько инструкций, разделенных двоеточием. Если ключевое слово Е1 ее используется, то элемент Инструкции! может отсутствовать.
Ниже приведены несколько примеров использования сокращенного варианта инструкции If-Then-Else:
If а — 1 Then а ■ 2 Else а — 1
If а ■ 1 Then а * 2 Else а ■ 1 : Ь = b + 1
If а - 1 And b я С Then Else a-l:b-b+1
Инструкция Select Cese
Select Case позволяет, подобно инструкции If-Then-Else, делать выбор выполняемых программой действий в зависимости от значения заданного аргумента. При большом количестве альтернатив данная инструкция работает быстрее инструкции I f -Then-Else, так как значение проверяемого выражения вычисляется только один раз. Формат инструкции Select Case приведен ниже:
Select Case Проверяемое_выражение
[Case Списох_ацражений
[Инструкции] 1...
[Case Else
[Инструкции] ]
End. Select
Здесь Проверяемое-выражение — это любое численное или строковое выражение Списохвыражений содержит неограниченное количество выражений, диапазонов значений и условий. Для более детального пояснения ниже приведен формат элемента Список_выражений:
выражение I Мкн_зна«еннеТо МакС-Значение I Is Оператор Выражение _
[, Вьражение | Мин_значехие То Максзначение I Is Оператор Бьражение]...
Значения элементов приведенной конструкции следующие.
Выражение — любое численное или строковое выражение (тип элемента Выражение должен соответствовать типу элемента Проверяемое_выражение^.
а Мин значение Го Максзначение — используется для задания диапазона значений. Элементы МмН_значение и Макс значение задают минимальное и максимальное значения диапазона соответственно.
is Оператор Выражение — используется для задания условий Позволяет использовать в инструкции select Сазе операторы сравнения. Элемент Оператор — это любой оператор сравнения VBA, кроме is и Like. Элемент Выражение — это любое выражение, тип которого соответствует типу элемента Проверяемое выражение.
При соответствии значения элемента Проверяемое выражение одному из заданных выражений, при попадании значения этого элемента в один из диапазонов пли при выполнении одного из заданных условий происходит выполнение инструкций, записанных после соответствующего ключевого слова Case. Если ни одна Case-конструкция не сработала, то выполняются инструкции после сочетания ключевых слов Case Else.
Допустим, что в программе необходимо проверять значение численной переменной intTestValue и выполнять одни действия, когда эта переменная имеет значение 1,2, 3 или 5, и другие действия — в противном случае. Приведенный ниже фрагмент программы позволяет решить поставленную задачу:
Select Case intTestValue
Case 1 To 3, 5
Действия при знамении переменной intTestValue, _ равном 1, 2, 3 или 5
Case Is < 1, Is > 3
Действия при значении переменной IntTestValue _ меньше 1 или больше 3
End Select
В данном примере необходимо обратить внимание на то, что значение 5 удовлетворяет обеим Case-конструкциям. При Обработке инструкции Select Саве VBA просматривает конструкции с ключевым словом Case в том порядке, в котором они следуют в программе. Поэтому в приведенном примере при значении переменной intTestValue, равном 5, выполняются инструкции после первого ключевого слова case.
Не менее просто с помощью инструкции Select Case можно обрабатывать и строковые значения. Ниже приведен пример, в котором выполняются различные действия при значениях строковой переменной strTestValue, начинающихся со строчной и прописной букв латинского алфавита:
Select Case strTestValue
Case "a" To "z"
Действия, если строка strTestValue начинается со строчной буквы латинского алфавита
case *А" ТО "Z"
• Действия, если строка strTestValue начинается с прописной буквы латинского алфавита
Case Else
' Действия, если строка не начинается с символа _ латжнсткого алфавита
End Select
Инструкции безусловного перехода
С помощью инструкций безусловного перехода можно переходить к выполнению части заданной программы без проверки каких-либо условий. К таким инструкциям относятся Goto и пара GoSub-Return. Однако перед рассмотрением данных инструкций необходимо ознакомиться еще с одним элементом языка VBA, без которого данные инструкции использоваться не могут, — метками.
Метки
Метка — это идентификатор VBA или целое число, которое располагается в начале строки и заканчивается двоеточием. Метки используются для указания строк, на которые можно переходить с помощью инструкций GoTo и GoSuh. Примеры меток приведены ниже-
100:
DoSomeAction:
Перерасчет:
После перехода на метку выполняются все инструкции, расположенные после нее до конца процедуры, функции, следующих инструкций GoTo, GoSub или до инструкции Return (см. далее).
Инструкция GoTo
Инструкция GoTo используется для простого перехода к выполнению программы после нужной метки. Формат инструкции следующий:
GoTo Имя_метхи
Инструкции, расположенные после GoTo, выполняются только в том случае, если в программе существуют соответствующие инструкции GoTo или GoSub. Рассмотрим пример использования GoTo:
а = 15 + Ь
И а < О Then Goto 10
Выполнение действий для злачекия переменной а больше нуля
10:
Выполнение действий дм значения переменной а меньше нуля
Следует отметить, что частое использование инструкции goto в программе не рекомендуется, так как может сделать алгоритм слишком запутанным. Goto часто можно заменить инструкциями выбора либо вызовом процедуры или функции.
Пара инструкций GoSub-Return
Во времена старого доброго языка Basic инструкции Gosub и Return были незаменимы для программиста. Это было связано с тем, что Basic не был даже процедурным языком программирования: в нем не было процедур и функций, все инструкции записывались в виде единой программы. Чтобы не реализовывать несколько раз одинаковые действия, в этой большой программе выделялись отрезки кода, выполняющие типичные действия, — подпрограммы. Подпрограмма начиналась некоторой меткой н оканчивалась инструкцией Return.
При достижении инструкции Gosub осуществлялся переход на указанную метку (аналогично инструкции сото) — начинала выполняться подпрограмма. При достижении инструкции Return происходил возврат из подпрограммы — выполнение программы продолжалось после последней инструкции Gosub.
Пара инструкций Gosub-Return в языке VBA работает точно таким же образом, но переходы осуществляются только в пределах процедуры или функции. Формат инструкций GoSdb-Retu rn такой:
GoStib Имя_метки
[Инструкции]
Иия_М№Ки:
[Инструкции подпрограммы]
Return
Ниже приведен пример использования инструкций Gosub-Return (в подпрограмме вычисляется квадрат длины гипотенузы прямоугольного треугольника):
а - 5
Ъ *= 4
GoSub Calculate
Другие действия
Calculate:
’ Подпрограмма
с2 = а'*2 + ЬЛ2 Return
Следует отметить, что при процедурном, а тем более объектно-ориентированном программировании необходимость использования подпрограмм полностью отпала. Роль подпрограмм выполняют функции и процедуры.
Процедуры и функции
В языке VBA программист должен записывать все инструкции своей, программы внутри специальных блоков: функций и процедур. Код внутри процедуры или функции представляет собой подпрограмму, выполняющую требуемые действия. Перед рассмотрением способов создания процедур и функций необходимо узнать, чем же различаются эти два вида подпрограмм в VB А.
Процедура — это подпрограмма, которая выполняет действия, не возвращая никакого значения в качестве результата либо возвращая некоторые значения путем изменения переданных ей параметров. Функция в дополнение к возможностям процедуры может возвращать некоторое результирующее значение.
Далее в этом разделе будут рассмотрены особенности создания и использования процедур и функций в программах на VBA.
Объявление процедур
Для объявления процедуры в VBA используется следующая конструкция:
(Private | Public] [Static] Sub Ммя_процедуры ((Списокаргументов) ]
(Инструкции!
[Exit Sub!
[ Инструкции!
End Sub
Ключевые слова Private и Public данной конструкции задают область видимости процедуры.
□ Public — применяется но умолчанию, позволяет создать процедуру, которую можно вызывать из любого места проекта VBA. При использовании в модуле класса дает возможность создавать общую процедуру (метод) этого класса.
□ Private — позволяет создать процедуру, которую можно вызывать только в том модуле VB А, где данная процедура объявлена. При использовании в модуле класса дает возможность создавать личную процедуру (метод) этого класса
Если в объявлении процедуры используется ключевое слово static, то значения всех локальных переменных данной процедуры сохраняются между ее вызовами. Это эквивалентно использованию инструкции static вместо Dim при объявлении каждой локальной переменной внутри процедуры.
Имяпроцвдуры — любой корректный идентификатор VBA, который будет употребляться в программе при необходимости вызова данной процедуры.
Списокаргументпое — содержит описания аргументов, принимаемых процедурой. Описания аргументов разделяются запятой и имеют следующий формат.
(Optional] (eyval | ByBef] [ParamArray] Имя_аргумента[ ( | ] {.МИмятипа! _ (= Значение_по_умолчанию]
Пояснения элементов, которые используются в данной конструкции, приведены в табл. 1.7.
Таблица 1.7. Элементы описания аргумента процедуры
Элемент
Пояснение
Optional
Указывает, что аргумент необязательный. Если Optional используется, то все аргументы, записанные после, тоже должны был» необязательными. Данное ключевое слово не может использоваться совместно с ключевым словом ParamArray
ByVal
Указывает, что аргумент передается в процедуру по значению
ByRef
Указывает, что аргумент передается в процедуру по ссылке Используется по умолчанию
ParamArray
Используется только при описании последнего аргумента процедуры н указывает, что этот аргумент является массивом из произвольного количества значений типа Variant РагшпАггау нельзя использовать совместно с ключевыми словами By Vai, ByRef и Optional
Имяпргуяента
Идентификатор локальной переменной процедуры, в которой хранится значение соответствующего аргумента
()
Указывает. что описываемый аргумент представляет собой массив
As Имятипа
Используется для явного указания типа аргумента. Если этот элемент не используется, то типом аргумента считается Variant
= Зндчение_по_умалчанию
Используется только совместно с ключевым словом Optional для присвоения необязательному аргументу значения по умолчанию. Значение_по_умолчанию — любое константное значение соответствующего типа. Для аргумента типа Object единственным допустимым значением является Nothing.
Если данный элемент конструкции не используется, то происходит стандартная инициализация аргумента
Для выхода из процедуры предусмотрена инструкция Exit Sub. При ее достижении выполнение программы немедленно переходит к инструкции, следующей за вызвавшей процедуру инструкцией.
Ниже приведен пример процедуры, имеющей два аргумента, при этом второй аргумент необязательный и передается по ссылке:
Sub ProcedureExampIe(ByVal intNumber As Integer, Optional fFlag - True)
* Инструкции процедуры
Проведенную процедуру можно модифицировать так, чтобы вместо необязательного второго параметра процедура принимала произвольное количество аргументов. из которых формируется массив:
Sub ProcedureExanple (ByVai intNumber As Integer, ParamArray varArray () ) ' Инструкции процедуры
End sub
f
ВНИМАНИЕ
Два приведенных примера процедур в программе на VBA одновременно •присутствовать не могут. Этообуслоалвнотем, что язык VBA не поддержи
вает перегрузку процедур и функций (создание процедур и функций с одинаковыми именами, нос разными параметрами).
Вызов процедур
Для вызова процедуры в программе На VBA предусмотрена инструкция Call, формат которой приведен ниже:
[Call] Имя_процедуры 1Список_аргументов\
Здесь элемент Имяпроиедуры представляет собой идентификатор вызываемой процедуры. Если процедура принимает аргументы, то они должны быть указаны па месте элемента Списох^аргумектов через запятую
В качестве ар!ументов в вызывающей процедуре или функции используются константные значения или идентификаторы переменных соответствующих типов.
Эта инструкция позволяет также вызывать и функции, но при этом возвращаемое ими значение получить невозможно.
ПРИМЕЧАНИЕ
Интересной особенностью инструкции Call является то, что само ключевое слово Call можно опускать. Если ключевое слово Call используется, то список аргументов процедуры необходимо заключать в скобки. В противном случае скобок быть не должно.
Пусть имеется процедура:
Sub Procedure'ExMple (ByVai IntNuniber Ae Integer, ParartAzxay varArrayO)
• Инструкции процедуры
Пусть также имеется процедура TeetExample. в которой необходимо вызывать процедуру ProcedureExample- Процедуру TestExample можно реализовать следующим образом:
Sub TestExampleD
Инструкции процедуры
' Вызов ProcedureExample
Call ProcedureExample(123, "Значение!", "Значение2", "ЗначениеЗ")
* Инструкции процедуры
End Sub
Если в TestExample не использовать ключевое слово call, то вызов процедуры будет выглядеть так:
Вызов ProcedureExample
ProcedureExample 123, "Значение1”, "Значение2", "ЗначёниеЗ"
Далее, перед тем как рассматривать особенности передачи значений в процедуры, целесообразно рассмотреть создание и вызов функций. Это связано с тем, что передача параметров в процедуры и функции происходит одинаково.
Объявление функций. Возврат значения
Для объявления функций в VBA используется следующая конструкция:
[Private | Public] [Static] Function Имк_функияр [1Слисок_аргумен- тов)] _
[Аз Имя_типбА
А Инструкции!
[Имя^функции — Значение)
[Exit Function]
[Инструкции]
)Имя_функиии ■ Значение)
End Function
Приведенный формат объявления функции отличается от объявления процедуры использованием ключевого слова Function вместо Sub, возможностью указания типа возвращаемого функцией значения (после списка аргументов) и возможностью в теле функции присвоить значение переменной с идентификатором, соответствующим идентификатору этой функции ^Имя_функции - Значение). При объявлении функций можно использовать все возможности, доступные при объявлении процедур.
Если тип возвращаемого функцией значения не указан, то подразумевается возвращение значения типа Variant.
55
Для возврата значения функцией необходимо в нужном ее месте присвоить соответствующее значение переменной с таким же идентификатором, как и идентификатор функции. Часто в функции может быть несколько точек, в которых возвращается значение. Если после получения результата нужно немедленно выходить из функции, то после присвоения Имяфункции - Значение используется инструкция Exit Function. Если на протяжении выполнения функции не было использовано присвоение Имяфунхции - Значение, то возвращается значение по умолчанию для соответствующего типа данных (см. подраздел об инициализации переменных).
Ниже приведен пример функции, которая вычисляет квадратный корень из переданного ей аргумента (если аргумент меньше нуля, то возвращается значение -1, сигнализирующее об ошибке):
Function dhSQR(dblValue As Double) As Double
If dblValue < 0 Then
* Недопустимей аргумент функции
dhSQR - -1
Else
Вычисление квадратного корня
dhSQR - Sqr(dblValue)
End If
End Function
Вызов функций
Для вызова функций можно также использовать инструкцию Call, например:
Call dhSQR(16-324)
или
dhSQR 16.324
Однако при этом теряется возвращаемое функцией значение. Для использования возвращаемого значения идентификаторы функций необходимо включать в выражения справа от знака равенства или другого оператора. Тогда в момент вычисления значения выражения, в состав которого входит идентификатор функции, происходит вызов данной функции, а возвращенное ей значение подставляется в исходное выражение вместо идентификатора функции. Например, в результате обработки каждого из следующих выражений в переменную dblRes будет записано значение 5:
dblRes - dhSQR(25)
dblRes - 1 + dhSQR(16)
Точно таким же образом вызываются все встроенные функции VBA, например IsArray, SQR и Array.
Особенности передачи параметров
При создании и использовании процедур и функций необходимо учитывать некоторые особенности передачи параметров в них. Они общие для процедур и функций. Рассмотрим данные особенности.
Позиционная передача параметроа
Этот способ передачи параметров наиболее распространен и применяется практически во всех языках программирования Во всех предыдущих примерах использовался именно позиционный способ передачи параметров в функции и процедуры. Суть данного способа в том, что при вызове процедуры или функции аргументы записываются в том порядке, в котором они указаны при ее объявлении. Пусть, например, необходимо использовать такую процедуру:
Sub Procedure(Optional inbk Аз Integer — 25, Optional lnCB As Integer)
• Инструкции процедуры
End Sub
Вызов данной процедуры с использованием позиционной передачи параметров выглядит следующим образом:
Procedure 12, 56
ИЛИ
Call Procedure (12, 56)
Отдельного внимания заслуживает передача необязательных параметров. Необязательные параметры можно пропустить, тогда им будет присвоено значение по умолчанию (см. подраздел об объявлении процедур). Ниже приведены примеры вызова процедуры Procedure с пропуском некоторых параметров по умолчанию:
Procedure 12Procedure , 12ProcedureProcedure 12Procedure , 12Procedure* Пропущен второй параметр
Procedure 12
Procedure , 12
Procedure
Procedure 12
Procedure , 12
Procedure
* Пропущен первый параметр
* Пропущены оба параметра
Использование именованных параметров
Язык VBA поддерживает также передачу аргументов процедурам и функциям с использованием именованных параметров. Суть данного способа заключается в том, что при вызове функции или процедуры явно указываются имена параметров. которым присваиваются соответствующие значения. При этом порядок передачи не важен.
Для использованной выше процедуры Procedure вызов с использованием именованных параметров выглядит следующим образом:
Procedure intA:=I2, intB:=56
или
Procedure intB;-56, intA-.=»12
При использовании именованных параметров значительно упрощается передача необязательных параметров. Чтобы пропустить задание такого параметра, ему просто не нужно ничего присваивать при вызове функции или процедуры, например:
Procedure ±ntB:-56
В данном примере не сильно заметны преимущества использования именованных параметров. А вот если необходимо использовать следующую функцию, задав значения только параметров агдЗ и агд8:
Function dhManyArg (Optional argl, Optional arg2, Optional агдЗ, _
Optional argO, optional argS, Optional arg6, Optional arg7, _
Optional arg8)
* Инструкции функции
End Function
Очевидно, что инструкция
varRes e dhManyArgG, "text",,,, ,142.23)
куда менее наглядна и понятна, чем инструкция
varRes - dhManyArg(arg3:=**text,,,argB:-142.23)
Передача аргументов по значению или ссылке
Рассмотрим, каким образом в вызываемой процедуре или функции может осуществляться доступ к передаваемым данным. В языке VBA существуют две возможности передачи аргументов: по значению и по ссылке.
При передаче аргумента по значению в вызываемой процедуре или функции создается локальная переменная, в которую копируется все переданное содержимое аргумента. Изменение значения этой локальной переменной никак не отражается на значении переменной, соответствующей аргументу в вызывающей процедуре или функции
Ниже приведен пример процедуры, принимающей аргумент по значению:
Sub TeatByVal(ByVai intArg Ae Integer)
" Какие-то действия, во время которых -значение переменной _ intArg изменяется
End Sub
Пусть теперь в некоторой процедуре присутствует инструкция TestByVal intValue. После выполнения этой инструкции значение переменной intvalue в вызывающей процедуре останется таким же каким оно было до вызова процедуры TestByVal.
При передаче аргумента по ссылке дело обстоит иначе: при изменении значения переменной-аргумента в вызываемой процедуре или функции изменяется значение соответствующей переменной в вызывающей процедуре или функции.
Ниже приведен пример процедуры, принимающей аргумент по ссылке:
Sub TestByRef(ByRef intArg As integer)
' Какие-то действия, во время которых значение переменной _ intArg изменяется
End Sub
Пусть теперь в другой процедуре присутствует инструкция TestByRef intValue. После выполнения данной инструкции в вызывающей процедуре значение переменной intvalue будет отличаться от первоначального.
Передача аргументов позначению позволяет защитить данные вызывающей процедуры или функции от незапланированного изменения. В то же время передача аргументов по ссылке может использоваться для возврата значений процедурами, а также д ля возврата функциями более одного значения. Важным моментом является то, что передача больших объемов данных (например, длинных строк) по ссылке происходит значительно быстрее, чем по значению.
Определение и преобразование типов переменных
Данный раздел посвящен рассмотрению возможностей VBA для определения и изменения типа значений в переменных во время выполнения программы.
Определение типов переменных
В VBA предусмотрены возможности получения информации о тиле любой переменной во время выполнения программы. Узнать тип переменной (или тип значения, содержащегося в переменной типа Variant) можно несколькими способами.
Для идентификации встроенного в VBA типа можно использовать функцию Va гТуре. В качестве аргумента она принимает идентификатор переменной или константное значение некоторого типа. Возвращаемые этой функцией значения и их расшифровка приведены в табл. 1 8.
Таблице 1.8. Значения, возвращаемые функцией Variy ре
Значение
Константа VBA
Тип переменной или пояснение
0
vbEmpty
Неинициализированная переменная типа Variant
1
vbNuU
В переменной типа Variant содержится значение Null
2
vblntcgcr
Integer
Значение
Констант» VBA
Тип переменной млн пояснение
3
vbLong
Long
4
vbSinglc
Single
5
vbDouble
Double
6
vbCunency
Currency
7
vbDate
Date
8
vbString
String
9
vbObject
Object или ссылка ян объект определенного типа (например, Application)
Ю
vbError
Код ошибки
1)
vbBookan
Boolean
12
vbVariant
"Variant (возвращается только для массивов с элементами типа Variant)
13
vbDataObject
Объект для доступа к данным
14
vbDecimal
Decimal
17
vbByte
Byte
36
vbUsetDefinedType
Тип данных, определенный пользователем
8192
vbArray
Массив
ПРИМЕЧАНИЕ
Функция VarTy ре возвращает значение vbArray только в сумме со значением, идентифицирующим тип элементов массива. Например, для массива строк функция возвратит значение 8192 * 8 = 8200. Значение же vbVariant возвращается тслько в сумме со значением vbArray и только для массивов с элементами типа Variant
Для определения типа переменной можно использовать встроенную функцию TypeName. В качестве аргумента она принимает идентификатор переменной или константное значение некоторого типа. Возвращает данная функция строку (тип String) с именем типа аргумента, например "integer", "string", "Workbook", "Object". Данная функция может вернуть также ряд специфических значений. Описание этих значений приведено в табл. 1.9.
Таблице 1.Я. Специфические значения, возвращаемые функцией TypeName
Значение
Пояснение
Error
Аргумент функции содержит кодошибки
Empty
Аргумент функции является пустой переменной типа Variant
Null
Аргумент функции содержит значение Null
Unknown
Не удалось определить имя типе для аргумента
Nothing
Аргумент функции — ссылка, которая не указывает ни на какой объект (имеет значение Nothing)
ПРИМЕЧАНИЕПРИМЕЧАНИЕДля определения типа объекта, на который указывает ссылка, может использоваться инструкция TypeOf, имеющая следующий формат: Typeof Ссылка is Идентификатор_типа. Данная инструкция возвращает значение True, если ссылка с именем Ссылка указывает на объект, имя типа которого соответствует параметру Идентифихатортипа. В противном случае возвращается значение False. Например, если obj — ссылка на объект worksheet, то результатом выполнения инструкции Typeof obj is Worksheet будет значение True.
ПРИМЕЧАНИЕ
ПРИМЕЧАНИЕ
Инструкция TypeOf работает только для ссылок, имеющих значение, отличное от Nothing. Если в качестве параметра Идентифихатортипа используется Object, то результатом выполнения инструкции будет значение True независимо от типа объекта, на который указывает ссылка.
Преобразование типов
Для обеспечения возможности преобразования типов во время выполнения программы в VBA предусмотрен ряд специальных функций — функций преобразования типов данных. Все эти функции принимают в качестве аргумента значение типа Variant и возвращают значение соответствующего типа. Ниже приведен формат функций преобразования типов данных:
СВоо!(Выражение) CByte(Выражение) ССиг(Выражение)
CDate(Выражение) ССЫ (Выражение) CDec (Выражение)
CInt ( Вбрах-ение) CLng(Выражение)
CSng(Выражение) CStr(Выражение)
CVar(Выражение)
Далее приведены примеры использования этих функций (переменная varRes имеет тип Variant, а переменная strRes — ТИО string):
varRes - CDec(12.«352461 / CDec(3.14169265359)
strRes - CStr(12.3535)
В результате выполнения приведенных инструкций переменная varRes будет содержать значение типа Decimal (использование функции cnee — зтоединственный способ оперировать с типом данных Decimal), а в переменную strRes будет записано значение "12.3535".
ПРИМЕЧАНИЕ
При использовании функции CBool необходимо помнить, что к значению True преобразуется любое значение аргумента, не равное нулю. Передавать в функцию CBool разрешается только численные значения Интересным образом также ведут себя инструкции преобразования к целочисленным типам Clnt, CLng и CByte при наличии дробной части в аргументе. Эти функции округляют дробное число до ближайшего целого четного числа.
Файловый ввод/вывод
Язык VBA поддерживает ряд возможностей для организации файлового ввода/ вывода, рассмотрению которых посвящается данный раздел.-
Открытие файлов
Для открытия файла в VBA существует специальная инструкция open, формат которой приведен ниже:
Open Имяфайпа Гог Тип_доступа [Асееве Режим^досгупа] [Блокировка]
Аз [*]Дескриптор {Тло^ДАИнаяаписи}
В табл. 1.10 приведены описания элементов, используемых в приведенной конструкции.
Таблице 1.10. Элементы инструкции Open
Элемент
Описание
Имя_файло
Строка, содержащая полный или относительный путь к открываемому файлу
Тип_доступа
Задаст режим, ■ котором VBA работает с открываемым файлом Может принимать следующие значения: Append (добавление данных в коней файла), Binary (доступ к файлу в бинарном режиме). Input (последовательное чтение из файла в текстовом режиме). Output (последовательная запись»файл в текстовом режиме) и Random (произвольный доступ к файлу)
Реясим_6оступа
Задает операция, которые можно выполнять при работе с файдом. Может принимать значение Read (только чтение), Write (только запись) или Reed Write (чтение и запись). Read нельзя использовать совместно с типом доступа Output, Write нельзя использовать совместно с Input, a Read Write — ии с Input, ни с Output
Блокировка
Позволяет запретить другим приложениям определенный вид доступа к открываемому файлу. Может принимать следующие значения: Lock Read (запрещает чтение, ио разрешает запись в файл), Lock Write (запрещает запись в файл, но разрешает чтение). Lock Read Write (запрещает чтение и запись) и Shared (по умолчвнию, разрешает чтение и запись)
Таблица t.10. Элементы инструкции Open (продолжение)
Элемент
Описание
Дескриптор
Целочисленное значение от 1 до 511, которое будет однозначно ндентифнцнромть открытый файл
Длино_записи
Задает размер записи в байтах при использовании тапа доступа Random. Для типов доступа Output, Input и Append задаст количество байт, хранимых в буфере
Ниже приведены примеры инструкций открытия файла K:\MyTextFile.txt для произвольного доступа, для последовательного чтения и записи:
Open "D:\MyTextFile.txt" For Random Access Read Write Лз 1 Len * 100
Open DrXMyTextFile.txt" For Input As 2
Open "D:\MyTextFile.txt" For Output As 3
Дескрипторы файлов. Функция FreeFile
В среде программирования VBA открытые файлы идентифицируются номерами — дескрипторами. Дескриптор каждого открытого файла должен быть уникальным. Как можно было увидеть из примеров открытия файла, программист может сам назначать дескрипторы открываемым файлам (при этом необходимо учитывать, что допустимый диапазон значений дескриптора — 1-511).
Для небольших и простых программ возможность назначать дескрипторы вручную очень удобна. Однако в больших проектах, в которых ведется работа со многими файлами, бывает достаточно сложно следить за правильностью назначения дескрипторов вручную. Для избавления программиста от необходимости контролировать правильность дескрипторов в VBA введена специальная функция FreeFile, имеющая следующий формат
FreeFile ([Диапазон])
Данная функция возвращает значение типа Long, которое можно использовать в инструкции Open в качестве дескриптора открываемого файла. Единственным параметром данной функции является необязательный параметр Диапазон, который может иметь значение 1 или С. Если значение параметра равно 0 (по умолчанию), то функция возвращает дескриптор файла из диапазона 1—255. Если же оно равно 1 — значение из диапазона 256-511. Если свободных дескрипторов в диапазоне нет, то функция возвращает нулевое значение.
Ниже приведен пример использования функции FreeFile:
Dim hFile As Long
hFile - FreeFile 1 Получение дескриптора для файла
Открытие файла
Open "D:\MyTextFile.txt" For Output As hFile
Закрытие файлов
После того как с открытым с помощью инструкции open файлом выполнены все необходимые действия, его необходимо закрыть. Вообще операция закрытия (или освобождения) является обязательной для всех объектов операционной системы, а не только для файлов. При закрытии файла освобождается его дескриптор, а другие приложения получают возможность работать с этим файлом, если он был заблокирован при открытии.
В VBA для закрытия файлов предусмотрены две инструкции: Reset и Close. Формат этих инструкций следующий:
Reset
Close [[иДесктиптор (, [I] Дескриптор!...]
Инструкция Reset закрывает все файлы, открытые ранее с помощью инструкции Open. Инструкция Close закрывает только файлы с указанными дескрипторами, например:
Close 1, *3, hFile
Если при использовании инструкции close дескрипторы закрываемых файлов не указаны, то она закрывает все открытые ранее файлы.
Чтение из файлов и запись в файлы
В VBA программисту предоставляется множество инструкций для чтения и записи данных при работе с файлами. Эти инструкции разделяются на три группы в соответствии с тем, при каком типе доступа к файлу они используются: последовательном, произвольном или бинарном.
Инструкции последовательного доступе
Описание инструкций последовательного доступа, используемых для работы с файлами, приведено в табл. 1.11.
Теб лица 1.11. Инструкции пос ладоватвльного доступа к файлу
Инструкция
Тип доступа
Описание
Write ^Дескриптор, _ [Значения]
Output. Append
Записывает в файл. заданный параметром Дескриптор, значения переменных или выражений, заданных параметром Значения (переменные и выражения разделяются запятой). Если Значения содержит несколько переменных или выражений, то при записи в файл их значения разделяются запятой. При этом строковые значения заключаются в кавычки. После записи всех значений в файл в него дописывается символ перехода на следующую строку
Таблица 1.11. Инструкции последовательного доступа к файлу (продолжение)
Инструкция
Тип доступе
Описание
Print ^Дескриптор, _ ^Значения!
Output, Append
Записывает в файл, заданный параметром Дескриптор, значения переменных или выражений, заданных параметром Значения. Значения переменных или выражений записываются в одной строке файла и разделяются символом табуляции. После записи всех значений в файл в него дописывается символ перехода на следующую строку
Input ^Дескриптор, _ Переменные
Input
Используется для чтения из файла данных, записанных инструкцией Write. Количество значений, считываемых из файла, определяется количеством переменных в списке Переменные
Line Input ^Дескриптор, _ Переменная
Input
Считывает строку из файле. Часто используется для чтения из файла данных, записанных инструкцией Print
Ниже приведен пример процедуры, записывающей данные в файл с использованием инструкций последовательной записи:
sub WriteToFileO
Open "D:\MyTextFile.txt" For Output Ав 1
' Запись данных в файл Write #1, "Значение", "Value”, 154.32 Print #1, "Слово!", "Спово2", 14.28464
Close 1
End Sub
Далее целесообразно привести пример процедуры, в которой осуществляется чтение записанных данных из файла;
Sub ReadFromFile()
Dim scrVall, strVal2, dblNumber
Dim strString
Open "D:\MyTextFile.txt" For Input As 1
* Чтение данных из файла
Input #1, BtrVall, strVal2, dblNumber
Line Input #1, strString
Close 1
End Sub
Кроме приведенных в табл. 1.11 инструкций, в VBA имеется встроенная функция input, позволяющая считывать из файла заданное количество символов:
Input (Количество_симв<хпов, [ ♦ ] Дескриптор)
Ниже приведен пример использования данной функции для считывания из файла первых 10 символов:
Sub Testinput. О
Dim strText Аз String
Open •'D:\MyTextFile.txt" For Input As 1
' Чтение из файла первых 10 символов
strText - input(10, 1)
Close 1
End Sub
Инструкции произвольного доступа
При произвольном (Random) доступе файл представляется как совокупность записей, имеющих постоянную длину. Именно запись при данном типе доступа является элементарной единицей информации, которую можно считывать из файла или записывать в файл. Каждая запись имеет свой номер (нумерация начинается с единицы). Для работы с файлами при использовании произвольного доступа в VBA реализованы инструкции Put и Get для записи и чтения информации:
Put [flДескриптор, ^Номер—Задиси), Переменная
Get [#] Дескриптор» ^Номер ваписи), Переменная
При выполнении инструкции Put значение переменной Переменная помещается в файл на место записи с номером Намер занием. Если номер записи не указывается, то данные помещаются в текущую запись файла.
Инструкция Get позволяет считать значение записи с номером Номерзаписи в переменную Переменная Если номерзаписи не указан, то считывается текущая запись файла.
Рассмотрим пример, в котором две структуры сначала записываются в файл с помощью инструкции Put, а потом считываются из того же файла, но в обратном порядке:
Type Record
intVal As Integer
strName As string * 100
End Type
Sub TestRandoreAccessI)
Dim reel As Record, rec2 As Record
Заполнение reel и rec2 значениями ...
Open "D:\JiyRandomAecessFile.txt’’ For Fandom Access Read Write _
As 1 ten — Len{reel)
* Запись данных в файл
Put 1, , rad
Put 1, , rec2
Теперь считывание данных из файла
Get 1, 2, гес2
Get 1, 1, reel
Close 1
End Sub
Инструкции бинарного доступа
Бинарный (Binary) доступ к файлу по своей сути идентичен произвольному доступу с тем лишь различием, что запись в файле имеет длину 1 байт. П ри бинарном доступе к файлу используются те же инструкции Put и Get. что и при произвольном доступе. Также при бинарном доступе для чтения определенного количества байт может быть использована функция input, о которой было рассказано выше.
Определение конца файла
На практике часто приходится сталкиваться с необходимостью чтения данных из файла, размер которого заведомо не известен. Если достигается конец файла, а после этого производится попытка прочитать из него данные, то генерируется ошибка. Для предотвращения подобных ситуаций можно использовать функции бори юг.
БОГ(Дескриптор)
ЮК (Дескриптор)
Функция бое возвращает значение True, если достигнут конец файла, заданного параметром Дескриптор, и False — в противном случае. Если функция EOF возвратила значение False, то читать из файла больше нельзя. Для файлов, открытых в режиме Output, функция EOF всегда возвращает значение True.
Функция LOF позволяет узнать длину файла, заданного параметром Дескриптор. Эта функция возвращает значение типа tong, отражающее длину открытого файла в байтах.
Определение текущей позиции файла
Для определения текущей позиции файла в VBA предусмотрены функции ьос и Seek, имеющие следующий формат:
Loe(Дескриптор)
Seek(Дескриптор)
Обе функции возвращают значение текущей позиции файла, заданного параметром Дескриптор. Однако каждая из этих функций имеет свои особенности.
Стандартные окна сообщений
Функция ьос для файлов, открытых в режиме Random, возвращает номер последней считанной или записанной записи. Для файлов, открытых в режиме Binary, — номер последнего считанного или записанного байта. Для файлов, открытых в режиме последовательного доступа, — текущую позицию в байтах, деленную на 128.
Функция Seek для файлов, открытых в режиме Random, возвращает номер записи, которая будет считана из файла или записана в файл при следующей операции чтения/записи. Для остальных файлов эта функция возвращает номер байта, с которого будет начинаться следующая операция чтения или записи.
Стандартные окна сообщений
Для вывода информации пользователю в арсенале VBA есть очень удобная функция МвдВох. Она позволяет отображать стандартное окно с сообщением (например, об ошибке). Функция МвдВох имеет следующий формат:
М$дВох(7екст_сообн1еяин[г Стиль] [, Заголовок] [, €айл_справки, Ичдвкс_темя1)
Здесь Текстсообцвкия задает строку с текстом сообщения, Заголовок — строку с текстом, который отображается в строке заголовка окна, Файлсправки — имя справочного файла. Если задан аргумент Файл_справки, то должен быть задан аргумент Иядекс_темы, который идентифицирует тему из заданного файла справки, посвященную выводимому диалоговому окну.
Особого рассмотрения заслуживает аргумент Стиль — он задает значок окна сообщения, отображаемые в этом окне кнопки и другие полезные параметры стиля окна. В табл. 1.12 приведено описание значений, которые объединяются при задании аргумента Стиль с помощью оператора or.
Таблица 1.12. Значения, используемые для формирования отиля окна
Константе VBA
Значение
Пояснение
vbOKOniy
0
Отображение только кнопки ОК
vbOKCancel
1
Отображение кнопок ОК и Cancel (Отмена)
vbAbortRtiryIgnore
2
Отображение кнопок Abort (Стоп), Retry (Повтор) и Ignore (Пропустить)
vbYesNoCancel
3
Отображение кнопок Yes (Да), No (Нет) и Cancel (Отмена)
vbYcsNo
4
Отображение кнопок Yes (Да) и No (Нет)
vbRetryCancel
5
Отображение кнопок Retry (Повтор) и Cancel (Отмена)
VbCritical
16
Отображение значка критической ошибки
vbQuestion
32
Отображение значка вопроса
vbExcUmation
48
Отображение значка восклицания
vblntbtmation
64
Отображения значка информация
6969Обработка ошибок времени выполнения
69
69
В VBA имеются возможности, позволяющие программе. отслеживать возникновение ошибочных ситуаций и адекватно, с точки зрения программиста, на них реагировать.
Перехват ошибок
Для перехвата ошибок времени выполнения в VBA используется специальная инструкция On Error, которая вставляется перед тем местом программы, в котором возможно возникновение ошибки. В распоряжение программиста предоставляются три разновидности этой инструкции;
on Error Goto Метка
On Error Resume Next
On Error GoTo 0
Первый вариант инструкции On Error активирует обработчик ошибок (см. подраздел об обработке перехваченных ошибок). При возникновении ошибки после этой инструкции выполнение программы продолжается с метки Метка.
Использование второго варианта позволяет игнорировать все ошибки: при возникновении любой ошибки инструкция, вызвавшая ошибку, пропускается, а выполнение программы продолжается со следующей инструкции.
Третий вариант инструкции On Error отключает перехват ошибок обработчиком, находящимся в выполняемой процедуре или функции.
Обработка перехваченных ошибок
Как уже было сказано, если в программе используется инструкция следующего вида; On Error GoTo Метка, то после возникновения ошибки после этой инструкции выполнение программы продолжается с метки Метка. Программный код, который начинается с данной метки и заканчивается (обычно, но не всегда и не обязательно) инструкцией Resume, называется обработчиком ошибок. В обработчике ошибок программист помещает действия, которые либо исправляют ошибку, либо информируют о пей пользователя. В конец обработчика ошибок обычно помещается один из вариантов инструкции Resume:
Resume [0]
Resume Next
Resume Метка
При использовании Resume [ 0] выполнение программы продолжается с той инструкции, в которой произошла ошибка. Если использовать вариант Resume Next, то выполнение программы продолжается со следующей инструкции после той, в которой произошла ошибка. Использование же варианта Resume Метка, позволяет продолжить выполнение программы с указанной после Resume метки.
При обработке ошибок важно знать, что в распоряжении программиста всегда имеется глобальная ссылка с именем Err на объект ErrObject. Этот объект хранит
ReDiro alngValues (1 To IngRowe, 1 To IntCols) Set rgRange • ActlveCell-Range(Cells(1, 1), Cells(IngRows, intCols))
Заполнение массива alngValues значениями
For IngRow - 1 To IngRows
For intCol — 1 To intColя alngValues (IngRow, intCol) «• IngVal IngVal — IngVal + IngStep
Next intCol
Next IngRow
Перенос значений из массива а таблицу rgRange.value — alngValues
End Sub
Порядок заполнения диапазона такой же, как и в предыдущем примере, — после запуска макроса нужно последовательно указать количество ячеек в высоту и ширину. Результатом работы макроса будет заполненный диапазон (начиная с активной ячейки). Так же, как н в предыдущем примере, для изменения параметров заполнения диапазона (начальное число последовательности, шаг и др.) можно внести соответствующие изменения в код макроса.
Более высокая скорость работы данного алгоритма достигается благодаря тому, что сначала формируется двумерный массив со значениями Этот массив целиком передается объекту Range. Тем самым мы избегаем множества обращений к Таблице. заменяя их одним, но эффективным.
Гиперссылки — в виде обычного тексте
В Microsoft Excel, начиная с версии 2000, осуществляется автоматическая замена текста гиперссылками, если он содержит следующие наборы символов:
О http://
WWW.
ftp://
mailto:
O file://
news:
О mail@pochta
Однако такая автозамена не всегда удобна. Чтобы ее отменить, достаточно в качестве первого символа, вводимого в ячейку, использовать апостроф ("). После нажатия Enter этот символ исчезнет и останется только введенный текст, причем он не будет преобразован в гиперссылку. На печать апостроф также не выводится.
подробную информацию о возникшей ошибке (иомер ошибки, текст сообщения об ошибке и т. д.). В обработчике эту ссылку можно использовать для уточнения типа, источника ошибки, а также для получения других сведений.
Ниже приведен пример функции с обработчиком ошибок (она пытается записать текст в файл на гибком диске А:):
Function dhWriteToFloppy (sttText As string) As Boolean
Включение обработчика ошибок
On Error Goto ErrHandler
Выполнение операций с дискетой
Open "А:\Text.txt" For Output Aa 1
Write 11, strText
Close 1
Действия выполнены успешно
dhWriteToFloppy - True
ExitFunc:
Выход из функции до обработчика ошибок
Exit Function
ErrHandler:
Закрытие файла, если его все-таки удалось открыть
Close 1
Dim strErrMessage As String
• Идентификация ошибки и формирование текста сообщения
Select Casa Erг.Number
Case 71
strErrMessage - "Нет диска в дисководе"
Case 70
strErrMessage ■ "Диск защищен от записи*1
Сазе 61
strErrMessage - "Нет места на диске"
Case Else
strErrMessage - Err.Description
End Select
Отображение сообщения об ошибке
MsgBox strErrMessage, vbExclamation, "Ошибка"
* Продолжение выполнения программы.
dhWriteToFloppy = False
Resume ExitFunc
End Function
Если запись удается, то функция возвращает значение True. Если возникает ошибка, то выдается соответствующее сообщение, после чего функция возвращает значение False На примере функции dhWriteToFloppy следует заметить, что при нормальном выполнении программы (без возникновения ошибок) обработчик ошибок выполняться не должен, что достигается выходом из функции до обработчика с помощью инструкции Exit Function,
Классы в VBA
Язык программирования VBA является объектно-ориентированным, хотя и не поддерживает наследование и полиморфизм VBA-программист может работать со встроенными классами, а также создавать и использовать свои собственные классы.
Создание класса на VBA
Создание класса на VBA отличается от других языков программирования (таких как C++), в которых описание классов во многом аналогично списанию структур.
В VBA для каждого класса в проект должен быть добавлен отдельный модуль, в который помещается код , реализующий работу класса, — модуль класса. Добавление нового модуля класса осуществляется с помощью команды меню Insert ► Class Module (Вставить ► Модуль класса) редактора Visual Basic. Имя модулю класса присваивается с помощью окна Properties (Свойства), которое показано на рис. 1.3.
Рис. 1.3. Назначение имени классу
Имя, которое будет присвоено добавленному модулю, и будет являться именем нового класса. Вданном случае имя созданного класса — Classi. В качестве примера с помощью этого класса будет реализовано хранение ссылки на объект, а также хранение некоторой информации об объекте.
Свойства класса
Свойства для классов в VBA ищут быть реализованы двумя способами Первый способ — это использование в модуле класса общих переменных-членов (объявленных с атрибутом Public). Добавим таким способом свойство в созданный ранее класс ciaasl, в котором будет храниться строка с описанием данных, хранящихся в объекте-экземпляре этого класса.
Public strTag As String
Такой способ реализации свойств является самым простым, однако у него не предусмотрено возможности контролировать правильность задания параметра в осуществлять какие-либо действия при изменении его значения. Для решения этой проблемы можно использовать второй способ — создание процедур и функций, которые выполняются при установке и получении значений свойств соответственно. Для этих целей в модуле класса применяются обычные объявления процедур и функций, в которых используется ключевое слово Property.
Для получения значения свойства предназначена функция, объявленная с использованием Property Get:
[Public | Private] [Static] Property Get Имя_свойства {[Аргументы]} [As Имятипа!
[Инструкции!
[Имясвойстаа - Выражение!
[Exit Property]
[Инструкции!
[Имясыайства ■ Выражение!
End Property
Для присвоения значения свойству, не являющемуся ссылкой на объест, предназначена процедура, объявленная с использованием Property Let:
[ Public | Private] [Static] Property Let Иия_свойства ([Аргумента, ] Значение)
[Инструкции!
[Exit Property]
[Инструкции!
End Property
Для присвоения значения свойству, являющемуся ссылкой на объект, предназначена процедура, объявленная с использованием Property Set:
[Public | Private] [Static] Property Set Имя_свойства ([Аргументы, ] Значение)
[ Инструкции!
[Exit Property]
[Инструкции!
End Property
Использование процедур и функций с ключевым словом Property очень удобно для создания свойств только для чтения (для этого свойства не реализуют-
ся Property Let и Property Ser) и свойств только для записи (не реализуется Property Get).
Рассмотрим реализацию свойств ObjectRef и ObjectType для рассматриваемого класса ciassl (частная переменная-член objRef используется для хранения установленной ссылки на объект):
Private objRef As Object
Property Set ObjectRef(objNewRef Ab Object)
Задание ссылки хранимого объекта
Set objRef — objNewRef
End Property
Property Get ObjectRef() As object
Возврат ссылки на хранимый объект
Set ObjectRef = objRef
End Property
Property Get ObjectType() As String
Возврат имени типа хранимого объекта
ObjectType — TypeName(objRef)
Bnd Property
Методы класса
Любая функция или процедура, описанная в модуле класса, является методом этого класса. Методы делятся на общие (описаныс использованием Public) и частные (описаны с использованием Private).
Ниже приведена реализация метода для созданного нами класса ciassl, при обращении к которому на экран выводится сообщение со значениями атрибутов класса:
Sub Showinfo()
Отображение окна со значением свойства etrTag и именем типа , объекта, на который хранится ссылка
MsgBox "strTag — " 8 strTag 6 vbCrLf 8 _
"Object type - " * ObjectType
End Sub
Использование класса а программе
Как было сказано в начале главы, операции со всеми объектами VBA осуществляет только с использованием ссылок. Объявление ссылок на объекты было рассмотрено в разделе, посвященном переменным в VBA. Здесь будет рассмотрено лишь использование объекта созданного ранее класса ciassl. Для создания ссылки на объект можно использовать следующее объявление:
После создания ссылки сам объект создается с помощью инструкции set:
Set obj - New Class1
Объявление переменной ссылки и создание объекта можно также совместить:
Dim obj As New Classi
Для доступа к свойствам и методам объекта используется точка, например:
obj.strTag - "Некоторый текст" Set obj.ObjectRef - Nothing MsgBox obj.ObjectType obj.Showinfo
Ниже приведен пример процедуры, которая использует реализованный класс Classi:
Sub TestClaesO
■ Создание объекта
Dim obj As New Classi
• Установка свойств
Set ob].ObjectRef = New Collection obj.strTag - "В этом объекте хранится ссылка на объект Collection" * Вызов метода obj.Showinfo End Sub
В результате работы данной процедуры на экран будет выведено окно сообщения, показанное на рис. 1.4
Рис. Т.4. Окно с информацией о свойствах объекта
Как можно заметить, в процедуре Testciaes не происходит явного уничтожения ссылки на объект класса Classi. Дело в том, что ссылка obj — локальная переменная процедуры. А при выходе из процедуры данные всех локальных (не статических) переменных уничтожаются. в том числе удаляются и локальные ссылки на объекты
Использование API-функций в VBA
Иногда даже при программировании на таком языке, как VBA возникает необходимость использовать API-функции Windows. Эти стандартные функции деЙствитель-
но предоставляют программисту поистине огромные возможности — от управления отображением окон и кнопок до организации сетевого взаимодействия. Всего Windows API (Application Programming Interface) насчитывает около 1000 различных функций
Объявление API-функций
Чтобы API-функцию можно было вызывать из программы на VBA, ее нужно объявить с использованием инструкции Declare:
[Public I Private] Declare Function Имя Lib "Библиотека*1 _
[Alias ” Псевдоним "V 11[Аргументы]) ] [Аз Иыя__тип»\
или, если API-функция не возвращает значения:
[Public | Private] Declare Sub Имя Lib " Еи&лиотека" [Allas "Псевдоним” ] _ [ ( [Аргументы] ) ]
Эта инструкция помещается в блоке объявлений модуля. Ключевые слова Public и Private задают область видимости объявляемой API-функции аналогично обычной процедуре или функции. Единственной особенностью является то, что при объявлении API-функции в модуле класса нужно использовать Private Назначение остальных элементов инструкции Declare поясняется в табл. 1.14.
Таблица 1.14. Элементы инструкции Declare
Элемент
Пояснение
Имя
Идентификатор, по которому в программе будет происходить обращение к API-функции аналогично обращению к обычной процедуре или функции. Если в инструкции Declare ключевое слово Alias не используется, то элемент Имя должен полностью совпадать с названием API-функции (с учетом регистра символов). Если Alias используется, то элемент Имя может быть любым корректным идентификатором, не используемым для другой процедуры или функции
Библиотека
Имя файла библиотеки (DLL), п которой находится объявляемая функция, например "User" или "UBer.dll"
Псевдоним
Если в инструкции Declare используется ключевое слово Alias, то Псевдоним должен полностью соответствовать имени API-функции в DLL. Использование Alias "Псевдоним" позволяет применять АР1-функп1по в программе на VBA под именем, отличающемся от настоящего
Аргументы
Описание списка аргументов, принимаемых функцией. Аналогично описанию аргументов процедур и функций VBA. Дополнительно при описании аргументов API-функции можно использовать тип данных Any для разрешения передачи а функцию значения любого типа
Имятипа
Используется для задания типа возвращаемого APl-функцисй значения
Ниже приведен пример объявления API-функции получения имени текущего пользователя без использования псевдонима:
Declare Function GetUserKamoA Lib *’Bdvapl32.dll" _
(ByVai IpBuffer As String, nSixe As Long) As Long
а также с использованием псевдонима:
Declare Function GetUaerNama Lib "advapl32 .dll" Alias "GetUserNameA" _ (ByVai IpBuffer As String, nSize As Long) As Long
При использовании первой из приведенных инструкций для вызова функции нужно использовать имя GetUserNameA. При использовании второй — ИМЯ GetUserNeme.
Вызов API-функций
Вызов API-функций, объявленных с помощью инструкции Declare Function, ничем не отличается от вызова других функций: протраммист волен использовать инструкцию Сан или употреблять функцию в выражениях. Если API-функция объявлена с использованием Declare Sub, то для вызова может использоваться только инструкция call (аналогично процедуре).
Для закрепления всего, что было изложено выше, рассмотрим пример использования API-функции GetUserName для получения имени текущего пользователя компьютера:
• Объявление API-функции с использованием псевдонима
Declare Function GetUserName Lib "edvapiSZ.dll* Allas "GetUserNameA" (ByVai IpBuffer As String, nSize As Long) As Long
Sub UserNameO
Dim strBuffer As String
Создание строкового буфера для возврата зммчемия функцией
strBuffer — Space(100)
' Получение имени пользователя (ВЫЗОВ API-ФУНКЦИИ). _
Функция возвращает ненулевое значение, если имя пользователя _ записано в strBuffer
If GetUserName(strBuffer, 100) Then
Вывод имени пользователя
MsgBox RTrlm(strBuffer)
Else
MegBox "fie удалось получить имя пользователя"
End If
End Sub
Использование объектов Excel
Программирование на VBA в Microsoft Office чаще всего представляет собой управление объектами соответствующего приложения. Не является исключением и программирование в Excel. Данный раздел предназначен для того, чтобы ознакомить читателя с основными объектами, встроенными Excel Эти объекты используются в подавляющем большинстве примеров (трюков), приведенных в дальнейших главах книги.
Объектная модель Excel
На рис. 1.5 представлена значительно упрощенная структура объектов, доступ к которым имеет программист на VBA.
Appt cation ]
—I Assistant |
—| Ceils |
| Range |
—jCcnwnendBar^
■ |Corr*nand6arl
—[Charts [
{ Chart |
—f bialogs |
| Selection |
I Sheets | I Chart |
1 Worksheet |
1 Cells | 1P "Range
1 ChartObjecte]
1| ChartObJect|
1 Comments j—IWindows | 1| Comment|1■ | Window |1 Comments j—IWindows | 1| Comment|1■ | Window |Рис. 1.6. Структура объектов Microsoft ExcelРис. 1.6. Структура объектов Microsoft Excel
1 Comments j
—IWindows | 1| Comment|
1■ | Window |
1 Comments j
—IWindows | 1| Comment|
1■ | Window |
Рис. 1.6. Структура объектов Microsoft Excel
Рис. 1.6. Структура объектов Microsoft Excel
Как видно из приведенного рисунка, корневым (главным) объектом, доступным
в VBA, является Application. Используя ссылку на этот объект, можно манипулировать как самим запущенным приложением Excel, так и такими объекта
ми. как рабочие книги, листы, диаграммы, окна, меню, панели инструментов, — Application предоставляет доступ ко всем объектам Excel
Объект Application содержит большое количество вложенных объектов. Они могут быть как объектами, с которыми можно взаимодействовать непосредственно (как Assistant — объект для работы с помощником), так и представлять собой коллекции, содержащие другие объекты. Ниже приведено описание некоторых особенно часто используемых коллекций;
cells — коллекция, содержащая все ячейки рабочего листа;
О commandBars — коллекция, содержащая все меню и панели инструментов;
О Comments — коллекция, содержащая все примечания рабочего листа;
Chartobjects — коллекция, содержащая все объекты-контейнеры.внедрен- ных в рабочий лист диаграмм (по одвому объекту на каждую внедренную диаграмму);
О charts — коллекция, содержащая все листы диаграмм рабочей книги;
Dialogs — коллекция стандартных диалоговых окон Excel;
D Sheets — коллекция, содержащая все листы книги;
D Windows — коллекция всех отображаемых в Excel окон;
U workbooks — коллекция, содержащая все открытые в Excel рабочие книги;
О worksheets — коллекция, содержащая все рабочие листы книги.
Объект Selection (а вернее, свойство объекта Application) предоставляет доступ к данным, выделенным ни активном листе рабочей книги. В Selection мотуг содержаться ссылки на объекты различного типа. Тип зависит от того, что именно выделено на листе (например, если выделены ячейки, то тип объекта select i on — Range).
Особого рассмотрения заслуживает объект Range. Он может содержать одну ячейку, диапазон ячеек или несколько диапазонов ячеек. Этот объект используется при необходимости получения или изменения значений в ячейках таблицы.
Подробная информация о наиболее часто используемых в книге объектах Excel приведена в приложении.
Доступ к объектам Excel из программы
Для доступа к объектам Excel в программах на VBA можно использовать глобальную ссылку на объект Application, которая имеет такой же идентификатор — Application. Например, получение ссыпки на выделенные данные может выглядеть следующим образом:
Set objSel - Application.Selection
Необходимо отметить, что использование ссылки с именем Application во многих случаях подразумевается по умолчанию, поэтому предыдущий пример можно записать так:
Аналогичным образом осуществляется доступ к остальным объектам. При этом с коллекциями Excel, такими как workbooks, worksheets и прочими, работают как с обычными коллекциями VBA, содержащими ссылки на объекты:
Worksheets(1)-Name — "Sheet 1"
Объектом Application предоставляются также ссылки на активную рабочую книгу, активный рабочий лист этой книги, активную ячейку листа, активную диаграмму и т. д. (подобные ссылки объекта Application, а также других объектов, рассмотрены в приложении). Эти ссылки нужны для обеспечения возможности быстрого использования информации активного объекта, например:
ActiveCell.Value - 15
или
ActiveSheet. Neste - "This sheet is now activated"
Рабочая область Microsoft Excel
В данной главе мы рассмотрим порядок работы с основными элементами рабочей области Microsoft Excel — рабочей книгой, рабочим листом и ячейкой (диапазонам). Кроме того, днесь же рассказывается о работе с формулами и пользовательскими функциями.
Рабочая книга
Как отмечалось выше, рабочая книга представляет собой файл Microsoft Excel (обычно—с расширением XLS), в котором хранится и обрабатывается необходимая информация. Используя некоторые несложные приемы, можно расширить возможности рабочей книги. Об этом будет рассказано в текущем разделе.
Автозапуск любимого файла при загрузке Excel
Возможности программы предусматривают автоматический запуск требуемого файла од новременно с открытием Excel. Иначе говоря, при открытии Excel на экране отобразится не пустая рабочая книга (как обычно), а содержимое конкретного файла. Для достижения такого эффекта необходимо поместить требуемый файл в каталог автоматической загрузки — XLStart. Этот каталог расположен в папке с файлами Microsoft Office (например, по адресу C:\Program FilesXMicxosoft Of f ice\Of flcelDXXLStart). При необходимости можно поместить в указанный каталог несколько файлов — в результате при запуске Excel они автоматически будут открыты в разных окнах. Однако для настройки автоматического запуска нескольких файлов удобнее выполнить следующие действия.
Открыть все файлы, которые должны автоматически открываться вместе с запуском Excel.
В меню Файл выбрать команду Сохранить рабочую область и в открывшемся окне по обычным правилам Windows указать путь к каталогу автоматической загрузки (в нашем примере — C:\Program Files\Microsoft Office\OfficelO\ XLStert), после чего нажать кнопку ОК.
В результате в каталог автозагрузки будет помещен файл с расширением XLW (это расширение файла рабочей области). Теперь при запуске Excel будут автоматически запускаться файлы, включенные в эту рабочую область.
Эксперимент с кнопкой Закрыть на панели инструментов
Рассмотрим, каким образом можно поместить на панель инструментов кнопку Закрыть. В принципе, сама процедура размещения данной кнопки на панели проста, известна больтинстну пользователей и выполняется штатными средствами программы. Хитрость же заключается в том, что можно назначить этой кнопке соответствующий значок, хотя по умолчанию на ней отображается текст Закрыть.
Для перехода в режим настройки панели инструментов следует щелкнуть на ней правой кнопкой мыши и выбрать в контекстном меню пункт Настройка, в результате
чего откроется одноименное диало говоеокно. В данном окне нужно перейти на вкладку Команды, в категории Файл выбрать команду Закрыть и перетащить ее мышью на панель инструментов (поместив, например, рядом с кнопкой Открыть). Результат выполненных действий показан на рис. 2.1.
оайл Омска Вид Ветдвса
С GS (закрыть |й ^ %4 | <0
Рис. 2.1. Вставка кнопки Закрыть
Необходимый значок для данной кнопки можно взять из другого приложения (например, из Word). Для этого аналогичным образом поместим на панель инструментов Word кнопку Закрыть, после чего (не закрывая окно Настройка) щелкнем на ней правой кнопкой мыши п выберем в контекстном меню пункт Копировать значок на кнопке.
Y
ВНИМАНИЕ
Контекстное меню кнопки Закрыть доступно только при открытом окне ре- едактирования панели инструментов.
Теперь необходимо перейти в Excel, войти в режим редактирования панели инструментов (то есть открыть окно Настройка), установить курсор на кнопку Закрыть и выбрать в контекстном меню пункт Вставить значок для кнопки. В результате кнопка Закрыть примет вид, изображенный на рис. 2.2.
® Шейл Омпка Вид вставка
f D 1^|В*аакрыть||Д ^ *Q ф
Рис. 2.2. Надпись и значок не кнопке Закрыть
После этого в окне редактирования панели инструментов нужно нажать кнопку Изменить выделенный объект и в открывшемся меню выбрать пункт Основной стиль — результат показан на рис. 2 3.
Si файл Омака Вид Встгка
iD GS0H ti tiisa t
Рис. 2.3. Кнопка Закрыть на панели инструментов
Для завершения операции в окне настройки панели инструментов следует нажать кнопку Закрыть.
Общий макрос для всех книг Excel
Как известно, макрос, созданный в текущей книге, будет доступен в ней, но недоступен в других книгах. Однвко возможности программы предусматривают создание макроса, который будет доступен во всех рабочих книгах
Такой макрос должен храниться в специальной рабочей книге (она называется «личная книга макросов»)—personal .xls. Для ее создания необходимо выполнить следующие действия.
Ввести макрос в пустую рабочую книгу
Выполнить команду главного меню Файл ► Сохранить как,
В открывшемся окне указать путь для сохранения в каталог автоматической загрузки—XLStart (например, C:\Program FlleeXMiorosoft OfficeXOff 1се10\ XLStart), при этом присвоить книге имя personal.xls.
Выполнить команду главного меню Окно ► Скрыть.
Выйти из программы с помощью команды Файл ► Выход. При этом необходимо положительно ответить на запрос о сохранении выполненных изменений.
После выполнения указанных действий созданный макрос станет доступным во всех рабочих книгах и будет автоматически запускаться при загрузке Excel Управление отображением данного макроса осуществляется с помощью команд главного меню Окно ► Скрыть/Отобразить.
Восстановление важной информации из испорченного файла
Использование трюка, описание которого приводится в данном подразделе, позволяет извлечь данные из испорченного файла с помощью встроенного в Excel механизма специальной вставки. Для этого необходимо выполнить следующие действия.
Создать две новые пустые книги.
В первой книге выделить диапазон ячеек и скопировать его в бу фер с помощью команды главного меню Правка ► Копировать.
С помощью команды Окно ► Книга2 перейти ко второй книге.
Выделить ячейку А1, выполнить команду главного меню Правка ► Специальная вставка и в открывшемся окне Специальная вставка нажать кнопку Вставить связь.
Выполнить команду главного меню Правка ► Связи и в открывшемся окне нажать кнопку Изменить.
В открывшемся окне по обычным правилам Windows указать путь к испорченному файлу.
В большинстве случаев данный способ позволяет извлечь данные из испорченного файла.
Быстрое размножение рабочей книги
Используя средства VB А, можно сохранить текущую рабочую книгу сразу в нескольких разных папках. Для этого следует написать и выполнить, макрос, код которого приведен в листинге 2.1.
ПРИМЕЧАНИЕ
Все приведенные в книге листинги можно загрузить с сайта издательства •Питер» по адресу http://www.pit8r.com/downfoad/978546901223/
Листинг 2.1. Размножение рабочей книги
Sub DuplicateBookt)
Dim avarFlleNames As Variant
Формирование массива из путей для копий книги
avarFlleNames = Array(пС:\" 6 _
Active-Workbook.Kama, "DiX” s ActiveWorkbook.Name)
Сохранение книги
ActiveWorkbook.SaveAs avarFlleNames
End Sub
В приведенной выше программе используется возможность передавать методу SaveAs объекта workbook массив строк. В результате выполнения данного макроса текущая рабочая книга будет сохранена одновременно на двух дисках — С: и D:.
Следует отметить, что после выполнения приведенного макроса текущей папкой для книги станет последний элемент массива avarFlleNames. То есть при последующем выполнении команды Файл ► Сохранить в данном случае книга будет сохранена на диске D:.
Сохранение рабочей книги с именем, представляющим собой текущую дату
Копию текущей рабочей книги можно сохранить по указанному пути с именем, представляющим собой текущую дату, то есть в формате ддмигг-xis. Для этого нужно написать и запустить следующий макрос (листинг 2.2).
Листинг 2.2. Сохранение книги с именем, представляющим собой текущую дату
Sub SaveAsDate()
Dim strDate As String
Получение текущей даты и представление ее в формате “дцммгг"
strDate = Format (Now(), "ddmrnyy")
Сохранение книги в текущую папку под новым именем
ActiveWorkbook.SaveAs ActiveWorkbook.Fath 6 "V & strDate
End Sub
В результате применения данного макроса текущая книга будет сохранена в прежнем каталоге, но под именем, соответствующим дате на момент сохранения (например, 140705.xls).
Создание книги с одним листом
В процессе работы иногда возникает необходимость создания рабочей книги, состоящей только из одного листа. Можно, конечно, создать обычную новую книгу и вручную удалять ненужные листы (напомню, чти для удаления необходимо щелкнуть правой кнопкой мыши на ярлычке с именем листа и выбрать в контекстном меню пункт Удалить). Однако для решения данной задачи все же целесообразнее воспользоваться языком VBA и написать макрос, код которого приведен в листинге 2.3.
Листинг 2.3. Книга с одним листом
Sub wewOneSheetBook()
workbooks.Add xlWBATWorksheet
End Sub
В результате выполнения данного макроса будет создана новая рабочая книга, в состав которой войдет только один рабочий лист. Эта книга будет открыта в отдельном окне.
Установка и снятие защиты рабочей книги
Как известно, защитить рабочую книгу от внесения в нее изменений и сиять эту защиту можно с помощью соответствующих команд подменю Сервис ► Защита. Однако для этого можно также воспользоваться макросом, в котором содержатся следующие параметры: Password — для задания пароля, structure — для защиты структуры книги (взаимного расположения рабочих листов) и windows — для защиты окоп книги (например, при использовании данного параметра будет невозможно свернуть или закрыть окно защищенной книги). Следует отметить, что все параметры являются необязательными
Пример такого макроса приведен в листинге 2.4 (данный код должен быть помещен в модуль рабочего листа).
Листинг 2.4. Защита рабочей книги
Sub Worksheet_BeforeRightClick(ByVal Target As Range, —
Cancel As Boolean)
If Target-Address ** "3DS2" Then
Установка защиты рабочей книги (с паролем * 123й, _ включенной защитой структуры книги и защитой расположения окон)
ThisWorkbook.Protect "123", True, True
Указание не обрабатывать нажатие кнопки мыши в этой ячейке
Cancel ■ True
Elself Target-Address - "$E$5" Then
Снятие защиты с книги (необходимо указать ранее установленный _ пароль)
ThisWcrkbook.Unprotect "123"
Cancel -• True
End If
End Sub
В данном примере включение защиты будет выполняться щелчком правой кнопкой мыши в ячейке D2, а снятие зашиты — щелчком правой кнопкой в ячейке Е5.
При необходимости можно запретить вывод текущей рабочей книги на печать (при этом все остальные действия с рабочей книгой остаются доступными). Для этого достаточно записать и выполнить небольшой макрос, код которого выглядит следующим образом (листинг 2.5; данный код следует поместить в модуль ЭтаКнига).
Листинг 2.5. Запрет печати книги
Sub WorkbookBeforePrint(Cancel Ав Boolean)
' Установка флага в True заставляет Excel игнорировать- команду _ отправки книги на печать
Cancel - True
End Sub
После выполнения данного макроса перестанет выполняться команда главного меню Файл ► Печать. Нажатие соответствующей кнопки на панели инструментов или сочетания клавиш Ctri+P также не позволит вывести текущую рабочую книгу на печать.
Закрытие рабочей книги только при выполнении условия
С помощью несложного трюка можно запретить закрытие текущей рабочей книги. Для этого можно воспользоваться кодом, приведенным в листинге 2.6 (этот код должен быть помещен в модуль ЭтаКнига).
Листинг 2.6. Условное закрытие книги
Sub Workbook_BeforeClose(Cancel As Boolean)
If Range ("Al") .Value о '’Можно закрывать" Then
' Условие закрытия не выполнено. Укажем Excel игнорировать команду
Cancel “ True
End If
End Sub
При использовании данного кода закрытие текущей рабочей книги будет возможно лишь после того, как в ячейку А1 будет введен текст можно закрывать.
Быстрое удаление из рабочей книги ненужных имен
В процессе использования программы в рабочих книгах может накапливаться большое количества имен ячеек, диапазонов и т. п., часть из которых с течением времени становится ненужной. Вручную избавляться от ненужных имен слишком долго и нерационально, поэтому данный процесс целесообразно автоматизировать. Для решения данной задачи можно использовать следующий макрос (листинг 2.7).
Листинг 2.7. Удаление ненужных имен
Sub EraseNamee()
Dim nmName As Name Dim strMessage As String
* Проверка наличия в книге определенных имен If ThisWorkbook.Names.Count - D Then
* В книге нет определенных имен MsgBox "Имена не определены' Exit Sub End If
При выполнении данной операции следует соблюдать осторожность, поскольку при утвердительном ответе на запрос об удалении имени это имя удаляется из рабочей книга окончательно, без возможности восстановления.
Сортировка листов в текущей рабочей книге
При работе с файлами, содержащими большое количество рабочих листав, иногда возникает необходимость систематизировать их расположение путем сортировки в порядке возрастания (по номерам или по алфавиту). Решить згу задачу поможет макрос, код которого приведен в листинге 2.8
Листинг 2.8. Сортировка листов
Sub SortSheers()
DimastrSheetNames () As String • Массив для хранения имен листов
Dim IntSheetCount As Integer
Dim 1 As Integer
Dim objActiveSheet As Object
' Если нет активной рабочей книги - закрыть процедуру
If ActiveWorkbook Is Nothing Then Exit Sub
Проверка защищенности структуры рабочей книги
If ActiveWorkbook.Protectstructure Then
* Сортировка листов защищенной рабочей книги невозможна
MsgBox "Структура книги " t ActiveWorkbook.Name 6 _
" защищена. Сортировка листов невозможна.", _ vbCritical
Exit Sub
End If
* Сохраняем ссылку на активный лист книги
Set objActiveSheet - ActiveSheet
Отключение сочетания клавиш Ctrl+Pauae Break
Application.EnableCancelKey ” xlDisabled
Отключение обновления экрана
Application.ScreenOpdating — Falce
IntSheetCount - ActiveWorkbook.Sheets.Count
Заполнение массиве astrSheetNames именами листов книги
ReDim astrSheetNamea(1 To IntSheetCount)
For 1 = 1 To IntSheetCount
astrSheetNames(i) “ ActiveWorkbook.Sheets(1).Name
Next i
Сортировка массиве имен в порядке возрастания
Call Sort(astrSheetNames)
Перемещение листов книги
For 1 - 1 То intSheetCount
Activeyorkbook.Sheets(aetrSheetMamestit}-Move _ ActiveWorkbook.Sheets(i )
Next i
' Переход на исходный рабочий лист
objActiveSheeс.Activate
" Включение обновления экране
Application.ScreenVpdating = True
' Включение сочетания клавиш Ctrl+Pause Break
Application.EnableCancelKey = xllnterrupt
End Sub
Sub Sort(astrNames() As String)
' Сортировка массива строк no алфавиту (в порядке возрастания,
Dim i As Integer, j As Integer
Dim strEuffer As String
Dini fBuffer As Boolean
For i - LBound(astrTfames) To UBound(astrNames) - 1
For j - i ♦ ITo UBound (astrNames)
If astrNames(i) > astrNameB(j) Then
■ Меняем 1-й и j-й элементы массива местами
strBuffer ■ aetrMames(i)
astrNamesti) •* aetrNames(j)
astrNames(j) ■ BtrBuffer
End If
Next j
Next 1
End Sub
В данной программе присутствует ряд особенностей, которые необходимо отметить. Первая особенность — отключение обновления экрана на время перемещения страниц книги. Это сделано для того, чтобы исключить мерцание изображения во время перемещения листов. Вторая особенность — блокировка сочетания клавиш Ctrl+Pause Break. Дело в том, что если остановить выполнение программы после того, как она отключила обновление изображения, то изображение в рабочей области книги не будет обновляться, то есть продолжать работать с книгой будет весьма проблематично.
Для сортировки листов формируется массив строк, элементами которого являются имена листов книги. Для сортировки массива с именами листов книги (процедура sort) используется простая сортировка выбором. После того как массив отсортирован, листы книги расставляются в нужном порядке (последний цикл программы).
После запуска данного макроса (для удобства работы можно назначить ему кнопку и поместить ее на панель инструментов) рабочие листы текущей книги будут отсортированы либо по номерам, либо по алфавиту. Следует учитывать, что при включенной защите рабочей книги (Сервис ► Защита ► Защитить книгу) выполнение данной операции невозможно.
Ниже приведен код макроса (листинг 2.9), при выполнении которого список отсортированных листов будет выведен на отдельном рабочем листе Сортировка.
Листинг 2.9. Список отсортированных листов
Sub SortSheets2()
DimastrSheetNames О As String • Массив для хранения имен листов
Dim intSheetCount As Integer
Dim i As Integer
Dim objActiveSheet As Object
Если мет активней рабочей книги - закрыть процедуру
If ActiveWorkbook Is Nothing Then Exit Sub
• Проверка защищенности структуры рабочей книги
If ActiveWorkbook.ProtectStructure Then
' Сортировка листов защищенной рабочей книги невозможна
MsgBox "Структура книги " ь ActiveWorkbook.Name 6 __
" защищена. Сортировка листов невозможна.", — vbCritical
Exit Sub
End If
' Сохраняем ссылку на активный лист книги
Set objActiveSheet - ActiveSheet
1 Отключение сочетания клавиш Ctrl+Pause Break
Application.EnableCancelKey - xlDisabled
• Функция обновления эирана отключается
Application.Screenupdating - False
With ActiveWorkbook
Создаем новый лист "Сортировка" (если он еще не создан)
On Error Resume Next
If .Sheets("Сортировка") is Nothing Then -Sheets.Add.Name — "Сортировка" End If On Error GoTo 0
' Размещение данных на листе “Сортировка” (в столбец "А”) intSheetCount - .Sheets.Count For i — 1 To intSheetCount
.Sheets("Сортировка")-Celled, 1) - .SheetsШ.Name Next 1
' Сортировка данных в ячейках листа "Сортировка" по содержимому _ столбца А
.Sheets{"Сортировка").Range(“Al").Sort _ Keylt-.Sheets("Сортировка").Range("Al"), _ Crderl:-xlAscending
Заполнение массива имен отсортированными строками ReCim astrSheetNames(l То IntSheetCount) For i • 1 To IntSheetCount
astrSheetNames(i) * .Sheets("Сортировка").Cells(1, 1) Next 1
Перемещение листов For 1 * 1 To IntSheetCount
.Sheets(astrSheetNames(1)) .Move .Sheets(i) Next i
End With
Переход на исходный рабочий лист objActiveSheet.Activate
Включаем обновление экрана Application.Screenupdating - True
Включение сочетания клавиш Ctrl+Pause Break Application.EnableCancelKey - xllntetrupt End Sub
Отличительной особенностью приведенной программы, помимо отображения списка листов книги на отдельном листе, является использование возможностей Excel для сортировки данных.
В данном случае также необходимо помнить, что при включенной защите рабочей книги операция невыполнима.
Импорт данных, для которых нужно более 256 столбцов
Как известно, Excel не работает с данными, для которых требуется более 256 столбцов. Однако, хоть и не часто, такая необходимость может появляться, особенно при работе с большими объемами информации. При возникновении таких ситуаций целесообразно воспользоваться макросом, код кото]юго приведен в листинге 2.10 (этот код нужно написать в стандартном модуле редактора VBA). Возможность импорта таких данных достигается разбиением одной широкой таблицы (более 256 столбцов) ва меньшие (листы по 256 столбцов). После импорта столбцы с 1 -го по 256-й находятся на первом листе, с 257-го по 512-й — на втором и т. д. В данном примере в качестве источника данных выступает текстовый файл. Каждая его строка рассматривается как строка таблицы, а запятая считается разделителем столбцов.
Листинг 2.10. Импорт большого количества данных
' хранит заполняемую ячейкуХранит номер текущей строкиХранит номер текущего столбцаОбрабатываемая _ строка (из файла)В этой строке формируется _ значение_ заполняемой ячейки таблицыЛист, на котором находится _ заполняемая ячейка' хранит заполняемую ячейкуХранит номер текущей строкиХранит номер текущего столбцаОбрабатываемая _ строка (из файла)В этой строке формируется _ значение_ заполняемой ячейки таблицыЛист, на котором находится _ заполняемая ячейкаSub ImportWldeSheet()
' хранит заполняемую ячейку
Хранит номер текущей строки
Хранит номер текущего столбца
Обрабатываемая _ строка (из файла)
В этой строке формируется _ значение_ заполняемой ячейки таблицы
Лист, на котором находится _ заполняемая ячейка
' хранит заполняемую ячейку
Хранит номер текущей строки
Хранит номер текущего столбца
Обрабатываемая _ строка (из файла)
В этой строке формируется _ значение_ заполняемой ячейки таблицы
Лист, на котором находится _ заполняемая ячейка
Dim rgRange As Range
Dim IngRow Ад Long
Dim intCol Aa integer
Dim 1 As Integer
Dim strLine As String
Dim strCurChar As String 1
Dim strCellValue As String
Dim wshtCurrentSheet As Worksheet
Отключение обновления изображения
Application.ScreenUpdating ■ False
Создание книги с одним листом
Workbooks.Add xlWorksheet
Set rgRange - ActiveWorkbock.Sheets(1).Range("Al”)
' Проверка - закончились столбцы или нет If intCol о 0 And intCol Mod 256-0 Then
Столбцы текущего листа закончились - добавим новый лист _ и перейдем к его первому столбцу
Set wshtCurrentSheet — Activeworkbook.Sheets.Add(, _ ActiveWorkbook.Sheets(Activeworkbook.Sheets.Count))
Set rgRange — wshtCurrentSheet. Range ("Al') intCol — 0
End if
Проверка - закончилось поле или мет If strCurChar = ", " Then
* Запишем данные в таблицу rgRange.Offset(IngRow, intCol) * strCellValue intCol — intCol * 1 strCellValue - ""
Else
Добавляем очередной символ в строку со значением текущей _ ячейки
StrCellValue ■ strCellValue 6 Mid(strLine, i, 1)
Проверка - конец строки или нет If i - len(strLine) Then
’ Дошли до конца строки - запишем значение последней ячейки rgRange.Offset(IngRow, intCol) - strCellValue intCol - 0 strCellValue * ""
End If
End. If
Next 1
• Чтение остальных строк файла Do Until EOF(l)
Set rgRange = ActiveWorkbook.SheetsШ-Range("Al")
IngRow — IngRow + 1
intCol — 0
Line Input #1, strLine
If intcol о 0 And intcol Mod 256 - 0 Then
1 Столбцы текущего листа закончились - добавим новый лист _ и перейдем к его первому столбцу
Set wshtCurrentSheet - Activeworkbook. Sheets. Add (, _ ActiveWorkbook.Sheets(Activeworkbook.Sheets.Count))
Set rgRange - wehtCurrentsheet.Range(”A1"1 intCol - 0 End If
Проверка - закончилось поле или нет If strCurChar - "," Then
Запишем данные в таблицу rgRange.Offset(IngRow, intCol) — strCellValue intcol - intcol + 1 strCellValue - ""
Else
Добавляем очередной символ в строку со значением текущей _ ячейки
strCellValue — strCellValue 6 Mid(strline, 1, 1)
Проверка - коней строки или мет If 1 - LenfetrLinel Then
' Дошли до конца строки - запишем значение последней _ ячейки
rgRange.OffaetdngRow, intcol) - strCellValue strCellValue - n" End If End If Next i
Loop
• He забываем закрыть входной файл Close #1
* и разрешить обновление изображения Application,Screenupdating — True End Suh
После написания приведенного выше кода в окне выбора макросов появится макрос LraportwideSheet. В результате его выполнения будет импортирован файл Primer. txt, который расположен в том же каталоге, что и текущая книга. Для импортированных данных будет открыта новая книга Excel. При этом все данные, выходящие за пределы 256 столбца, будут расположены наследующих ли-
стах созданной книги (будет добавлено столько листов, сколько необходимо для импорта).
Приведенный пример подразумевает, что первая строка данных имеет тот же формат, что и остальная часть данных. При этом в первой строке содержится максимальное количество столбцов.
Очевидно, что после внесения соответствующих изменений в код макроса можно применять его для импорта самых разных данных, которые могут располагаться в различных местах.
Рабочий лист
Рабочий лист является основным составным элементом рабочей книги. По умолчанию в состав новой книги включены три листа. Чтобы увеличить или уменьшить количество листов в новой книге, необходимо выполнить команду главного меню Сервис ► Параметры и в открывшемся окне на вкладке Общие в поле Листов в новой книге указать требуемое значение. Следует отметить, что максимально возможное количество листов в книге — 255.
Листы-синонимы
В программе Microsoft Excel запрещено создание разных рабочих листов с одинаковыми именами. Однако с помощью небольшой хитрости можно обойти этот запрет. Для этого нужно использовать разный регистр символов и выбирать те символы, которые в русском и английском языках одинаковые (например, буквы С, А, Р и т. д.). В частности, можно создать два листа с именем Таблица, но в имени одного из них будет использована английская буква А.
Автоматическая вставка URL-адреса
Наиболее распространенный способ вставки в документ URL-адреса — это копирование его в буфер обмена и последующая вставка в требуемое место. Чтобы произвести данную операцию, можно воспользоваться и другим способом. Для этого необходимо выполнить следующие действия.
Открыть требуемую страницу в Internet Explorer.
Перейти в Excel, выделить ячейку, в которую необходимо вставить адрес, и нажать сочетание клавиш Ctri+K. В результате откроется окно Добавление гиперссылки.
Нажать ALt+Tab для перехода в Internet Explorer.
Нажать Att+Tab для возврата обратно в Excel.
В окне Доба меиие гиперссыл ки нажать кнопку ОК.
В результате выполнения указанных действий адрес веб-страницы отобразится в выделенной ячейке рабочего листа.
Быстрый переход по рабочему листу
Если рабочий лист Excel содержит большой объем информации, то целесообразно присвоить имена его произвольным областям для быстрого перехода по этим областям, Данный провесе называется созданием закладок
Чтобы создать закладку, нужно выделить произвольный диапазон (несколько ячеек) и выполнить команду главного меню Вставка ► Имя ► Присвоить. В результате откроется окно, изображенное на рис. 2.4
Рис. 2.4. Окно Присвоение имени
В Данном окне в поле Имя с клавиатуры следует ввести имя создаваемой закладки и нажать кнопку ОК.
При создании закладки необходимо соблюдать следующие правила,
Q В имени закладки должно содержаться не более 255 символов.
Первый символ в имени закладки должен быть либо буквой, либо символом подчеркивания. После первого символа можно использовать буквы, цифры или символы подчеркивания.
Если имя закладки состоит из нескольких слов, то они должны разделяться символом подчеркивания (не пробелом).
Чтобы проверить работоспособность созданной закладки, нужно установить курсор в любое место рабочего листа и нажать сочетание клавши Ctrl*G. При этом откроется окно, показанное на рис. 2.5.
В данном окне нужно установить курсор на имя требуемой закладки (в нашем примере — Область!) и нажать кнопку ОК.
В результате Excel перейдет к соответствующей области рабочего листа.
Рис. 2.5. Окно Переход
Разные листы с общими данными
Достаточно распространенной является ситуация, когда необходимо связать между собой данные, хранящиеся на разных листах рабочей книги. При этом порядок действий будет примерно таким (все данные — условны).
Открыть рабочую книгу.
Перейти на Лист2 и в ячейке С5 ввести значение 100.
Перейти на Л ист! и в ячейке А2 ввести формулу -Лис«21С5.
Нажать Enter
После выполнения указан пых действий в ячейке А2, которая расположена на листе Лист!. отобразится значение 100 (то есть то же значение, что и в ячейке С5 на листе Лнст2).
Рисование «правильных» фигур
При рисовании автофигур иногда возникает необходимость их привязки к сетке Excel. Чтобы использовать данный прием, нужно включить отображение панели рисования (Вид ► Панели инструментов ► Рисование), щелкнуть мышью на какой- нибудь фигуре (например, на прямоугольнике) и рисовать фигуру при нажатой клавише Alt Все стороны фигуры будут выравниваться только по границам ячеек.
Скрытие данных от посторонних
В Excel реализована возможность зашиты данных от несанкционированного просмотра и редактирования. Для этого можно скрыть строки и столбцы, в которых хранится конфиденциальная информация. Поскольку строки и столбцы скрываются аналогичным образом, мы рассмотрим данный прием на примере скрытия строк
На рабочем листе нужно найти последнюю строку, содержащую общедоступные данные, и выделить полностью строку, расположенную сразу под ней (для этого нужно щелкнуть мышью на кнопке с номером строки). После этого, нажав сочетание клавиш CtrkShift+Ф, выделить все остальные строки рабочего листа. Теперь после выполнения команды главного меню Формат ► Строка ► Скрыть выделенный диапазон будет скрыт из рабочего листа (на месте скрытых строк будет отображаться серый фон). При этом все имеющиеся в этом диапазоне данные сохраняются — чтобы они вновь отобразились, нужно выделить весь рабочий лист и выполнить команду главного меню Формат ► Строка ► Отобразить.
Новый лист — через макрос
Чтобы создать новый рабочий лист, можно воспользоваться макросом, код которого приведен в листинге 2.11.
Листинг 2.11. Создание нового листа
Sub NewSheet()
Worksheets.Add
End Sub
Удобно назначить данному макросу кнопку и поместить ее на панель инструментов для ускорения процесса создания листа.
Блокировка использования контекстного меню
При необходимости можно запретить использование контекстного меню текущего рабочего листа. Для этого можно воспользоваться следующим макросом (листинг 2.12).
Листинг 2.12. Блокировка контекстного меню
Sub Worksheet_BeforeRightClick (ByVai Target As Range# Cancel Ra Boolean) Static intCount Ab Integer Счетчик нажатий кнопки мыши
Dim х As Integer, у As Integer
Теперь при щелчке правой кнопкой мыши в любом месте текущего рабочего листа контекстное менюбудет недоступно. Вместо него назкранебудет появляться порядковый номер щелчка правой кнопкой мыши (например, при первой попытке вызова контекстного меню вместо него отобразится 1, при второй попытке — 2 и т. д.)_
Однако при этом остается возможность вызова контекстного меню с помощью соответствующей клавиши.
Вставка колонтитула с именем книги, листа и текущей датой
Обычно колонтитулы вставляются с помощью команды Вид ► Колонтитулы. Однако для этой цели можно также воспользоваться макросом, код которого приведен в листинге 2.13.
Листинг 2.13. Вставка колонтитула
Sub AddPageHeader()
Dim 1 As Integer
With ThiaWorkbook
Вставка колонтитулов на все листы рабочей книги
For 1 - 1 То .Worksheet#.Count - 1
.Worksheets(1).PageSetup.leftHeader ■ .FullName
-Worksheets(i).FageSetup.CentetHeader - Worksheets(1)-Name
.Worksheets(1).PageSetup.RightHeader — Now()
Next
End With
End Sub
Следует учитывать, что приведенный код должен быть помещен в модуль ЭгаКни га.
В результате выполнения данного макроса в колонтитул документа слева будет выведено имя рабочей книги (с указанием полного пути к файлу), по центру — имя текущего рабочего листа, а справа — текущая дата. Увидеть сформированный колонтитул можно в режиме предварительного просмотра.
Проверка существования листа
При большом количестве листов в рабочей книге иногда бывает необходимо быстро узнать, есть ли в книге тот или иной лист. Для этого целесообразно применить пользовательскую функцию dhSheetExi st, код которой приводится в листинге 2.14. В качестве аргумента данная функция принимает строку с именем искомого листа и возвращает значение истина, если лист есть в книге, или ложь, если тАсга в книге нет.
Листинг 2.14. Проверка существования листа
Function dhSheetExlst(strSheetName As String} As Boolean
Dim objSheet As Object
On Error GoTo HandleError 1 При сшибке перейти на HandleError
Пытаемся получить ссылку на заданный лист
objSheet - AativeWorkbook.Sheets(strSheetName)
Ошибки не возникло - лист существует
dhSheetExist - True
Exit Function
HandleError:
При попытке получить доступ к листу с заданный именем _ возникла ошибка, значит, такого листа не существует
dhSheetExist ■ False
End Function
Работа приведенной функции основана на том, что если листа в книге нет, то при попытке обращения к нему (инструкция Activeworkbook. Sheets (strSheetName)) будет сгенерирована ошибка времени исполнения, которую перехватит обработчик ошибок, идущий в тексте программы после метки HandleError. Таким образом, при возникновении ошибки функция возвращает ложь. Если ошибка отсутствует, то при обращении к листу инструкции функции исполняются до конца (до оператора End Function) и функция возвращает значение истина.
После написания данной функции она появится в окне Мастер функций (Вставка ► Функция) в категории Определенные пользователем. После выбора функции нужно будет указать имя листа (это единственный аргумент данной функции), наличие которого в текущей книге нужно проверить. Результат выполнения функции отобразится в ячейке, в которой находится курсор: если указанный лист присутствует в текущей книге, то будет выведенозначение истина, при отсутствии листа — значение ложь.
Проверка, защищен ли рабочий лист
Перед началом работы с листом Excel иногда бывает полезно узнать, защищен он или нет (вспомним, что защита рабочего листа включается с помощью команды главного меню Сервис ► Защита ► Защитить лист). Быстро получить ответ на этот вопрос можно с помощью макроса, код которого приведен в листинге 2.15.
Листинг 2.15. Проверка наличия защиты рабочего листа
Sub IsSheetFrotectedt)
Проверка, установлена ли защита на содержимое листа
If Worksheets(1).FroteetContents Then
MsgBox "Зашита листа включена"
Else
MsgBox "Зашита листа не включена"
End If
End Sub
Если текущий рабочий лист защищен, то после выполнения данного макроса появится окно с сообщением Защита листа включена. При отсутствии защиты в этом окне отобразится сообщение Защита листа не включена.
Сколько страниц на всех листах?
Нередко перед тем как вывести данные на печать, пользователь задумывается: а сколько страниц займет печатная форма документа? Для получения ответа на этот вопрос следует написать и применить макрос, код которого приведен в листинге 2.16 (данный код нужно набрать в стандартном модуле редактора VBA).
Листинг 2.16. Подсчет страниц
Sub GetPr±ntPagesCount(}
Dim wahtSheet As Worksheet
Dim intPagesCount As Integer
* Суммирование количества Страниц, необходимое или печати всех
ЛИСТОВ КНИГИ
For Each wehtsheet In Worksheets
IntPagesCounr - intPagesCount ♦ (wshtSheet-WageBreaks.Count ♦ 1) *_ (vshtSheet.VPageBreaks.Countt1)
Next
MsgBox "Всего страниц: " 4 IntPagesCount
End Sub
Программа вычисляет количества необходимых для печати страниц на основе данных о горизонтальных и вертикальных разрывах страницы на листе (использование СВОЙСТВ HPageBreakers .Count И VPageBreakers .Count дает информацию О количестве горизонтальных и вертикальных разрывов страниц листа соответственно). Когда мы узнали, сколько разрывов страниц на листе, вычислить количество самих страниц не представляет большого труда (о чем свидетельствует простота используемого для этого расчета выражения: (MshtSheet.MPageSreake.Count+1) * (wehtSheet.VPageBreaks.Count+1)).
После запуска макроса на экране отобразится окно, в котором будет указано количество печатных страниц всех листов текущей рабочей книги.
Автоматический пересчет данных таблицы при изменении ее значений
Часто в процессе работы возникает необходимость пересортировки данных таблицы в зависимости от того, как они изменяются. Этот процесс целесообразно автоматизировать (особенно при работе с большими объемами информации). Рассмотрим решение этой проблемы на конкретном примере
Предположим, что в таблице в ячейках с Al по АН содержится перечень торговых точек (магазинов), а в ячейках с Bl по В11 — дневная выручка каждой торговой точки. Нам нужно выделить красным жирным шрифтом максимальное значение, а синим — минимальное. Остальные данные отображаются шрифтом, используемым по умолчанию. Также нам нужно пометить желтым цветом ячейки, содержащие выручку выше средней по всем торговым точкам. При этом необходимо сделать так, чтобы таблица соответствующим образом автоматически переформировывалась при внесении в нее изменений. Решить эту задачу поможет код, приведенный в листинге 2.17 (этот код должен быть помещен в модуль рабочего листа).
Листинг 2.17. Переформирование таблицы
Sub Worksheet_Change{ByVal Target As Range)
Dim rgData Аз Range
Dim cell As Range
Dim dblMax As Double, dblMin As Double, dblAverage As Double
Получение контролируемого диапазона ячеек
Set rgData = Range("В2:В11И)
Проверка, не входит ли измененная ячейка в контролируемый диапазон
If Not (Application.Intersect(Target, rgData) Ie Nothing) Then
If Application.WorksheetFunction.CountA(rgData) > 0 Then
Изменена ячейка из контролируемого диапазона
* Заново рассчитываем минимальное, максимальное и среднее _ значения в контролируемом диапазоне ячеек
dblMin “ Application.WorksheetFunction.Min(rgData) dblMax ■ Application.WorksheetFunction.Max(rgData) dblAverage ■ Application.WorksheetFunction.Average(rgData)
Else
се11.Font-Bold = False
се11.Font.Color - RGB(O, 0, 0) End if
If cell.Value > dblAverage Then
• Значение в ячейке больше среднего - выделим ее _ желтым цветом
cell.interior.Color - RGB(255, 255, 0} Else
cell.Interior.Colotindex - xlNone End If Next Else rgData.Interior.Colorindex - xlNone End If End If End Sub
Теперь все данные таблицы будут оформлены в соответствии с нашими требованиями. При внесении в таблицу изменений она будет автоматически переформирована.
Ячейка и диапазон
Данный раздел посвящен описанию трюков, которые можно выполнять при работе с ячейкой либо с диапазоном выделенных ячеек.
Быстрое заполнение ячеек
Чтобы быстро заполнить ячейку содержимым ячейки, расположенной выше, следует нажать сочетание клавиш Ctrl+D. Если же копируемая ячейка включает в себя формулу, то она будет скопирована с соблюдением относительных адресов. Рассмотрим это на конкретном примере.
Введем в ячейки с А1 по АЗ значения 5,10 и 15 соответственно, а в ячейки Bl, В2 и ВЗ — значения 30,50 и 70. После этого в ячейку С1 введем формулу -сумм (Ai: В1) и нажмем Enter — в данной ячейке в соответствии с формулой отобразится значение 35. Если же теперь мы установим курсор в ячейку С2 и нажмем CtrUD, то в ней отобразится значение 60 (то есть сумма ячеек А2 и В2), а формула скопируется в следующем виде: -сумм (А2: в2). При нажатии сочетания CtH+D в ячейке СЗ формула скопируется следующим образом: -су®1 (АЗ: вЗ), и результат будет равен 85.
Автоматизация ввода данных в ячейки
В Microsoft Excel с помощью несложного трюка можно вводить данные только в заранее определенные ячейки. Рассмотрим это на конкретном примере.
Допустим, нам необходимо ввести данные только в ячейки СЗ:С5 и А1:А4. Для этого следует выделить мышью диапазон О:С5, а затем, нажав клавишу Ctrl - диапазон А1:А4. Теперь, не снимая выделения, в ячейках с Al по А4 последовательно вводим необходимые значения. После того как заполнена ячейка А4 и нажата клавиша Enter, курсор автоматически перейдет в ячейку СЗ. После заполнения ячеек СЗ-.С5 и нажатия Enter курсор опять перейдет в ячейку А1 После ввода всех необходимых данных можно снять выделение
Для ввода данных в определенные ячейки можно использовать различные макросы. Пример одного из таких макросов приведен в листинге 2.18.
Листинг 2.18. Ввод данных в ячейки
Sub SetCellData()
‘ Заполнение значениями ячеек АЗ и В4
Range("АЗ“) - "Данные для ячейки АЗ"
Range (”В4") = "Данные для ячейки W*
End. Sub
В результате выполнения данного макроса в ячейку АЗ будет введено значение данные для ячейки АЗ, 3 В ячейку В4 — Данные для ячейки В4.
С помощью похожего макроса (листинг 2.19) можно выполнять вычисления с использованием формул.
Листинг 2.19. Ввод данных с использованием формул
Sub SetCe11Formula(}
Запись в ячейку Аб формулы "=А5+В5п
Range("Аб"} - "-А5+В5"
End Sub
В результате выполнения данного макроса в ячейке Аб отобразится сумма ячеек А5 и В5. Если же в приведенном макросе вместо строки Range ("Аб"} = “=А5+В5Л ввести, например, Range ("А2: АБ") - 2, то все ячейки диапазона А2:А5 будут заполнены значением 2
Ввод дробных чисел
При вводе в ячейку дробных значений Excel может интерпретировать их в дату. Это обусловлено тем, что в некоторых случаях Excel не знает, что нужно ввести пользователю: дату или дробное значение. Например, при попытке ввести в ячейку дробь 2/5 после нажатия Enter в данной ячейке отобразится 02, май, а при вводе дроби 7/92 появится значение июл .92. Чтобы обойти эту особенность, достаточно при вводе дроби набрать перед ней символ о, например о 2 '5. Теперь Excel поймет пользователя правильно, и в ячейке после нажатия клавиши Enter отобразится значение 2/5.
Сбор данных из разных ячеек
В процессе эксплуатации программы иногда возникает необходимость объединить содержимое разных ячеек рабочего листа. Для выполнения объединения необходимо воспользоваться оператором &. Чтобы лучше понять суть данной операции, рассмотрим ее на конкретном примере.
Допустим, имеются два списка: в одном содержатся должности сотрудников, в другом —их фамилии. Нам нужно объединить эти списки. В первом списке в ячейке А1 содержится должность Бухгалтер, во втором списке в ячейке Bl — фамилия РуО- лев. Объединим эти значения в ячейке С1 (все данные в примере условны).
Для этого в ячейке С1 необходимо ввести следующую формулу -Ale" "6В1. После нажатия Enter в ней отобразится значение бухгалтер Русле».
При объединении ячеек можно ввести дополнительную информацию — соответствующий текст набирается в формуле между кавычками. Например, если в нашем примере для ячейки С1 создать следующую формулу: -Mt" по зарплате "8В1, то после ее ввода в ячейке отобразится значение Бухгалтер по зарплате руолев.
ПРИМЕЧАНИЕ
Если между кавычками дополнительный текст не вводится, то они обязательно должны быть разделены пробелом.
Если в ячейках А2 и В2 содержатся значения соответственно экономист и Сидоров, то для объединения их в ячейке С2 можно нажать сочетание клавиш Ctrl+D. При этом созданная в ячейке С1 формула скотпаруется с учетом относительных адресов, и в ячейке С2 отобразится значение Экономист по зарплате Сидоров.
Выделение диапазона над текущей ячейкой
Предположим, нам необходимо выделить диапазон с данными, расположенный непосредственно над текущей ячейкой. Можно, конечно, выполнить это стандартным способом (например, с помощью мыши). Но в некоторых случаях для этого целесообразнее использовать макрос, код которого приведен в листинге 2.20.
Листинг 2.20. Выделение диапазона над текущей ячейкой
Sub SelectCellRangeО
Dim BtrSelTop As String, BtrSelBottom As String
Получение адресов нижней и верхней ячеек диапазона для выделения strSalBottoni - ActiveCell.Address
BtrSelTop = Cells(1, ActiveCell.Column}.Address
Выделяем все ячейки выше текущей (вместе с текущей ячейкой)
Range{strSelTop 6 ":" & strSelBottoml.Select
End Sub
После выполнения макроса будет выделен диапазон, расположенный над текущей ячейкой (при условии, что этот диапазон содержит данные).
Поиск ближайшей пустой ячейки столбца
Если таблица заполнена большим количеством данных, то иногда бывает необходимо быстро найти ближайшую ячейку столбца, не содержащую никаких данных. Поскольку выполнение данной операции вручную — процесс слишком трудоемкий» целесообразно воспользоваться макросом, код которого приведен в листинге 2.21.
Листинг 2.21. Поиск ближайшей пустой ячейки столбца
Sub FindEmptyCellО
Поиск ближайшей густой ячейки е текущем столбце
Do While Not IsEmpty(ActiveCel1.Value)
ActlveCell.Offset(1, 0).Select
Loop
End. Suh
После выполнения данного макроса курсор быстро «пробежит» по всем ячейкам текущего столбца, остановившись на ближайшей пустой ячейке. При этом необходимо учитывать, что направление поиска — сверху вниз, то есть ячейки, расположенные над начальным положением курсора, обнаружены не будут, поэтому перед запуском макроса следует установить курсор в верхнюю ячейку столбца.
Поиск максимального значения в диапазоне
В процессе работы с большими объемами данных часто возникает необходимость быстрого поиска максимального значения определенного диапазона (либо всего рабочего листа). Например, если в таблице хранятся информация о торговой выручке за каждый день в течение года, то, чтобы найти максимальную дневную выручку вручную, потребуется слишком много времени и усилий Для автоматизации данного процесса можно применить макрос, код которого приведен в листинге 2.22.
Листинг 2.22- Поиск максимального значения
Sub FlndMaxValue()
On Error Goto NoCell
If Selection.Count > 1 Then
* Поиск максимального значения в выделенных ячейках
Selection.Find[Application.Max(Selection)).Select
Else
' Поиск максимального значения во всех ячейках листа
ActiveSheet-CellB.FindfApplLcatlon.Max(ActiveSheet-Cells?) .Select
End If
Exit Sub
NoCell:
MsgBox "Максимальное значение не найдено"
End Sub
После запуска данного макроса будет выделена ячейка, содержащая максимальное значение. При наличии выделенного диапазона поиск осуществляется только в нем; если же диапазон не выделен, то поиск ведется по всему рабочему листу. Если максимальное значение не обнаружено, то по окончании поиска па экране отобразится окно с сообщением Максимальное значение не найдено (текстэтого сообщения можно корректировать по своему усмотрению путем внесения соответствующих изменений в код макроса).
Автоматическая замена значений диапазона
Рассмотрим трюк, с помощью которого можно автоматически заменять значения ячеек диапазона на какие-либо фиксированные значения. В листинге 2 23 показан код, одного из макросов, которые позволяют решить данную задачу
Листинг 2.23. Автоматическая замена значений
sub ReplaceValuesО
Dim cell Аз Range
Проверка каждой ячейки диапазона на возможность замены _ значения в ней (отрицательные значения заменяются на -1, _ положительные - на 1)
For Each cell In Range("Cl:C3").Cells
If cell.Value < 0 Then
cell.Value • -1
Elself cell.Value > 0 Then
cell.Value - 1
End If
Next
End Sub
В данном примере обрабатывается диапазон CLC3. После применения приведенного выше макроса все положительные значения данного диапазона будут заменены на 1, а отрицательные — на -1.
Очевидно, что с помощью подобных макросов можно заменять значения в любых диапазонах.
Засекречивание содержимого ячейки
При необходимости можно скрыть от несанкционированного просмотра либо редактирования содержимое той или иной ячейки. Рассмотрим применение данной операции на конкретном примере.
Допустим, в ячейке А1 содержится значение 2 5, в ячейке А2 — значение 4 3. а в ячейке В1 рассчитана сумма двух этих ячеек по формуле =<УММ(А1 :А2) (рис. 2.6).
Рис. 2.6. Фрагмент рабочего листа
Скроем содержимое ячейки А1. Для этого выделим ее курсором, выполним команду главного меню Формат ► Ячейки н в открывшемся окне на вкладке Число в списке Числовые форматы выберем позицию (все форматы), которая расположена в конце данного списка. После этого в открывшемся справа ПолеТип введем подряд три точки с запятой — ; :; (рис. 2.7).
Рис. 2.7. Окно Формат ячеек
После нажатия в данном окне кнопки ОК содержимое ячейки А1 будет скрыто (рис. 2.8).
Рис. 2.8. Скрытия содержимого ячейки
На данном рисунке видно, что, несмотря на то чтоб ячейке А1 ничего не отображается, значен ие в ней все равно сохраняется и участвует в расчетах (см. строку формул и значение в ячейке В1). Если установить курсор в ячейку А1, то ее значение отобразится в строке формул.
Всем ячейкам диапазона — одно значение
В процессе эксплуатации программы иногда возникает необходимость быстрого заполнения нескольких ячеек одинаковым содержимым. Наиболее распространенный способ — копирование нужного значения в буфер, затем выделение диапазона ячеек, в которые необходимо ввести это значение, и нажатие Enter. Однако подобный эффект достигается и другим способом. Для этого необходимо выполнить следующие действия.
Выделить соответствующий диапазон ячеек (допускается выделение несмежных диапазонов).
Ввести требуемое значение.
Нажать сочетание клавиш Ctrl+Enter.
В результате введенное значение отобразится во всех ячейках вы деленного диапазона.
«Фотографирование» ячеек
В Excel реализована удобная возможность, позволяющая создавать скриншоты выделенных ячеек и вставлять их в виде рисунка. Для этого нужно выделить диапазон ячеек, которые необходимо скопировать, а затем, нажав и удерживая клавишу Shift, выполнить команду главного меню Правка ► Копировать рисунок. В результате откроется окно Копировать рисунок (рис. 2j9),
Рио. 2-0- Окно Копировать рисунок
Если в данном окне установить переключатель Вид в положение как на экране, то содержимое выделенного диапазона будет скопировано в том ваде, в каком оно представлено на экране. При выбранном значении как на печати содержимое выделенного диапазона будет скопировано в том виде, в каком оно будет выведено
иа печать на текущем установленном принтере (например, если принтер черно-белый, то и изображение будет скопировано в черно-белом формате).
Переключатель Формат доступен только в том случае, когда переключатель Вид установлен в положение как на экране. При установленном значении векторный изображение будет скопировано как метафайл Windows, а при значении растровый — как точечный рисунок (в данном случае рисунок будет выглядеть корректно только при таком же разрешении монитора)
После нажатия в окне Копировать рисунок кнопки ОК будет создан скриншот выделенного диапазона ячеек.
Затем следует выбрать место для вставки рисунка и при нажатой клавише Shift выполнить команду главного меню Правка ► Вставить рисунок. В результате содержимое выделенного диапазона будет вставлено в указанное место в виде рисунка.
При выполнении данной операции следует учитывать, что сетка Excel, которая не выводится на печать, также входит в состав созданного рисунка.
Добавление в ячейку раскрывающегося списка
Одним из удобных способов заполнения ячейки является применение раскрывающегося списка, который включает в себя перечень возможных значений. Чтобы создать в ячейке раскрывающийся список, нужно выполнить следующие действия.
Ввести список допустимых значений в один столбец (при необходимости этот столбец можно скрыть).
Установить курсор в ячейку, в которую необходимо поместить раскрывающийся список.
Выполнить команду главного меню Данные ► Проверка.
В открывшемся окне перейти на вкладку Параметры.
В поле Тип данных иа раскрывающегося списка выбрать значение Список.
В открывшемся поле Источник указать диапазон с элементами списка (то есть столбец, в который были введены допустимые значения, см. n. 1).
Проверить, чтобы был установлен флажок Список допустимых значений (обычно этот флажок установлен по умолчанию).
Нажать кнопку ОК.
Данная технология создания в ячейке раскрывающегося списка отличается удобством и быстротой, а также тем, что для ее реализации не требуется написание макросов.
Быстрое заполнение диапазона
Рассмотрим несколько несложных трюков, с помощью которых можно быстро заполнить любой диапазон необходимыми данными.
Первый способ
Предположим, что нам необходимо заполнить какой-нибудь диапазон последовательностью чисел от 1 до 100. Для решения этой задачи удобно воспользоваться макросом, код которого приведен в листинге 2.24 (этот код следует набрать в стандартном модуле редактора VBA)
Листинг 2.24. Быстрое заполнение диапазона
Suto FillCelleO
Dim IntStartVal As IntegerDim intStep As IntegerDim IntEndVal As IntegerDim IntVal As IntegerDim intCellOffaet As IntegerDim IntStartVal As IntegerDim intStep As IntegerDim IntEndVal As IntegerDim IntVal As IntegerDim intCellOffaet As IntegerНачальное значениеШаг при изменении значенияКонечное значение1 Текущее значение* Смещение ст начальной ячейкиНачальное значениеШаг при изменении значенияКонечное значение1 Текущее значение* Смещение ст начальной ячейки
Dim IntStartVal As Integer
Dim intStep As Integer
Dim IntEndVal As Integer
Dim IntVal As Integer
Dim intCellOffaet As Integer
Dim IntStartVal As Integer
Dim intStep As Integer
Dim IntEndVal As Integer
Dim IntVal As Integer
Dim intCellOffaet As Integer
Начальное значение
Шаг при изменении значения
Конечное значение
1 Текущее значение
* Смещение ст начальной ячейки
Начальное значение
Шаг при изменении значения
Конечное значение
1 Текущее значение
* Смещение ст начальной ячейки
Установка параметров заполнения IntStartVal — 1 intStep — 1 IntEndVal -100
' Заполнение ячеек текущего столбца значениями от 1 до 100 For intVal - IntStartVal То intEndVal Step intStep
Activecell.Offset(intCellOffeet, 0).Value - intVal intCellOffset — IntCellOffset + 1 Next intVal End Sub
Сразу после выполнения макроса диапазон, расположенный ниже текущей ячейки (в том же столбце), будет заполнен числами от 1 до 100 (заполнение начнется с активной ячейки).
Приведенный выше код можно изменять по своему усмотрению и таким образом корректировать длину последовательности, шаги иные параметры. Например, можно применить такой код (листинг 2.25).
Листинг 2.25. Заполнение через интервал
Sub Fillcells О
Dim IntStartVal Аз IntegerDim intStep As IntegerDim IntEndVal Аз IntegerDim intVal As IntegerDim intCellOffset Ao IntegerDim XntCellStep As IntegerDim IntStartVal Аз IntegerDim intStep As IntegerDim IntEndVal Аз IntegerDim intVal As IntegerDim intCellOffset Ao IntegerDim XntCellStep As Integer• Начальное -качениеШаг при изменении значенияКонечное значениеТекущее значениеСмешение от начальной ячейкиШаг при перемещении между _ заполняемыми ячейками• Начальное -качениеШаг при изменении значенияКонечное значениеТекущее значениеСмешение от начальной ячейкиШаг при перемещении между _ заполняемыми ячейками
Dim IntStartVal Аз Integer
Dim intStep As Integer
Dim IntEndVal Аз Integer
Dim intVal As Integer
Dim intCellOffset Ao Integer
Dim XntCellStep As Integer
Dim IntStartVal Аз Integer
Dim intStep As Integer
Dim IntEndVal Аз Integer
Dim intVal As Integer
Dim intCellOffset Ao Integer
Dim XntCellStep As Integer
• Начальное -качение
Шаг при изменении значения
Конечное значение
Текущее значение
Смешение от начальной ячейки
Шаг при перемещении между _ заполняемыми ячейками
• Начальное -качение
Шаг при изменении значения
Конечное значение
Текущее значение
Смешение от начальной ячейки
Шаг при перемещении между _ заполняемыми ячейками
* Установка параметров заполнения intstartval - 3
intStep — 3 IntEndVal - 30 intCellStep ■ 3
Заполнение ячеек текущего столбца значениями от 3 до 30 For intVal = IntStartVal То IntEndVal Step IntStep
ActiveCell.Offset(IntCellOffeet, 0).Value - IntVal IntCellOffset - intCellOffset ■* IntCellStep Next intVal End Sub
После выполнения данного макроса последовательность будет заполнена числами от 3 до 30, причем числа будут расположены в каждой третьей ячейке следующим образом: 3 (активная ячейка). 6,9,12,... 27,30.
Второй способ
Допустим, что нам нужно быстро заполнить диапазон, состоящий из 10 ячеек в высоту и 5 ячеек в ширину, последовательностью чисел, расположенных по порядку от 1 до 50. Для решения данной задачи напишем в стандартном модуле редактора VBA представленный ниже код (листинг 2.26).
Листинг 2.26. Заполнение указанного диапазона
Sub EillCellRectО
Dim IngRowg As Long, intCols As Integer * Количество ячеек no _ горизонтали и вертикали
Dim IngRow As Long, IntCol As Integer * Координаты текущей ячейки Dim ingStep As Long, IngVel As Long ■ Установка начального значения и шага заполнения
IngVal - 1
IngStep — 1
Ввод количества ячеек по горизонтали и вертикали, которое необходимо заполнить
LngRows = Vai (InputBox ("Количество ячеек в высотум)) intCols = Vai(InputBox("Количество ячеек в ширину"))
Отключение обновления экрана Application.ScreenUpdatiog ” False
' Заполнение ячеек значениями
For IngRow - 1 То LogRowe
For intCol = 1 То intCols
Act iveCell.Offset(IngRow, intCol).Value — IngVal IngVal = IngVal + IngStep
Next intCol Next IngRow
' Включение обновления экрана
Application.Screenupdating - True
End Sub
В результате написания кода будет создан макрос FillCellRect. После его запуска откроется окно, в котором с клавиатуры нужно указать количество ячеек в высоту (в нашем примере нужно ввести значение 10). После нажатия в данцом окне кнопки ОК откроется аналогичное окно, в котором точно так же нужно ввести количество ячеек в ширину (в нашем примере нужно ввести 5) и нажать ОК После этого в соответствии с выполненными настройками будет автоматически заполнен диапазон, начиная с ячейки, на которой установлен курсор (эта ячейка будет являться левой верхней в заполненном диапазоне). Изменив соответствующим образом код макроса, можно корректировать шаг последовательности, ее первое число (в строке IngVal - 1, которая входит в состав приведенного выше кода, указано, что первое число последовательности — 1) и другие параметры.
Третий способ
Данный способ заполнения диапазона также предусматривает написание макроса. Его преимущество состоит в том, что он быстрее способа, о котором рассказано в предыдущем примере. Код макроса (он должен быть написан в стандартном модуле редактора VBA) выглядит следующим образом (листинг 2 27).
Листинг 2.27. Заполнение диапазона
Sub PillCellRectl ()
Dim IngRowe As Long, intCols As Integer
Dim IngRow As Long, intCol As Integer
Dim IngStep As Long, IngVal As Long
Dim alngvalues() As Long
Dim rgRange As Range
Установка начального значения и шага заполнения
IngVal = 1
IngStep — 1
Ввод количества ячеек по горизонтали и вертикали, которое необходимо заполнить
IngRows — Val(InputBoxf"Количество ячеек в высоту")}
intCols - Vai(InputBox("Количество ячеек в ширину"))
206206Глава 3. Создание трюков с помощью макросов
206
206
Переход нж следуишус строку IngLaetRow = IngRow End If
Задание шрифта ячейки
If Not IsNull(cell.Font.Size) Then strStyle - " style-" 6 "font-size: " 6 Int(100 * cell.Font.Size / 19) 6 "%;" End If * Для полужирного шрифта вставляем <b> If cell.Font.Bold Then strCellText ■ "<b>" 6 strCellText 6 "</b>" End If
• Задание выравнивания
If cell.HorizontalAllgnment — xLRight Then
' По правому крае
strAlign - " align-” e "right"
Elself cell-HorizontalAlignment — xlCenter Then
• По центру
strAlign - " align-" 5 "center" Else
* По левому крас (no умолчанию) strAlign - "" End If
Чтение текста в ячейке StrCellText - cell.Text * Если нужно, то вертикальный вывод текста (в строку strTemp С последующим перенесением Обратно в StrCellText) If cell.Orientation о xlHorizontal Then
strTemp ■ ""
Печать после каждого символа специального разделителя -- <Ьг>
For 1 - 1 То Len(etrCellText)
strTemp - strTemp & Mid$(etrCellTextr i, 1) 6 "<br>" Next 1 strCellText - etrTemp strStyle - "" End If
strOut - strOut t vbTab 6 vbTab & "<td" s strStyle 6 strAlign £ ">” 6 strCellText 6 ”</td>" S vbCxLf
Помещение в ячейку электронных часов
В любую ячейку рабочего листа ори необходимости можно поместить электронные часы. В листинге 2.28 приведен код макроса, который позволяет решить эту задачу.
Листинг 2.28. Размещение в ячейке электронных часов
Sub Updatelimef)
Dim varNextCall As Variant
' Записываем ■ ячейку текущее время
Cells(1, 1).Value * Now
* Записываем в varNextCall время, когда вызвать этот макрос _ в следутхций раз (через 1 секунду)
varNextCall ■ TizneSerlal(flour(Now), Minute(Now), Second(Now) ♦ 1)
Уведомляем Excel в необходимости вызова макроса
Application.OnTime varNextCall, "UpdateTime"
End Sub
После выполнения данного макроса электронные часы будут помещены в ячейку А1. Если в эту ячейку поместить курсор, то часы отобразятся также и в строке формул.
«Будильник*
Помимо электронных часов, можно настроить «будильник». Смысл данного трюка заключается в том, что в определенное время на экране отобразится окно с указанным ранее информационным сообщением (а при наличии колонок и иных сопутствующих устройств — вместе со звуковым сигналом). В листинге 2.29 приведен код макроса, который позволяет решить эту задачу.
Листинг 2.29. «Будильник»
Sub Clock()
* Уведомляем Excel, что процедуру Alarm нужно вызвать в 20:55
Application.OnTime TlmeValue("20:55:00">, "Alarm"
End Sub
Sub AlamO
МвдВох "Пора ужинать)!1"
End Sub
После выполнения макроса Clock на экране в назначенное время (20 часов 55 минут) появится окно с сообщением Пора ужинать! ! L Следует учитывать, что для каждого последующего появления в назначенное время такого окна необходимо отдельно запускать макрос.
Поиск данных в диапазоне
Используя средства языка VBA, можно по-разному искать требуемые данные в указанном диапазоне. Рассмотрим несколько популярных способов поиска данных.
Поиск в диапазоне значения по шаблону
Предположим, возникла необходимость просмотреть большой отчет и заменить во всех его местах слово Доход словом Выручка, выделив при этом цветом ячейки, в которых выполнялась такая замена. Решить эту задачу нам поможет следующий макрос (листинг 2.30).
Листинг 2.30. Поиск и замена по шаблону
Sub ReplaceCellsData()
Dim cell As Range
Просмотр всех ячеек диапазона G1:K2Q и замена искомого текста
For Each cell In [Gl;K20]
If cell.Value Like "•Доход*" "Then
cell.Value - "Выручка"
cell.Interior.Color — RGB(255, 255, 0)
Else
cell.Interior.Color - RGB(255, 255, 255)
End If
Next
End Sub
После выполнения данного макроса слово Доход, встречающееся в диапазоне Gl:K20, будет заменено словом Выручка, а соответствующие ячейки будут выделены желтым цветом. Вся остальная часть диапазона будет залита белым цветом (при этом содержимое всех ячеек по-прежнему будет отображаться, а сетка исчезнет).
Поиск значения с выводом результвтв
Можно настроить параметры поиска требуемого значения таким образом, что его результат будет выведен в отдельном информационном окне. Вот пример макроса (листинг 2.31), который позволяет решить эту задачу.
Листинг 2.31. Поиск значения с отображением результата в отдельном окне
Sub Search О
Dim rgResult As Range
Поиск заданного значения в диапазоне В1:В20 и вывод результата
Set rgResult - Range("Bl:В20").Find(9999, , xlValves}
If rgResult Is nothing Then
MsgBox “Паиск не дал результатов"
Else MegBox rgResult.Address End if End Sub
С помощью данного макроса обрабатывается диапазон В1:В2О в котором ведется поиск значения 5999. При обнаружении данного значения появляется окно с указанием адреса соответствующей ячейки. Если же указанное значение не обнаружено. то в данном окне отображается сообщение Поиск не дал результатов.
Поиск с выделением найденных данных
Достаточно удобен поиск, в котором используется выделение найденных ячеек. Применение этого способа целесообразно при работе с большими объемами данных. Для настройки поиска можно использовать, например, такой макрос (листинг 232).
Листинг 2.32. Выделение найденных данных
Sub FindAndSelect()
Dim strStartAddr Аа String Хранит координаты первого найденного _ значения
Dim rgResult As Range
Поиск первого входжения искомого слова
Set rgResult - Range("Bl:B10").Find("Прибыль", , xlvalues) If Not rgResult Is Nothing Then
* Сохраним адрес найденной ячейки (чтобы контролировать _ зацикливание поиска)
strStartAddr - rgResult.Address End If Do While Not rgResult Is Nothing * Обработка результата поиска rgResult.Interior.Color = RGB(255, 255, 0)
Создание цветной границы диапазона
Для каждого диапазона рабочего листа можно создать индивидуальную границу: например, верхняя часть границы выделяется одним цветом, а нижняя — другим. В приведенном в листинге 2 33 макросе верхняя граница диапазона будет начертана толстой синей линией, а нижняя — розовой пунктирной обычной толщины.
Листинг 2.33. Оформление верхней и нижней границ диапазона
Sub RangeBorder()
Dim rgRange As Range Set rgRange = Range("вгсСЗ”)
Оформление верхней границы диапазона With rgRange-Borders(xlEdgeTop) .weight = xlThick .LineStyle — xlContinuoue .Color - RGB(0, 0, 255) End With
* Оформление нижней границы диапазона With rgRange.Borders(xlEdgeBottoffi) .Weight ° xlMedium .LineStyle - xlDash .Color - RGB(255, D, 255) End With End Sub
Очевидно, что цвета и толщину линии можно изменять по своему усмотрению.
Автоматическое определение адреса ячейки
Можно настроить программу таким образом, что при щелчке мышью в любом месте рабочего листа на экране будет появляться окно с информацией об адресе текущей ячейки, причем в разных форматах. Код макроса, который позволяет решить эту задачу, приведен в листинге 2.34 (следует учитывать, что данный код должен быть помещен в модуль рабочего листа).
Листинг 2.34. Информация об адресе активной ячейки
Sub Worksheet_SelectionChange(ByVai Target As Range)
Вывод адреса ячейки в различных форматах MsgBox Target.Address() & vbCr 6
Target.Address(RowAbsolute:—False) & vbCr 6 _
Target.Address(Referencestyle:—xlRlCl) 6 vbCr 6 _ Target.Address(Referencestyle:—xlRlCl, _ RowAbsolute:—FaIse, ColumnAbsolute:-False, RelativeTo:—Worksheets(1)-Cells(2, 2})
End Sub
Теперь при щелчке мышью на ячейке, например Е9, на экране отобразится окно со следующим сообщением:
$Е$9
$Е9
R9C5
R[7]C[3]
Адрес ячейки представлен в нескольких форматах, в том числе и относительно другой ячейки. В качестве ячейки, относительно которой определяется адресация, в данном случае используется ячейка В2 (см. в коде значение параметра RelativeTc).
Автоматизация добавления примечаний вуказанном диапазоне
Трюк, который мы сейчас рассмотрим, дает возможность быстро вставить примечание в ячейки определенного диапазона, соответствующие указанным требованиям
Для достижения такого эффекта можно воспользоваться макросом, код которого приведен в листинге 2.35.
Листинг 2.35. Добавление примечаний в диапазон
Sub CreateCommentsO
Dim cell Ав Range
Производим поиск ио всем ячейкам диапазона и добавляем примечания _ ко всем ячейкам, содержащим слово "Вцручка"
For Each cell In Range("Bl:B100")
If cell.Value Like '"'Выручка*" Then
cel1.ClearComments
cell.AddComment "Неучтенная наличка"
End If
Next
End Sub
С помощью данного макроса обрабатывается диапазон В1:В100. После применения макроса ко всем ячейкам, содержащим текст выручка, будет добавлено примечание Неучтенная наличка. При этом в примечании будет отсутствовать имя пользователя, его создавшего. Если в указанных ячейках содержалось другое примечание, то оно будет удалено и заменено тем, которое указано в макросе.
Очевидно, что с помощью подобных макросов можно создавать произвольные примечания к любым ячейкам указанного диапазона.
Заливка диапазона
Выполнив несложный трюк, можно быстро залить любой диапазон ячеек требуемым цветом (или комбинацией разных цветов). Для этого можно использовать, например, такой макрос (листинг 2.36).
Листинг 2.36. Создание заливки диапазона
Sub FillRanget)
Заливка диапазона With Range("B1:B1DW)
Задаем узор - сетчатый
.Interior,pattern -» xlfatternChecker
• Цвет узора - синий .Interior.PatternColor - ₽GS(D, 0, 255) * Цвет ячейки — красный .Interior.Color — RGB(255, О, О) End With End Sub
В результате применения данного макроса диапазон В1:Е10 будет залит красным цветом г. синим сетчатым узором.
Ввод строго ограниченных значений в указанный диапазон
В процессе эксплуатации программы иногда возникает необходимость сделать так, чтобы вводимые пользователем данные не выходили за рамки определенного интервала. В данном подразделе мы рассмотрим два трюка, которые позволяют решить эту задачу: с использованием диалогового окна и путем непосредственного ввода данных в диапазон. Применение подобных трюков позволяет контролировать корректность вводимых пользователями данных.
Ввод данных с помощью диалогового окна
Можно настроить программу таким образом, что ввод строго ограниченных данных в указанный диапазон будет осуществляться только с помощью диалогового окна. Для этого нужно воспользоваться макросом, код которого приведен в листинге 2.37.
Листинг 2.37. Настройка ввода данных в диалоговом окне
Sub DialoglnputData()
Dim intMin As Integer, IntMax As Integer ' Диапазон значений
Dim str input As String1 Введенная пользователем строка
Dim strMessage As string Dim intValue As Integer
intMin = 11 Минимальное значение
intMax - 501 Максимальное значение
scrMessage - "Введите значение от " & intMin 6 " до " 6 IntMax
• Ввод значения (цикл завершается, когда пользователь вводит _ значение из заданного диапазона или отменяет ввод)
Do
Btrlnput - InputBox(etrMeBSege)
If Btrlnput — "” Then Exit Sub Отмена ввода
Проверка, содержит ли введенная пользователем строка число
If IsNumeric(strInput) Then
intValve ■ Cint(strinput)
' Проверка, удовлетворяет ли значение диапазону
If LntValue >«• intMin And intvalue <- intMax Then
• Все условия выполнены
Exit Do
End If
End If
• Формирование сооСщекия с текстом сшиПки
strMeaaage * "Вы ввели некорректное значение." & ubNewLfne а _ "Введите число от “ £ intMin а " до " 6 intMax
Loop
Внесение данных в ячейку
ActiveSheet.Range("Al").Value * strinput
End Sub
После написания данного кода в окне выбора макросов станет доступен макрос Dial ogi nput Data. Для его вызова лучше создать специальную кнопку. После нажатия данной кнопки откроется диалоговое окно с предложением ввести значение от 1 до 50 (интервал значении можно изменять по своему усмотрению — для этого достаточно внести соответствующие изменения в код макроса). При попытке ввода значения, которое выходит за рамки указанного интервала, появится окно с соответствующим предупреждением и повторным предложением ввести корректное значение. Введенное значение будет помещено в ячейку А1 — это указано в строке кода ActiveSheet .Range ("Al") .Value » strinput. Если в данной строке вместо А1 указать, например, В1: E5.ro введенное значение будет помешено во все ячейки указанного интервала.
Непосредственный ввод данных
Если ввод данных с использованием диалогового окна по каким-либо причинам нецелесообразен, то можно вводить их непосредственно в диапазон. При этом про- грамма будет контролировать вводимые данные (чтобы они не выходили за рамки указанного интервала).
Выделим на рабочем листе какой-либо диапазон (например, А1:Е10) и назовем его inputRange. Теперь в редакторе VBA в модуле рабочего листа напишем код, представленный в листинге 2 38.
Листинг 2.38. Ограничение возможных значений диапазона
Sub Worksheet^Change(By Vai Target As Excel.Range)
Dim rglnputRange Аз Range
Dim cell Rs Range
Dim strMessage As String Dini varResult As Variant
Диапазон, в котором контролируется ввод Set rglnputRange =• Range("Al:Е10")
Просмотр всех измененных ячеек и контроль ввода в тех, которые _ принадлежат заданному диапазону
For Each cell In Target
* Проверка принадлежности диапазону
If Union(cell, rglnputRange).Address — rglnputRange.Address Then • Контроль правильности ввода varResult - IsCallDataValid(cell) If varResult - True Then
• Введено корректное значение Exit Sub
Else
* Формирование и вывод сообщения оВ ошибке
strMessage - "Ячейка " 6 cell.Address(False, False) & ":" 6 vbCrLf 6 VbCrLf 6 varResult
MsgBox strMessage, vbCrltical, "Неправильное значение" • Очистка ввода
Application.EnableEvents " False cell.ClearContents cell.Activate Application.EnableEvents “ True End If End If Next cell End Sub
Function IsCellDataValid(cell As Range) As Variant
Возвращает True, если в ячейку вводится целое число _ в диапазоне от 1 до 12. В противном случае выдается _ соответствующее сообщение
Проверка, является ли содержимое ячейки числам If Not WorkBheetFunctlon.IsNumber(cell.Value) Then IsCellDataValid = "Нечисловое значение" Exit Function
' Проверка, является ли введенное число целым
If Int(cell.Value) о cell.Value Then
IsCellDataValid — "Введите целое число"
Exit Function
End If
* Проверка соответствия числа диапазону
If cell.Value < 1 Or cell.Value > 12 Then
IsCellDataValid - "Значение должно быть от 1 до 12"
Exit Function
End If
В ячейку введено допустимое значение
IsCellDataValid — True
End Function
После написания данного кода в диапазон А1:Е1О можно будет вводить только целые числовые значения, попадающие я интервал от 1 до 12. При попытке ввода нечислового значения (например, текста) программа не позволит этого сделать — на экране отобразится окно с сообщением Нечисловое значение). Ввод дробного числа также будет невозможен — появится сообщение Введите целое число. Если же попытаться ввести значение, выходящее за рамки интервала от 1 до 12, то это также окажется невозможным, и будет выдано сообщение Значение должно быть от 1 до 12.
Последовательный ввод данных
Многие пользователя наверняка сталкивались с ситуацией, когда необходимо быстро ввести данные, и при этом каждый раз приходится вручную устанавливать курсор в нужное место. При вводе большого количества данных это и утомляет, и раздражает. Поэтому трюк, который мы сейчас рассмотрим, в подобных случаях наверняка найдет свое применение.
Смысл операции заключается в том, что необходимые д анные будут вводиться в диалоговом окне и лишь после нажатия ОК они займут свое место в таблице. Сразу после этого в диалоговом окне можно будет вводить уже следующие данные и т. д. И все это — независимо от расположения курсора. Реализацию данной возможности рассмотрим на конкретном примере.
Предположим, что в ячейки столбца А необходимо последовательно ввести перечень дат, а в ячейки столбца В — торговую выручку, соответствующую каждой дате столбца А. Решить эту задачу можно с помощью макроса, код которого (он должен быть помещен в стандартный модуль) приведен в листинге 2.39.
Листинг 2.39. Последовательный ввод данных
Sub StreamlnputО
Dim strDate As String
Dim strSum As String Dim IngRow As Long * Ввод данных e цикле (повторяется до тех пор, пока пользователь _ не введет пустую строку или не нажмет "Отмена" в окне ввода)
Do
IngRow — Range("A6S536").End(xlCp).Row * 1 • Ввод даты strDate - InputBox("Вводим дату") If strDate *• "" Then Exit Sub 1 Ввод выручки strSum — InputBox("Вводим выручку") If strSum - "" Then Exit Sub • Запись данных в ячейки Cells(IngRow, 1) - strDate Cells(IngRow, 2) — strSum Loop End Sub^
После написания кода макрос streaminput будет доступен в окне выбора макросов. Для удобства поместите в любое удобное место интерфейса кнопку, привяжите к ней данный макрос — и можно приступать к последовательному вводу данных
Введем в ячейки А1 и В1 названия соответствующих столбцов таблицы (например, Дата и Выручка) и нажмем кнопку вызова макроса. В результате откроется диалоговое окно, в котором с клавиатуры сначала вводится дата (в поле Вводим дату), а после нажатия кнопки ОК — сумма выручки (в открывшемся поле Вводим выручку). После еще одного нажатия кнопки ОК введенные данные отобразятся в ячейках А2 и В2 соответственно, а в диалоговом окне можно вводить следующие данные (которые в свою очередь будут помещены в ячейки АЗ и ВЗ) и т. д. Для выхода из цикла следует нажать в диалоговом окне кнопку Cancel.
Быстрое выделение ячеек с отрицательными значениями
Рассматриваемый в данном подразделе прием позволяет быстро выделить красным цветом ячейки, содержащие отрицательные значения. Особую значимость данный трюк приобретает при работе с большими объемами информации.
Напишем в стандартном модуле редактора VBA код, который выглядит следующим образом (листинг 2.40).
Листинг 2.40. Выделение отрицательных значений
Sub NegSelectt)
Dim cell As Range
' Просмотр всех ячеек выделенного диапазона и пометка тех, _ которые содержат отрицательные значения
For Each cell In Selection If cell.Value < 0 Then cell.Interior.Color - RGB(255, 0, 0) Else
cell.interior.Colorindex ■ xlNone End If
Next cell End Sub
После написания кода в окне выбора макросов станет доступен макрос NegSelect. В результате его выполнения все ячейки выделенного диапазона, содержащие отрицательные значения, будут залиты красным светом.
Очевидно, что путем внесения соответствующих изменений в код макроса можно изменить как условие, так и цвет выделения.
Получение информации о выделенном диапазоне
При необходимости можно быстро получить подробную информацию о выделенном в данный момент диапазоне — в частности, тип выделения, количество выделенных ячеек и областей и т. д. Для этого в стандартном модуле редактора VBA напишем код, который приведен в листинге 2.41.
Листинг 2.41. Получение информации о выделенном диапазоне
Sub ТуpeOfSelection(>Dim rgSelUnion As RangeDim strTitle As stringDim atrMessage As StringDim strSelType As StringDim IntBlockCount As IntegerDim intCellCount As LongDim intColCount As Integer Dim intRowCount As LongDun IntAreasCount As Integer Dun strCurSelType As String Dun rgArea As RangeSub ТуpeOfSelection(>Dim rgSelUnion As RangeDim strTitle As stringDim atrMessage As StringDim strSelType As StringDim IntBlockCount As IntegerDim intCellCount As LongDim intColCount As Integer Dim intRowCount As LongDun IntAreasCount As Integer Dun strCurSelType As String Dun rgArea As Range• Объединение выделенных областей' Заголовок сообщения* Текст сообщения* Тип выделения (простой или _ множественный)Количество блогов в выделенииОбщее количество выделенных ячеекКоличество выдАденныХ столбцовКоличество выделенных строк1 Количество выделенных областей• Объединение выделенных областей' Заголовок сообщения* Текст сообщения* Тип выделения (простой или _ множественный)Количество блогов в выделенииОбщее количество выделенных ячеекКоличество выдАденныХ столбцовКоличество выделенных строк1 Количество выделенных областей
Sub ТуpeOfSelection(>
Dim rgSelUnion As Range
Dim strTitle As string
Dim atrMessage As String
Dim strSelType As String
Dim IntBlockCount As Integer
Dim intCellCount As Long
Dim intColCount As Integer Dim intRowCount As Long
Dun IntAreasCount As Integer Dun strCurSelType As String Dun rgArea As Range
Sub ТуpeOfSelection(>
Dim rgSelUnion As Range
Dim strTitle As string
Dim atrMessage As String
Dim strSelType As String
Dim IntBlockCount As Integer
Dim intCellCount As Long
Dim intColCount As Integer Dim intRowCount As Long
Dun IntAreasCount As Integer Dun strCurSelType As String Dun rgArea As Range
• Объединение выделенных областей
' Заголовок сообщения
* Текст сообщения
* Тип выделения (простой или _ множественный)
Количество блогов в выделении
Общее количество выделенных ячеек
Количество выдАденныХ столбцов
Количество выделенных строк
1 Количество выделенных областей
• Объединение выделенных областей
' Заголовок сообщения
* Текст сообщения
* Тип выделения (простой или _ множественный)
Количество блогов в выделении
Общее количество выделенных ячеек
Количество выдАденныХ столбцов
Количество выделенных строк
1 Количество выделенных областей
Подсчет количества выделенных областей и определение типа выделения: простое (одна область) или сложное (несколько областей)
intAreaSCcunt = Selection.Areas.Count
If IntAreesCount = 1 Then
strTitle — "Простое выделение"
Else
strTitle — "Множественное выделение"
• Определение типа выделения первой области strSelType - dhGetAreaType(Selection .Areas(1))
* Создание объединения во избежание повторного учета пересекающихся участков выделенных диапазонов
Set rgSelUnion - Selection.Areas(1) For Each rgArea In Selection.Areas StrCurSelType * dhGetAreaType(rgArea) * Изменение надписи о типе всего выделения, если есть выделения различного типа
If strCurSelType <> strSelType Then strSelType - "Множественный"
End If
• Определение количества блоков перед их добавлением в объединение If strCurSelType ■ "Block" Then
intBlockCount ■ intBlockCount + 1 End If ' Добавление в объединение Set rgSelUnion - Union(rgSelUnion, rgArea) Next rgArea
Просматриваются элементы созданного объединения For Each rgArea In rgSelUnion.Areas Select Case dhGetAreaType(rgArea) Саве "Строка"
IntRowCount - intRowCount + rgArea.Bows.Count Саве "Столбец" intColCount = intColCount * rgArea.Columns.Count Саве "Лист" intColCount ■ IntColCount + rgArea.Columns.Count intRowCount — intRowCount * rgArea.Rowe.Count End Select Next rgArea 1 Определение количества неперекрывасщихся ячеек IntCellCount - rgSelUnion.Count
Формирование и вывод итогового сообщения
strMessage ■ "Тип выделения:" "Количество областей:strMessage ■ "Тип выделения:" "Количество областей:Б vbTab Б strSelType к vbCrLf 6Б vbTab Б intAreasCount 6 vbCrLf 6Б vbTab Б strSelType к vbCrLf 6Б vbTab Б intAreasCount 6 vbCrLf 6"Полных столбцов:" Б vbTab 6 intColCount Б VbCrLf &"Полных столбцов:" Б vbTab 6 intColCount Б VbCrLf &
strMessage ■ "Тип выделения:" "Количество областей:
strMessage ■ "Тип выделения:" "Количество областей:
Б vbTab Б strSelType к vbCrLf 6
Б vbTab Б intAreasCount 6 vbCrLf 6
Б vbTab Б strSelType к vbCrLf 6
Б vbTab Б intAreasCount 6 vbCrLf 6
"Полных столбцов:" Б vbTab 6 intColCount Б VbCrLf &
"Полных столбцов:" Б vbTab 6 intColCount Б VbCrLf &
"Полных строк;" Б vbTab Б intRowCount Б vbCrLf 6
"Блоков ячеек:" 1 vbTab & IntBlockCount 6 vbCrLf 8 _
"Всего ячеек:“ 8 vbTab6 Format(intCellCount, ”#,###")
MsgSox strMessage, vblnformation, strTitle End Sub
Function dhGetAreaType(rgRangeArea As Range) As String
* Определение типа диапазона
If rgRangeArea.Count = Cells.Count Then
* Все ячейки рабочего листа dhGetAreaType - "Лист"
Elself rgRangeArea.Celle.Count ■• 1 Then * Одна ячейка dhGetAreaType — "Ячейка"
Elself rgRangeArea-Rows.Count — CelIs.Rows.Count Then • Весь столбец dhGetAreaType — ''Столбец"
Elself rgRangeArea.Columns.Count = Cells.Columns.Count Theo • Вся строка dhGetAreaType — "Строка"
Else ' блок ячеек dhGetAreaType - "Блох" End if End Function
После написания данного кода в окне выбора макросов будет доступен макрос TypeOf Selection. Выделив произвольный диапазон (или несколько диапазонов), следует запустить этот макрос на выполнение. В результате откроется окно с указа ■ нием типа выделения, количества выделенных областей, полных столбцов и строк, блоков ячеек и общего количества ячеек
Панель инструментов изменения числового формата ячейки
Как известно, для перехода в режим изменения формата ячейки необходимо выполнить команду главного меню Формат ► Ячейки или нажать сочетание клавиш Ctrl+1. Однако для изменения числового формата ячейки можно также воспользоваться специально созданной пользовательской панелью инструментов. Рассмотрим этот процесс подробнее.
Для реализации примера нам потребуется написать в редакторе VBA два кода: в модуле рабочего листа и в стандартном модуле. Код, помещаемый в модуль рабочего листа, выглядит следующим образом (листинг 2.42).
Листинг 2.42. Код в модуле рабочего листа
Sub Worksheet_Change(ByVal Target As Excel.Range) Call OpdateToolbar
End Sub
Sub WcrkBheet_SelectlonChange(ByVal Target As Excel.Range) Call OpdateToolbar
End Sub
В стандартном модуле VBA необходимо написать следующий код (листинг 2.43).
Листинг 2.43. Код в стандартном модуле
Sub FastChangaNumberForma t()
Dim bar As CoircnandBar Dim button As CommandBarButton
' Уделение существующей панели инструментов (если она есть) On Error Resume Next
CommandBaга("Числовой формат"1.Delete On Error GoTo 0
формирование новой панели Set bar - CommandBars.Add With bar
.Name = "Числовой формат" .Visible = True
End With
Создание кнопки
Set button — ComnandBars("Числовой формат").Controls.Add _ (Type:-msoControlButton)
With button
-Caption - ""
.OnAction - "ChangeNumFormat*
.TooltipText - "Щелкните для изменения нислсАоьо формата" .Style = osoButtonCaption End With
Обновление созданной панели инструментов Call UpdateToolbar End Sub
Sub OpdateToolbar()
Обновление панели инструментов (если она создана) On Error Resume Next
Изменение заголовка кнопки (на название формата тщелянной ячейки)
ConmandBars f"Числовой формат") .Controls(1) .Caption - —
ActiveCell.NumberFormat
End Sub
Sub ChangeNuraFomat ()
Отображение диалогового окна изменения формата ячейки
Application. Dialogs (xlDielagFormatNuniber) Show
Call UpdateToolbar
End Sub
Теперь нужно запустить на выполнение макрос FaetchangeNumberFormat (после написания кола он появится в окне выбора макросов) — в результате на экране появится панель инструментов Числовой формат, состоящая из одной кнопки. Название данной кнопки зависит от числового формата активной ячейки При подведении к кнопке указателя мыши отобразится всплывающая подсказка Щелкните для изменения числового формата. При нажатии данной кнопки откроется вкладка Число окна Формат ячеек (обычно это окно вызывается с помощью команды главного меню Формат ► Ячейки). Формат активной ячейки изменяется в данном режиме по обычным правилам.
Следует отметить, что перейти в режим редактирования числового формата ячейки можно, запустив на выполнение макрос changeNumFormat — после написания приведенного выше кода он также будет доступен в окне выбора макросов.
Тестирование скорости чтения и записи диапазонов
В процессе работы с электронными таблицами часто приходится переносить значения из массива в диапазон или из диапазона в массив. При этом скорость получения данных из диапазона обычно выше скорости записи. С помощью трюка, который мы сейчас рассмотрим, можно тестировать скорость записи данных массива в диапазон и переноса этих данных обратно в массив.
В стандартном модуле редактора VBA нужно написать код. содержимое которого представлено в листинге 2.44.
Листинг 2.44. Тестирование скорости чтения и записи диапазонов
Sub TatLeSpepdTest(}
Dim
alngDatat) As Long
* Массив с числами
Dim
LngCount As Long
■ Количество элементов в массиве
Dim
dtstart As Date
* Хранит время (и даже дату) начала ~ тестирования
Dim strArrayToTable Аз String 1 Время записи в таблицу Dim strTableToArray As String • Время чтения из таблицы
Dim strMessage As String Dim i As Long
Подготовка диапазона ячеек Range("A;A").ClearContencs
Ввод размера массива, формирование массива заданного размера IngCount - InputBox("Введите количество элементов"} ReDim alngDatad То IngCount) • Заполнение массива данными For 1 = 1 То IngCount alngDatad) - 1 Next 1
' Перенос массива в таблицу Application.Screenupdating ■ False dtStart - Timer For 1 - 1 To IngCount Cells (1, 1) - L Next i strArrayToTable Format(Timer - dtStart, "00:00")
* Чтение данных из таблицы обратно в массив dtStart - Timer For i - 1 То IngCount alngData(i) - Called, 1) Next 1 etrTableToAxray ” Format(Timer - dtStart# "00:00") Application.Screenupdating — True
а на считывание данных из диапазона обратно в массив — только 1 секунда, массив из 65 000 элементов записывался за 14 секунд, а перенос этих данных обратно б массив занял лишь 2 секунды.
Работа с формулами
Механизм формул является одним из основных инструментов, используемых в программе Microsoft Excel. В данном разделе мы рассмотрим несколько трюков, которые можно выполнять с использованием формул.
Складывание и вычитание даты и времени
В Excel реализована возможность выполнения арифметических действий с датами. Для этого следует использовать функцию дата. Например, при использовании формулы -ДАТА(200414; 11) -ДАТА(2004;3; 6) в соответствующей ячейке будет получен результат 36.
Складывание дивпвзонов разных листов
В п роцессе работы часто возникают ситуации, когда необходимо суммировать значения ячеек, которые хранятся на разных листах. Для этого в формулу требуется включить названия соответствующих листов. Например, при использовании формулы =сумм (Дист2: листЗ I ci: С7) будет рассчитанасумма значений, которые хранятся на листах Л«ст2 и ЛистЗ в диапазоне С1:С7.
Накопление итога в ячейке
При проведении различных расчетов часто бывает необходимо сохранять нарастающий итог в той либо иной ячейке. Для достижения такого эффекта необходимо выполнить следующие действия (подразумевается, что нарастающий итог будет накапливаться в ячейке А1. а в ячейку С1 вводятся исходные данные).
В ячейку А1 ввести формулу -А1 *С1.
После того как отобразится окно с сообщением об ошибке, нажать в данном окне кнопку ОК.
Выполнить команду главного меню Сервис ► Параметры.
Перейти в открывшемся окне на вкладку Вычисления.
На данной вкладке установить флажок итерации, а в поле Предельное число итераций ввести значение 1.
Нажать кнопку ОК.
При выполнении данной операции необходимо учитывать следующее: после установки итераций автоматически отключается сообщение об ошибках во всех файлах Excel. Если же итерации убрать, то нарастающий итог в ячейке иакапливвться не будет.
Быстрое размножение формул
Для копирования формул, помимо имеющихся в Excel стандартных средств можно использовать VBA. Например, чтобы скопировать формулу из ячейки А1 в ячейку 82, можно использовать код следующего содержания:
Range("В2")-Formula = Range("Al").Formula
Также для этого можно использовать код
Range("В2").Valve - Range Г'Al").Formula
или
Range("B2") - Range("Al")-Formula
Для удобства использования рекомендуется назначить макросу какое-нибудь сочетание клавиш или кнопку (и поместить ее на панель инструментов) с целью быстрого вызова.
Маскировка формул от других пользователей
При необходимости можно замаскировать формулы таким образом, что сторонний пользователь не сможет узнать, какие ячейки участвуют в формуле. Для этого в строке Имя (слева от строки формул) нужно присвоить имена этим ячейкам, после чего заменить в формуле координаты (адреса) этих'ячеек присвоенными именами. Поскольку каждой ячейке может быть присвоено несколько имен (а в строке Имя показывается только одно из них), то можно сослаться на любое из них, чем еще больше запутать посторонних пользователей. Недостатком данного способа является то, что в раскрывающемся списке строки Имя хранится перечень всех имен текущей ячейки, поэтому таким образом можно замаскировать формулу только от начинающих пользователей.
Однако с помощью VBA можно присвоить ячейке имя таким образом, что оно не будет отображаться в списке имен. Для достижения такого эффекта можно использовать следующий код:
Names.Add Name:-’'Секрет*', Ке£егэТо:="=Лист1!5А$5", VisLblet-False
При использовании данного кода ячейке А5, которая расположена на листе Л ист1, будет присвоено имя Секрет. Это имя не будет отображаться в списке имен, но его можно использовать в формулах вместо адреса ячейки. Например, сумму ячеек А1 и А5 можно задать так: =А1*А5, а можно — с использованием скрытого имени: =А14-Секрет.
СОВЕТ ---
W * При создании мекроса рекомендуется задать сочетание клавиш (например, CtrJ+Shift+A) дли его быстрого вызова.
К аналогичному результату приводит использование следующего кода:
Range("А7").Name = "Зажита’'
Range ("зашита1*) .Name.Visible — False
В данном случае ячейке А7, которая расположена на текущем листе, присвоеноскры- тое имя Защита.
Быстрое суммирование всех ячеек столбца или строки
Для быстрого суммирования значений всех ячеек какого-либо столбца или строки предназначены специальные формулы. Например, чтобы получить сумму всех ячеек столбца А, нужно воспользоваться формулой -сумм (А: А), а для суммирования всех ячеек строки 1 — формулой -сумм (1 ? 1). Если же необходимо получить сумму всех ячеек столбцов А, В я С, то формула будет выглядеть следующим образом: -СУММ (А: С). Для суммирования всех ячеек, которые расположены в строках 1, 2 и 3, применяется следующая формула: -сумм (1:3).
При суммировании не стоит забывать, что курсор должен быть установлен за пределами суммируемого диапазона — в противном случае Excel выдаст сообщение об ошибке.
Вместо формулы — текущее значение
С помощью несложных приемов можно быстро заменить формулу в ячейке ее текущим значением. Рассмотрим два наиболее популярных способа.
При первом способе необходимо выделить соответствующую ячейку, выполнить команду главного меню Правка ► Копировать, а затем— команду Правка ► Специальная вставка. В результате откроется окно, представленное на рис. 2.10.
Рис. 2,10. Окно Специальная вставка
В данном окне следует установить переключатель Вставить в положение значения и нажать кнопку ОК. В результате формула в выбранной ячейке будет заменена текущим значением
Второй способ заключается в следующем; необходимо выделить соответствующую ячейку, перейти в режим ее редактирования (не используя при этом строку формул) и последовательно нажать клавиши F9 н Enter. После выполнения указанных действий формула в ячейке будет заменена ее текущим значением.
Повышение точности вычисления формул
В процессе работы с формулами иногда можно заметить неточности в расчетах. Их наличие обусловлено тем, что по умолчанию Excel отображает цифры в ячейках с точностью меньшей, чем при их хранении (например, число 15,434 может отображаться как 15,43). Если в ячейках А1 и А 2 хранится одинаковое значение — 15,434, а отображается 15,43, то результат формулы =А1*А2 будет отображен как 30,86, хотя на самом деле он равен 30,868 Иначе говоря, визуально наблюдается неточность в расчетах, хотя на самом деле это связано лишь с округлением чисел при их отображении с меньшей точностью.
Решить эту проблему можно двумя способами. Первый из них заключается в том, что в формате ячейки нужно повысить точность отображения чисел. В результате провесе округления будет очевидным для пользователя.
Во втором случае необходимо выполнить команду главного меню Сервис ► Параметры и в открывшемся окне на вкладке Вычисления установить флажок точность как на экране, после чего нажать кнопку ОК. В результате Excel будет хранить данные в ячейках с такой же точностью, с которой они отображаются на экране. Иначе говоря, после выполнения данной операции в нашем примере число 15,434 будет преобразовано в 15,43 окончательно.
Первый из предложенных способов более правильный с математической точки зрения, однако второй способ проще и надежнее.
Быстрая проверка правильности формул
В большинстве случаев пользователи при контроле ошибок в формулах просматривают все ячейки таблицы. Однако при большом количестве данных этот способ неудобный и слишком трудоемкий. Поэтому в Excel реализована возможность автоматической проверки правильности составления формул.
Известно, что Excel автоматически проверяет правильность составления формул в соответствии с определенными правилами. Если в результате такой проверки обнаружены ошибки, то в соответствующих ячейках отображаются хорошо знакомые пользователям сообщения об ошибках: #дел/ 0!,#н/д #имя?, #пусто ■ и т. д. Это позволяет оперативно выявить формулы, содержащие синтаксические ошибки.
Если же формула содержит не синтаксические, а иные ошибки, то проверить ее правильность несколько сложнее. При обнаружении в результате автоматической
проверки таких ошибок в левом верхнем углу соответствующих ячеек отображается треугольник зеленого цвета. Однако просмотр всех таких ячеек в больших таблицах — процесс слишком утомительный, поэтому в данном случае следует воспользоваться командой главного меню Сервис ► Проверка наличия ошибок. С помощью этого режима Excel будет последовательно проверять все ячейки, содержащие формулы, и при обнаружении ошибок в каждом конкретном случае выводить на экран информационное окно (рис. 2.И).
Рис. 2.11. Проверка наличия ошибок
В данном окне указывается адрес ячейки, содержащей ошибочную формулу, краткое описание ошибки и варианты решения проблемы: выявить источник ошибки, пропустить ошибку, исправить ее в строке формул и др.
Однако при работе с большими объемами информации данный способ также является трудоемким. Поэтому в подобных случаях целесообразно использовать панель инструментов Окно контрольного значения, с помощью которой внимание акцентируется только на ячейках с формулами и контролируется одновременно адрес ячейки, содержащаяся в ней формула и полученный результат. Предварительно необходимо выделить ячейки с формулами — для этого нужно выполнить команду главного меню Правка ► Перейти, в открывшемся окне нажать кнопку Выделить, аэатем в окне Выделение группы ячеек установить переключатель в положениефорнуль) и нажать кнопку ОК.
Теперь необходимо выполнить команду Сервис ► Зависимости формул ► Показать окно контрольного значения и в открывшемся окне нажать кнопку Добавить контрольное значение. В результате в данном окне отобразится перечень выделенных ячеек, содержащих формулы (рис. 2.12).
Рис. 2.12. Окно контрольного значения
В соответствующих столбцах для каждой позиции списка отображается название рабочей книги, название рабочего листа, имя ячейки (при наличии), адрес ячейки, хранящееся в ней значение и формула. Для перехода к требуемой ячейке достаточно дважды щелкнуть мышью на соответствующей позиции в данном списке. Чтобы удалить позицию из списка, необходимо выделить ее курсором и нажать кнопку Удалить контрольное значение-
Скрытие сообщений об ошибках при вычислениях
В некоторых случаях сообщение об ошибках может оказаться нежелательным — например, если такое сообщение на самом деле свидетельствует не об ошибке в самих расчетах, а о том, что в ячейку, участвующую в расчетах, просто не были введены необходимые данные В большинстве подобных ситуаций пользователи вручную удаляют формулы из ячеек. Однако это не совсем удобно — например, после ввода данных в соответствующие ячейки формулы все равно придется восстанавливал!. Поэтому для решения таких проблем целесообразнее использовать способ, описание которого приводится ниже.
Для скрытия сообщений об ошибках можно использовать режим условного форматирования. Для этого нужно выделить те ячейки с формулами, результаты вычислений которых не должны отображаться в случае возникновения ошибок, затем выполнить команду главного меню Формат ► Условное форматирование и в открывшемся окне определить формулу вида —ЕС8ПИБКА(ссылкд_на_ячейжу), где ссыика_на_ячейху — это ссылка на активную ячейку выделенного диапазона. После этого необходимо нажать кнопку Формати в открывшемся окне в поле Цвет выбрать значение Белый, после чего дважды нажать ОК.
После выполненных действий результаты вычислений с ошибками будут выводиться белым цветом и поэтому не будут видны на экране.
Разработка и применение полезных пользовательских функций
Наряду с формулами функции также являются одним из основных инструментов Microsoft Excel, Функции могут быть как системными, так и пользовательскими (пользовательская функция — это функция, созданная пользователем с применением языка VBA).
Пользовательские функции могут применяться как в составе надстройки XL А, так и по отдельности. В первом случае при включении надстройки они будут доступны во всех книгах Excel. Во втором случае, чтобы функция была доступна во всех книгах Excel, необходимо сохранить ее в личной книге макросов — по умолчанию это файл Personal -xls. После создания пользовательской функции она будет по умолчанию помещена в категорию Определенные пользователем в окне Мастер функций (данное окно открывается при выполнении команды Вставка ► Функция).
В данном разделе мы рассмотрим функции, которые входят в состав надстройки PubiicFunction.xla (эту надстройку можно скачать из Интернета по адресу
http://www.msoffice.nm.ru/downloads/PiJbltcFimctiDn.xla). Если же возникнет необходимость воспользоваться какой-либо из этих функций отдельно, без надстройки, то можно использовать код который приводится при описании каждой функции. Кроме того, мы рассмотрим ряд иных пользовательских функций, применяемых без надстроек
Чтобы функции надстройки PuhlicFunction. xla стали доступными, необходимо поместить файл PublicFunction.xIa В лапку Library, которая расположена в каталоге Office. После этого следует открыть Excel, выполнить команду главного меню Сервис ► Надстройки, в открывшемся окне установить флажок Пользовательские функции и нажать кнопку ОК. Теперь, выполнив команду Вставка ► Функция и выбрав в открывшемся окне категорию Определенные пользователем, можно увидеть перечень функций, включенных в состав данной надстройки (рис. 2.13).
Рис. 2.13. Функции надстройки PubfcFunction xla
Далее мы подробно рассмотрим функции, которые находятся в этом списке. При описании функций подразумевается, что они выбираются в окне Мастер функций, однако их можно вводить и в строку формул по обычным правилам Excel
Объединение данных диапазона
Функция couple (в составе надстройки она называется СцвпитьДаниме) предназначена для объединения всех данных, которые расположены в указанном диапазоне, с добавлением пробелов между ними. Код данной функции выглядит следующим образом (листинг 2.45).
Листинг 2.45. Функция Couple
Function Couple(Diapazon)
Объединение данных, содержащихся в ячейках диапазона _ Diapazon (разделитель между значениями - пробел)
iCell - текушая ячейка For Each ICell In Diapason
Сцепляются данные только заполненных ячеек If IsEmptytICell) <> True Then
Добавление значения ячейки в выходную строку If Couple - "" Then
Couple — ICell Else
Couple - Couple 6 ” " t ICell End If End If Next End Function
Как обычно, на первом этапе в окне Мастер функций нужно выделить курсором данную функцию и нажать кнопку ОК. На втором этапе следует указать диапазон ячеек. содержимое которых необходимо объединить, и вновь нажать ОК — результат отобразится в ячейке, в которой установлен курсор.
Функция сцелитьданные выгодно отличается от стандартной функции СЦЕПИТЬ тем, что легко можно указать произвольный диапазон, а также тем, что объединенные данные разделяются пробелом.
Объединение данных с учетом форматов
Функция CoupleFormat (в составе надстройки она называется СцепитьДФормат) работает аналогично функции сцепитьДанные с той разницей, что она объединяет данные указанного диапазона с соблюдением форматов. Код функции представлен в листинге 2.46.
Листинг 2.46. Функция CoupleFormat
Function CoupleFormat(Diapason)
• Объединение текстовых данных, содержащихся в ячейках _ диапазона Diapason (разделитель между значениями - пробел)
iCell - текущая ячейка For Each iCell in Diapason ' Сцепляются данные только заполненных ячеек If isErapty(iCell) о True Then
' Добавление текста ячейки в выходную строку If CoupleFormat ~ "“ Then
CoupleFormat - ICell.Text Else
CoupleFormat — CoupleFormat b " " 6 iCell.Text
End If
End If
Next
End Function
После выбора функции следует указать требуемый диапазон данных и нажать кнопку ОК — результат отобразится в ячейке, в которой установлен курсор.
Эксперименты с датой
В процессе работы с программой иногда возникает необходимость изменить представление даты. Оперативно решить эту задачу поможет функция ДатаПолная. Например, если дата отображается в виде 04.08.2005. то данная функция преобразует ее в вид 04 Легуста 2005. Код функции приведен в листинге 2.47.
Листинг 2.47. Функция ДатаПолная
Function ДатаПолная(Ячейка)
' Получение данных в заданной ячейке в формате _ "dd тгмтгп уууу"
Дата - Format (Ячейка, "dd mmnun уууу"1)
If IeDate(Ячейка) = True Dr TsDate(Дата) — True Then
Возврат строки с полной датой
ДатаПолная * 5СгСопч(Датаг vbPropetCaee)
Else
Данные в ячейке не являются датой
ДатаПолная ■ "о"
End If
End Function
После выбора функции следует указать ячейку с датой, которую необходимо преобразовать.
Несомненным достоинством данной функции является то. что она может преобразовать представление даты даже в тех ячейках, в которых установлен формат, отличный от Дата (Числовой, Текстовый и др.). Например, если в ячейке с форматом Общий содержится ЧИСЛО 37808, ТО В результате применения функций ДатаПолная оно будет преобразовано в дату 06 Июля 2003.
Выбор из текста всех чисел
Достаточно интересное решение реализовано в функции Ext ractNumer ic (в составе надстройки она называется ИзвлечьЧисло). С ее помощью из любого текста можно извлечь все числовые значения. Например, если ячейка содержит текст 25 сентября 2004 годе, то результат применения данной функции будет выглядеть так: 252004. Код функции выглядит следующим образом (листинг 2.48).
Листинг 2.48- Функция ExtractNumeric
Function ExtractNumeric(iCell)
• Анализируется каждый символ входной строки iCell
For iCount - 1 То Len(iCell)
* Проверка, является ли анализируемый символ числом
If laNumeric(MidtiCell, iCount, 1)) •* True Then
' Число добавляется в выходную строку
ExtractNumeric - ExtractNumeric £ Hid(iCell, iCount, 1)
End If
Next
End Function
После выбора функции иавлечьЧислс следует указать ячейку, из которой необходимо извлечь числовые значения. Результат отобразится в активной ячейке. Очевидно, что применение данной функции имеет смысл только в том случае, когда текст включает в себя и числовые, и иные символы.
Прописная буква только в начале текста
Как известно, в Excel есть штатная функция ПРОПНАЧ, которая преобразует все первые буквы слов в тексте в прописные. Однако иногда возникает необходимость сделать так, чтобы в тексте была только одна прописная буква — в начале его первого слова. Решить эту задачу поможет пользовательская функция ПролиснНач, также входящая в состав надстройки PublicFunction.xla. Код функции выглядит следующим образом (листинг 2.49).
Листинг 2.49. Функция ПролиснНач
Function ПрописнНач(Текст)
* Пустой текст функция не обрабатывает
If Текст ■ *“ Then ПрописхНач * "О": Exit Function
' Выделение первого символа и перевод его в верхний регистр
ПервыйСимяол — UCase(Left(Текст, 1))
Выделение остальной части строки и перевод _ ее в нижний регистр
Обрубок = Lease(Mid(Техет, 2)1
Соединение частей строки и возврат значения
ПрописнНач = ПервыйСимвол 6 Обрубок
End Function
После выбора функции следует указать ячейку, текст которой нужно преобразовать. Результат преобразования отобразится в активной ячейке.
Перевод чисел в «деньги»
Функцию, о которой рассказывается в данном подразделе, наверняка оценят экономисты, а также работники бухгалтерских и финансовых служб предприятий (орга-
низаций). С ее помощью можно преобразовать хранящееся в ячейке число в денежное представление: например, число 53 будет отображаться как 53 руб. о 0 коп., ачисло27,43 — как 27 руб. 43 коп. Данная функция называется RubKop(всоставе надстройки — РубКоп), ее код приведен в листинге 2.50
Листинг 2.50. Функция RubKop
Function RubKop(Число)
Пустые ячейки и ячейки, содержащие текст, функция _ не обрабатывает
If IsNumeric (Число) — False Or Число - "■ Then RubKop • "о": Exit Function
Из число целой части - рубли
ДлинаЧисла = Len(Число)
ЦелаяЧасть = Fix(Число)
ДлинаЦелой = Len(ЦелаяЧасть)
' Вычисление длины дробной часта
ДлинаДроби - ДлинаЧисла - ДлинаЦелой
If ДлинаДроби <> 0 Then
ДлинаДроби • ДлинаЧисла - ДлинаЦелой - 1
End If
End If
Составление полной надписи из количества руОлей И копеек
Рубли - ЦалаяЧасть
RubKop - Рубли t " “ t "ру»." в " ” В Копейки Ь " " 6 "коп.”
End Function
После выбора функции следует указать ячейку, содержимое которой нужно преобразовать. Результат преобразования будет показан в активной ячейке.
Подсчет количества повторов искомого текста
Функция CoincideCount (в составе надстройки — КоличествоСовпадений) позволяет быстро посчитать количество повторов текстового фрагмента в тексте ячеек заданного диапазона. Код функции приведен в листинге 2 51.
Листинг 2.51. Функция CoincideCount
Function CoincideCount(Text, Search)
Проверка правильности входных данных _ (аргумента Search)
If IsArray(Search) - True Then Exit Function
If IsError(Search) = True Then Exit Function
If IsEmpty(Search) - True Then Exit Function
Просмотр заданного и параметре Text диапазона
For Each ICell In Text
Анализируются только ячейки, содержащие _ корректные значения
If Not IsError(iCell) Then
* iText - строка для просмотра (в вижием регистре) iText ■ LCase(iCell)
iSearch - искомое значение (в нижнем регистре) iSearch — LCaee(Search)
Длина искомой строки
iLen ■ Len(Search)
End If
Next
End Function
В отличие от функций, описание которых приведено выше, функция количест- воСовпадений имеет два аргумента. На втором шаге в окне Мастер функций необходимо задать область поиска (это может быть как одна ячейка, так и диапазон) и указать расположение искомого текста. Результат отображается в ячейке, в которой был установлен курсор до вызова данной функции. Важно отметить, что при поиске не учитывается регистр символов, то есть для этой функции строки слово и слово одинаковы.
Суммирование данных только видимых ячеек
Функция СуимаВид, о которой рассказывается в данном подразделе, отличается от стандартной функции Excel сумм тем, что позволяет суммировать данные только видимого диапазона. Иначе говоря, при расчете суммы данная функция игнорирует значения, расположенные в скрытых ячейках. В листинге 2.52 приведен код этой функции.
Листинг 2.52. Функция суммавид
Function СуммаВил(Диапазон) Ав Double
Просмотр всех ячеек заданного диапазона
For Each Ячейка In Диапазон
' Анализ только видимых ячеек
If Not Ячейка.EntireRow.Ridden And Not _
Ячейка.Enti reColwon. Ridden Then
• При расчете учитываются только ячейки _ с численными значениями
If iBNumeric(Ячейка) — True Then
СуммаВид " СуммаВид * Ячейка
End If
End If
Next
End Function
□осле выбора функции нужно задать единственное условие — диапазон ячеек, данные которых необходимо сложить. Результат отображается в ячейке, в которой был установлен курсор до вызова данной функция.
При суммировании — курсор внутри диапазона
Удобный способ суммирования диапазона ячеек реализован в функции сумма. Она отличается от стандартной функции Excel сумм тем, что при суммировании курсор может находиться внутри этого же диапазона, но при этом циклическая ошибка не возникнет и, соответственно, сообщение о ней выводиться не будет.
Следует учитывать, что ячейка с функцией в расчетах не участвует. Код функции Сумма выглядит следующим образом (листинг 2.53).
Листинг 2.53. Функция Сумма
Function Сумма(Диапазон, АдфесЯчейки) Ан Double
Просмотр всех ячеек диапазона For Each Ячейка In Диапазон
Проверка, чтобы в суммировании не участвовала _ ячейка с формулой
If АдресЯчейки.АйДгевз о Ячейка.Address Then
* В суммировании участвуют только ячейки с численными значениями
If IsNumeric(Ячейка) ■ True Then Сумма - Сумма * Ячейка
End If End If Next End Function
После выбора функции необходимо задать два обязательных условия: диапазон суммируемых ячеек м адрес ячейки, в которой будет располагаться функция (и отображаться результат расчета).
Вывод суммы прописью
Функция СуммаПрописью (онатоже входит в состав надстройки PublicFunction. xla), также как и Рускоп, будет особенно интересна в первую очередь специалистам экономического профиля. Она позволяет вывести числовое значение в текстовом выражении (после применения данной функции число 70 отобразится как Семьдесят руОлей 00 коп., а число 42,15 — как Сорок два рубля 15 коп.). Например, если какой-либо столбец таблицы содержит перечень денежных сумм (предположим, ежедневной выручки в течение месяца), то в соседнем столбце можно для каждой числовой суммы вывести сумму прописью.
После выбора функции следует указать ячейку, содержимое которой нужно преобразовать. Результат отображается в ячейке, в которой был установлен курсор до вызова функции.
В следующих подразделах рассматриваются функции, не входящие в состав надстройки FublicFunctlon.xla,
Начисление процентов в зависимости от суммы
Процесс начисления комиссионных процентов — один из наиболее популярных процессов в экономической и финансовой деятельности, поэтому любой экономист, менеджер и финансовый работник должен уметь быстро выполнять эту опе-
рацию. Функция, которая рассматривается в данном подразделе, поможет решить эту задачу.
Допустим, что организация принимает вклады на следующих условиях: на вклады размером до 4999 руб. начисляется 9 %, на вклады размером от 5000 до 9999 руб. — 11 %, а на вклады размером свыше 10 000 руб. —15 % (все данные — условны). Чтобы быстро рассчитать проценты по вкладам в данном случае, можно воспользоваться функцией dhCalculatePercent, код которой приведен в листинге 2 54.
Листинг2.54. Функция dhCalculatePercent (вариант 1)
Function dhCalculatePercent(IngSum Ав Long) As Double
' Процентные ставки (декларация констант)
Const dblRatel Ад Double 0.09
Const dblRateZ As Double •= 0.11
Const dblRate3 Aa Double -0.15
граничные суммы вкладов (декларация констант)
Const intSuml As Long — 5000
Const intSum2 Aa Long - 10000
Возвращаем сумму, умноженную на соответствующую ставку If IngSum < intSuml Then
dhCalculatePercent - IngSum * dblRatel
Elself IngSum < intSum2 Then dhCalculatePercent * IngSum * dblRate2
Else dhCalculatePercent - IngSum * dblRate3 End If End Function
Эту же функцию можно записать и в таком виде (листинг 255).
Листинг 2.55. Функция dhCalculatePercent (вариант 2)
Function dhCalculatePercent(IngSum As Long) Аз Double • процентные ставки (декларация констант) Const dblRatel As Double » 0.09 Conet dblRateZ As Double - 0.11 Const dhLRateS As Double — 0.15 • Граничные суммы вкладов (декларация констант) Const intSuml As Long - 5000 Conet intSumS As Long — 10000
Case Is < IntSuml
dhCalculatePercent IngSum • dblRatel
Case Is < intSuni2
dhCalculatePercent — IngSnm • dblRate2
Case Else
dhCalculatePercent •= logSum • dblRatel
End Select
End Function
После выбора функции (в окне Мастер функций данная функция по умолчанию будет помещена в категорию Определенные пользователем, как и другие пользовательские фуикни и) необходимо указать ячейку, на основании которой следует рассчитать сумму процентов. Результат отобразится в ячейке, в которой был установлен курсор.
С помошью данной функции можно начислять не только проценты во вкладам, но и рассчитывать, например, заработок торговых агентов (если он рассчитывается в процентах ст поступления денежных средств), а также выполнять иные подобные расчеты.
Еще о расчете процентов
Выше мы рассмотрели один из наиболее простых способов расчета процентов в зависимости от суммы вклада (выручки н т. п.). Рассмотрим другой вариант. Предположим, что штатным сотрудникам организации, принимающей вклады, проценты по вкладам начисляются по приведенному в предыдущем подразделе алгоритму. Сторонним же вкладчикам выплачивается 110 % от начисленной суммы. Для решения данной задачи функцию dhCalculatePercent следует написать в таком виде (листинг 2.56).
Листинг 2.56. Функция dhCalculatePercent (вариант 3)
Function dhCalculatePercent (Sales Ав Long, IsTemporal As Boolean) Ah Double
’ Процентные ставки (декларация констант)
Const dblRatel As Double ■ 0.09
const 0blRata2 As Double - 0.11
Const dblRatel As Double ■ 0.15
Const dblAdd As Double •» 1.1
Граничные суммы
Const IngSmnl As Long ■ 5000
Const IngSumZ As Long ■ 10000
Elself Sale® < IngSwZ Then
dhCalculatePercent - Sales * dblRate2 Else
dhCalculatePercent - Sales * dblRateS End If
If IsTemporal Then
Для сторонних вкладчиков - надОавка
dhCalculatePercent = dblAdd ’ dhCalculatePercent
End If
End Function
Теперь функция dhCalculatePercent будет иметь два аргумента. После выбора в окне Мастер функций данной функции откроется окно, показанное на рис. 2.14.
Рис. 2.14. Аргументы Функции dhCalculatePercent
В данном окне в поле Sales указывается адрес ячейки, на основании которой требуется рассчитать сумму процентов, а в поле IsTemporal определяется, штатному сотруднику или нет начисляются проценты. Если проценты начисляются штатному сотруднику, то в данном поле следует ввести значение False, а если стороннему вкладчику — следует ввести True (в данном случае проценты будут начислены я размере 110 % от причитающейся суммы).
Сводный пример расчета комиссионного вознаграждения
Рассмотрим трюк, который включает в себя простой расчет комиссионного вознаграждения внештатным сотрудникам, расчет вознаграждения штатным сотрудникам с учетам выслуги лет, а также возможность быстро рассчитывать комиссионное вознаграждение в диалоговом режиме.
Предположим, что внештатные сотрудники получают комиссионное вознаграждение в зависимости от объема продаж последующей шкале:
□ до 4999 руб. - 9 %;
□ от 5000 до 9999 руб. — 11%;
□ свыше 10 000 руб. — 15 %.
При расчете сумм комиссионного вознаграждения штатным сотрудникам учитывается стаж их работы в компании: за каждый отработанный год к сумме причитающегося вознаграждения добавляется 1 %.
Для решения поставленной задачи напишем код, представленный в листинге 2.57 (этот код следует поместить в стандартный модуль редактора VBA).
Листинг 2.57. Расчет комиссионного вознаграждения
Function dhCalculateCom(dblSales As Double) As Double
Const dblRatel - 0.09
Const dblRate2 * 0.11
Const dblRate3 ■ 0.15
• Расчет комиссионных с продаж (без выслуги) в зависимости _ от сумш
Select Case dblSales
Case О To 4999.99: dhCalculateCom - dblSales ♦ dblRatel
Case 5000 To 9999.98: dhCalculateCom - dblSales * dblRats!
Case Is >- 10000: dhCalculateCom - dblSales * dblRateS End Select End Function
Function dhCalculateCom!(dblSales As Double, intYeara As Double) Ab Double
Const dblRatel - 0.09
Const dblRate2 — 0.11
Const dblRatel ■ 0.15
* Расчет комиссионных с продаж (без учета выслуги лет) в зависимости ОТ суммы
Select Case dblSales
Case 0 To 4999.99: dhCalculateCom! = dblSales * dblRatel
Case 5000 To 9999.991 dhCalculateCom! — dblSales * dblRate!
Case Is >» 10000: dhCalculateCom! ■ dblSales * dblRatel End Select • Вадбавка sa выслугу лет dhCalculateCom! = dhCalculateCom! + (dhCalculateCom! * intYears / 100) End Function
Sub ConCalculator ()
Dim strHessage As String
Dim dblSaleB As Double
Dim ан As Integer
Calc:
Отображение окна для ввода, данных dblSales — Vai(InputBox("Сумма реализации:", "Расчет комиссионного вознаграждения"))
Формирование сообщения (о одновременным расчетом _ вознаграждения)
strMessage - "Объем продаж:" £ VbTab 6 Format(dblSales, "S#,H0")
vbCrLf 6 "Сумма вознаграждения:" 6 vbTab &
Format(dhCalculateCom(dblSales), "$#,#10") & _
vbCrLf 8 vbCrLf E "Считаем дальше?"
Вывод окна с сообщением (о рассчитанной сумме и вопросом _ о продолжении расчетов)
If MsgBox(strMessage, vbYesNo, _
"Расчет комиссионного вознаграждения") - vbYes Then
Продолжение расчетов
Goto Calc
End If
End Sub
В результате написания данного кода будут сформированы две пользовательские функции — dhCalculateCom HdhCalculateCom2 (они будут помещены в категорию Определенные пользователем в окне Мастер функций, которое открывается при выполнении команды Вставка ► Функция), а также макрос comcaiculator, доступный в окне выбора макросов (Сервис > Макрос ► Макросы). Рассмотрим порядок применения указанных функций и макроса.
Функция dhCalculateCom имеет один аргумент — объем реализации. При выборе функции необходимо указать адрес ячейки, в которой содержится объем реализации по требуемому сотруднику — результат расчета (сумма вознаграждения) отобразится в ячейке, в которой установлен курсор.
Функция dhCalculateCom? имеет два аргумента: объем реализации и количество отработанных сотрудником лет. При выборе функции указывается адрес ячейки с объемом реализации по требуемому сотруднику и адрес ячейки, в которой отображается количество отработанных лет. Результат расчета будет помещен в ячейку, в которой установлен курсор.
Для удобства работы рекомендуется привязать макрос Comcaiculator к кнопке и поместить ее на какую-нибудь панель инструментов либо в другое место интерфейса.
После вызова макроса откроется диалоговое окно Расчет комиссионного вознаграждения (название окна и его элементов можно корректировать путем внесения соответствующих изменений в код макроса), в котором в поле Сумма реализации следует с клавиатуры ввести сумму, от которой требуется рассчитать объем комиссионного вознаграждения, и нажать кнопку ОК либо клавишу Enter. Результат расчета отобразится в открывшемся информационном окне — в нем будет показана сумма реализации (введенная пользователем) и сумма причитающегося комиссионного вознаграждения. В этом же окне будет сформирован запрос на продолжение расчета либо на выход из данного режима. При положительном ответе вновь отобразится окно Расчет ком иссионного возна граждения, в котором нужно будет ввести сумму реализации, и т. д
В данном пртгмере макрос ComCalculator рассчитывает комиссионное вознаграждение без учета выслуги лет сотрудников компании. Для учета выслуги лет следует внести соответствующие изменения в код макроса.
Подсчет количества ячеек, содержвщих указвнные знвчения
В процессе работы иногда возникает необходимость быстро узнать, какое количество ячеек с указанным значением содержится в том или ином диапазоне. Это бывает нужно, например, чтобы узнать, сколько раз тортовая выручка превышала определенную сумму либо находилась в пределах некоторого интервала сумм. Решить ату задачу поможет функция, код которой приведен в листинге 2 58,
Листинг 2.58, Количества ячеек с определенным значением
Function dhCount(rgn Ха Range, LowBound As Double, UpperBound As Double} As Long
Dim cell As Range
Dim IngCount As Long
Проходам по всем ячейкам диапазона rgn и подсчитываем значения, _ попадающие в интервал от LowBound до UpperBound
For Each cell In rgn
If cell.Value >* LowBound And cell.Value <* UpperBound Then
• Значение попадает в заданный интервал
IngCount = IngCount * I
End If
Next
dhCount - IngCount
End Function
Данная функция содержит три аргумента. Если выбрать ее в окне Мастер функций, то откроется окно, показанное на рис. 2.15.
В данном окне в поле Rgn указывается диапазон, содержимое которого нужно проанализировать, а в полях LowBound и UpperBound — границы значений искомых ячеек диапазона. Например, на рис. 2.15 указано, что необходимо найти
общее количество ячеек диапазона B5:F12, значения которых находятся в пределах от 900 до 7000. Результат будет выведен в ячейке, в которой расположен курсор. Если вводить функцию с клавиатуры в строку формул либо в ячейку, то она будет выглядеть следующим образом; -Count <В5:Fla;900;7000).
Рис. 2.16, Аргументы функции dhCount
Подсчет количества видимых ячеек в диапазоне
Как известно, в Excel предусмотрена возможность скрытия строк и столбцов (для этого предназначены команды главного меню Формат ► Строка ► Скрыть и Формат ► Столбец ► Скрыть). Поэтому иногда в процессе работы может возникать вопрос: а есть ли в том или ином диапазоне скрытые ячейки? В данном подразделе мы рассмотрим прием, который позволяет быстро посчитать количество видимых ячеек в указанном диапазоне (сравнив его с общим количеством ячеек этого же диапазона легко определить, есть ли в нем скрытые ячейки).
Для подсчета видимых непустых ячеек диапазона удобно применять пользовательскую функцию dhCountvislbleCelIs. Для создания данной функции нужно в стандартном модуле редактора VBA написать код. который представлен в листинге 2.59.
Листинг 2.59. Подсчет количества видимых ячеек
Function dhCountViaibleCellB(rgRange Аз Range)
Dim IngCount Ав Long
Dim cell Аз Range
1 проходим no всему диапазону и подсчитываем непустые видимые ячейки
For Each cell In rgRange
1 Проверке, есть ли данные в ячейке
If Not TeEmpty(tiell) Then
Проверка, видима ли ячейка If Rot cell.EntireRow.Hidden And Not cel 1. EntlxeColumn. Hidden Then
Еще одна видимая ячейка
IngCount ■ IngCount + 1 End It
End If
Next cell
dhCountVislbleCells - IngCount
End Function
Данная функция имеет один аргумент — диапазон, в котором нужно посчитать видимые ячейки. Результат расчета будет помешен в ячейку, в которой установлен курсор. Функцию можно использовать с помощью формулы, которая записывается в строке формул Пример такой формулы (в ней может изменяться только анализируемый диапазон) следующий:
=dhCountVisibleCellв(Al;Е7)
В данном случае будет подсчитано и помещено в активную ячейку количество видимых ячеек, которые находятся в диапазоне А1:Е7.
Поиск ближайшего понедельника
С помощью несложного трюка можно быстро вычислить требуемый день недели по отношению к заданной дате (например, когда будет первый понедельник после 27.07.2005). В этом нам поможет функция dhGetNextMonday, код которой приведен в листинге 2.60.
Листинг 2.60. Ближайший день недели по отношению к дате
Function dhGetNextMonday(datDate As Date) As Date
' Определение даты следующего понедельника (функция Weekday _ возвращает номер дня недели, считая от понедельника, если _ в качестве второго аргумента задавать vbMonday)
If Weekday(datDate, vbMonday1 * 1 Then
* Заданная дата и есть понедельник
dhGetNextMonday = datDate
Else
‘ Расчет даты следующего понедельника
dhGetNextMonday * datDate + Ь - Weekday(datDate, vbMonday)
End if
End Function
Чтобы получить дату ближайшего понедельника, например после 27.07.2005, необходимо в окне мастера функций выбрать функцию dhGetNextMonday и в качестве значения аргумента ввести 27.07.2005. После нажатия Enter в активной ячейке отоб-
разится дата 01.08.2005, то есть ближайший понедельник после 27 июля 2005 года приходится на 1 августа 2005 года. Если воспользоваться строкой формул, то формула будет выглядеть так
-dhGetNextMonday (п27.07.2005 **)
Аналогичным образом можно вычислить даты остальных дней недели.
Если после применения формулы дата не отображается надлежащим образом (например, 38545 вместо 12.07.2005). то необходимо установить формат ячейки Дата.
Подсчет количества полных лет
Трюк, который мы сейчас рассмотрим, позволяет быстро посчитать количество целых лет между заданной датой и текущей. В частности, с помощью данного трюка можно определить возраст человека (с округлением до целых лет), зная дату его рождения. В этом нам поможет пользовательская функция dhCaiculateAge, код которой приведен в листинге 2 61.
Листинг 2.61. Функция dhCaiculateAge
Function dhCaiculateAge(datDate As Date) As Long
Dim IngAge As Long
Находим разность между текущей датой и указанной (лет)
IngAge - DateDiff Г'уууу". datDate, Date)
If DateSerial(Year(datDate) ♦ IngAge, Month(datDate), _ Day(datDate)) > Date Then
В этом году лень рождения erne не наступил
IngAge — IngAge - 1
End If
dhCaiculateAge - IngAge
End Function
Если, например, в качестве заданной даты взять 18.08.1972, а сегодняшний день — 30.07.2005, то результатом выполнения данной функции будет число 32. При использовании строки формул в данном случае формула будет выглядеть следующим образом:
-dhCaiculateAge(”18.QB.1972")
Проверка, была ли сохранено рабочая книга
В процессе работы с новой книгой может возникать вопрос: а была ли уже сохранена текущая книга? Для ответа на него существует ряд штатных методов (самый простой — воспользоваться командой Файл ► Сохранить). Однако можно применить и нестандартный прием; для этого нужно создать пользовательскую функцию, код которой приведен в листинге 2 62.
Листинг 2.62. Функция dhBcoklsSaved
Function dhBooklsSaved() As Boolean
* Если путь файла рабочей книги не задан, то она не сохранена (ThlsWorkbook.path равняется ”")
dhBcoklsSaved - ThisWorkbcck.path о ”“
End Function
Данная функция не имеет аргументов. Если после ее запуска в активной ячейке появится значение истина, то текущая рабочая книга была ранее сохранена, а если ложь — то книга не сохранялась.
Расчет средневзвешенного значения
Для быстрого расчета средневзвешенного значения можно применить пользовательскую функцию, код которой приведен в листинге 2.63.
Листинг 2.63. Расчет средневзвешенного значения
Function dhAverageWithWeight(rgWeights As Range, rgValues As Range) As Double
If (rgWeights.count <> rgValues.Count) Then
* Количество весов не соответствует количеству аргументов
dhAverageWithWeight " О
Exit Function
End If
Dim i As Integer
Dim dblSum As Double Сумма значений
Dim dblSumWeight As Double ’ Взвешенная сумма значений
• Вычисление...
For i - 1 То rgWeights.Count
Взвешенной суммы значений
dblSumWeight — dblSumWeight * rgWeights{1} * rgValues(i)
Суммы значений
dblSum - dblSum * rgWeights(1)
Next
Преобразование номера месяца в его название
С помощью небольшой пользовательской функции можно быстро получить название месяца на основании его номера. Данную возможность целесообразно использовать при работе с большими объемами информации, когда нужно быстро преобразовать числовые обозначения месяцев в обычные названия. Код i{ у»кции выглядит следующим образом (листинг 2.64).
Листинг 2.64. Название месяца
Function dhMonthNamefintMonth Rs Integer) Кв String
Возвращение имени месяца по его номеру fintMonth _ валяется номером элемента в массиве с названиями месяцев)
dhMonthName - ChoosefintMonth, "Январь", "Февраль", "Март", "Апрель", "Май", "Июнь", "Июль", "Август0, "Сентябрь", _ "Октябрь", "Ноябрь", "Декабрь")
End Function
После выбора данной функции необходимо указать номер месяца. В результате соответствующее ему название отобразится в активной ячейке.
Расчет суммы первых значений диапазона
Предположим, что в указанном диапазоне нам нужно сложить не все значения, а только несколько первых (иначе говоря, например, в диапазон входят 10 ячеек, а нам нужно посчитать сумму только первых пяти из них). Для решения этой задачи можно использовать функцию, код которой приведен в листинге 2.65.
Листинг 2.65. Функция dhusum
Function dhNSumtByVal intCount As Integer, rgValuee As Range) Rs Double
Dim i As Integer
Dim dblSum As Double
IE intCount > revalues.Count Then • Задано количество элементов большее, чем меть в переданном диапазоне intCount ■ tgValues.Count
End If
Расчет суммы первых intCount элементов For 1 - 1 То IntCount
dblSum — dblSum + rgValuesfi) Next 1
Вовврат результата dhNSum = dblSum End Function
После выбора данной функции следует указать количество первых значений диапазона, а также сам диапазон (причем можно указать несколько диапазонов — в результате будет рассчитана сумма указанного количества первых значений всех перечисленных диапазонов). Результат вычисления будет показан в активной ячейке.
Поиск последней непустой ячейки диапазона
При работе с большими объемами данных иногда бывает необходимо быстро найти последнюю непустую ячейку какого-либо диапазона (то есть последнюю ячейку, содержащую данные). В этом вам поможет пользовательская функция, для создания которой нужно написать следующий код (листинг 2 66).
Листинг 2.66. Функция dhLastUsedCell
Function dhLastUsedCell(rgRange As Range) As Long
Dim IngCell As Long
' Пойдем no диапазону с конца (тогда первая попавшаяся _ заполненная ячейка и будет искомой)
For IngCell * rgRange.Count To 1 Step -1
If Not lsEmpty(rgR«nge(IngCell)} Then
• Нашли непустую ячейку
dhLastUsedCell - IngCell
Exit Function
End If
Next IngCell
' Непустую ячейку не нашли
dhLastUsedCell - О
End Function
После выбора данной функции необходимо указать диапазон, который следует проверить. В результате порядковый номер последней ячейки этого диапазона, которая содержит данные, будет показан в активной ячейке. Следует подчеркнуть, что функция возвращает порядковый номер ячейки диапазона. Если функция не находит заполненную ячейку, то она возвращает о.
Поиск последней непустой ячейки столбца
Для быстрого поиска последней непустой ячейки столбца удобно применять пользовательскую функцию dhLastColusedCell. Для ее создания нужно в стандартном модуле редактора VBA написать следующий код (листинг 2.67).
Листинг2.67. Функция dhLastColusedCell
Function dhLastColusedCell(rgColumn As Range) Ab Variant
Вывод значения последней непустой ячейки стояОца
dbLastColUsedCell * rgColumn.Parent.Cells(Rowe.count, _ rgColumn-Column)-End(xlUp).Value
End Function
Данная функция имеет один аргумент. В качестве аргумента указывается столбец, 8 котором необходимо найти последнюю непустую ячейку. При этом можно просто указать любую ячейку данного столбца. Содержимое (то есть значение) найденной ячейки будет помещено в ячейку, в которой установлен курсор.
Можно использовать функцию с помощью строки формул. Формула при этом может выглядеть так:
=dhLaetColUaedCell(ВЗ)
В данном случае будет найдено и помещено в активную ячейку значение последней непустой ячейки столбца В.
Поиск последней непустой ячейки строки
Чтобы быстро найти последнюю непустую ячейку строки, можно применить пользовательскую функцию tihLastRowUsedCell. Она во многом напоминает рассмотренную выше функцию dhLastColUsedCell. Для создания функции нужно в стандартном модуле редактора VBA написать такой код (листинг2.68).
Листинг 2.68. Функция dhlastRowUsedCell
Function dhLaBtRowUsedCell(rgRow As Range) As Variant
Вывод значения последней непустой ячейки строки
dhLastRowUsedCell — rgRow.Parent.Cells(rgRow.Row, 256).
End(xlTol@f t).Address
End Function
Данная функция использует один аргумент. В качестве аргумента указывается строка, в которой необходимо найти последнюю непустую ячейку. При этом можно просто указать любую ячейку данной строки. Содержимое (то есть значение) найденной ячейки будет помещено в ячейку, в которой установлен курсор. Порядок использования данной функции такой же. как и рассмотренной выше функции dhLastCalUBedCell.
Подсчет количества ячеек в диапазоне, содержащих указанные значения
Трюк, который мы рассмотрим в данном подразделе, позволяет быстро посчитать количество ячеек в указанном диапазона, которые расположены в области между заданными значениями. Для решения данной задачи целесообразно использовать функцию dhCountSomeCells. код которой выглядит следующим образом (листинг 2.69).
Листинг 2.69. Функция dhCountSomeCells
Function dhCountSomeCells(rgRange As Range, dblMin As Double, dblMetx As Double) As Long
* Расчет количества ячеек со значениями от dblMin до dblMax _ с использованием стандартной функции Countlf
With Application.WorkaheetFurction
dhCountSomeCells - .Countlf(rgRange, •*>-•' ь dblMin) - .Countlf (rgRange, ">*’ 6 dblMax)
End With
End Function
Данная функция имеет три аргумента: в качестве первого указывается обрабатываемый диапазон, а в качестве второго и третьего — соответственно минимальное и максимальное значения этого диапазона, которые задают область поиска. Количество ячеек, значения которых попадают в указанный интервал будет отображено в активной ячейке.
Для использования функции можно применять формулу, пример которой выглядит следующим образом:
-dhCountSomeCells (Al :G15,-10,-15)
В данном случае будет определено количество ячеек, находящихся в диапазоне A1:G15 и значения которых располагаются в интервале от 10 до 15 (включительно).
Англоязычный текст — заглавными буквами
С помощью несложного трюка можно быстро преобразовать весь англоязычный текст выделенной ячейки в верхний регистр (нависать его заглавными буквами). Решить эту задачу поможет пользовательская функция, код которой приведен в листинге 2.70.
Листинг 2.70. Английский текст — в верхнем регистре
Function dhFormatEngllsh(вtrText As String) As String
Dim i Ab integer
Dim strCurChar As String • 1
' Анализируется каждый символ строки strText. Каждая» символ _ латинского алфавита преобразуется в верхний регистр
For 1 - 1 То Len(atrText)
strCurChar - Mid(strText, i, 1)
’ Код латинских строчных символов лежит в пределах _ от 97 до 122
If As с (strCurChar) >■ 97 And Аве (strCurChar) <- 122 Then
' Переводим символ в верхний регистр
dhFormatEngllsh ■ dhFormatEngllsh & UCase(strCurChar)
Else
Просто добавляем символ в выходную строку dhFormatEngllsh - dhFormatEngllsh 8 strCurChar End If
Next i
End Function
После выбора функции следует указать ячейку, текст которой должен быть написан заглавными буквами. Результат отобразится в активной ячейке. Если преобразуемый текст является «смешанным», то есть содержит и русские, и английские слова, то преобразованы будут только английские слова, а русские останутся без изменений.
Отображение текста «задом наперед»
Трюк, который мы рассмотрим в данном подразделе, вряд ли будет иметь широкое практическое применение, поскольку он носит скорее развлекательный характер. Однако от этого он не становится менее интересным.
Смысл его заключается в том, чтобы быстро «перевернуть» текст выделенной ячейки (например, вместо Мама мыла раму получится умар алым амам). Чтобы получить подобный результат, можно применить пользовательскую функцию или специально созданный макрос. Соответствующий код приведен в листинге 2.71 (этот код следует поместить в стандартный модуль редактора VBA).
Листинг 2.71. Преобразование текста в обратном порядке
Function dhRevereeText(strText Ав String) As String
Dim i As Integer
Переписываем символы из входной строки в выходнув _ в обратном порядке
For 1 - Len(strText) То 1 Step -1
dhRevereeText - dhRevereeText * Mid (strText, 1, 1)
Next 1
End Function
Sub ReverseText()
Dim strText As string
• Ввод строки посредством стандартного окна ввода
strText - InputBox("Введите текст:")
' Реверсия строки и вывод результата
МздВох dhRevereeText(strText), , strText
End Sub
После написания кода будет создана пользовательская функция dhRevereeText (она будет помещена в категорию Определена ые пользователем) и макрос ReverseText (он будет доступен в окне выбора макросов).
После выбора функции следует указать ячейку, текст которой необходимо преобразовать — результат отобразится в активной ячейке При выполнении данной операции не стоит забывать, что если ячейка содержит не текст либо пуста, то результатом работы функции будет сообщение об ошибке.
Можно запустить данную функцию, введя ее предварительно в строку формул. В общем случае формула выглядит следующим образом:
-dhReverseText( А4)
Здесь А4 — это адрес ячейки, текст которой требуется преобразовать. После нажатия Enter результат отобразится в активной ячейке.
После запуска макроса ReverseText (егоследует выбрать в окне Макрос, открываемом с помощью команды Сервис ► Макрос ► Макросы) откроется диалоговое^кно, в котором с клавиатуры нужно ввести требуемый текст и нажать кнопку ОК пли клавишу Enter. Результат преобразования текста отобразится в открывшемся информационном окне. Для удобства можно поместить на панель инструментов либо в другое место интерфейса кнопку, к которой привязать макрос ReverseText.
Поиск максимального значения на всех листах книги
В данном подразделе мы рассмотрим, каким образом можно быстро найти максимальное значение указанной ячейки среди всех листов текущей рабочей книги.
Следует отметить, что для решения данной задачи можно воспользоваться штатными средствами программы, а именно функцией макс. Например, с помощью формулы -МАКС (Лист2:Лист7 !АЗ) осуществляется поиск максимального значения ячейки АЗ среди рабочих листов с Гист2 по Лист? включительно. Однако данный способ имеет следующий недостаток при добавлении в книгу новых листов (после Лист?) формулу придется соответствующим образом корректировать.
Поэтому для решения подобных задач целесообразно создать и применять пользовательскую функцию, код которой приведен в листинге 2.72.
Листинг 2.72. Поиск максимального значения
Function dhMaxInBCok(cell As Range) As Double
Dim sheet Аз Worksheet
Dim dblMax As Double
Dim dblResult As Double
Dim fFirst As Boolean
fFirst * True
' Расчет максимальных значений иа всех листах рабочей книги _ и выбор наибольшего из них
For Each sheet In cell-Parent.Parent-Worksheets
• Расчет максимального значения на листе
dblResult * Application.WorkaheetFunctlon.Max(sheet.UsedRange)
If fFirst Then
Найдено первое значение - его не с чем сравнивать dblMax — dblResult fFirst = False
End If
Вьйираем большее из dblMax и dbmResult
If dblResult > dblMax Then
dblMax - dblResult
End If
Next sheet
' Возврат результата
dhMaxInBook — dblMax
End Function
Данная функция имеет один аргумент — адрес ячейки, максимальное значение которой следует выбрать из всех рабочих листов текущей книги. При добавлении (удалении) рабочих листов никаких корректировок кода либо формулы выполнять не требуется — в любом случае обрабатываются все доступные рабочие листы текущей книги
Использование относительных ссылок
Как известно, в Excel ограничена поддержка «трехмерных рабочих книг». Например, если при написании формулы необходимо сослаться на другой рабочий лист в книге, то в формулу необходимо включить имя соответствующего рабочего листа. Однако при попытке копирования этой формулы с одного листа на другой ссылка на лист не изменяется, как это происходит в реальной трехмерной рабочей книге. Для решения этой проблемы можно применить пользовательскую функцию dhSheetOf fset, код которой выглядит следующим образом (листинг 2.73).
Листинг 2.73. Функция dhsheetotfset
Function dhSheetOffset(offset As Integer, cell As Range) As Variant
Возврат корректного значения ячейки cell листа, смешение которого относительно текущего задано переменной offset
dhSheetOffset — Sheets(Application,Caller.Parent.Index _
♦ offset).Range(cell.Address)
End Function
Данная функция имеет два аргумента. Первый аргумент — это ссылка на лист; он может быть положительным, нулевым или отрицательным (например, для ссылки на предыдущий лист нужно указать -1). Второй аргумент — это ссылка на конкретную ячейку. Для использования функции можно применять формулу:
=dhSheetOffset (-1;А9)
В данном случае в активной ячейке будет получено значение ячейки А9, расположенной на предыдущем рабочем листе (то есть если текущий лист — Лист2, то будет получено значение ячейки А9 листа Лист1).
При использовании данной функции необходимо учитывать следующее: если рабочий лист содержит листы диаграмм, то при ссылке на ячейку на листе диаграммы будет получена ошибка.
При необходимости можно усовершенствовать данную функцию. Ниже приведен код функции dhsheetof f set2, игнорирующей все листы рабочей книга, которые не являются рабочими (листинг 2.74).
Листинг 2.74. Функция dhsheetoffeet2
Function dhSheetOffact2{offset As Integer, cell Ab Range) As Variant
• Корректировка смешения (чтобы ссылка была на рабочий лист)
Do While TypeName(Sheets(cell.Parent-Index * offset))
<> “worksheet"
If offset > 0 Then
• Пропускаем лист и проходим вперед по книге
offset ■ offset + 1
Else
' Пропускаем лист и проходим назад во книге
offset - offset - 1
End If
Loop
* Возврат корректного значения ячейки ceil листа, смещение которого относительно текущего задано переменной offset _ с пропуском листов с диаграммами
dhSheetOffset2 *■ Sheets(cell.Parent.Index _
* offset)-Range(cell.Address)
End Function
У данной функции аргументы и порядок использования такие же, как и у рассмотренной выше функции dhsheetoffeet.
Определение типа данных ячейки
С помощью небольшой пользовательской функции dhcellType можно быстро получить тип данных какой-либо ячейки либо левой верхней ячейки указанного диапазона. Код функции, который набирается в стандартном модуле редактора VBA, представлен в листинге 2.75.
Листинг 2.75. Тип данных, хранящихся в ячейке
Function dhCellType(rgRange Ав Range) As String
Переходим к левой верхней ячейке, если rgRange - диапазон, _ а не одна ячейка
Set rgRange - rgRange.Range("Al”)
• Определение типа значения в ячейке
Select Case True
Сазе IsEmpty(rgRange)
ячейка пуста dhCellType - "Пусто* Case Application.IsText(rgRange)
В ячейке текст dhCellType - "Текст" Case Application.IsLogical(rgRange)
в ячейке логическое значение {True или False) dhCellType ■ "Булеве выражение"
case Application.IsErr(rgRange)
При вычислении значения в ячейке произошла ошибка dhCellType — "Ошибка"
Севе isDate(rgRange)
• В ячейке дата dhCellType ■ "Дата" Case InStr(1, rgRange.Text, ":") о О
* В ячейке время dhCellType = "Время" Сазе IsNumeric(rgRange)
В ячейке числовое значение dhCellType - "Число" End Select End Function
Данная функция имеетодин аргумент—вето качестве указывается адрес конкретной ячейки либо диапазон (в последнем случае будет определен тип данных левой верхней ячейки этого диапазона). Результат работы функции отображается в активной ячейке. Например, если диапазон или указанная ячейка не содержит данных, то в активной ячейке отобразится значение Пусто; если содержится текстовое выражение, то в активной ячейке отобразится значение Текст, и т. д. в соответствии с кодом функции.
Выделение из текста произвольного элемента
Рассмотрим трюк, с помощью которого можно быстро выделить из текстового содержимого ячейки определенный элемент (текстовый фрагмент, число и т. о.) и поместить его в активную ячейку.
Для реализации данной задачи нам потребуется создать пользовательскую функцию. код которой показан в листинге 2.76 (этот код записывается в стандартном модуле редактора VBA).
Листинг 2.76. Выделение элемента текста
Function dhGetTextItem(ByVal strTextln As String, intitern As _ Integer, strSeparator As String) As String
Dim intStart As Integer 1 Позиция начала текущего элемента
Dim intEnd Аз integer * Позиция конца текущего элемента
Dim i As Integer' Номер текущего элемента
* Проверка корректности номера элемента
If intltem < 1 Then Exit Function
' Убираются лишние пробелы, если разделитель - пробел
If strSeparator" " ” Then strTextln -Application.Trim(strTextln)
* Разделитель добавляется в конец, строки
If Right(strTextln, Len(strTextln)) о strSeparator Then _ strTextln = strTextln 6 strSeparator
' Поиск всех элементов в строке до нужного
For i = 1 То intltem
■ Начало элемента (перемещение вперен «о строке)
intStart — intEnd + 1
' Конец элемента
intEnd ■ InStr(intStart. strTextln, strSeparator)
If (intEnd = 0} Then
' Дошли до конца строки, но элемент не нашли
Exit Function
End If
Next i
• Выделение текста из входной строки
dhGetTextltem =• Mid.(strTextln, intStart, intEnd - intStart)
End Function
Данная функция имеет три аргумента: strTextln, intltem и strSeparator. Аргумент strTextln — это адрес ячейки, из содержимого которой нужно извлечь элемент; intltem — порядковый, номер извлекаемого элемента; a strSeparator — символ разделителя между элементами Соответствующие значения можно ввести как в окне настройки параметров функции, которое открывается после ее выбора в окне Мастер функций, так и использовать для этой цели строку формул. Синтаксис функции выглядит следующим образом (пример):
=dhGetTextItem(A9?3;"—")
В данном случае dhGer Тех 11 tem — название функции, А9 — адрес ячейки с текстом, з — порядковый номер извлегаемого элемента, дефис (-) — символ разделителя.
Предположим, что из текста Ночь, улица, фонарь, аптека, который расположен в ячейке В2, нам нужно извлечь слово фонарь. Если воспользоваться строкой формул, то нужно ввести в нее следующую формулу:
=dhGetTextItem(B2; 3;", ")
В результате слово фонарь отобразится в ячейке, в которой установлен курсор.
Генератор случайных чисел
В данном подразделе мы научимся быстро заполнять диапазон случайными целыми числами. Данная возможность может быть использована в самых различных сферах деятельности —■ н частности, ее иногда применяют при разработке развлекательных и игровых программ.
Для выполнения данной операции нам потребуется создать пользовательскую функцию. Ее код представлен в листинге 2.77.
Листинг 2.77. Функция dhGetRandomValues
Function dhGetBandomValuee{) Ав Variant
Dim IntRow Aa Integer* Номер текущей строки
Dim intCol As Integer' Номер текущего столбца
Dim aintOutO As Integer выходной массив {двумерный)
Dim aintValuesO Aa Integer " Массив с возможными значениями
Dim intMax As Integer• Последний доступный элемент массива _
aintvalues
Dim i As Integer
ReDlm aintOuttl To Application.Caller.Rows.Count, 1 To _
Applleation.Caller.Columns.Count)
Всего нужно чисел
intMax - Application.Caller.Rows.Count *
Application.Caller.Columns.Count
ReDlm aintvalues(1 To intMax)
• Заполнение массива aintvalues значениями от 1 до intMax
For 1 — 1 To intMax
aintvalues (1) •* 1
Next 1
Занесение значений в выходной массив aintOut, в произвольном _ порядке выбирая их из aintvalues
Randomize
For IntRow - 1 To Application.Caller.Rows.Count
For IntCol * 1 To Application.Caller.Columns.Count
• Определение номера элемента ив aintvalues
i * Rnd * intMax
If 1 - 0 Then i - 1
* Занесение этого элемента в выходной массив
aintOutfintRow, IntCol) - aintvalues(1)
aintValuea(1) - aintVa)juee(intMax) 1ntMax - intMax - 1 Next IntCol
Next intRow
Возвращение массиве значений dhGetRandomValues - alntOut
End Function
Характерной особенностью данной функции является то, что она не имеет аргументов. Пример результата выполнения функции представлен на рис. 2.16.
Рис. 2.16. Случайные числа в диапазоне
Синтаксис созданной функции выглядит так:
-dhGetRandomValues()
Данную формулу нужно применить сразу ко всему предварительно выделенному диапазону. Для этого после ввода ее в строку формул следует нажать комбинацию клавиш Ctrl+Shift+Enter. На рис. 2.16 в произвольном порядке разбросано 40 разных чисел, так как в диапазоне 40 ячеек (10 по высоте и 4 по ширине).
Случайные числа — на основании диапазона
Трюк, который мы рассмотрим в данном подразделе, по своей функциональности несколько напоминает предыдущий. Различив заключается в том, что здесь в случайном порядке генерируются числа, содержащиеся в определенном диапазоне (этот диапазон является единственным аргументом рассматриваемой функции). Код функции (он сопровожден небольшими комментариями) выглядит следующим образом (листинг 2.78).
Листинг 2.78. Функция dhGetRandomValuesl
Function dhGetRandomValveal(rgSource As Range) As Variant Dim intRow Aa Integer• Номер текущей строки
Dim intCol Аз Integer• Номер текущего столбца
Dim avarOut() As Variant • Выходной массив (двумерный)
Dim avarValues() Аз Variant 1 Массив с возможными значениями
Dim IntValCount As Integer * Количество возможных значений Dim cell Аз Range Dim i As Integer
ReDini avarOutfl To Application.Caller.Rews.Count, 1 To _ Application.Caller.Columns.Count)
Всего нужно чисел...
IntValCount - rgSource.Rows-Count * rgSource.Columns.Count
ReDini avarValues(1 To intValCount)
Заполнение массива avarValues значениями из указанного _ диапазона
For Each cell In rgSource i - i t I avarValues(!) - cell.Value Next cell
' Занесение значений в выходной массив evarOut, в произвольном _ порядке выбирая их иэ avarValues
Randomize
For intRow - 1 To Application.Caller.Rows.Count
For intCol " 1 To Application.Caller.Columns-Count • Определение номера элемента иэ avarValues 1 - Rod ♦ IntValCount If 1 - 0 Then 1-1
• Занесение этого элемента в выходной массив avarOut(intRcw, intCol) - avarValues(i) Next intCol
Next intRow
Возвращение массива значений dhGetRandomValuesl - avarOut End Function
Для применения данной функции необходимо иметь диапазон с исходными данными, Синтаксис функции выглядит следующим образом (пример):
-dhGetRandomValuesl(Al:С5)
Здесь Al: С5 — диапазон с исходными данными. Как и в предыдущем примере, данная функция применяется ко всему предварительно выделенному диапазону — с помощью сочетания клавиш Ctrt+Shift+Enter. После применения функции данные исходно го диапазона будут в произвольном порядке разбросаны в новом диапазоне.
Создание трюков с помощью макросов
169169Подсчет количества открытий файла
169
169
Как отмечалось выше, макрос — это программа, которая написана на встроенном в Excel языке программирования Visual Basic for Application (VBA). Язык VBA используется д ля встраивания программ в документы Microsoft Office
С помощью макросов можно выполнять как хорошо знакомые пользователям Excel действия (выделение ячейки, вставку функции или формулы в ячейку и т. д.), так и программировать более сложные операции (вплоть до построения информационных систем разной сложности).
Для работы с макросами предназначены команды, расположенные в подменю Сервис ► Макрос.
Подсчет количества открытий файла
С помощью несложного приема можно вести автоматический учет количества открытий текущего файла. Для этого достаточно написать любой из трех приведенных ниже макросов (листинги 3.1-3.3) и поместить его в VBA-модуль.
Листинг 3-1. Количество открытий файла (вариант 1)
Sub Auto_Open()
Worksheetstl)-Cells(1) - Worksheets(1)-Cells(I) * 1
End Sub
Листинг 3.2. Количество открытий файла (вариант 2)
Sub Auto_Open()
Worksheets(1)-Celled, D - Worksheete(l) .сеНвл.. I} «г j,
End Sub
Листинг 3.3. Количество открытий файла (вариант 3)
Sub Auto_Open()
Worksheets{1)-Range("Al"} = Worksheets(1).Range("Al*') * 1
End Sub
Все эти макросы имеют имя, определенное разработчиками Microsoft Office, — Auto_open. Если макрос с таким именем реализовав, то он автоматически вызывается средой Microsoft Office при каждом открытии книги.
При использовании любого на перечисленных выше вариантов количество открытий текущего файла отобразится в ячейке А1. Если результат впоследствии корректировался вручную, то в дальнейшем это значение при каждом открытии будет увеличиваться на 1 (например, при обнулении результата подсчет начнется заново, а если в ячейку А1 введено значение 52, то при следующем открытии файла оно будет равным 53). Если же в ячейку А1 введено не числовое значение, то при следующем открытии файла на экране отобразится сообщение об ошибке.
170170Глава 3. Создание трюков с помощью макросов
170
170
Получение «закрытой» информации
Возможности программы предусматривают извлечение данных из закрытого файла. Для этого нужно записать и выполнить следующий макрос (листинг 3.4).
Листинг 3.4. Извлечение данных из закрытого файла
Sub GetDataErortFUeO
Range("Al").Formula - "*'C:\[Example.х!з]Лист1'!A1"
End Sub
В данном случае подразумевается, что необходимый «ам файл находится по адресу с: \example.xle, а из хранящейся в нем книги нам нужно содержимое ячейки А1.
Формулу, которую мы задавали с помощью макроса, можно вводить в таблицу вручную, если возникнет необходимость заносить в ячейки таблицы данные из другого файла. При этом следует учитывать, что полный путь нужно задавать только в том случае, если необходимый файл расположен в другой папке. Имя файла в квадратных скобках указывать обязательно. Также следует указывать имя листа, на котором находится нужная нам ячейка. Необходимо строго соблюдать синтаксис, который используется в листинге 3.4.
Для подкрепления сказанного рассмотрим пример формулы для получения значения ячейки А1 листа Лист2 книги, расположенной в файле F.xls (в той же палке, что и текущая книга):
=*[Е.х1з]Лист2*!А1
Произвольный текст в строке состояния
С помощью небольшого макроса можно включить отображение в строке состояния произвольного текста. Код макроса выглядит следующ им образом (листинг 3.5),
Листинг3.5. Произвольный текст в строке состояния
Sub ChangeStatusBaxText ()
Application.StatuaBar - "Как надоело работать!!!"
End Sub
Результат применения данного макроса представлен на рис. 3.1
~ 4
Н < » И1\Лист1, ГНст2 х t*
Действия - [^ । Аетофцугы
Как надоело работать! I •
enycxf । о * Щк
Рис. 3.1. Изменение текста в строке состояния
171171Быстрое изменение заголовка окна
171
171
Для возврата к первоначальному состоянию можно использовать следующий макрос (листинг 3.6)
Листинг 3.6. Восстановление строки состояния
Sub ReturnStatusBarText() Application.StatusBar — False End Sub
После запуска данного макроса строка состояния примет прежний вид.
Текст, изображенный в строке состояния на рис 3.1. можно заставить двигаться, то есть создать эффект бегущей строки. В этом нам поможет макрос, код которого приведен в листинге 3.7.
Листинг 3.7. Бегущая строка в строке состояния
Sub HovingTextlnStatusBar()
Dim intSpaces As Integer
Изменение количестве пробелов в начале строки (от 20 до 0] - _ строка бежит (скорее, ползет} влево
For intSpaces « 20 То С Step -1
Запись текста в строку состояния
Application.StatusBar - Space tintSpaces, ь "Как надоело работать 1! !n
Выдерживаем паузу Application.Wait Wow т TimeValue(*00:00:Cl*) * Дадим Excel обработать пользовательский ввод DoBvanta Next
Application.StatusBar ■ False
End Sub,
После запуска макроса текст в строке состояния (он может быть произвольным) начнет двигаться справа налево.
Быстрое изменение заголовка окна
Аналогичным образом при необходимости можно изменить текст в заголовке окна программы. Для этого можно использовать, например, следующий макрос (листинг 3.8).
Листинг 3.8. Изменение заголовка окна
Sub NewTitle () Application.Caption - "Какая хорошая погода"
Результат выполнения макроса показам на рис. 3.2.
1дКака хорош» аогода - Прит р
файл Правке ЕГО Вставка Wopsi
о с5 й у 2 а у х ^ е
AriaiCyr• 10Л Ч
Рис. 3.2. Изменение заголовка окна
Однако на рис. 3.2 видно, что после нового заголовка через дефис показано название текущего файла. Чтобы убрать это название, необходимо внести в макрос некоторые изменения (листинг 3.9).
Листинг 3.9. Изменение заголовка окна (со скрытием названия файла)
Sub NewTitlef)
Application.Caption = "Какая хорошая погода"
ActiveWindow.Caption - “*
End Sub
После запуска данного макроса заголовок примет следующий вид (рис. 3.3).
0 Какая КОРО1КЯЯ пагод»
@) ^1л Правка Ена Встсвка Оорват m с»аи ва^»х ^е» -"ArialCyr.10. X К 5
Рис. 3.3. Заголовок без названия файла
Можно сделать так, что после заголовка будет отображаться произвольный текст Соответствующий макрос выглядит примерно так (листинг 3.10).
ЛнстингЗ.Ю. Еще один вариант изменения заголовка
Sub NewTitleO
Application.Caption ■ "Какая хорошая погода" ActiveWindow.Caption - "А завтра будет долщь" End Sub
Результат выполнения этого макроса показан на рис. 3.4.
В Какая норошая погода - А завтра будетдождь
@ файл Правка рнд вставка Форца! Сум -
•0 с? И 9 iSQi У Х1^®”^ ^AriaiCyr.10 . X К '* ^ • W
Рис. 3.4. Измененный заголовок с дополнительным текстом
Ввод данных с помощью диалогового окна
Чтобы заголовок окна программы принял свой первоначальный вид, необходимо запустить следующий макрос (листинг 3.11).
Листинг 3.11. Возврат к первоначальному заголовку
Sub ReturnTltlei)
Возвращение заголовка приношения (то есть Excel)
Application.Caption - Empty
Указание правильного названия открытого файла (книги)" ActiveWindow.Caption ■ ThlsKorkbook.Mame End Sub
Этот макрос отменяет и изменения в заголовке, и ввод дополнительного текста после заголовка.
Ввод данных с помощью диалогового окна
В процессе работы могут возникать ситуации, когда для ввода данных целесообразно использовать вызываемое отдельно диалоговое окно. Решить эту задачу поможет следующий макрос (листинг 3.12).
Листинг 3.12. Диалоговое окно ввода данных
Sub inputDialogt)
Dim strlopet Ae String
Вызов стандартного диалогового окна ввода данных
strinput = XnputBox("Введите данные", "Ввод данных")
End Sub
При запуске этого макроса на экране отобразится диалоговое окно, изображенное на рис. 3.5.
Рис. З.Б. Диалоговое окно ввода данных
При необходимости можно задать текст, который будет отображаться в поле ввода диалогового окна по умолчанию (с помощью apiyMeirra Default), а также определить параметры расположения окна на экране (ар|ументы хрсз и YPcs). Пример соответствующего макроса приведен в листинге 3.13.
Глава 3. Создание трюков с помощью макросов
Листинг 3.13. Значения но умолчанию
Sub NewlnputDialogO
Dim strinput As String
Вызов стандартного диалогового окна ввода со значением по умолчанию
strinput - inputBox("Введите данные*# "Ввод данных", _ "Значение по умолчанию", 200, 200)
End Sub
Окно, выводимое на экран при выполнении данногомакроса, представленона рис. 3.6.
Рис. З.в. Текст по умолчанию в окне ввода данных
Работа в данном окне ведется по обычным правилам Windows.
Применение функции без ввода ее в ячейку
При необходимости можно воспользоваться стандартной функцией Excel таким образом., что вводить ее в ячейку не обязательно. Для этого достаточно запустить следующий макрос (листинг 3.14).
Листинг 3.14. Применение функции без ввода в ячейку
Sub Func()
[Al] - Application.Sum([B5:B1O]J
End Sub
Результатом работы данного макроса будет сумма диапазона ячеек В5:В10, отображаемая в ячейке А1.
Скрытие строк и столбцов от посторонних
Существует несколько небольших макросов, с помощью которых можно скрывать строки и столбцы С некоторыми из таких макросов мы познакомимся в данном разделе.
Чтобы скрыть строку сод определенным номером, можно применить следующий макрос (листинг 3.15).
175175Скрытие строк и столбцов от посторонних
175
175
Листинг 3.15. Скрытие строки
Sub Hidestring()
Rows(2}-Hidden ■ True
End Sub
В результате применения этого макроса будет скрыта строка 2.
Можно использовать также такой макрос (листинг 3.16).
Листинг 3.16. Скрытие нескольких строк
Sub HldeStrlngeO
Rows("3:5").Hidden = True
End Sub
После его выполнения будут скрыты строки 3,4 и 5.
Чтобы вновь отобразить скрытую строку (или строки), необходимо в соответствующих макросах изменить значение True на False, после чего запустить их на выполнение.
Похожие макросы используются для управления отображением столбцов. Например, в результате выполнения макроса, код которого приведен в листинге 3.17. будет скрыт столбец В.
Листинг 3.17. Скрытие столбца
Sub HideCollumnD
Columns(2).Hidden - True
End. Sub
Если в данном макросе заменить 2, например, на с, то будет скрыт столбец С (то есть в коле макроса можно указывать как порядковый номер столбца, так и соответствующую ему букву).
Для скрытия нескольких столбцов можно применить, например, такой макрос (листинг 3.18).
Листинг 3.18. Скрытие нескольких столбцов
Sub HideCollumns ()
Columns("E:F").Hidden ■ True
End Sub
В результате выполнения данного макроса будут скрыты столбцы Е и F.
Чтобы включить отображение скрытых столбцов, необходимо в соответствующих макросах заменить значение True на raise и запустить их на выполнение.
Можно также скрывать строки и столбцы, ориентируясь на адрес или имя ячейки Например, можно использовать такой макрос (листинг 3.19).
Листинг 3.19. Скрытие строки по имени ячейки
Sub HideCell(>
Range("Секрет").EntireRow.Bidden ■ True
End Sub
После его применения будет скрыта строка, в которой находится ячейка с именем Секрет. Этот трюк удобно использовать, например, когда нужно срочно скрыть какие- либо д анные, но адрес ячейки вспомнить не удается, а известно только ее имя. Однако при необходимости вместо имени можно указывать конкретный адрес ячейки (например, если в приведенном макросе заменить секрет нам, то будет скрыта строка 2).
Можно также указывать диапазон ячеек, строки с которыми нужно скрыть. Пример такого макроса приведен в листинге 3.20.
Листинг 3.20. Скрытие нескольких строк по адресам ячеек
Sub Hidecell О
Range("B3:D4") -EntireRow-Hidden ■ True
End Sub
После применения данного макроса будут скрыты строки 3 и 4.
Чтобы вновь отобразить скрытую строку (или строки), необходимо в соответствующих макросах изменить значение True на False, после чего запустить их на выполнение.
Управлять отображением столбцов также можно, исходя из адреса или имени ячейки. Вот пример такого макроса (листинг 3.21).
Листинг 3.21. Скрытие столбца по имени ячейки
Sub HideCellO
Range("Секрет").Entirecolumn.Hidden - True
End Sub
В данном случае будет удален столбец, содержащий ячейку Секрет. Здесь также можно указывать как имя, так и адрес ячейки (например, если в приведенном макросе заменить секрет на СЗ, то будет скрыт столбец С).
Можно использовать такой макрос (листинг 3.22).
Листинг 3.22. Скрытие нескольких столбцов по адресам ячеек
Sub HideCell()
Range("C2:D5”).Entirecolumn.Hidden - True
End Sub
После применения данного макроса будут скрыты столбцы С и D.
Чтобы вновь включить отображение скрытых столбцов, нужно в соответствующих макросах заменить значение True на False.
Быстрое выделение ячеек, расположенных через интервал
С помощью трюка, который рассматривается в данном разделе, можно быстро выделить любое количество ячеек, расположенных через определенный интервал. Пример макроса, который позволяет решить эту задачу, приведен в листинге 323.
Листинг 3.23. Выделение ячеек через интервал (вариант 1)
Sub IntervalCellSelect()
• Первая строка для выделения' Последняя строка для выделения* Объединение выделяемых ячеек• Первая строка для выделения' Последняя строка для выделения* Объединение выделяемых ячеекDim IntFirstRow As Integer
• Первая строка для выделения
' Последняя строка для выделения
* Объединение выделяемых ячеек
• Первая строка для выделения
' Последняя строка для выделения
* Объединение выделяемых ячеек
Dim intLastRow As Integer
Dim rgCells As Range
Dim intRow As Integer
IntFirstRow — 3 intLastRow = 300
Формирование объединения ячеек в столбце "в” от строки _ IntFirstRow до строки IntLastRow с шагом 3
For intRow - IntFirstRow То intLaetRow Step 3 If rgCelle Iв Nothing Then 1 Первая ячейка в объединении Set rgCells — Cells(IntRow# 1) Else • Добавление очередной ячейки в объединение Set rgCells = Union(rgCells, Cells(intRow, 1)} End If Next * Выделение всех ячеек в объединении rgCells.Select*f*
End Sub__
। ■ у ***' / П< <641
В результате выполнения данного макроса будет выделена каждая третья ячейка, начиная с 3 и заканчивая 300, в столбце А.
Точно такой же результат (быстрое выделение ячеек с 3 по 300 в столбце А) можно получить, применив такой макрос (листинг 3.24).
Листинг 3.24. Выделение ячеек через интервал (вариант 2)
Sub IntervalCellSelectО Dim IntFirstRow As Integer ' Первая строка для выделения Dim IntLastRow As Integer * Последняя строка для выделения Dim rgCells As Range• Объединение выделяемых ячеек
Dim cell As Range1 Текущая ячейка
Dim intRow Аз Integer
IntFirstRow — 3
intLastRow - 300
' Формирование объединения ячеек и столбце "в" от строки _ IntFirstRow до строки IntLastRow с шагом 3
For IntRow = IntFirstRow То intLastRow Step 3
Set cell - Cells(intRow, 1)
Set rgCelle — Onion(cell, ,
Ilf(intRow - IntFirstRow, cell, rgCelis))
Next
Выделение всех ячеек в объединении
rgCe1Is.Select
End Sub
Например, если есть таблица, в которой отражается выручка за каждый рабочий день недели (с понедельника по пятницу), а в каждой шестой ячейке — итоговая выручка за неделю, то с помощью этого трюка можно быстро выделить и вывести на печать итоговые данные о выручке за каждую неделю.
Для выделения различных диапазонов и ячеек можно применить следующий макрос (листинг 3.25).
Листинг 3.25. Выделение нескольких диапазонов
sub SelectRangef)
Range("D3:DIO, A3:A1D , F3”).Select
End Sub
В результате выполнения данного макроса будут выделены диапазоны D3:D10, АЗ:А10 и ячейка F3.
Определение количества ячеек в диапазоне и суммы их значений
Применив несложный трюк, можно быстро сложить данные из указанного диапазона ячеек. В листинге 3.26 приведен пример макроса, выполнение которого позволяет решить данную задачу.
Листинг 3.26. Сумма данных диапазона
Sub CalculateSum()
Dim i As Integer
Dim intSum As Integer
Расчет суммы ячеек столбца "А" (с первой по пятую)
For i " 1 То 5
179179Определение количества ячеек в диапазоне и суммы их значений
179
179
intSum • intSum + Cells (1, 1)
Next
MsgBox "Сумма ячеек: ” 6 intSum
End Sub
В данном случае будет рассчитана сумма диапазона ячеек с 1 по 5, расположенных в столбце А.
Результат работы данного макроса представлен на рис. 3.7.
Рис. 3-7. Рассчитанная сумма диапазона ячеекРис. 3-7. Рассчитанная сумма диапазона ячеек
Рис. 3-7. Рассчитанная сумма диапазона ячеек
Рис. 3-7. Рассчитанная сумма диапазона ячеек
При выполнении данной операции следует учитывать, что если в какой-либо ячейке указанного диапазона будут не числовые данные, то на экране отобразится сообщение об ошибке. В данном случае целесообразно применить следующий макрос (листинг 3.27).
Листинг 3.27. Сумма ячеек с числовыми значениями
Sub CalculateSumO
Dim i Ae Integer
Dim intSum As Integer
Расчет суммы ячеек столбца '‘А" (с первой по пятую)
For 1 - 1 То 5
If IsNumerlc(Cells(1, 1)1 Then
intSum • intSum * Celle(i, 1)
End If
Next
MsgBox "Сумма ячеек: " t intSum
End Sub
После запуска данного макроса будет рассчитана сумма диапазона ячеек с 1 по 5, расположенных в столбце А. при этом ячейки с нечисловыми значениями будут проигнорированы.
При необходимости можно подсчитать количество ячеек, которые находятся в разных выделенных диапазонах. В листинге 3.28 показан пример макроса, который позволяет это сделать.
Листинг 3.28. Подсчет количества ячеек
Sub CountCfCellsO
MsgBox (Range{"Al:А20, 91:020") .Count)
End Sub
После выполнения данного макроса на экране отобразится окно, в котором будет указано общее количество ячеек в диапазонах А1:А20 и D1:D2C.
Подсчет именованных объектов
С помощью небольшого макроса можно быстро подсчитать количество именованных ячеек, диапазонов и формул в текущей рабочей книге Код данного макроса выглядит следующим образом (листинг 3.29).
Листинг 3.29. Количество именованных объектов
Sub CountNames()
Dim intNaroesCount As Integer
Получаем и отображаем количество имен в активной _ рабочей книге
intNamesCount = ActlveWorteook.Hames.Count
If intNamesCount - 0 Then
MsgBox "Имен нет"
Else
MsgBox "Имен; " Ь intNamesCount ь " шт."
End If
End Sub
Результат выполнения этого макроса выводится в информационном окне, которое показано на рис. 3.8.
Рис. 3.8. Подсчет количества имен
При необходимости можно подсчитать количество имен рабочей книги. Соответствующий макрос выглядит так (листинг 3.30).
Листинг 3.30. Количество имен рабочей книги
Sub CountNames()
Dim intNamesCount As Integer
1 Получаем и отображаем количество имен на активном __ листе рабочей книги
intNamesCount = Names.Count
If intNamesCount = 0 Then MsgBox "Имен нет"
Else
MsgBox "Имен: ” 6 intNamesCount 6 * шт." End If End Sub
Быстрый поиск курсора
Для быстрого поиска активной ячейки можно воспользоваться таким макросом (листинг 3.31).
Листинг 3-31. Поиск активной ячейки
Sub FindActiveCell()
' Выводим адрес активной ячейки MsgBox ActtveCell.Address End Sub
Результат поиска выводится в информационном окне, пример которого представлен на рис. 3.9.
Рис. 3.0. Адрес активной ячейки
Чтобы убрать значение абсолютной ссылки на строку и столбец, можно использовать следующий код:
MsgBox ActiveCell.AddresstRowAbaolute:"False, ColumnAbeolutes-Tslee)
Поиск начала и окончания диапазона, содержащего данные
Аналогичным образом можно быстро определить диапазон листа, в котором содержатся какие-либо данные. Данный трюк удобно применять, например, когда данные разбросаны по всему листу и точно неизвестно, где они начинаются и где заканчиваются (а вручную просматривать весь лист долго и неудобно). Для решения этой задачи можно применить следующий макрос (листинг 3.32).
Листинг 3.32. Поиск данных
Sub FindSheetDataO
выводам диапазон используемых ячеек листа
MsgBox ActIveSheet.DsedRange.Address
End Sub
В результате выполнения макроса на экране появится окно, аналогичное изображенному на рис, 3.9, в котором будет указан соответствующий диапазон рабочего листа.
Если же необходимо определить не весь диапазон с данными, а найти лишь его начало, то можно воспользоваться макросом, код которого приведен в листинге 3.33.
Листинг 3.33. Поиск начала данных
Sub FindStartOfData()
With Activesheet
' Заносим текст в ячейку, являющуюся левой верхней _ ячейкой используемого диапазона
.Celia(.UsedBange.Row, .UsedRange.Column) .Value - _ "Начало данных"
End With
End Sub
После выполнения данного макроса в левой верхней ячейке диапазона, содержащего данные, отобразится текст начало данных (этот текст можно изменять со своему усмотрению). Этот трюк удобно применять при работе с большими объемами данных, когда они разбросаны по всему рабочему листу и трудно определить точное место их начала (особенно если первые данные диапазона находятся, например, в ячейке 1350).
Трюки с примечаниями
В данном разделе мы рассмотрим, каким образом можно быстро определить наличие на рабочем листе примечаний и посчитать их, а также вывести их в виде текста в ячейку справа либо в отдельный список.
Подсчет примечаний
По умолчанию ячейки, содержащие примечания, помечаются соответствующим индикатором, который расположен в правом верхнему глу ячейки (обычно это красный треугольник). Однако если в окне настройки параметров работы программы (данное окно вызывается командой Сервис ► Параметры) на вкладке Вид установить переключатель Примечания в положение не отображать, то ячейки с примечаниями ничем не будут отличаться от остальных ячеек рабочего листа. В данном случае, чтобы определить, имеются ли на текущем рабочем листе примечания и посчитать их количество, можно написать и выполнить следующий макрос (листинг 3.34).
Листинг 3.34. Подсчет примечаний
Sub CountOfComment О
Dim IntCommentCount Аз Integer
Получение и отображение количества примечаний _ на текущем листе
IntCommentCount ■ ActiveSheet.Comments,Count
If intCommentCount * 0 Then
МздВох "Примечаний нет*’ Else
MsgBox “Примечаний: “ & intCommentCount 6 “ шт.” End If End Sub
В результате применения макроса на экране отобразится окно, аналогичное изображенному на рис. 3.9, в котором будет показано количество содержащихся на текущем листе примечаний.
Вывод на экран всех примечаний рабочего листа
Применив несложный трюк, можно вывести все примечания, содержащиеся на рабочем листе или в выделенном его диапазоне, в ячейки, расположенные справа от соответствующих примечаний. Решить эту задачу поможет такой макрос (листинг 3.35).
Листинг 3.35. Список примечаний
Sub ShowConunencs О
Dim cell Аз Range Dim rgCelle As Range
' Получение всех ячеек с примечаниями
Set rgCelle — Selection.SpeclalCells(xLCoaiments)
If rgCelle Is Nothing Then
Примечаний нее
Exit Sub
End If
* Проходим no всем ячейкам диапазона
For Each cell In rgCelle
Вывод примечаний в соседнюю ячейку
cell.Next.Value * cell.Comment.Text Next End Sub
Данный макрос можно применять как к предварительно выделенному диапазону, так и к рабочему листу целиком.
z ^ ПРИМЕЧАНИЕ
№# Если рабочий лист затишен, то данный макрос работать не будет
Для защищенных (а также остальных) рабочих листов можно применить такой макрос (листинг 3.36).
Листинг 3.36. Список примечаний защищенных листов
Sub ShowCommentsl()
Dim cell As Henge
Dim strFiretAddress As String
Dim strComments As String
* Получаем все ячейки выделения, в которых есть комментарий Set cell » Selection.Find("*n, Lookin:-xlComments>
If Mot cell Is Nothing Then
Сохранение адреса первой найденной ячейки _ (для предот^ращемия зацикливания поиска)
strFirstAddrese — cell.Address
Do
* Добавление текста примечания в выходную строку
strComments — stгComments 6 "Комментарий: " & _ cell.Comment.Text 6 Chr(13j
' Продолжение поиска
Set cell - Selection.FindNext(cell)
Loop While Not cell Is Nothing And _ cell.Address <> strFirstAddrese
End If
If str Comments <> *•** Then
' Отображение окна с текстом примечаний
MsgBox strComments
Else
MsgBox "В выделенной ячейке/ячейках комментариев нет"
End If
End Sub
Данный макрос работает только с предварительно выделенным диапазоном рабочего листа.
Создание списка примечаний рабочего листа
Все имеющиеся на рабочем листе примечания можно вывести в виде отдельного списка. например в столбце С. Соответствующий макрос выглядит следующим образом (листинг 3.37),
Листинг 3.37. Перечень примечаний в отдельном списке (вариант 1)
Sub ListOfcomments()
Dim cell As Range
Dim rgCells As Range
Dim intRow As Integer
Получение веек ячеек с примечаниями On Error Resume Next
Set rgCells = Selection.Specialcells(xlComments) If rgCells Is Nothing Then
* Примечаний нет Exit Sub End If
Проходим по всем ячейкам диапазона For Each cell In rgCells
' Вывод примечаний в ячейку столбца "С" intRow - IntRow 4 1 Cells(intRow, 3) «• cell.Comment.Text Next End Sub
К аналогичному результату (вывод примечаний в виде списка в столбце Q приведет написание и использование такого макроса (листинг 3.38).
Листинг 3.38. Перечень примечаний в отдельном списке (вариант 2)
Sub ListOfCommentslО
Dim cell As Range
Dim strFiretAddreas As String Dim intRow As Integer
Несколько трюков в одном примере
В данном подразделе мы объединим рассмотренные выше трюки в один пример, а также несколько расширим его дополнительной возможностью. Иначе говоря, реализовав данный пример, можно будет быстро получить следующие результаты: посчитать количество примечаний в текущей рабочей книге, выделить ячейки с примечаниями, отобразить сразу все примечания, вывести список примечаний текущей рабочей книги в отдельную книгу Excel и выбрать цветовую палитру для примечаний.
В первую очередь необходимо написать код, который приведен в листинге 3.39, и поместить его в редакторе VBA в стандартный модуль.
Листинг 3.39. Операции с примечаниями
Sub CountOfCommence О
Dim intConmentCount Ал Integer
Получение и отображение количества примечаний
intCcnunentCount “ ActLveSheet.Comments.Count
If IntCommentCount - 0 Then
MsgBox "текущая рабочая книга не содержит примечаний.", vblnformation
Else
MsgBox ПВ текущей рабочей книге содержится " ь IntCommentCount _ S 11 комментариев.", vblnformation
End If
End Sub
Sub SelectCommenta()
Выделение всех ячеек с примечаниями
CelIs.Specialcella(xlCellTypeCommenta).Select
End Sub
Sub ShcwCcmments()
Отображение всех примечаний
If Application.DisplayCommantlndicator ■ xlCommentAndlndlcator Then
Application.DisplayCotnnientlndicator - xlCommentlndicatorOnly
Else
Application.DisplayCommentlndicator - xlCommentAndlndicator
End If
End Sub
Sub ListCfCommentaToFile()
Dim rgCells As Range' Ячейки с примечаниями
Dim intDefListCount As Integer * Используется для временного _ хранения количества листов в книге по умолчанию
Dim strSheet Аа string• Имя анализируемого листа
Dim strWorkBook As String• Имя книги е анализируемые листом
Dim intRow As Integer Dim cell As Range
Получение ячеек с примечаниями On Error Resume Next Set rgCells - ActiveSheet.Cells.SpecialCells(xlComments> On Error GoTo 0
Если примечаний кет, то можно не продолжать If rgCelle Is Nothing Then
MsgSox "Текущая рабочая книга не содержит примечаний.”, _ vblnformation
Exit Sub End If
• Сохранение имен анализируемого листа и книги strSheet — ActiveSheet.Name strWorkBook - Activeworkbcok.Name
Создание отдельной книги с одним листом для отображения результатов
intDefListCount - Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1 Workbooks.Add
Application.SheetsInNewWorkbook = IntDefListCount
Activeworkbook.Windows(1)-Caption - “Comments for ь strSheet 6 * in " 6 strWorkBook
Sub ChangeCownentColor()
* Автоматическое изменение цвета комментариев
Dim comment As comment
For Each comment in ActiveSheet.Comments
Задаем случайные цвета заливки и шрифта комментариев
comment.Shape.Fill.ForeColor.SnheraeColor — Int(fBO) * Rod +1)
comment.shape.TextFrame.Characters.Font.Colorindex - Int((56 _ ) * End + 1)
Next
End Sub
В результате написания данного кода в окне выбора макросов (Сервис ► Макрос ► Макросы) будут доступны следующие макросы:
О ChangeCommentColor — с помощью этого макроса назначается произвольная цветовая палитра, используемая для оформления примечаний;
□ Countofcomments — подсчитывает количество примечании;
О ListGf commentsloFile — выводитсписок примечаний в отдельный файл (при этом для каждой позиции списка в соответствующих столбцах отображается адрес ячейки, ее содержимое и текст примечания);
О SelectComments — выделяет ячейки с примечаниями;
О showCcmments — предназначен для быстрого отображсния/скрытия одновременно всех примечаний.
В принципе, после написания кода можно сохранить текущий документ — он готов для дальнейшего использования. Однако для удобства работы лучше поместить в любое удобное место интерфейса кнопки (например, с помощью панели инструментов Формы, вызываемой при выполнении команды Вид ► Панели инструментов ► Формы) и назначить каждой кнопке свой макрос из перечисленных выше. После этого для получения результата достаточно будет нажать соответствующую кнопку.
Дополнение панели инструментов
При необходимости в состав стандартной панели инструментов можно добавлять пользовательские элементы управления (в частности, кнопки). Для этого можно использовать, например, такой макрос (листинг 3.40).
Листинг 3.40. Дополнение панели инструментов
Sub AddCustomCoramandBar()
* Добавление кнопки на панель инструментов
With Application.CommandBars(3).Controls.AddtTypei^nsoControlButton)
.Faceld = 42* Значок Word
.Caption - •'Кнопка" .OnAction — ''Макрос " End With
End Suh
Результат выполнения данного макроса показан на рис. 3.10
Опреем1 В8в1итт вопрос
81 21 tiSjlOG**- -Ol2v-(®J, ^^’-Г V _ - >-A - к. ^.
Рис. 3.10. Добавление кнопки на стандартную панель инструментов
Для добавления кнопки можно также использовать следующий макрос (листинг 3.41)
Листинг 3-41. Добавление кнопки на панель инструментов
Suh AddCustomButtcn О
• Добавление кнопки на панель инструментов with Application.Toolbars(l).ToolharButtons. Add (button:**222) .Name - "Кнопка" .OnAction - "Макрос"
End With
End Sub
Кнопка, добавленная на стандартную панель инструментов в результате применения этого макроса, показана на рис. 3.11.
СпреемВведите всттсс
ДИкВ®100* ’©о^@.
/й »9 ^ Й ' _ ’9* '_^ - АоТофссткг
Рис. 3.11. Добавление пользовательской кнопки
Добавленные элементы управления можно в дальнейшем настраивать (присваивать имя, назначать макрос и т. д.) по обычным правилам в режиме настройки панели инструментов.
Примеры создания панелей инструментов
В данном разделе мы рассмотрим несколько трюков, с помощью которых можно создавать пользовательские панели инструментов.
Чтобы быстро создать пользовательскую панель инструментов с одной кнопкой, можно воспользоваться следующим макросом (листинг 3-42).
190190Глава 3. Создание трюков с помощью макросов
190
190
Листинг 3.42. Панель с одной кнопкой
Sub CreateCustomControlBarО ' создание панели инструментом With Application.CoramandBars.Add(Name^"Панель", Temporary;-True)
* Создание и настройка кнопки With .Controls.Add(Type:-msoControlButton)
.Style - insoButtpnlconAndCaption .Faceld - 66
.Caption - "Просто кнопка" End With * Покажем панель .Visible - True End With End Sub
Результат выполнения данного макроса представлен на рис. 3.12.
Рис. 3.12. Пользовательская панель инструментовРис. 3.12. Пользовательская панель инструментов
Рис. 3.12. Пользовательская панель инструментов
Рис. 3.12. Пользовательская панель инструментов
Обратите внимание, что в данном случае кнопка отображается со значком и подписью одновременно.
Теперь познакомимся с макросом, использование которого позволяет создать пользовательскую панель инструментов с двумя кнопками и расположить ее в левой части окна программы. Код данного макроса выглядит следующим образом (листинг 3.43).
Листинг 3.43. Панель с двумя кнопками
Sub CreateCustomControlBar(I
Создание панели инструментов
With Application.CommandBara.Add(Name:-"Панель", Temporary:-True, _ Position:RmsoBarLeft}
1 Создание и настройка первой кнопки
With .Controls.Add(Typei-maoControlBucton)
.Style * insoButtonWrapCaption
.Caption - "Просто кнопка"
End With
* Создание и настройка второй кнопки
With .Controls.Add(Type:=msoControlButton)
.Style = msoButtonlconAndWrapCaption .Caption - "Кнопка" .FaceId - 225 End with 1 Лекажем панель .Visible - True End With End Sub
После запуска макроса в левой части окна программы появится пользовательская панель (рис. 3.13).
Рис. 3-13. Панель в левой части интерфейса
Подобным образом можно поместить пользовательскую панель в правую Часть интерфейса. Для этого можно использовать макрос, показанный в листинге 3.44 (в данном случае создастся панель с одной кнопкой).
Листинг 3.44. Создание панели справа
Sub CreateCustomControlBar()
Создание панели инструментов
With Application.CommandBars.Add(Name:-"Правая панель", _ Temporary:-True}
Создание и настройка кнопки
With -Controls.Add(Type:-msoC©ntrolButton)
.Style — msoButtonWrapCaptlon
-Caption — "Кнопка"
End With
Задание позиции - справа .Position - msoBarRight
Покажем панель
.Visible - True
End With
Результат выполнения макроса представлен на рис. 3.14.
Рис. 3.14. Панель в правой части интерфейса
Созданные таким образом пользовательские панели инструментов автоматически добавляются в меню Вид ► Панели инструментов. Ик можно настраивать (добавлять и удалять элементы управления и пр.) по обычным правилам настройки панелей инструментов.
При необходимости созданные панели можно перетаскивать мышью в любое место интерфейса.
Формирование пользовательского меню
Возможности программы предусматривают создание и дальнейшее применение пользовательских меню, которые могут, например, входить в состав главного меню Excel. Вот пример подобного макроса (листинг 3.45).
Листинг 3.45. Создание пользовательского меню (вариант 1)
Sub AddCustotnMenu О
• Добавление меню
With Application.ComnandBare (1) -Controls.Add(Type:-znnoControlPopup, _ Temporary:-True) .Caption — "Архив" With .Centrole
’ Добавление и настройка первого пункта With .Add(Type:-meoControlButton)
.Facald - 280 .Caption — "Просмотр" -OnAction - "Макрос!" End With
Добавление вложенного меню With .Add(Type:=4naoControlPopup) -Caption = "Sasa данных" With .Controls
* Добавление и настройка первого пункта _ вложенного меню
With .Add(Typet-msoContrclfiutton) -Faceld - 1643 .Caption — "Поставщики" -OnAction - "Макрос2"
193193Формирование пользовательского меню
193
193
' Добавление и настройка второго пункта _ вложенного меню
With .Add(Type;^mfloControlButton)
.Faceld = 1000
.Caption — •'Покупатели"
.OnActlon - "МакросЗ"
End With
End With
End With
End With
End With
End Suh1
Очевидно, что данный макрос используется в комплексе с другими макросами (макрос!, Макрос2 и МакросЗ), которые разрабатываются отдельно.
В результате выполнения данного макроса в составе главного меню Excel появится меню, изображенное на рис. 3.15.
Рис. 3.15. Добавление пол ювательсжого менюРис. 3.15. Добавление пол ювательсжого меню
Рис. 3.15. Добавление пол ювательсжого меню
Рис. 3.15. Добавление пол ювательсжого меню
Если макросы макрос!. Макрос2 и МакросЗ отсутствуют, то при выборе пунктов Просмотр. Поставщики и Покупатели, которые входят в состав пользовательского меню Архив, отобразится окно с сообщением, что требуемый макрос не обнаружен.
Такое же меню (см. рис. 3.15) появится в главном меню Excel после применения макроса, код которого приведен в листинге 3.46.
Листинг 3.46. Создание пользовательского меню (вариант 2)
Sub AddCMbdrlMmul ()**q*
* Добавление меню с названием "Архив" в часть меню, относящуюся к рабочей книге
With MenuBarp("Worksheet") .Menus. Add (Captioni—"Архив")
• Добавление кнопки
.MenuIteias.Add Caption:—"Просмотр", OnAatich:—"Макрос!"
* Добавление полнен»
With .Menuitems.AddMenu(Caption:="База данных")
* Добавление пунктов подменю
.MenuItetns.Add Caption:-"Поставщики", опАаь1оп:-”Макрос2"
.Menulterns.Add Caption:-'’Покупатели'*, OnAction:-"МакросЗ" End With End With End Sub
К аналогичному результату приведет использование также такого макроса (листинг 3.47).
Листинг 3.47. Создание пользовательского меню (вариант 3)
Sub AddCustomMenu2()
* Добавление меню с названием "Архив" в часть меню, _ относящуюся к рабочей книге
With MenuBars("Worksheet").Menus-Add(Caption:="Архив”) * Добавление кнопки .Menultems.Add Caption:-"Просмотр", OnAction:—"Макрос!" • Добавление подменю With .Menuitems .AddMenu (Caption:—"База данных")
Добавление первого пункта подменю
With .Menuitems.Add(Caption:-"Поставщики")
Настройка кнопки
-OnAction - "HaxpocZ" End With
• Добавление второго пункта подменю
With .Menuitems.Add(Caption:-"Покупатели")
• Настройка кнопки .OnAction - "МакросЗ" End With End With End With End Sub
Как и s первом случае, два последних макроса предусматривают использование дополнительных макросов Макрос!,Макрос2 и МакросЗ.
Проверка наличия файла по указанному пути
При необходимости можно быстро проверить, существует ли файл по указанному адресу. Чаще всего для этого используется макрос, приведенный в листинге 3.48 (путь и название файла — условные, взяты только для примера).
Листинг 3.48. Проверка наличия файла (вариант 1)
Sub verifyFileLocation()
Dim strFilename As String
195195Проверка наличия файла по указанному пути
195
195
Dim strFileTitle As String
• Имя и путь искомого файла strFileTitle - "primer.xLb" strFileName •= "С ЛДокументьЛрг lmer.xls"
' Проверка наличия файла (функция Dlr возвращает пустую _ строку, если по указанному пути файл обнаружить не удалось)
If Dir(strFileName) о "" Then
MsgBox "Файл " 6 strFileTitle & " найден" Else
MsgBox "Файл " 6 strFileTitle 6 " не найден” End If
End Sub
Результатом выполнения данного макроса является выводимое на экран окно, в котором сообщается, существует данный файл по указанному адресу или нет (рис. 3.16).
Рис. 3-18. Результат поиска файлаРис. 3-18. Результат поиска файла
Рис. 3-18. Результат поиска файла
Рис. 3-18. Результат поиска файла
Для такой же проверки можно применить макрос, код которого приведен в листинге 3-49 (путь и название файла условны).
Листинг 3-49. Проверка наличия файла (вариант 2)
Sub VerlfyFlleLocationl[)
Dim strFileName AS String
* Имя искомого файла
strFileName - "С:\Документы\рг1тег.х1н"
Проверка наличия файла (функция Dir возвращает пустую _ строку, если по указанному пути файл обнаружить не удалось)
If Dir(strFileName) <> "" Then
MsgBox "Файл " s strFileName 6 " найден"
Else
MsgBox "Файл " 5 strFileName 6 * не найден*
End If
End Sub
После применения макроса на экране также появится окно, аналогичное изображенному на рис. 3.16, с информационным сообщением о результатах проверки
В приведенных выше макросах мы напрямую указывали имя искомого файла. Однако такой подход не всегда приемлем, поэтому иногда целесообразнее использовать макрос, код которого приведен в листинге 3.50.
Листинг 3.50. Поиск нужного файла
Sub FileSearch()
Dim strFileName As String
Dim strFolder As String
Dim StrFullFath As String
Задание имени папки для поиска
strFolder = InputBox("Определите папку:")
It strFolder = "” Then Exit Sub
Задание имени файла для поиска
strFileName - Application. InputBox ("Введите имя файла:"}
If strFileName ** "" Then Exit Sub
При необходимости дополняем имя папки "\"
If Right(strFolder, 1) о "\" Then strFolder - strFolder & "\"
Полный путь файла
strFullFath = strFolder fc strFileName
Вывод окна с отчетом о поиске средствами VBA
MsgBox "Использование команды VBA..." 6 vbCrLf 6 vbCrLf 6 _ dhSearchVBAtstrFullFath), vblnformation, strFullFath
Вывод окна с отчетом о поиске средствами объекта FileSearch
MsgBox "Использование объекта FileSearch..." 6 vbCrLf Б
vbCrLf 6 dhSearchFileSearchtstrFolder, strFileName), vblnformation, _ strFullFath
Вывод окна с отчетом о поиске средствами объекта _ FilesystemOb]ect
MsgBox "Использование объекта FileSystemObject..." & vbCrLf Б vbCrLf & dhSearchFileSystemObject(strFullFath), vblnformation, strFullFath
End Sub
Function dhSearchVBAfvarFullPath As Variant) As Boolean
• Использование команды VBA
dhSearchVBA - Dir(varFullPath) <> ""
End Function
Function dhSearchFileSearchtvarFolder As Variant, varFileName _
As Variant) As Boolean
197197Автоматизация удаления файлов
197
197
Использование объекта Filesearch
with Application.FileSearch
Создание нового поиска
.NewSearch
Имя для поиска
.Filename — varFileName
' Палка поиска
.Lookin “ varFolder
* Собственно поиск
.Execute
dhSearchFileSearch ■■ .FoundFlIes.Count <> 0
End With
End Function
Function dhsearchFileSystemObject(varFullPath As Variant) As Boolean
Dim objFSObject As Object
* Использование объекта FileSystemDbject
Set objFSObject - CreateObject("Scripting.FileSystenCibject"} dhsearchFileSystemObject ■ objFSObject.FileExists(varFullPath)
End Function
В результате запуска макроса открывается окно, в котором указывается папка для поиска, а затем (после нажатия кнопки ОК) — имя искомого файла. В данном примере для поиска файла используются три разных метода. После ввода имени папки и файла они будут применены поочередно, и в каждом случае будет показан отдельный результат если файл обнаружен по указанному пути, то отобразятся значение True, в противном случае — False.
В результате написания приведенного выше кода, помимо макроса Filesearch, будут созданы три пользовательские функции (для доступа к ним нужно выполнить команду главного меню Вставка ► Функция и в открывшемся окне перейти в категорию Определенные пользователем). С помощью этих функций можно отдельно использовать каждый из методов, которые автоматически применяются при выполнении макроса. В данном случае в качестве аргументов функций указываются ячейки, содержащие путь к искомому файлу (при этом для функции dhSearchFileSearch путь к файлу и имя файла должны содержаться в отдельных ячейках — эта функция имеет два аргумента). Если файл обнаружен по указанному пути, то в активной ячейке отобразится значение истина, в противном случае—ложь.
Автоматизация удаления файлов
Используя средства VBA, можно удалять как отдельные файлы, так и группы файлов в соответствии с заданными параметрами.
Чтобы удалить отдельный файл, можно воспользоваться следующим макросом (листинг 3.51).
Листинг 3.51. Удаление файла
Sub DeleteFlleO
Ki 11 "С: \Документы\рг inter-xls"
End Sub
В результате выполнения данного макроса будет удалей файл primer. xls, расположенный по адресу С:\Докумекты.
Для удаления группы файлов с определенным расширением можно использовать следующий макрос (листинг 3.52).
Листинг 3.52. Удаление группы файлов
Sub DeleteFileeO
* Удаление всех файлов с расширением XLS из заданной папки
Kill "С:\Документы" 6 "•.xls”
End Sub
После выполнения этого макроса из папки Документы на диске С: будут удалены все файлы, имеющие расширение XLS,
При удалении файлов с помощью приведенных макросов следует учитывать, что они не помещаются в Корзину, а окончательно удаляются с жесткого диска.
Перечень имен листов в виде гиперссылок
При необходимости можно вывести в виде списка перечень имен листов текущей рабочей книги, причем каждое имя в списке будет представлять собой гиперссылку, с помощью которой можно быстро перейти к соответствующему листу. Для этого можно воспользоваться таким макросом (листинг 3.53).
Листинг 3.53. Перечень имен рабочих листов
Sub SheetNamesAsHyperLinks()
Dim sheet As Worksheet
Dim cell As Range
With Activeworkbook
* Просмотр всех листов книги и создание гиперссылок на них на первом листе
For Each sheet In ActiveWorkbook.Worksheets
Set cell - worksheets(1).Cells(sheet.Index, 1)
.Worksheets(1}-Hyperlinks.Add Anchor:*cell, Address:="", SubAddresss-"*n Ь sheet.Name 6 "'” 6 "!A1"
cell.Formula - sheet.Name
Next
199199Удаление пустых строк на рабочем листе
199
199
End With
End Sub
Результат выполнения макроса показан на рис, 3.17 — имена рабочих листов выведены в виде списка, каждый алемент которого представляет собой гиперссылку.
Рис. 3.17. Список имен рабочих листовРис. 3.17. Список имен рабочих листов
Рис. 3.17. Список имен рабочих листов
Рис. 3.17. Список имен рабочих листов
Удаление пустых строк на рабочем листе
В процессе работы иногда возникает необходимость избавиться от пустых строк на рабочем листе. В большинстве случаев для решения данной задачи используются штатные средства программы. Однако при большом количестве пустых строк целесообразно воспользоваться макросом, код которого приведен в листинге 3.54.
Листинг 3.54. Удаление пустых строк (вариант 1)
Sub DeleteEmptyStrlngs()
Dim intLaatRow Aa Integer Номер последней используемой строки
Dim IntRow As Integer 1 Номер проверяемой строки
При выполнении данной операции следует учитывать, что будут удалены только пустые строки, представляющие собой «пробелы». Например, если данные хранятся в строках с 1 по 10, но при этом строки 5 и 7 пустые, то после применения макроса строки 5 и 7 будут удалены и заменены следующими за ними строками с данными, а строки 11,12,13,14,.... 65 536 останутся на месте
К аналогичному результату приведет также использование следующего макроса (листинг 3.55). В данном случае удаление пустых строк происходит снизу вверх Это позволяет упростить алгоритм, так как не нужно учитывать сдвиг данных вверх при удалении строк.
Листинг 3.55. Удаление пустых строк (вариант 2)
Sub DeleteEmptyStrlngsl()
Dim intRow As integer
Dim intLastRow As Integer
* Получение номера последней используемой строки
intLastRow = ActiveSheet.UsadRange. Row + _
ActiveSheet.DsedRange.Rowa.Count - 1
Удаление пустых строк
For IntRow = IntLastRow To 1 Step -1
If ActiveSheec.Rows{intRow).Text - "" Then
ActiveSheet-Rows{intRow).Delete
End If
Next intRow
End Sub
Для удобства работы можно создать кнопку и привязать к ней какой-либо из приведенных макросов — тогда удаление пустых строк будет производиться при нажатии этой кнопки.
Запись текущих данных в текстовый файл
С помощью несложного трюка можно быстро записать все данные, хранящиеся на текущем рабочем листе, в текстовый файл. В листинге 3.56 приведен код макроса, который позволяет решить вту задачу.
Листинг 3.56. Запись в текстовый файл
Sub SaveAsTeKt ()
Dim cell As Range
' Открытие файла для сохранения (имя файла соответствует имени _ рабочей книги, но отличается расширением - TXT)
201201Экспорт и импорт данных
201
201
Open ThlsNorkbook.Path 8 "V & ThisWorkbook.Name a ".text" _ For Output As #1
• Запись содержимого заполненных ячеек таблицы ■ файл
For Each cell In ActiveSheet.UsedRange
If Not IsEmpty(cell) Then
Print #1, cell.Address, cell.Formula
End If
Next
Ее забываем закрывать файл
Close 11
End Sub
К аналогичному результату приведет использование такого макроса (он отличается тем, что учитывает национальные настройки) (листинг 3.57).
Листинг 3.57. Экспорт в текстовый файл
Sub SaveAeTextl(>
Dim cell Aa Range
* Открытие файла для сохранения (имя файла соответствует имени _ рабочей книги, но отличается расширением - TXT)
Open ThiaWorkbook.Path 8 "\" 6 ThisWorkbook.Name 6 ".txt'* _
For Output As #1
• Запись содержимого заполненных ячеек таблицы в файл
For Each cell In Activesheet..UsedRange
If Not IsEmpty(cell) Then
Print *1, cell.Address, cell.FormulaLocal
End If
Next
He забываем закрывать файл
Close #1
End Sub
В результате выполнения любого из указанных макросов будет создан текстовый файл, помещенный в тот же каталог, в котором находится текущая рабочая книга. Имя файла формируется следующим образом: если текущий файл называется Primer. xls, то имя созданного на его основетекстового файла будет Primer. xls. txt. В этом файле, помимо хранящихся на рабочем листе данных, содержатся координаты ячеек, в которых расположены эти данные.
Экспорт и импорт данных
В данном разделе мы рассмотрим еще один способ экспортирования данных в текстовый файл, а также импорт данных из текстового файла.
Для решения поставленных задач нам потребуется наличие двух макросов: один — для экспорта данных, другой — для их импорта. С целью создания этих макросов напишем в стандартном модуле редактора VBA код, который представлен в листинге 3.58.
Листинг 3.58. Экспорт и импорт данных
Sub ExportAsText()
Dim IngRow As Long
Dim intCol As Integer
' Открытие файла для сохранения
Open "С:\primer.txt" For Output Аз #2
• Запись выделенной части таблицы в файл (построчно)
For IngRow - 1 То Selection.Rows.Count
* Запись содержимого всех столбцов строки LngRow
For intCol - 1 То Selection.Columns.Count
Write #1, Selection.Celia(IngRow, intCol).Value;
Next intCol
• Начнем новую строку в файле
Print #1, "•'
Next IngRow
He забываем закрыть файл
Close #1
End Sub
Sub ImportTextt)
Dim strLine As String
‘ Одна строка файла
Dim strCurChar Аз String • 1
• Анализируемый символ строки файла
Dim strValue As String
• Значение для записи в ячейку
Dim IngRow As Long
• Номер текущей строки
Dim intCol As Integer
Dim i As Integer
1 Номер текущего столбца
Открытие импортируемого файла
Open •'C:\priffiGr.txt" For Input Ав #1
Считываем все строки файла и Записываем данные, разделенные запятой, а ячейки таблицы (начиная с текущей ячейки)
Do Until EOF(l)
Считываем строку из файла
Line Input #1, etrLine
Разбираем считанную строку
For 1 - 1 to Len(strLine)
strCurChar - MidtetrLine, i, 1)
If strCurChar - "," Than
203203Одновременное умножение всех данных диапазона
203
203
' Найден разделитель столбцов - запятая. Запишем сформированное значение в ячейку
ActiveCell.Offset(lngRow, intCol) ■ etrValue intCol - intCol + 1 strValue - "" Elself 1 = Len(strLine) Then
Конец строки - запишем в таблицу последнее _ значение в строке (перед этим дополним его последним _ символом строки, кроме кавычки)
If strCurChar О Chr(34) Then strValue - strValue 6 strCurChar End If ' Запись в таблицу ActiveCell.Offset(IngRow, IntCol) - strValue strValue ■ ”” Elself StrCurChar <> Chr(34) Then
Добавление символа в формируемое значение ячейки _ (кавычки игнорируются)
strValue - strValue ь strCurChar End If Next 1 • Переход к новой строке таблицы IntCol - О IngRow = IngRow + 1 Loop • Закрываем файл Close #1 End Sub
После написания приведенного кода в окне выбора макросов появятся макросы Export AsText и importText. В соответствии в кодом макроса экспорт данных будет осуществляться в файл primer. txt, который будет создан в папке С: \ Документы. Из этого же файла будут импортированы данные при выполнении макроса ImportText. Перед запуском макроса ExportAsText необходимо выделить диапазон, данные которого следует экспортировать в текстовый файл. Импортируемые данные будут помещены в то место рабочего листа, в котором установлен курсор (при этом ячейка с курсором будет являться левой верхней ячейкой импортированного диапазона).
В текстовом файле столбцы обозначаются символом «л (запятая).
Одновременное умножение всех данных диапазона
В данном разделе мы рассмотрим трюк, с помощью которого можно быстро умножить все числа, находящиеся в какой-либо выделенной области, на указанный
коэффициент. Для этого нам понадобится макрос, код которого приведен в листинге 3.59.
Листинг 3.59. Умножение данных
Sub MultAHCellaO
Dim dblMult As Double
Dim cell As Range
' Ввод коэффициента для умножения
dblMult = TnputBox < "Введите коэффициент, на который следует умножать")
Умножение содержимого на введенный коэффициент For Each cell In Selection
If IsNumecic(cell.Value) And cell,Valve <> "" Then
• Умножается только ячейки, содержащие числовые данные cell.Value ■ cell .Value * dblMult Else
MsgBox "В ячейке " 6 cell.Address ь " нечисловое значение" End If Next End Sub
Рассмотрим применение данного макроса на конкретном примере.
Допустим, что в ячейках Al, В2 и СЗ хранятся числовые значения 10,15 и 20 соответственно. Выделим диапазон, охватывающий эти ячейки, и запустим приведенный выше макрос на выполнение. В результате откроется окно, изображенное на рис. 3.18.
Рис. 3.18. Окно ввода коэффициента
В данном окне с клавиатуры следует ввести коэффициент, на который необходимо умножить все значения выделенной области. Если ввести коэффициент 2. то в ячейках Al, В2 и €3 значения изменятся соответственно на 20,30 а 40.
При выполнении данного трюка не стоит забывать, что если в какой-либо ячейке выделенного диапазона хранится нечисловое значение, то будет выдано сообщение об ошибке.
Преобразование таблицы Excel в HTML-формат
В процессе работы иногда возникает необходимость в быстром преобразовании табличных данных Excel в HTML-код (например, для оперативного размещения на сайте самой свежей информации). Рассмотрим на конкретном примере, каким образом можно решить эту задачу.
Предположим, что нам необходимо преобразовать в HTML-код следующую таблицу (рис. 3.19).
а в
1- 345
"2_ 25 __ 651,
J J 44 _ 415 ■ si
Рис. 3.19. Таблица Excel
В данном случае следует воспользоваться макросом, код которого приведен в листинге 3.60.
Листинг 3.60. Преобразование таблицы в HTML-формат
Параметры стиля отображения ячейкиПараметры выравнивания ячейкиВыходная строка с HTML-кодомОбрабатываемая ячейка■ Текст обрабатываемой ячейки" Номер строки обрабатываемой ячейки• Номер строки предыдущей ячейкиПараметры стиля отображения ячейкиПараметры выравнивания ячейкиВыходная строка с HTML-кодомОбрабатываемая ячейка■ Текст обрабатываемой ячейки" Номер строки обрабатываемой ячейки• Номер строки предыдущей ячейкиSub ExportAsHtmlО
Параметры стиля отображения ячейки
Параметры выравнивания ячейки
Выходная строка с HTML-кодом
Обрабатываемая ячейка
■ Текст обрабатываемой ячейки
" Номер строки обрабатываемой ячейки
• Номер строки предыдущей ячейки
Параметры стиля отображения ячейки
Параметры выравнивания ячейки
Выходная строка с HTML-кодом
Обрабатываемая ячейка
■ Текст обрабатываемой ячейки
" Номер строки обрабатываемой ячейки
• Номер строки предыдущей ячейки
Dim strSryle Аз String Dim strAlign As String Dim strOut Аз String Dim cell Aa Object Dim strCellText As String Dim IngRow Аз Long Dim LngLastRow Аз Long Dim strTemp As String Dim objWordApp As Object Dim i As Long
IngLastRow = Selection.Row
Просмотр всех выделенных ячеек
For Each cell In Selection
' Значение строки для рассматриваемой ячейки
IngRow — cell.Row
Если перешли на другую строку, то вставляем <tr>
If IngRow О IngLastRow Then strOut - strOut 6 vbTab 6 “c/tr^ 6 vbCrLf & vbTab 6
"<tr>" 6 vbCrLf
298298Главе 5. Эксперименты с диаграммами
298
298
Листинг 5.9. Случайная цветовая палитра
Sub RandomChartColora()
Dim intGradientStyle As Integer, IntGradientVariant As Integer
Dim i As Integer
* Проверка, выделена ли диаграмма If ActiveChart la Nothing Then Exit Sub
* Изменение оформления всех категорий
For i - 1 То ActiveChart.seriescollection.Count With ActiveChart.SerieaCollectlon(i) ' Вид градиентной заливки (случайный) IntGradientStyle - InttRnd * 7) * 1 If IntGradientStyle — 6 Then IntGradientStyle = 1 If IntGradientStyle - 7 Then
intGradientvariant - Int(Rnd * 2) + 1 Else
IntGradientVariant ■ Int(Rnd ’ 4) + 1 End If * применение градиента .Fill.TwoColorGradient Style:-IntGradientStyle, Variant:-IntGradientVariant
Установка случайных цветов фона и обводки (используются _ для градиента)
.Fill.ForeColor.SchemeColor — IntfRnd * 57) + J
.Fill.BackColor.SchemeColor — Int(Rnd * 57) * 1 End With Next i End Sub
Чтобы изменить цветовую палитру диаграммы, необходимо выделить ее и запустить данный макрос.
Эффект прозрачности диаграммы
С помощью несложного трюка можно сделать так, что диаграмма будет прозрачной. Для этого можно применить, например, такой макрос (листинг 5.10).
Листинг 5.10. Эффект прозрачности диаграммы
Sub TransparentChartО
Dim shpShape Ав Shape
Dim dblCclor As Double
Next
' Вставка <tr> для первой строки И </tr> - для последней
strOut - vbTab 4 "<tr>" t vbCrLf В strOut & vbTab 6 "</tr>" 6 vbCrLf
' Вставка дескриптора <table>
strOut - "<table border—1 cellpadding-3 cellspacing-l>" 6 vbCrLf 6 StrOut a VbCrLf 6 "</table>"
Запускаем Hord и показываем в нем сформированный HTML-код Set objWordApp — CreateObject("Word.Application")
objWordApp.document».Add objWordApp.Selection — strOut objWordApp.Selection.Copy objWordApp.Visible - True Set objWordApp = Nothing
End Suh
При выполнении данного трюка не стоит забывать, что перед запуском макроса следует выделить диапазон ячеек, который предстоит конвертировать в HTML-код
В результате применения макроса табличные данные, показанные на рис. 3.19, будут преобразованы в следующий HTML-код:
<table border-1 cellpadding-3 cellepacing-l>
<tr>
<td style-font-size; 52%;>77c/td>
<td style-font-size: 52%;>345</td>
</tr>
<tr>
<td style-font-size: 52%; align-right>25</td>
<td style-font-size: 52%;>851</td>
</tr>
<tr>
<td style-font-size: 52%;>44</td>
<td style-font-size: 52%;>415</td>
</tr>
<tr>
<td style-font-size: 52%;>17</td>
<td style-font-size: 526;>25</td>
</tr>
</table*
Читатель, хотя бы немного знакомый с веб-разработками, без труда узнает знакомый стиль HTML-файла. Этот код будет открыт в отдельном окне Microsoft Word, а также скопирован в буфер обмена.
Преобразовать выделенный диапазон в HTML-формат можно и другим способом. Его отличие от приведенного выше заключается в том. что результатом преобразования будет готовый НТМ-файл, сохраненный по указанному пути. Для реализации данного примера нужно воспользоваться макросом, код которого представлен в листинге 3.61.
Листинг 3.61. Экспорт данных в НТМ-файл
Sub ExportAsHtmlFileO
Dim strStyle As String
* Параметры стиля отображения ячейки
Dini strAlign Ab String
* Параметры выравнивания ячейки
Dim strOut As String
* Выходная строка с HTML-кодом
Dim cell As Object
* Обрабатываемая ячейка
Dim strCellTaxt As String
• Текст обрабатываемой ячейки
Dim IngRow As Long
* Номер строки обрабатываемой ячейки
Dim IngLastRow As Long
Dim strTemp As String
• Номер строки предыдущей ячейки
Dim StrFileName Ab String
Dim i As Long
1 Имя файла для сохранения HTML—кола
' Запрос у пользователя имени файла для сохранения strFileName = Application.GetSaveAeFilenameC
InitialFileName:'=nPrimer.hem'S _
fileFiltex:-"HTML Files(.htm), *.htm”)
' Проверка, задал ли пользователь имя файла (если нет, _ то можно выходить)
If strFileName - "" Then Exit Sub
IngLastRow = Selection.Row
• Просмотр всех выделенных ячеек
For Each cell In Selection
* Значение строки для рассматриваемой ячейки
IngRow - cell.Row
• Если перешли на другую строку, то вставляем <tr>
If IngRow <> IngLastRow Then strOut * strOut t vbTab t "</tr>" 6 vbCrLf 6 vbTab 6 "<tr>n fc vbCrLf
* Переход на следупщую сроку IngLastRow = IngRow
End If
strStyle = " style=" ь " font-size: 11 6 Int(100 * cell.Font.Size / 19) 6 "%;"
End If ' Для полужирного шрифта вставляем <b> If cell.Font.Bold Then
strCellText = "<b>" & strCellText 6 "</b>" End If
Задание выравнивания If cell.HorizontalAlignment •= xlRight Then
По правому крап
strAlign - " align-" s "right"
Elself cell-Hor-izontalAlignment - xlCenter Then
По центру
strAlign — " align-" 6 "center" Else
По левому краю (по умолчанию) strAlign - —' End If
* Чтение текста в ячейке StrCellText - cell.Text * Если нужно. То вертикальный вывод текста (в строку strTemp _ с последующим перенесением обратно в strCellText)
If cell.Orientation <> xlHorirontal Then strTemp - ""
Печать после каждого символа специального _ разделителя - <Ьг>
For 1 - 1 То Len(strCellText) strTeinp - strTemp s MidS(strCellText, 1, 1) 6 "<br>" Next i strCellText = strTemp strStyle - "" End If
atrOut — atrOut 6 vbTab 6 vbTab t "<td" & strStyle 6 _ StrAlign 6 ">" 6 strCellText & "</td>" t vbCrLf
Next
• Вставка <tr> для первой строки и </tr> - для последней strOut - vbTab Ь "<tr>" 6 vbCrLf ь strOut 6 vbTab 6 "</tr>" 6 VbCrLf * Вставка дескриптора <table>
strOut - "<table border-1 cellpadding-3 cellspaclng-l>" _ b vbCrLf 6 strOut 6 vbCrLf £ "</table>"
Сохранение HTML-кода в файл
Open strFileName For Output Ал 1
Print #1, strOut
Close 1
' Вывод окна с информационным сообщением о результатах работы
MsgBox Selection-Count & " ячеек экспортировано в файл " & strFileName
End Sub
После написания кода будет создан макрос Expor tAsHtmlFile, результатом работы которого будет сформированный файл Primer.htm (не стоит забывать, что перед выполнением макроса необходимо выделить диапазон, данные которого должны быть преобразованы в HTML-формат) Путь для сохранения по обычным правилам Windows указывается в окне, которое открывается на экране сразу после запуска макроса (в этом же окне можно изменить имя создаваемого файла, которое предлагается по умолчанию). По окончании преобразования на экране отобразится окно, в котором пользователю сообщается количество преобразованных ячеек и путь к созданному НТМ-файлу.
Поиск данных нештатными средствами
Как известно, Excel включает в себя штатные средства поиска требуемых данных. Однако в некоторых случаях для этого целесообразнее использовать макрос, код которого приведен в листинге 3.62.
Листинг 3.62. Поиск данных с помощью макроса
Sub CustomSearch()
Dim strFindData As String
Dim rgFound As Range
Dim i As Integer
' Ввод строки для поиска
strFindData ■ InputBoxt"Введите данные для поиска")
• Просмотр всех рабочих листов книги
For i - 1 То Worksheets.Count
with Worksheets(i).Cells
* Поиск на i-м листе
Set rgFound - .Find(strFindData, Lookin:-xlValuea)
If Not rgFound Is Nothing Then
Ячейка с заданным значением найдена - выделим ее
Sheets(i).Select
rgFound.Select
Exit Sub
End If
End With
Next
* Поиск завершен. Ячейка не найдена
MsgBox ("Поиск не дал результатов"I
End Sub
При выполнения данного макроса открывается окно, изображенное на рис. 3 20.
Рис. 3.20. Ввод данных для поиска
В данном окне с клавиатуры следует ввести текст (число, дату и т. п.), который требуется найти, и нажать кнопку ОК. Результатом поиска будет позиционирование курсора в ячейке с искомым текстом. Если же поиск не дал результатов, то на экран будет выведено окно, изображенное на рис. 3.21
Рис. 3.21. Информационное сообщение
Следует отметить, что поиск данных ведется не только на текущем рабочем листе, но и на всех остальных листах открытой рабочей книги.
Включение автофильтра с помощью макроса
Как известно, включение автофильтра д ля выделенного диапазона осуществляется с помощью команды главного меню Данные ► Фильтр ► Автофильтр. Для этого можно также воспользоваться следующим макросом (листинг 3.63).
Листинг 3.63. Включение автофильгра
Sub EnableAutoFilter() On Error Resume Next Selection.AutoFilter
End Sub
Для данного макроса можно создать значок и поместить его на панель инструментов. Это позволит включать автофильтр быстрее, чем с помощью команды Данные ► Фильтр > Автофильтр.
Трюки с форматированием
В данном разделе мы рассмотрим несколько трюков, с помощью которых можно быстро выполнить нестандартное форматирование выделенного диапазона.
Изменение формата представления чисел нештатными средствами
С помощью небольшого макроса можно быстро установить выделенному диапазону ячеек формат «два знака после запятой». Данный макрос выглядит следующим образом (листинг 3.64).
Листинг 3.64. Формат «два знака после запятой»
Sub ChangeNwriberFormatО
Selection.NuroberFormac — ”0.00"
End Sub
После выполнения макроса числа в выделенном диапазоне будут отображены с двумя знаками после запятой (например, число 54 будет показано как 54,00).
Для форматирования ячеек с использованием разделителя по разрядам можно применить такой макрос (листинг 3.65).
Листинг 3.65. Использование разделителя по разрядам
Sub ThreeNullsepatator{)
Selection.NumberFonnat - "t,##"
End Sub
В результате выполнения данного макроса число, например, 123456т будет представлено в виде 1 234 567. Не стоит забывать, что перед запуском макроса необходимо выделить диапазон, который должен быть отформатирован.
Чтобы отформатировать какой-либо диапазон с использованием разделителя по разрядам и отображением двух знаков после запятой, можно воспользоваться следующим макросом (листинг 3.66).
Листинг 3.66. Изменение формата
Sub ChangeNumerFormatEx()
Selection. Number Format = "MtO.OD*
End Sub
В данном случае перед запуском макроса также необходимо выделить требуемый диапазон.
Помещение последнего символа ячейки над строкой
Рассматриваемый в данном подразделе трюк позволяет преобразовать последний символ ячейки в верхний индекс. Для этого следует применить макрос, приведенный в листинге 3.67.
Листинг 3.67. Помещение последнего символа над строкой
Sub LastCharUpO
* Изменение расположения последнего символа ячейки With ActiveCell.Characters(Start:-Len(Selection), Length;**!).Font .Superscript — True End With
End Sub
В результате выполнения макроса можно в ячейке вместо значения, например. м3 получить значение м’. При этом следует учитывать, что данный макрос не преобразует числовые значения (например, представление числа 72 не изменится).
Создание нестандартной рамки
Возможности программы позволяют быстро заключить н рамку выделенный диапазон, изменив при этом вид сетки. Для достижения такого эффекта достаточно применить следующий макрос (листинг 3.68).
Листинг 3.68. Нестандартная рамка
Sub ChangeSelGridt)
1 Оформление границ выделение 1 Левая граница With Selection.Borders(xlEdgeLeft) .Linestyle — xlContinuous .Weight •* xlThin .Color Index =■ xLAutomatic
End With • Правая граница With Selection.Borders(xlEdgeRighti .Linestyle — xlContinuous .Weight •* xlThin .Colorindex - xlAutomatic
End With * Верхняя граница With Selection.BordersIxlSdgeTop) .LineStyie - xlContinuous .Weight = xlThin
-СоlorIndex - xlAutomacic
End With
Нижняя граница
With Selection.Borders(xlEdgeBottom)
.LineStyle — xlContlnuous
.Weight - xlThin
.Colorindex " xlAutomatlc
End With
Изменение сетки внутри выделения
Вертикальные линии сетки With Selection.Borders(xllnsideVertical)
■LineStyle - xlContlnuous
.Weight — xlHairline .Colorindex - xlAutomatlc End With ' Горизонтальные линии сетки With Selection.Borders(xlInsideHorizontal)
.LineStyle - xlContlnuous
.Weight — xlHairline
.Colorindex <* xlAutomatic End With End Sub
Результат применения макроса показав на рис. 3.22.
Рис. 3.22. Рамка и сетка
На рисунке видно, что диапазон ячеек ограничен рамкой, а сетка внутри него Представлена в виде пунктирных линий.
Быстрая вставка фамилий должностных лиц в документ
Трюк, который мы рассмотрим в данном разделе, позволяет быстро вставить в любое место документа определенный заранее текст. Эту возможность удобно использовать, например, для вставки в документ должностей и фамилий директора и главного бухгалтера предприятия (либо иных сотрудников). Данная задача реализуется с помощью макроса, код которого приведен в листинге 3.69.
Листинг 3.69. Вставка текста в документ
Sub InsertCustomText()
Заполнение текущей ячейки
ActiveCell - '‘Генеральный директор'1
Selection.font.Bold - ?rue
* Фамилия на три столбца правее должности
Cells.(ActiveCell.Row, ActiveCell.Column * 3)-Select
ActiveCell.FormulaRlCl - "А. Б. Рубле»”
Selection.Font.BoId - True
Ячейка с "Главный бухгалтер” на три столбца левее _ и на три строки ниже ячейки с фамилией директора
Cells(ActiveCell.Row + 3, ActiveCell.Column — 3).Select ActiveCell =• "Главный бухгалтер" selection.Font.Bold - True
‘ Фамилия на три столбца правее должности
Celle(ActiveCell.Row, ActiveCell.Column * 3).Select
ActiveCell ■> "T. С. Копейкин”
Selection.Font-Bold = True End Sub
После выполнения данного макроса соответствующий текст будет вставлен в том месте документа, где расположен курсор (рис. 3.23).
:L
Генеральный директор _ iA.fi. Рубли.
Главный бухгалтерТ._С Копейкин,
Рис. Э.2Э. Вставка текста в документ
Очевидно, что с помощью приведенного выше макроса можно вставлять в текущий документ любой произвольный текст.
Вызов окна настройки шрифта
С помощью небольшого макроса можно вызывать окно настройки параметров шрифта. Код этого макроса выглядит так (листинг 3.70).
Листинг 3.70. ОкИЬ настройки шрифта' ,ДО
Sub ShowFontDialogО
Вызов стандартного окна настройки шрифта текущей ячейки Application.Dialogs(xlDlalogActiveCellFont).Show
End Sub
После его выполнения откроется окно Формат ячеек, в котором выполняются необходимые действия. Заданные в данном окне настройки применяются к ячейке, в которой установлен курсор.
Вывод информации о текущем документе
Чтобы быстро вывести на экран информацию об имени текущего файла, названии текущего рабочего листа и количестве листов в текущей рабочей книге, можно использовать макрос, код которого приведен в листинге 3.71.
Листинг 3.71. Информация о текущем документе
Sub showinfo О
Dim i As Integer
Выводим имя файла рабочей книга
Range("Al”} — ActiveWorkbook.Kame
Выводим имя текущего листа
Range("Bl") — ActiveSheet- Kame
Выводим номера листов
For 1 « 1 То ActiveWorkbook.Sheets.Count
Activesheet.. Cel is (1, 3} - i
Next i
End Sub
Результат выполнения макроса представлен на рис. 3.24.
22Пример xlsПример xlsЛиспЛисп442j3!2j3!
2
2
Пример xls
Пример xls
Лисп
Лисп
4
4
2j
3!
2j
3!
Рис. 3.24. Информация о текущем файле
В данном случае в ячейке А1 отображается имя текущего файла, в ячейке В1 — имя активного рабочего листа, а в столбце С — информация о количестве рабочих листов в текущей книге.
Вывод результата расчетов в отдельном окне
Выполнив несложный трюк, можно вывести результат расчетов, полученный с помощью формулы, в отдельном информационном окне. Для этого можно создавать самые разнообразные макросы (в зависимости от сложности расчета, содержимого ячеек и формул и т. д.). В листинге 3.72 приведен пример одного из таких макросов.
217217Вывод разрешения монитора
217
217
Листинг 3.72. Окно с результатом расчетов
Sub ResultToWindowO
Переходим на первый лист
Worksheets(1).Activate
Закосим в ячейки данные
Range("Аг*) = 5
Range(ПАЗ"> - "-Аг+З"
' Выводим результат расчета
MsgBox Range("АЗ”)-Formula + " = ” + str(Range(“АЗ").Value) End Sub
Результат выполнения данного макроса показан на рис. 3.25.
Рис. 3-25. формула и результатРис. 3-25. формула и результат
Рис. 3-25. формула и результат
Рис. 3-25. формула и результат
Кроме того, после выполнения макроса в ячейке А2 появится значение 5, а в ячейке АЗ — 8.
Вывод разрешения монитора
Разрешение монитора просматривается и редактируется в окне свойств экрана (Пуск ► Настройка ► Панель управления ► Экран ► Параметры). Однако д ля просмотра разрешения можно написать соответствующий макрос (листинг 3,73). Для определения разрешения монитора используется функция Windows API GetSystemMetrlcs. В качестве единственного параметра она принимает номер системной настройки, значение который необход имо узнать (в данном случае 0 — это ширина изображения, 1 — высота), функция GetSystenMetzics возвращает численное значение запрашиваемого параметра.
Листинг 3.73. Разрешение монитора
’Объявление API-функции
Declare Function GetSystemMetrics Lib "изегЗЗ4 _ (ByVal лIndex As Long) As Long
Константы, которые передаются в функцию для определения горизонтального и вертикального размеров изображения
Const SM_CXSCREEN - О
Const SM_CYSCREEN - 1
Sub GetMcnitorResolution()
Dim IngHorzRes As Long
Dim IngVertRes As Long
Получение ширины и высоты изображения на мониторе
IngHorzRes ■ GetSystetnMetricB(SM_CXSCREEN}
IngVertRes — GetSystemMetrics(SM_CYSCREEN)
отображение сообщения
MsgBox "Текущее разрешение: ** 6 IngHorzRes 6 "х" 6 IngVertRes
End Sub
После запуска макроса (в окне макросов он будет называться GetMoni torResolut ion) отобразится окно, в котором будет показано текущее разрешение монитора
Что открыто в данный момент?
При работе с большим количеством рабочих книг иногда возникает необходимость быстро узнать, какие из них открыты в данный момент. Решить эту задачу помажет следующий макрос (листинг 3.74).
Листинг 3.74. Открытые файлы
Sub WorXBooksList()
Dim bock As Object
* Вывод имени жаждой рабочей: книги
For Each book In Workbooks
MsgBox (book.Name)
Next
End Sub
После выполнения данного макроса откроется окно с именем текущей рабочей книги. После нажатия в данном окне кнопки ОК в нем будет указано имя другой открытой книги, затем, после нажатия ОК,—следующей и т. д. Таким образом можно быстро просмотреть названия всех открытых рабочих книг.
Если книга содержит большое количество рабочих листов, то быстро просмотреть их названия можно с помощью следующего макроса (листинг 3.75). Этот макрос отображает названия всех листов текущей рабочей книги.
Листинг 3-75. «Перелистывание» книга
Sub SheetsOfBookl)
Dim sheet As Object
отображение имен всех листов активной рабочей книги
For Each sheet In ActiveWorkbook.sheets
MsgBox (sheet.Name)
Next
End Sub
Создание бегущей картинки
После запуска макроса на экране отобразится такое же окно, как при выполнении предыдущего макроса. В нем будет указано название первого рабочего листа текущей книги, а затем, после каждого нажатия кнопки ОК, — названия последующих листов.
Создание бегущей строки
Можно ли в Excel создать бегущую строку? Да, можно, и поможет нам в этом код, приведенный в листинге 3.76.
Листинг 3.76. Создание бегущей строки
Dim intSpacesLeft As Integer * Количество пробелов в начале строки
Sui) Start ()
Установка начального количества пробелов
intSpacesLeft -10
Первый вызов функции бегущей строки
MovingString
End Sub
Sub MovingStringО
If IntSpacesLeft >- 0 Then
Отображение строки
Range("Al"}.Value — Space(intSpacesLeft) & "Привет!"
IntSpacesLeft = IntSpacesLeft - 1
Указывем Excel, что данную процедуру нужно вызвать через _ 1 секунду
Application.OnTime Now т TimeValue("00:00:01“}# "MovingString"
End If
End Sub
После запуска макроса s tart в ячейке Al будет отображаться бегущая строка с текстом Привет!.
Создание бегущей картинки
Возможности VBA предусматривают создание самых разных движущихся изображений. Например, с помощью приведенного в листинге 3.77 макроса из ячейки А1 включается движение надписи привет!. повернутой на 30е и написанной полужирным шрифтом.
Листинг 3.77. Бегущая картинка
Sub MovingImage()
Dim i As integer
Dim image As Object
Создание изображения (в ячейке "А1") With Range("Al")
* Формирование значения в ячейке: ’ текст
.Value *• "Привет!" 1 полужирный шрифт .Font.Bold - True ' цвет
.Font.Color - RGB(233, 133, 229) " размер шрифта .Font.Size ■ 16 • угол наклона .Orientation — 30
* Отображение текста полностью .Entirecolumn.AutoFit
Копирование в буфер обмена .Сору
Создание самостоятельного изображения (на основе скопированных в буфер обмена данных)
Set Image - ActlveSheet.Pictures.Paate(Llnki=False)
’ Содержимое ячейки больше не нужно .Clear
End With
• Задание начального положения изображения (левый верхний угол листа)
With image
-Top = О
.Left - О
End With
MsgBox "ПУСК!" With image
Перемещение изображения по диагонали For 1 - 0 То 100
.Тор = 1 .Left * i
Next
Удаление изображения .Delete
Мигающая ячейка
End With
* Удаление ссылки на изображение
Set. image = Nothing
End Sub
Чтобы картинка пришла в движение, необходимо запустить макрос, после чего в появившемся на экране окне с надписью ПУСК! (рис. 3.26) нажать кнопку ОК.
Рис. 3.26. Запуск бегущей картинки
Мигающая ячейка
Рассмотрим достаточно интересный трюк, с помощью которого можно заставить мигать (то есть попеременно изменять цвета) любую ячейку в течение некоторого промежутка времени.
। 4 * мг i..1 ►,ш ■ -
Предположим, что вам необходима ячейка, которая 10 раз каждые 5 секунд будет изменять цвет фона с красного на зеленый. Для решения этой задачи воспользуемся ыедующим макросом (листинг 3.78).
Листинг 3.78. Мигание ячейки
Sub BlinkIngCell()
Static intCalls As Integer * Счетчик количества миганий
’ Если ячейка мигала менее 10 pas, то изменим _ в очередной раз ее цвет
If intCalls < ID Then
IntCalls - intCalls ♦ 1
* Определение, какой цвет необходимо установить
If Range("Al").Interior.Color <> RGB(255, 0, 0) Then 1 Цвет ячейки не красный, так что теперь назначим _ именно красный цвет
Range("Al").Interior.Color = RGB{255, 0, 0)
Else ' Назначим ячейке зеленый цвет Range("Al").Interior.Color « RGB{0, 255, 0) End If
• Эту процедуру необходимо вызвать через 5 секунд Application. OnTjLme Now f TimeValue("00s00:05я), "BlinkingCell" El ве
1 Хватит мигать
Range(”A1“).Interior.Colcrinaex - xlNone intCalls *= 0 End If Ena Sub
После запуска макроса BllnkingCell будет мигать ячейка Al (рис. 3.27).
Рис. 3.27. Мигающая ячейка
Путем внесения соответствующих изменении в приведенный макрос можно регулировать продолжительность цикла и изменять цвета фона по своему усмотрению.
Вращающиеся автофигуры
Можно ли заставить автофигуры вращаться? Оказывается, можно, и это вовсе не так сложно, как может показаться на первый взгляд. В этом разделе мы рассмотрим. каким образом можно заставить перемещаться с одновременным вращением сразу две автофигуры.
Для реализации данного трюка нам нужно в первую очеред ь написать макрос, код которого представлен в листинге 3.79 (этот код нужно поместить в стандартный модуль редактора VBA).
Листинг 3.79. Вращение автофигур
Sub RotatingAutoShapesO
Static fRunnlng Ан Boolean
’ Проверка, выполняется ли уже этот макрос
If fRunnlng Then
1 При повторном запуске останавливаем все запущенные макросы
fRunnlng - False
End
End If
* Укажем, что макрос вапущеи fRunning — True
Dim
cell As Range
• Рабочая ячейка
Dim
intLeftBorder As Long
■
Левая граница ячейки
Dim
IntRightBorder As Long
Правая граница ячейки
Dim
LntTopBorder As Long
Верхняя граница ячейки
Dim
intBottomBorder As Long
»
Нижняя граница ячейки
Dim
alngVertSpeedd To 2) Аз Long
■
Массивы со значениями
Dim
alngHorzSpeed(l To 2) As Long
■
горизонтальной и вертикальной составлявших скоростей фигур
Dim
Dim
ashShapes(1 To 2) As Shape 1 As Integer
Массив перемещаемых агвтофигур
' Заполнение массива автофигур
Set ashShapes(l) ■ ActiveSheet.shapes(1)
Set ashShapee(2) = ActiveSheet.shapes(2)
Заполнение массива скоростей: • для первой фигуры alngvertspeed(l) - 3
alngHorzSpeed(l) — 3 1 для второй фигуры alngVertSpeed(2) - 4 alngHorzSpeed(2) ж 4
получение границ рабочей ячейки
Set cell - Range("В2”) intLeftBorder =• cell. Left IntRightBorder ■ cell.Left + cell.Width LntTopBorder — cell.Top intBotton® order = cell.Top + cell.Height
Выполнение вращения и перемещения Фигур Do
* Изменение положения каждой автофигуры For 1 - 1 То 2
With ashShapes(1)
• Контроль достижения правой границы ячейки
If .Left -I- .Width ♦ alngHorzSpeed(i) > IntRightBorder Then 1 Корректировка положения .Left - IntRightBorder - -Width
Изменение направления горизонтальней скорости на противоположное
alngHorzSpeed(i) — -alngHorzSpeed(1)
End If
' Контроль достижения левой границы ячейки
It .Left + alngHorzSpeed(i) < IntLeftBorder Then
Корректировка положения
.Left - IntLeftBorder
Изменение направления горизонтальной скорости _ на противоположное
alngHorzSpeed(1) = -alngHorzSpeed(i)
End If
Контроль достижения нижней границы ячейки
If .Тер + .Height + alngVertSpeed(i) > intBottcmBorder Then
Корректировка положения
.Top - intBottcmBorder - .Height
Изменение направления вертикальной скорости _
на противоположное
alngVertSpeed(i) - -alngVertSpeed(i)
End If
Контроль достижения верхней границы ячейки
If .Тор + alngVertSpeed(i) < intlopBorder Then
• Корректировка положения
-Тор — IntTopBorder
* Изменение направления вертикальной скорости на противоположное
alngVertSpeed(i) - -alngVertSpeed(i)
End If
Перемещение автофигуры
-Left = .Left alngHorzSpeed(i)
.Top =• .Top * alngVertBpeed(i)
Вращение автофигуры (изменение направления вращения происходит каждый раз при изменении направления _ вертикального перемещения)
.IncrementPotation alngvertSpeed(i)
Вызов таблицы цветов
Теперь в ячейке В2 нужно создать две любые автофигуры (перед этим ячейку В2 следует существенно увеличить, сделав ее размером примерно с четверть экрана, чтобы было место для вращения автофигур).
ПРИМЕЧАНИЕ
Адрес ячейки можно устанавливать любой, но для этого необходимо внести соответствующие изменения в код макроса.
Теперь, запустив созданный макрос, можно полюбоваться результатом своей работы — автофигуры будут вращаться и одновременно перемещаться в пределах указанной ячейки. При желании можно раскрасить автофпгуры в разные цвета и установить какой-нибудь фон для ячейки
Вызов таблицы цветов
При необходимости можно вывести на экран таблицу цветов и соответствующих значений свойства colorindex (данное свойство задает индексированный цвет заливки в соответствии с палитрой цветов). Для этого создадим и запустим следующий макрос (листинг 3.80).
Листинг 3.80. Отображение таблицы цветов
Sub ShowColorTehleО
Dim intColor As Integer
Формирование заголовка таблицы
Range ("Al”) .Value " •‘Цвет1
Range("Bl").Value = "Значение свойства colorindex"
' Покажем ячейку “Al" (начало таОлины)
Range(“Al”).Select ActiveWindow.ScrollRow * 1
End Sub
В результате выполнения макроса откроется таблица, изображенная на рис. 3.28.
Рис. 3.28. Таблица цветов
В столбце А данной таблицы отображается перечень цветов, а в столбце В — соответствующие им значения свойства colorindex. На рисунке показан лишь фрагмент таблицы, поскольку полностью она состоит из 56 строк.
Создание калькулятора
Используя средства языка VBA, можно быстро создать простейший калькулятор, предназначенный для вычисления значений арифметических выражений. Пример макроса, который позволяет это сделать, приведен в листинге 3.81.
Листинг 3.81. Создание калькулятора
Sub SlmpleCalculatorО
Dim strExpr Ав String
Ввод выражения
strExpr ■ InputBox("Что будем считать?")
Подсчет и вывод результата
MsgBox strExpr t " - " s Application.Evaluate(strExpr)
227227Создание калькулятора
227
227
После выполнения данного макроса появится окно, изображенное на рис. 3.29-
Рис. 3.29. КалькуляторРис. 3.29. Калькулятор
Рис. 3.29. Калькулятор
Рис. 3.29. Калькулятор
В данном окне с клавиатуры следует ввести вьфажение, значение которого необходимо вычислить, и нажать кнопку ОК либо клавишу Enter. Результат расчета будет показан в информационном окне (рис. 3.30).
Of 1 5 .л** 11*1
Рис. 3.30. Результат расчетаРис. 3.30. Результат расчета
Рис. 3.30. Результат расчета
Рис. 3.30. Результат расчета
Если строку макроса strExpr - 1лригВох(**Что будем считать?") написать в виде, например, strExpr - inputBox ("Быстрое вычисление"), то окно ввода выражения будет выглядеть как на рис. 3.31.
Рио. 3.31. Замена текстаРио. 3.31. Замена текста
Рио. 3.31. Замена текста
Рио. 3.31. Замена текста
Окно результата расчета при атом не изменится (рис. 3.32).
Рио. 3.32. Окно результата расчета
Еще о создании пользовательских меню
Мы уже рассматривали некоторые способы создания пользовательского меню (см. выше раздел «Формирование пользовательского меню»).
Предлагаемый же в данном разделе пример является более масштабным; созданное пользовательское меню будет помешено вместо главного меню программы.
Кроме того, в этом примере можно увидеть команды созданного меню «в работе» (то есть при выполнении команды на экране отобразится определенный результат).
Сначала рассмотрим создание пользовательского меню, которое полностью состоит из пользовательских команд. После этого реализуем меню, в котором наряду с пользовательскими будут и штатные средства Excel.
Меню с пользовательскими командами
Для реализации данного трюка нам потребуется создать два мода. Один из них будет помещен в модуль ЭтаКнига, а другой — в стандартный модуль. Первый код выглядит следующим образом (листинг 3.82)
Листинг 3.82. Код в модуле ЭтаКиига
Sub Workbook_Open()
Задание имени меню
BtrMenuName — "MyConwandBartiame"
Создание меню
CreateCustomMenu
End Sub
Sub WorkbookBeforeClose(Cancel as Boolean)
' Удаление меню перед закрытием книги
DeleteCustamMenu
End Sub
Второй код необходимо набрать в любом стандартном модуле. В нем определяется структура пользовательского меню и порядок его работы. Содержимое данного кода представлено в листинге 3.83.
Листинг 3.83. Код в стандартном модуле
Public strMenuName As string ’ Имя строки меню
Private cbrCBar As CommandBarControl
Sub CreateCustomMenuО
Dim cbrMenu As CommandBar
Dim cbrcMenu As ConmandBarControl * Выпадающее меню •'Меню" Dim ctrcSubMenu Лэ CommandBarControl ’ Выпадапцее меню “Дополнительно"
' Если уже есть пользовательское меню, то оно удаляется DeletеСustamMenu
’ Создание меню вместо стандартного
Set cbrMenu = Application.cammandBars.Add(strMenuName, msoBarTop, True, True)
Создание выпадающего меню с названием "Меню” Set cbrcMenu - cbrHenu.Controls.Add(meoControlPopup, , , , True) With cbrcMenu
.Caption - "ЬМеню"
End With
• Создание пункта меню
With cbrcMenu.Controls.Add(Type: =msoControlButton, Temporary:“True)
.Caption - "бМеню!”
-OnAction = "CallMenul”
End With
■ Создание пункта меню
With cbrcMenu.Controls.Add(Type:-msoControlButton, _ Temporary:-True)
-Caption - "Меню2"
.OnAction — ■CallMenu2"
End With
' Создание подменю первого уровня
Set cbrcStibMenu - cbrcMenu.Controls.Add(Typei—msoControlPopup, Temporary:-True)
With cbrcSubMenu
.Caption - ’’Подменю!"
-BeginGroup - True
End With
• Создание пункта меню
With cbrcMenu.Controls.Add(Type:“msoControlButton, Temporary:—Ttue)
-Caption = "Вкл/Выкл"
.OnAction - “MenuOnOff"
.Style = msoButtonlconAndCaption .Faceld = 463
End With
* Создание пункта маню в подмени первого уровня
With сЬгсЗпЬМеди.Controls.Add(Type:—msoCantrolButtori, _ Temporary:-True)
.Caption - "Подменю!"
-OnAction - "CallSubMenul"
-Style — msoButtonlconAndCaption .Faceld ■ 2950
.State - msoButtonDown
End With
' Создание пункта меню в подменю первого уровня (его состояние _ изменяется посредством пункта "Вкл/Выкл"), для чего сохраним ссылку на созданный пункт меню
Set cbrcBar - cbrcSubMenu.Controlв .Add (Type :-msoControlButton, Temporary:-True)
With cbrcBar
.Caption - "Подменю?" .OnAction - "callSubMenuZ" • Сначала меню деактивировано .Enabled - False End With
Создание подмене второго уровня
Set cbrcSubMenu - cbrcSubMenu.Controls.Add(Type:-msoControlPopup, Temporary;-True)
With cbrcSubMenu
.Caption ■ "ПодиПолмеию!H
.BeglnGroup = True
End With
" Создание пункта меню в подменю второго уровня With cbrcSubMenu.Controls.Add(Type:-msoControlButtcn, Temporary:-True)
.Caption — "ПослМеню!"
-OnAction = "CallLastMenul"
-Style - maoButtonlcocAndCaptien .Faceld - 71
-State - msoButtonDown End With
Создание пункта меню в подменю второго уровня With cbrcSubMenu.Controls.Add(Type:-mseControlButton, Tepipora г у: -True)
.Caption - "ПослМеню?"
.OnAction - ■’CallLastMenuZ"
.Style = msoButtonlconAndCaption
.Faceld - 72 .Enabled •• True End With
' Отображение йене cbrMenu.Visible - True Set cbrcSubMenu ■ Nothing Set cbrcMenu - Nothing Set cbrMenu - Nothing End Sub
Sub DeleteCuetonlMenu ()
* Удаление строки меню On Error Resume Next Applicatlon.CommandBarB(BtrMenuHame)-Delete On Error Goto 0 End Sub
Sub CallMenul()
Обработка вызова Меню!
MsgBox "Приветствует меме I!", vblofonnation, ThisWorkbook-Name End Sub Sub CallMenu2()
Обработка вызова Меню?
MsgBox "Приветствует меню 2!", vblnfonnation, ThiaWorkboek.Name End Sub
Sub CallSubMenul(1
Обработка вызова Подменю!
MsgBox "Приветствует подменю 1!", vblnfcnnatlon, ThisWorkbook-Name End Sub Sub CallSubMenu2()
* Обработка вызова Подменю?
MsgBox "Приветствует подменю 2!", vblnformatlon, ThiaWorkbook.Name End Sub
Sub CallLastMenulO
Обработка вызова Последнего меню!
MsgBox "Приветствует последнее меню 1!", vbInformation, ThieWorkbook.Name
Sub CallLastMenuZО
Обработка вызова Последнего меню?
МадВох "Приветствует последнеемекв2Iй, vblnformation, ThiaWorkbook.Name Ena Sub
Sub MenuOnDff ()
Активация или деактивация пункте "Меню-Подаеню1-Подмеию2" cbrcBar.Enabled •* Not cbrcBar.Enabled
End Sub
Чтобы пользовательское меню отобразилось вместо главного меню программы, необходимо запустить макрос CreateCustomMenu (после написания кода данный макрос будет доступен в окне выбора макросов). Результат представлен на рис. 3.33.
Рис. 3.33. Созданное пользовательское меню
Данное меню работает следующим образом: при выполнении любой его команды появляется окно с соответствующим сообщением (рис. 3.34). Исключение составляет команда Вкл/Выкл — с ее помощью осуществляется шслючение/выключение пункта Подменю! ► Подменю?.
Рис. 3.34. Результат выбора пункта Мвню1
Для возврата в первоначальное состояние следует воспользоваться макросом DeleteCustomMenu (в некоторых случаях для «отката» нужно закрыть рабочую книгу. затем вновь открыть ее и лишь после этого запустить макрос oeletecus г отМе пи ). Для доступа к данному макросу можно воспользоваться панелью инструментов Visual Basic (при отсутствии главного меню эту панель можно включить, щелкнув правой кнопкой мыши на любой панели инструментов и выбрав ее в открывшемся контекстном меню).
Замена стандартного меню пользовательским
В процессе работы иногда возникает необходимость скрыть стандартное меню и заменить его пользовательским, после чего вернуться к первоначальному состоянию. В данном подразделе мы создадим пользовательское меню, которое будет включать в себя меню Файл (это меню будет просто скопировано из стандартного меню) и меню Дополнительно.
Для реализации поставленной задачи необходимо в стандартном модуле редактора VBA написать код, представленный в листинге 3.84
Листинг 3.84. Создание пользовательского меню
Sub CreateMenuO
Dim cbrMenu Ав CommandBar
Dim cbrcNewMenu As CommandBarControl
I 1►NM1 ^#H n
Удаление меню, если оно уже есть
Call DeleteMenu
* Добавление отроки пользовательского меню
Set сЗэгМепи = C<Mnnand8are.Add(MenuBar;»True)
With cbtMenu
-Нате • "'Моя строка меню"
-Visible - True
End With
Копирование стандартного меню "файл"
CommandBars("Worksheet Menu Bar") .EindCttottol(ID;»=30002) .Copy _ CommandBars("Моя строка меню")
Добавление нового мене - "Дополнительно"
Set cbrcNewMenu — cbrMenu.Controls.Add(msoControLPopup)
cbrcKewMenu.Caption - "^Дополнительно”
Sub DeleteMenu()
Пытаемая удалить меню (успешно, если оно ранее создано) On Error Resume Hext
CoramandBars("Моя строка мешй"> .Delete
On Error GoTo 0
End Sub
В результате написания данного кода будет создан макрос CreateMenu. При его выполнении вместо стандартного меню будет отображаться пользовательское, включающее в себя пункты Файл (этот пункт скопирован из стандартного меню) и Дополнительно. С помощью команды Дополнительно ► Восстановить обычную строку меню осуществляется быстрое восстановление стандартного меню. Команда Дополнительно ► Справка имеет чисто демонстрационную функцию.
Склонение фамилии, имени и отчества
Трюк, который мы рассмотрим в данном разделе, удобно применять при работе со списками ФИО. С его помощью можно быстро переводить требуемые ФИО в родительный или дательный падеж. Чтобы достичь подобного эффекта, следует воспользоваться макросом, код которого приведен в листинге 3 85 (данный код записывается в стандартном модуле).
Листинг 3.85. Склонение ФИО
Public Sub FossessivaCaae()
склоняем ФИО • родительный падеж
Dim strNamel Ав String, strNaneZ Аз String, strName3 As String
strNamel - dhGetName(ActiveCell, 1) * Выделяем имя
strNameZ - dhGetName(ActiveCell, 2)* Выделяем фамилию
strtiamel - dhGetName(ActiveCell, 3)1 Выделяем отчество
Если в ячейке менее трех слов - закрытие процедуры
If strNamel •• "" or strName2 - **" Or BtrName3 - "" Then Exit Sub
Склоняем
Cells(ActiveCell.Row, ActiveCell.Column) = dhPoseessive( strNamel, strNamaZ, atrNameS)
End Sub
Public Sub DativeCase()
' Объявление переменных
Dim strNamel As String, strName2 As String, strNamel As String
strNamel ** dhGetName(ActiveCell, 1)
strNameZ - dhGetName(ActiveCell, 2)
strName3 = dhGetName(ActiveCell, 3)
Если в ячейке менее трех слов - закрытие проиадурн
If ten(strNamel) — 0 Or ten(strName2) = 0 Or ten(strNamel) ■• P _ Then Exit Sub
Cells(ActiveCell.Row, ActiveCell.Column) - dhDativeC _ strNamel, strNameZ, strName3)
End Sub
Function dhPossesaive(strNamel As String, strNameZ Aa String, strNamel Ab String) As String
Dim fMan As Boolean
Определяем, мужские ФИО или женские fMan — (Right(strNamel, 1) ■ "ч")
Склонение фамилии в родительный падеж
If Len(strNamel) > 0 Then If fMan Then
' Склонение мужской фамилии
Select Case Right(strNamel, 1) Сазе "о", -ш", "я", "a" dhPoseesatve - strNamel Севе "й”
dhRosaeasive - Hid (strNamel, 1, Len(strNamel) -2) + "ото" Case Else
dhPossesaive = strNamel + "a" End Select Else
Склонение женской фамилии
Select Case Right(strNamel, 11
Case V, V, "б", "в", “г", "дп, "ж", "а", "к*’, “л", "м", пнп, ип", "р", "с", "т", "ф", "х**, "ц”, V, "ш", "Ш**, %" dhPossesaive - strNamel
Case "я**
dhPoaeeasive -Mid (strNamel, 1, ten (strNamel) - 2) 6 "ой" Case Else
dhPosaeeaivn -Mid(strNamel, 1, ten(strNamel) - 1) t "ой" End Select End If dhPossessive • dhPossesaive & 11 ”
End If
Склонение имени в родительный падеж If Len(strNameZ) > 0 Then If fMan Then
• Склонение мужского имени Select Case Hight (strNamez, 1) Case "й”, "ь"
dhPossessive ■ dhPossessive fc Mid(BtrName2, 1, Lan(strNameZ) - 1) x "r"
Case Else dhPossessive - dhPossessive & stxNameZ Ь "a" End Select Else ' Склонение женского имени Select Case Right(atrHameZ, 1)
Case "a" Select Case Mid(strHame2, Len(strNameZ) - 1, 1) Case "и11, "г" dhPossessive — dhPossessive a Mid( strNajneZ, 1, Len(strName2) - 1) 6 "и" Case Else
dhPossessive •= dhPossessive t Mid(strNanie2, 1, Len(strNaee2> - 1) 8 ”m"
End Select Case "я"
If Mid{strName2, Len(strNameZ) - 1, 1) - “и* Then dhPossessive ** dhPossessive 6 MidistrNameZ,
1, Len(stxName2) - 1) & "й" Else
dhPoesessive = dhPoeaessive & Mid(strName2, 1, Len(strName2) - 1) 6 "и"
End If Case "ь”
dhPossessive ■ dhPossessive 6 Mid(etrName2, 1, Len{strKame2) - 1) 8 "и"
Case Else dhPossessive — dhPossessive 8 strNarneZ End Select End If dhPossessive - dhPossessive 6е" End If * Склонение отчества а родительный падеж If Len(strName3) > 0 Then
It fMan Then dhPossessive = dhPossessive 6 strName3 & ”a"
Else dhPossessive а dhPossessive е Mid(stfName3, 1, Len(strNamell - 1) 6 "ы" End If End If End Function
Function dhDative(strNamel As String, strName2 As String, strName3 As String} Аз String Dim fMan As Boolean 1 определяем, мужские ФИО или женские fMan = (Right(sttName3, 1) - "ч")
Склонение фамилии в дательный падеж If Len(strNamel! > 0 Then If fMan Then ' Склонение мужской фамилии Select Case Right(strNamel, 1) Case ”o", "и", "я", "a" dhDative * StrNamel Case пй“
dhDative-Nid(strNamel, 1, Len(strNamel) -2) + "ому" Case Else
dhDative ■ strNamel + "y" End Select Else • Склонение женской фамилии Select Case Right(strNamel, 1) Саве "о", "и", "С", "в", "гп, "д”, "ж", "в”, "к", "л", "и”, ”н", "п", "р", "с", “т", "ф", "х", "Ц", "ч", "ш", _" •'гц", "ь" dhDative *- strNamel Саве "я" dhDative * Mid(strNamel, 1, Len(etrNamel> - 2» & "ой1 Case Else dhDative - Mid(strNamel, 1, Len(StrNamel) - 1) 6 "ой1 End Select End If dhDative ■ dhDative & 11 " End If * Склонение имени в дательный падеж If Len(strName2) > 0 Then If fMan Then
' Склонение мужского имени Select Саве Right(strNameZ, 1) Case "й", "ь" dhDative = dhDative 8 Mi-d(strName2, i, _ Leo (strNanieZ) -11 s "ю" Case Else dhDative = dhDative 8 strNameZ 6 "y" End Select Else * Склонение женского имени Selept Case Right(strNameZ, 1} Case "а", “я" If MidtstrtJameZ, Len (strNameZ) - 1, 1) “ ’’и” Then dhDative - dhDative 6 MidfstrNameZ, 1, _ Len(etrNameZ) - 1) t "и" Else dhDative • dhDative 8 Mld(strNajnte2, 1, Len(strNameZ) - 1) 8 "e" End If Case V dhDative ■ dhDative 6 Mid(strNameZ, 1, _ Len(etrNameZ) - 1) 8 "и" Case Else dhDative - dhDative & BtrNameZ End Select End If dhDative - dhDative 6 " " End If ‘ Склонение отчества в дательный падеж if Len(strName3) > 0 Then If fMan Then dhDative - dhDative 8 stxName3 8 "y" Else dhDative-dhDative 8Mid(atrName3, 1, LentstrNameS) -1) 8 "e" End If End If End Function
Function dhGetKame<strString Aa String, intNum As Integer)
• Функция возвращает слово с номером intNutn во входной строке _ BtrString
Dim strTemp As String Dim intWord Aa Integer Dim intSpace As Integer
239239Получение информации об используамом принтере
239
239
■ Удаление пробелов по краям строки strTernp = Trrm(strString)
• Просмотр строки (до слова с нужным номером! For IntWord ■ 1 То intNum - 1
* Поиск следующего провела IntSpace = InStr (strTernp, " *•) If IntSpace = 0 Then
• Страка закончилась IntSpace = Len(strTernp)
End If
* Строка strTernp теперь начинается co слова с номером IntWord strTernp • Trim(Right(strTernp, Len(strTernp) - IntSpace))
Next IntWord
* Выделение нужного слова (по пробелу после него) IntSpace — InStr{StrTernp, ” ")
If intSpace — 0 Then
IntSpace — Len(strTernp)
End If
dhGetName - Trim(Left(strTernp, intSpace))
End Function
Чтобы ФИО отобразились в родительном падеже, следует установить курсор в ячейку с ЭТИМИ ФИО и запустить макрос Fosses siveCaee; в дательном падеже — макрос DativeCase (после написания кода эти макросы будут доступны в окне макросов)
| ВНИМАНИЕ
|Для реализации трюка следует соблюдать условие — ячейка должна содер-
•жать не менее трех слов. В противном случае операция выполнена не будет.
Следует учитывать, что в ячейке сначала должна следовать фамилия, за ней — имя, и затем — отчество.
Данный макрос не всегда корректно обрабатывает сложные имена и фамилии
Получение информации об используемом принтере
С помощью небольшого макроса можно вывести на экран информацию об используемом принтере. Код макроса записывается в стандартном модуле редактора VBA и выглядит следующим образом (листинг 3.86)
Листинг 3,86. Информация о принтере
• Объявление API-функции
Declare Function GetProfileStringA Lib "kernel32" _ (ByVai IpAppName Ab String, ByVai IpKeyName As String, ByVai IpDefault Аз string, HyVal IpAaturnedString As String, ByVai nSlze As Long) As Long
Sub Принтер()
Dim strFullInfo Аз String * 255Dim strinfo As StringDint strprinter AS StringDim strDriver As StringDim strPort As StringDim strMessage As StringDim intPrinterEndPos As IntegerDim intDriverEndPos As IntegerDim strFullInfo Аз String * 255Dim strinfo As StringDint strprinter AS StringDim strDriver As StringDim strPort As StringDim strMessage As StringDim intPrinterEndPos As IntegerDim intDriverEndPos As IntegerВуфер для АРI-функции" Строка с полной информациейНазвание принтераДрайвер принтераПорт принтераВуфер для АРI-функции" Строка с полной информациейНазвание принтераДрайвер принтераПорт принтера
Dim strFullInfo Аз String * 255
Dim strinfo As String
Dint strprinter AS String
Dim strDriver As String
Dim strPort As String
Dim strMessage As String
Dim intPrinterEndPos As Integer
Dim intDriverEndPos As Integer
Dim strFullInfo Аз String * 255
Dim strinfo As String
Dint strprinter AS String
Dim strDriver As String
Dim strPort As String
Dim strMessage As String
Dim intPrinterEndPos As Integer
Dim intDriverEndPos As Integer
Вуфер для АРI-функции
" Строка с полной информацией
Название принтера
Драйвер принтера
Порт принтера
Вуфер для АРI-функции
" Строка с полной информацией
Название принтера
Драйвер принтера
Порт принтера
• Заполнение буфера пробелами
strFullInfo •- Space (255)
* Получение полной информации о принтере
Call GetProfileStringA("Windows", "Device", "", strFullInfo, 254)
* Удаление лишних символов из конца возвращенной строки
Строка etrlnfo имеет формат <имя_приятера>,<драйввр>,<£горт>г strinfo - Trim(strFullInfo)
Поиск запятых в строке (окончаний названий принтера и драйвера) intPrinterEndPos* Application.Find(",", strlnfo, 1)
IntDriverEndPos - Application.Find(", ”, strlnfo, intPrinterEndPos * 1)
Определение названия принтера strPrinter =• Left(etrlnfo, intPrinterEndPos ~ 1) • Определение драйвера
strDriver = Mid(strlnfo, IntPrinterEndPos + 1, IntDriverEndPos - IntPrinterEndPoe - 1)
Определение порта (его название заканчивается символом ":") strPort - Mid(strlnfo, intDriverEndPoe ♦ 1, InStr(1, etrlnfo, *:")
- IntDriverEndPos - 1)
Формирование информационного сообщения
strMessage = "Принтер:" 6 Chr(9) 6 strPrinter fc Chr(13)
strMessage - strMessage 6 "Драйвер:" 6 strDriver 6 Chr(13)
strMeaeage =• strifes sage 6 "etrPort:" s Chr(9) 6 ecrPott
' Выгод информационного сообщения
MsgBox strMessage, vblnforroation, “Сведения о принтере no умолчаний"
End Sub
В данном примере для получения информации о принтере используется АРГ-функ- ция GetProf ileStringA. Эта функция возвращает в строку-буфер strFuilInfo информацию в виде <имя_принтера>» <драйвер>, <порт>:.
После запуска данного макроса на экран выводится окно Сведения о принтере по умолчанию (название окна можно корректировать по своему усмотрению путем внесения соответствующих изменении в код макроса), в котором будет показана марка принтера, а также его драйвер и порт.
Вывод текущей даты и времени
Применив несложный трюк, можно в любой момент вывести на экран окно с информацией о текущей дате н времени. Для достижения такого эффекта достаточно написать и запустить макрос, код которого выглядит следующим образом (листинг 3.87).
Листинг 3.87. Сообщение о дате и времени
Sub TlmeAndDateO
Dim strDate As String, strTlme As String
Dim strGreeting As String
Dim strUeerName As String
Dim IntSpacePos As Integer
strDate = Format(Date, “Long Date"}
strTlme " Format (Time, “Medium Time")
приветствие — в зависимости от времени сум*
If Time < TimeValue("12:00") Then
strGreeting = "Доброе утро, "
Elself Time < TimeValue["17:00") Then
StrGr»e-. .ng - "Дрбрый день, "
Else
strGreeting =■ "Добрый вечер, “
End If
В приветствие добавляется имя текущего пользователя
strUsexbame - Application.UserName
IntSpacePos =• InStxfl, strUserName, “ ", 1}
Управление ситуацией, когда в имени нет пробела
If IntSpacePos - 0 Then IntSpacePos = Len(strUserName)
strGreeting - strGreeting 6 Left(strUserNaree, intSpacePoe)
Вывод на экран информационного сообщения о дате к времени
MsgBox strDate 6 vbCrLf 6 stгTime, vbOKOnly, strGreeting
End Sub
Пекле каждого выполнения данного макроса на экране будет отображаться окно с информацией о текущей дате и времени. В заголовке окна, помимо имени пользователя, будет содержаться текст Доброе утро, Добрый день либо Добрый вечер (в зависимости от времени суток).
Автоматическое создание документов Word на основе табличных данных Excel
В данном разделе мы рассмотрим трюк, с помощью которого можно автоматически создавать текстовые документы Word на основе данных, хранящихся в таблице Excel. Это бывает необходимо, например. для быстрого формирования текстовых отчетов, в которых должны фигурировать табличные данные. Использование этого приема мы рассмотрим на конкретном примере.
Предположим, что у нас есть следующие данные о продажах по регионам (рис. 3.35).
11Магазин 1 МоскваМагазин 1 Москва21 t4521 t45Магазин 2 (МинскМагазин 2 (МинскМагазин 3 'КиевМагазин 3 'КиевЗдесь" приведеныjданные о продажам по Вашему региону ' за отчетный периодЗдесь" приведеныjданные о продажам по Вашему региону ' за отчетный период50000' «ШЦ 35000!50000' «ШЦ 35000!77j Сообщениеj Сообщение
1
1
Магазин 1 Москва
Магазин 1 Москва
2
1 t4
5
2
1 t4
5
Магазин 2 (Минск
Магазин 2 (Минск
Магазин 3 'Киев
Магазин 3 'Киев
Здесь" приведеныj
данные о продажам по Вашему региону ' за отчетный период
Здесь" приведеныj
данные о продажам по Вашему региону ' за отчетный период
50000' «ШЦ 35000!
50000' «ШЦ 35000!
7
7
j Сообщение
j Сообщение
Рис. 3.35. Данные о продажах
V
ВНИМАНИЕ
При изучении данного раздела следует обращать внимание на расположение •данных иа рабочем листе (то есть иа координаты задействованных ячеек).
Для автоматического создания отчетов на основании приведенных данных следует в стандартном модуле редактора VB А написать код, приведенный в листинге 3.88.
Листинг 3.88. Создание документов Word на основе таблицы Excel
Sub RepcrtToWord(1
Dim IntReportCount As Integer Количество сообщений
Dim strForWho As String* Получатель сосОтения
Dim strSum As String1 Сумма за товар
* Название товара’ Имя файла для сохранения сообщения' Текст дополнительного сообшекия’ Обрабатываемые ячейки* Название товара’ Имя файла для сохранения сообщения' Текст дополнительного сообшекия’ Обрабатываемые ячейкиDim strProduct As String
* Название товара
’ Имя файла для сохранения сообщения
' Текст дополнительного сообшекия
’ Обрабатываемые ячейки
* Название товара
’ Имя файла для сохранения сообщения
' Текст дополнительного сообшекия
’ Обрабатываемые ячейки
Dim strOutFileName As String
Dim strMessage As String
Dim rgData As Range
Dim objWord As Object
Dim 1 As Integer
' Создание объекта Word
Set objWord - CreateObject("Word.Application")
Информация с рабочего листа
Set rgData - Range("Al”)
strMessage =• Range ("E6")
Просмотр записей на листе Лист1
IntReportCount • Application.CountA(Range("A:A"))
For i - 1 To IntReportCount
Динамические сообщения в строке состояния Application.StatusBar - "Создание сообщения " 6 i
Назначение данных переменным
strForWho = rgData.Cells(1, 1) .Value
strproduct ■ rgData.Celia(i, 2).Value
BtrSum - Format (rgData.Cells(i, 3) .Value, "♦,000’’]
.TypeText Text:="Дата:" £ VbTab 6 _ Format (Date, "mmnim d, yyyy")
' Получатель сообщения
.TypeParagraph
.TypeText Text:="Kony: менеджеру " & vbTab £ BtrForWha
Отправитель
.TypeParagraph
.TypeText Text:-"От:" 6 vbTab 6 Application.UserName
Сообщение
.TypeParagraph
.TypeParagraph
.TypeText strMessage
.TypeParagraph
.TypeParagraph
Название товара
.TypeText Text:“"Продано товара:" ь vbTab £ strProduct
.TypeParagraph
Сумма за товар
.TypeText Text:“"На сумму:*1 8 vbTab 6
Format(errSum, "StjifO")
End With
* Сохранение документа
.ActiveDocument.SaveAs FlleName:-вtrOutFilename
End With
Next i
Удаление обтлкта Word
ob]Word.Quit
Set objWord - Nothing
' Обновление строки состояния
Application.StatusBar - False
Вывод ха экран информационного сообщения
MsgBox intReportCount £ “ заметки создано и сохранено в папке "
6 ThisWcrkbook.path
End Sub
В результате написания кода в окне выбора макросов станет доступным макрос ReportToWord. После его запуска начнется формирование отчетов (информация о состоянии процесса будет отображаться в строке состояния). По окончании процесса на экране отобразится окно с сообщением о том, что документы сформированы и помещены в ту папку, в которой хранится текущая рабочая книга. В нашем
примере будут созданы три документа с именами магазин 1. doc, Магазин 2.doc и Магазин 3.doc. Содержимое документа Магазин 1 .doc показано на рис 3.36 (другие документы выглядят аналогичным образом).
ОТЧЕТ
Дата Август 20,2005
Кому менеджеру Магазин 1
От Lesha
Здесь приведены
данные о продажах по Вашему региону за отчетный период
Продано товара Москва
На сумму: $50 000
Рис. З.Э6. Документ Word, созданный на основе данных таблицы Excel
В данном примере Lesha — это имя пользователя, создавшего документ. Очевидно. что путем внесения соответствующих изменений в код макроса форму создаваемого отчета можно корректировать по своему усмотрению.
Создание списка панелей инструментов и контекстных меню
При необходимости можно сформировать на рабочем листе список доступных панелей инструментов и контекстных меню. Для этого достаточно написать (в стандартном модуле редактора VBA) и запустить на выполнение макрос, код которого приведен в листинге 3.89.
Листинг 3.89. Список панелей инструментов и контекстных меню
Sub ListOfMenues О
Dim intRow As Integer ' Хранит текущую строку
Dim cbrBar As CommandBar
* Очистка усек, я-. » • текущего листа
Cells.Clear
intRow - 1• Начинаем запись с первой строки
• Просматриваем список панелей инструментов и меню _ и записываем информацию о каждом элементе в таблицу
For Each cbrBar Tn CotnmandBars
* Порядковый номер Cells(IntRow, 1) - cbrBar.Index * Название Cells(IntRow, 21 - cbrBar.Name ' Тип
Select Case cbrBar.Type
Case ihsoBarTypeNormal
Celia[intRow, 3) - "Панель инструментов"
Case msoBarTypeMenuBar
Cells(intRow, 31 ■ “Строка меню"
Case msoBarTypePopup Cells(intRow, 3) — "Контекстное меню" End Select ' Встроенный элемент или созданный пользователем Cells(intRow, 4] = cbrBar.BuiltIn
* Переходим на следующую строку intRow “ intRow 4 1 Next End Sub
Результат выполнения данного макроса (после написания кода он будет доступен в окне списка макросов) показан на рис 3.37.
е9е9А»-А1..^■■^■НWorksheet Vlenu BaСтрока менюйстанА23Chart Menu BarStandardСтрока ывню_ Панель инструменте_истина ИСТИНА45"Б7Formatting PivotTable , Chart ReviewingПанель инструменте Панель инструменте Панель инструменте Панель инструменте1ИСТИНА _ИСТИНА „истина ИСТИНА6'Forma91 Stop Recording jn'C-u^ei П^лПанель инструмекп Панель инструмент! ’1Лл»««т« «oie^H,»»»»»—ИСТИНА ИСТИНА мАтмияА»-А1..^■■^■НWorksheet Vlenu BaСтрока менюйстанА23Chart Menu BarStandardСтрока ывню_ Панель инструменте_истина ИСТИНА45"Б7Formatting PivotTable , Chart ReviewingПанель инструменте Панель инструменте Панель инструменте Панель инструменте1ИСТИНА _ИСТИНА „истина ИСТИНА6'Forma91 Stop Recording jn'C-u^ei П^лПанель инструмекп Панель инструмент! ’1Лл»««т« «oie^H,»»»»»—ИСТИНА ИСТИНА мАтмияРис. 3.S7. Фрагмент списка панелей инструментов и менюРис. 3.S7. Фрагмент списка панелей инструментов и меню
е
9
е
9
А»-А1..^■■^■Н
Worksheet Vlenu Ba
Строка меню
йстанА
2
3
Chart Menu Bar
Standard
Строка ывню_ Панель инструменте
_истина ИСТИНА
4
5
"Б
7
Formatting PivotTable , Chart
Reviewing
Панель инструменте Панель инструменте Панель инструменте Панель инструменте
1ИСТИНА _ИСТИНА „истина ИСТИНА
6'Forma
91 Stop Recording jn'C-u^ei П^л
Панель инструмекп Панель инструмент! ’1Лл»««т« «oie^H,»»»»»
—ИСТИНА ИСТИНА мАтмия
А»-А1..^■■^■Н
Worksheet Vlenu Ba
Строка меню
йстанА
2
3
Chart Menu Bar
Standard
Строка ывню_ Панель инструменте
_истина ИСТИНА
4
5
"Б
7
Formatting PivotTable , Chart
Reviewing
Панель инструменте Панель инструменте Панель инструменте Панель инструменте
1ИСТИНА _ИСТИНА „истина ИСТИНА
6'Forma
91 Stop Recording jn'C-u^ei П^л
Панель инструмекп Панель инструмент! ’1Лл»««т« «oie^H,»»»»»
—ИСТИНА ИСТИНА мАтмия
Рис. 3.S7. Фрагмент списка панелей инструментов и меню
Рис. 3.S7. Фрагмент списка панелей инструментов и меню
Данный список выводится на активном рабочем листе.
Создание списка пунктов главного меню Excel
Подобным образом можно сформировать список подменю и команд, входящих в главное меню программы. Для этого в стандартном модуле нужно написать следующий код (листинг 3,90).
Листинг 3.90. Список содержимого главного меню
Sub MstOfMenues ()
Dim intRow As Integer 1 Текущая строка, куда идет запись Dim cbrcMenu As ComtnandBarControl1 Главное меня
Dim cbrcSubMenu As CommandBarControl * Подменю Dim cbrcSubSubMenu As ComraandBarcontrol 1 Подменю в подменю
' Очищаем ячейки текущего листа CelIs.Clear
* Начинаем запись с первой строки intRow - 1
• Просматриваем ясе элементы строки меню On Error Resume Next * Игнорируем ошибки For Each cbrcMenu In CommandBars(1).Controls
Просматриваем элементы выпадающего меню cbrcMenu For Each cbrcSubMenu In cbrcMenu.Controls
* Просматриваем элементы подменю cbrcSubMenu For Each cbrcSubsubMenu In cbrcSubMenu.Controls
* Выводим название главного меню Cells(IntRow, 1} * cbrcMenu.Caption * Выводим название подменю Cells(IntRow, 2) - cbrcSubMenu.Caption • Выводим название вложенного подменю Calls(intRow, 3) — cbrcSubSubMenu.Caption
• Переходим на следующую строку intRow — intRow ♦ 1
Next cbrcSubSubMenu Next cbrcSubMenu
Next cbrcMenu End Sub
После запуска макроса ListOfMenues (этот макрос появится в окне выбора макросов после написания приведенного выше кода) список подменю и команд главного меню будет сформирован на текущем рабочем листе.
Создание списка пунктов контекстных меню
Чтобы вывести аналогичный список содержимого контекстных меню программы, нужно написать и выполнить макрос, код которого приведен в листинге 3.91.
Листинг 3.91. Список содержимого контекстных меню
Sub LlstOfContextidenu6SО
Dim intRow Ав Long
Dim intControl Ав Integer
Dim cbrBar Aa CommandBar
• Очистка ячеек активного листа Cells.Clear
’ Начинаем вывод с первой строки intRow • 1
Просмотр списка контекстных меню и вывод информации о них For Each cbrBar Tn ComtnandBars
If cbrBar.Type = тзсВыГуреPopup Then
Порядковый номер Cells(IntRow, 1) - cbrBar.Index ' Название Celia(intRow, 2) - cbrBar.Name ’ Просмотр всех элементов контекстного меню и вывод , названий этих элементов в ячейки текущей строки
For IntControl « 1 То cbrBar-Controls-Count Cells(intRow, IntControl + 2> = _ cbrBar.Controls(intControl).Caption Next intControl
Переход на следующую строку таблицы intRow ** intRow * 1 End If
Next cbrBar
Делаем ширину ячеек таблицы оптимальной для просмотра Cells. EntireColutnn. AutoFlt End Sub
Сформированный в результате выполнения данного макроса список будет расположен на текущем рабочем листе.
Отображение панели инструментов при определенном условии
t < и С О^. 1 При включении большого количества панелей инструментов (как системных, так в пользовательских) могут возникать ситуации, когда эти панели занимают значительную часть окна программы, затрудняя тем самым работу пользователя. Од-
лако можно сделать так, что пользовательская панель инструментов будет отображаться на экране только при выполнении какого-либо условия Следует отметить, что подобная возможность уже реализована применительно к некоторым штатным панелям инструментов: например, панель Диаграммы обычно появляется автоматически при работе с диаграммами. В данном разделе мы рассмотрим прием, после реализации которого пользовательская панель инструментов будет отображаться лишь тогда, когда курсор находится в определенном диапазоне.
В модуле рабочего листа напишем следующий код (листинг 3.92).
Листинг 3.92. Код в модуле рабочего листа
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Проверка условия отображения
If Union (Target., Range("AliDS")) .Address — _
Range("ALtDS') .Address Then
■ Условие выполнено - можно показывать панель
CommandBars ("AutoSense") .Visible - True
Else
Условие не выполнено - панель нужно скрыть CommandBars(■'AutoSense").Visible - False
End If
End Sub
Из содержимого данного кода видно, что условием отображения пользовательской панели инструментов будет выделение любой ячейки диапазона А1:05 (либо выделение произвольного диапазона внутри данного диапазона).
Теперь необходимо написать в стандартном модуле код, содержимое которого приведено в листинге 3 93. Для начала работы с панелью необходимо запустить макрос CreatePanel.
Листинг 3.93. Код в стандартном модуле
Sub CreatePanel()
Dim cbrBar As CommandBar
Dim button As CommandBarButton
Dim 1 As Integer
' Удаление одноименной панели (при ее наличии)
On Error Resume Next.
CommandBars("AutoSense")-Delete
On Error GoTo 0
■ Создание кнопок и их настройка
For i - 1 То 4
Set button = cbrBar.Controls.Add(maoControlButton) With button
.OnAation — "ButtonCllck" 6 i
-Faceld « i t 37
End With
Next i cbrBar.Name — "AutoSense" End Sub
Sub ButtonClick3()
Перемещение вниз
On Error Resume Next
ActiveCell.Offset(1, 0).Activate End Sub
Sub ButtonClickl()
Перемещение вверх
on Error Resume Next
ActiveCell-Offset(—1, 0?-Activate End Sub
Sub ButtonClick2()
Перемещение вправе
On Error Resume Next
ActiveCell.Offset(0, 1).Activate End Sub
Sub ButtonCllck4()
Перемещение влево
On Error Resume Next
ActiveCell.Offset(0, -1)-Activate End Sub
Созданная панель инструментов называется AutoSense и включает в себя четыре кнопки со стрелками, предназначенные для перемещения курсора на одну ячейку в соответствующем направлении. Эта панель будет отображаться только при условии, что курсор расположен внутри диапазона A1:D5. Если курсор вывести из этого диапазона даже с помощью кнопок данной панели, то она перестанет отображаться н появится вновь только при соблюдении указанного условия.
Скрытие и отображение панелей инструментов
Как известно, управлениеотображедием панелей инструментов осуществляется с помощью соответствующих команд подменю Вид ► Панели инструментов. Однако данный способ имеет существенный недостаток — чтобы скрыта панели инструментов, необходимо в данном мето последовательно выбрать каждую из них. и то же самое нужно сделать д ля включения их отображения. При использовании большого количества панелей инструментов на это требуется слишком много времени. Вданиом разделе мы научимся быстро управлять отображением сразу всех используемых панелей.
ВНИМАНИЕ
Для успешной реализации данного примера в текущей рабочей книге должен находиться лист Л ист1. В противном случае необходимо внести соответствующие изменения в приведенный ниже код.
В стандартном модуле редактора VBA напишем следующий код (листинг 3.94).
Листинг 3.94. Управление отображением панелей инструментов
sub HidePanelsO
Dim cbrBar As CommandBar
Dim intRow Aa IntegerНомер текущей строки листа
Отключение обновления экрана Application.Screenupdating = False • Подготовка к сохранению cells.Clear
' Скрытие видимых панелей и сохранение их названий intRow •- 1• Запись имен с первой строки
For Each cbrBar In CommandBars
If cbrBar.Type - msoBarTypeitormal Than If cbrBar.Visible Then cbrBar.Visible — False Celia{intRow, 1) = cbrBar.Kame intRow - intRow + 1 End If
End If
Next
Включение обновления экрана Application.ScreenUpdating - True End Sub
Sub ShowPanels()
Dim cell As Rangeтекущая ячейка листа
• Отключение обновления экрана
Application.Screenupdating - False
Отображение скрытых панелей
On Error Resume Next
For Each cell In Range("AzA").SpecialCells( xlCellTypeConstanta)
commandBars(cell.Value).Visible ** True
Next cell
Включение обновления экрана
Application.Screenupdating ° True
End Sub
После написания кода в окне выбора макросов появятся два макроса: HidePanels и showpanels. При выполнении первого макроса все используемые панели инструментов будут скрыты, а при выполнении второго они восстановятся на прежних местах. На рабочем листе Лист1 будет храниться перечень скрытых панелей. Для удобства работы можно назначить обоим макросам кнопки и поместить их на рабочий лист (но не на какую-нибудь панель инструментов).
Создание меню на основе данных рабочего листа
Рассмотрим еще один способ создания пользовательского меню, которое включается в состав главного меню программы. Характерной особенностью данного способа является то. что основой для формирования меню будут хранящиеся на рабочем листе данные,
В качестве исходных данных для создания пользовательского меню используем содержимое листа Лмст1 (рис. 3.38).
Теперь в модуле ЭтаКнига напишем такой кол (листинг 3.95).
Листинг 3-95. Код в модуле ЭтеКнига
Sub Workbcok__ppen()
• Создание меню
Call CreateCustomMenu
End Sub
Sub WorkbooK_EeforeClose(Cancel As Boolean)
' Удаление меню перед закрытием книги
Call DeleteCustoniMenu
A JВ
С
D
E
Уровень ’Подпись
Позшшя/Ма1фо 2 Разделитель FacelD'
1 АВыручка
Т"
21&0гтгоеая торговля
4
Зр&Мвсква
1 GoToAssumptions
5
3|&Киев
iGoToModel
1
X
3[&Мииск
iGoToScenanos
7
3 &Одесса
’GoToNotee
8
2!&Розница
iviewScenano^
XI
21&Веод данных
’DataErtry
ИСТИНА
387
10
2 АПечать документов
1 Porting
ИСТИНА
4,
И
2 > Диаграммы
1
.12
З'&Продукты питания
ViewChartl
AT
13
3 &ТНП
lViewChBrt2
АЗЕ
14
3 ^Сопутствующие товары jViewCharG
427
15
2.&Справочная информация.
ИСТИНА
16
31 ^Подакцизный товар
jHeljpl
17
З&Лицанэионный товар
Help2
1В
З&Лрочее _
!Help3
ИСТИНА
Н-I
Рис. 3.38. Исходные данные
Следующий код (листинг 3.96) необходимо написать в стандартном модуле.
Листинг 3.96. Код в стандартном модуле
Sub CreateMenu()
Dim sheet As WorksheetDim intRow As IntegerDim cbrpBar As CommandBarPopup Dim objNewItem As Object Dim objNewSubltem As Object Dim IntMenuLevel Ae Integer Dim strCaption As String Dim strAction As String Dim flsDevider As Boolean Dim intNextievel As IntegerDim scrFacelD As StringDim sheet As WorksheetDim intRow As IntegerDim cbrpBar As CommandBarPopup Dim objNewItem As Object Dim objNewSubltem As Object Dim IntMenuLevel Ae Integer Dim strCaption As String Dim strAction As String Dim flsDevider As Boolean Dim intNextievel As IntegerDim scrFacelD As String• Лист с описанием меивСчитываемая строка* Выпадающее менюЭлемент меню cbrpBar1 Элемент подмен» objWewItenУровень вложенности пункта менюНазвание пункта менеМакрос пункта менюВужен разделительУровень вложенности следующего __ пункта мен»• Номер значка пункта меню• Лист с описанием меивСчитываемая строка* Выпадающее менюЭлемент меню cbrpBar1 Элемент подмен» objWewItenУровень вложенности пункта менюНазвание пункта менеМакрос пункта менюВужен разделительУровень вложенности следующего __ пункта мен»• Номер значка пункта меню
Dim sheet As Worksheet
Dim intRow As Integer
Dim cbrpBar As CommandBarPopup Dim objNewItem As Object Dim objNewSubltem As Object Dim IntMenuLevel Ae Integer Dim strCaption As String Dim strAction As String Dim flsDevider As Boolean Dim intNextievel As Integer
Dim scrFacelD As String
Dim sheet As Worksheet
Dim intRow As Integer
Dim cbrpBar As CommandBarPopup Dim objNewItem As Object Dim objNewSubltem As Object Dim IntMenuLevel Ae Integer Dim strCaption As String Dim strAction As String Dim flsDevider As Boolean Dim intNextievel As Integer
Dim scrFacelD As String
• Лист с описанием меив
Считываемая строка
* Выпадающее меню
Элемент меню cbrpBar
1 Элемент подмен» objWewIten
Уровень вложенности пункта меню
Название пункта мене
Макрос пункта меню
Вужен разделитель
Уровень вложенности следующего __ пункта мен»
• Номер значка пункта меню
• Лист с описанием меив
Считываемая строка
* Выпадающее меню
Элемент меню cbrpBar
1 Элемент подмен» objWewIten
Уровень вложенности пункта меню
Название пункта мене
Макрос пункта меню
Вужен разделитель
Уровень вложенности следующего __ пункта мен»
• Номер значка пункта меню
1 Расположение данных для меню
Set sheet =* ThlsWorkbook.Sheets("ЛистМеню")
1 Удаление одноименного меню (при его наличии) Call DeleteMenu
• Данные считываем со второй строки intRow ■ 2
' Добавление меню Do Until IsEmpty(sheet.Cells(intRow, 1)) * Считываем информацию о пункте меню with sheet
• Уровень вложенности intMenuLevel — .Cells(intRow, 1) * Название BtrCaptlon - .Celle(intRow, 2) • Название макроса для меню strAction - .Cells(IntRow, 3) • нужен ли разделитель перед меню? flBDevidex — .Cells(intRow, 4)
Номер стандартного значка (если значок нужен) stгFaceID - .Celle(IntRow, 5)
1 Уровень вложенности следующего меню IntNextLevel - .Cells(intRow + 1, 1) End With
' Создаем меню в зависимости от уровня его вложенности Select Case intMenuLevel
Case 1 * Создаем меню Set cbrpBar - Application.CommandBars(1), Controls.Add(Type:-msoControlPopup, Before:-strActlon, _ Temporary:-True) cbrpBar.Caption - BtrCaptlon Case 2
* Создаем элемент меню If IntNextLevel = 3 Then
Следующий элемент вложен в создаваемый, то есть создаем раскрывающееся подменю
Set objNewItem - _ cbrpBar.Controls.Add(Type:-msoControlPopup) Else
* Создаем команду меню Set objNewItem ■ _ cbrpBar.Controls.Add(Type:-msoContrclEutton) objNewItem.OnAction - strAction End If
1 Установка названия нового пункта меню objNewItem.Caption - etrCaption
Установка значка нового пункта меню (вели нужно} If BtrFacelD о **" Then
objNewltem.Faceld = strFacelD End If
Если нужно, то добавим разделитель If flsDevider Then
objKewItem.BeglnGroup — True End If Севе 3
Создание элемента подменю Set objNewSubltem — _
obj Nevltem-Controls.Add(Type: "meoControlButton) * Установка его названия
objNewSubltem.Caption - strCaption • Назначение макроса (или команды) objNewSubltem.OnAction - etrAction 1 Установка значка (если нужно) If strFacelD о ■” Then
objNewsubitem-Faceid - atrFacelD End If
Если нужно, то добавим разделитель If flsDevider Then
objNewSubltem.BeginGroup * True End If End Select
* Переход на следующую строку таблицы intRow — intRow ♦ 1
Loop'1 ^ ^A 1
End Sub
Sub DeleteMenuO
Dim sheet As Worksheet * Лист с описанием меню Dim intRow Aa Integer * Считываемая строка Dim strCaption Aa String 1 Название меню
Set sheet ■* Thi«Workbook.Sheets("ЛистМеню”) 1 Данные начинаются co второй строки intRow - 2
* Считываем данные, пока есть значения в столбце "А”, _ и удаляем созданные ранее меню (с уровнем вложенности 1)
Сп Error Resume Next
Do Until isEmptytsheet.Cells(IntRow, 1))
If sheet.Cells(IntRow, 1) — 1 Then
strCaption = sheet.CelIs(IntRow, 2}
Applicatlcn-CommandBarsUt.Cantrole{strCaptlon).Delete End If intRow — IntRow + 1
Loop
On Error Goto 0
End Sub
После написания данного кода вокне выбора макросов появятся макросы CreateMenu и DeleteMenu — соответственно для создания и удаления пользовательского меню. Для удобства работа можно назначить каждому макросу кнопки.
Пользовательское меню, созданное на основании приведенных на рис. 3.38 исходных данных, показано на рис. 3.39.
Рис. 3.39. Пользовательское меню Выручка
Новое меню будет автоматически формироваться при каждом открытии рабочей книги и удаляться при ее закрытии.
Создание контекстного меню
В предыдущих разделах мы рассматривали различные способы формирования пользовательских меню, включаемых в состав главного меню программы. Здесь же мы научимся создавать контекстное меню.
Итак, создадим пользовательское контекстное меню со следующими командами: Числовой формат. Выравнивание, Шрифт, Границы, Узор и Защита. С помощью этих команд на экран будет выводиться окно форматирования ячейки (вызываемое также с помощью команды главного меню Формат ► Ячейки) с соответствующей открытой вклад кой. Созданное меню будет вызываться щелчком правой кнопкой мыши в любой ячейке диапазона А2:05.
Для решения поставленной задачи необходимо написать три кода: в модуле рабочего листа, в модуле ЭтаКнига и в стандартном модуле.
Код, который нужно поместить в модуль рабочего листа, выглядит следующим образом (листинг 3.97).
Листинг 3.97. Код в модуле рабочего листа
Sub WorksheetBefcreRlghtClicktByVal Target As Excel. Range, _ Cancel As Boolean)
Проверка, попадает ли выделенная ячейка в диапазон
If OnIon(Target.Range("Al"), Range<"A2:D5*)).Address - _
Range("A2:D5")-Address Then * Показываем свое контекстное меню ConunandBars ("MyContextHenu *'). ShowPopup Cancel - True
End If
End Sub
После этого в модуль ЭтаКнига необходимо поместить код, приведенный в листинге 3.98.
Листинг 3.98. Код в модуле ЭтаКнига
Sub Workbook_Cpen(}
• Соадание контекстного меню при открытии книги
Call CreateCustomContextMenu
End Sub
Sub WorkbookBeforeClose(Cancel As Boolean)
* Удаление меню при закрытии книги Call DeleteCuBtomContextMenu
End Sub
В стандартном модуле нужно написать самый большой код — его содержимое представлено в листинге 3.99.
Листинг 3-99. Код в стандартном модуле
Sub CreateCuetomContextMenu()
* Удаление одноименного маню Call DelereCustomContexcManu
' Создание меню
With CoramandBars-AddCMyContextMenu", rasoBarFopup, , True) .Controls * Создание и настройка кнопок меню • Кнопка "Числовой формат’’ With .AddtmsoControLButton)
.Caption - "^Числовой формат..-* .OnActien — "ShoMForftatNwnber"
.Faceld -1554
• Кнопка ■'Выравнивание” With .Add(msoControlButton) .Caption - "«Выравнивание..." ■OnAction - "ShowFormatAllgnment” -Faceld -217
End With
* Кнопка "Шрифт" with -AddtmsoControlButton) .Caption - "«Шрифт..." .OnAction — "ShowFormatFont" .Faceld - 291 End With
* Кнопка "Границы"
With .Add(msoControlButton) .Caption - "«Границы..." -OnAction — "ShowFormatBorder" .Faceld - 149 ■BeginGroup - True End With • Кнопка "Узор" With -Add(msoControlButton) .Caption = "«Узор..." .OnAction - "ShowFormatPatterns" -Faceld - 1550
End with ’ Кнопка "Защита" With -Add(msoControlButton) ■Caption - "«Защита..." .OnAction - "ShowFormatProtection" -Faceld - 2654
End With
End With End sub
Sub DeleteCustomContextMenu() ' Удаление пенс On Error Resume Next CommandBarsCMyContextMenu") .Delete End Sub
Sub ShowFormatNumber()
• Число
Application.DialogsIxlDialogFormatNumber).Show End Sub
Sub ShcwFormatAlignment()
* Выравнивание
Application.Dialogs(xlDialogAlignment).Show
End Sub
sub shoWFcxmstEont()
' Шрифт
Application.Dialogs(xlvialogFormatFont).Show
End Sub
Sub ShowFormatBorder()
Граница
Application.Dialogs(xlDialogBorder).Show
End Sub
Sub ShowEormatPattarns(}
Вид (Узор)
Application.Dialogs(xlDialogEatterns).Show
End Sub
Sub ShowFoimatFrotection()
Зашита
Application.Dialogs(xlDlalogCellProtection).Show
End Sub
После написания данного кода будут сформированы макросы создания пользовательского контекстного меню (CreateCuetomcontextMenu) и его удаления (DeleteCustomContextMenu), а также макросы, привязанные к командам созданного меню и предназначенные для вызова соответствующих вкладок диалогового окна Формат ячеек.
После выполнения макроса CreateCus tomContextMenu будет сформировано контекстное меню, изображенное на рис. 3.40.
И
Числовой формат...
ж
правке»»»...
вес
Шрифт...
Si
[ранщы...
а
Ц>ОР...
0|
Зашита...
Рис. 3.40. Пользовательское контекстное маню
Это меню будет вызываться при щелчке правой кнопкой мыши в любой ячейке диапазона A2:D5.
С помощью его команд осуществляется быстрый переход к соответствующей вкладке окна форматирования активной ячейки.
Просмотр содержимого папки
В процессе работы может возникать необходимость просмотра содержимого той или иной папки (например, для поиска требуемого файла). Чтобы ускорить данный процесс и не запускать для этой цели Проводник, рекомендуется воспользоваться макросом, код которого приведен в листинге 3.100.
Листинг 3.100. Просмотр содержимого папки
Объявление API-функции для отображения стандартного окна _ просмотра палок
Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFclderA" (IpBroweelnfo Ab BROWSEINFO) As Long
Объявление API-функции для преобразования данных, возвращаемых функцией SHBrowseForFolder, в строку
Declare Function SHGetPathFromIDList Lib "shell32.dll** Allas "SHGetPathFromlDLlstA" [ByVnl pidl As Long, ByVai _ pezPath As String) Ab Long
Структура используется функцией SHBrowseForFclder Type BROWSEINFO
hwndOwner As Long • Родительское окно (для диалога)
pidlRoot As Long Корневая палка для просмотра
strDiBplayName As String strTitle Aa String * Заголовок окна ulFlags As Long• Флаги для окна
* Следующие три параметра в VBA не используются Ipfn Ав Long 1Param Ад Long 1Image As Long End Type
Sub BrowseFolder()
Dim strPath As String * Папка, список файлов которой выводится Dim strFlle As String Dim intRow As Long 1 Текущая строка таблицы
' Выбор папки strPath — dhBrowseForFolder() If strPath = "" Then Exit sub If Right(strPath, 1) о "\“ Then strPath - strPath 6 "V
ActiveSheet.Celled, 1) - "Имя файла" ActiveSheet.CelIs dr 2) ” "Размер" ActiveSheet. Cel led, 3) — "Дата/врвмя" ActiveSheet.Range("Al:Cl") .Font.Bold ■ True
* Просмотр объектов в папке ' Первый объект папки strFile — Dir(strPath, 7) intRow - 2 Do While strFile <> ""
Запись в столбец "А" имени файла ActiveSheet.CelIs[intRow, 1) = strFile * Запись в столбец "В** размера файла ActiveSheet-CellsfintRow, 21 = FileLenistrPath ь strFile) 1 Запись в столбец "С" времени изменения файла ActiveSheet.Cells(IntRow, 3) = FileDateTima(strPath 6 strFile) • Следующий объект папки strFile — Dir IntRow — IntRow + 1
Loop End Sub
Function dhBrow»eForFolder() As String
Dim ЫBrows- As BROWSEINFO
Dim strPath As String Dim LngReault As Long Dim IntLen Ab Integer
Заполнение полей структуры BROWSEINFO
Корневая папка - Рабочий стол biBrowse-pidlRoot = Di
Заголовок окна biBrowse. strTltle *• "Выбор папки*' * Тил возвращаемой папки biBrowse-ulFlags - 6R1
Вывод стандартного окна просмотра папок IngReeult = SBBroweeForFolder(biBrowse)
Обработка результата работы окна
If IngResult Then
• получение пути (но возвращенным данным) strPath = Spaces(S12)
If SHGetPathfromIDLlst(ByVai IngPeeult, ByVai strFath) Then
* Строка пути заканчивается символом Chr(O)
intben - InStr(scrPath, Chr$(O))
Выделение и возврат пути
dhBrowaeForFolder - Left(strPath. intLen - 1)
Else
* He удалось получить путь
dhBrowseForFolder - *'"
End If
Else
* Пользователь нажал кнопку "Отмана"
dhBrowseForFolder - ""
End If
End Function
Особенным в данной программе является использование API-функций работы с объектами файловой системы Windows — SHBrowseForFolder И SHGetPathFromIDLlst. Первая функция отображает стандартное диалоговое окно просмотра дерева папок и возвращает целое значение, идентифицирующее выбранную папку (или 0 в случае отмены выбора). Вторая функция позволяет определить путь папки. идентифицируемой этим значением.
После написания данного кода в окне выбора макросов станет доступен макрос Browse Folder. После его выполнения откроется окно Обзор папок, в котором по обычным правилам Windows следует указать путь к требуемой папке и нажать кнопку ОК. В результате на текущем рабочем листе будет сформирован перечень файлов, входящих в состав указанной палки (рис. 3.41).
1
Имя файла
Размер Дата/еремя
^624640 24 02 2004J2 52
1712640 ' 24 02 200415.01'
1776641 19 02 2004 11 27j
2
01 Банковский, doc
ll
02 ГрюданскиЙ jtot
03 Закон о подоходном и
7
04 Конституций doc
05 НАЛОГОВЫЙ КОДЕКС
06 Налоговый doc
216576; 24 02.2004 16.25
4198401 2402.2TO4_15.12, 4162561 24 02.2004 15"lT|
В
07 О 6yxy46re.doc
90624 , 24.02 2004 16.19
9
(В Трудовой кодекс.doc
В36096 , 23 02.2004 16.27
10
DB Уголовный KOABKc.doc
11376Б4| 24 02 2004 12.35
11
10 УПК doc
9871361 24 02 2004 12 49
Рио. 3.41. Список файлов
Для каждой позиции данного списка в соответствующих столбцах указывается имя файла, его размер (в байтах), а также дата и время создания или последнего изменения файла При необходимости можно формировать данный список с указанием полного пути к каждому файлу. Вданном случае код макроса будет выглядеть следующим образом (листинг 3.101).
Листинг 3.101. Просмотр содержимого папки с указанием полного пути к файлам
' Объявление API-функции иля отображения стандартного окна _ просмотра папок
Declare Function SHBrawseForFolder Lib ‘'ehell32.dll"
Allas "SHBrowseForFolderA" {IpBrowselnfo As BROWSEINFO) Aa Long
* Объявление API-функции для преобразования данных, возвращаемых _ функцией SHBroweeForFolder, в строку
Declare Function SHGetPathFromIDList bib "shell32.dll" _ Allas "SHGetPathFromlDLlstA” (ByVai pldl As Long, ByVai _ pszPath As String) Ab Long
• Структура используется функцией SHBrowseForFolder Type BROWSEINFO
hwndOwner As Long ' Родительское окно (для диалоге) pidlRoot As Long 1 Корневая папка для просмотра strDisplayName As String strTitle As String Заголовок окна ulFlags As Long* Флаги для Окна
Sub BrowseFolderl()Dim strPath As StringDim strFile Aa StringDim intRow Aa LongSub BrowseFolderl()Dim strPath As StringDim strFile Aa StringDim intRow Aa LongСледующие три параметра в VBA не используются Ipfn Аз Long 1Param Аз Long ilmage As Long End Type
Sub BrowseFolderl()
Dim strPath As String
Dim strFile Aa String
Dim intRow Aa Long
Sub BrowseFolderl()
Dim strPath As String
Dim strFile Aa String
Dim intRow Aa Long
Папка, список файлов которой выводится
Текущая строка таблицы
• Выбор палки strPath — dhBrowseForFolder() If strPath = "" Then Exit Sub
If Right(StrPath, 1) <> "V Then strPath - strPath 6 "V
* Просмотр объектов в папке ' Первый объект папки strFile — Dir(strPath, 1) IfitRoW - 2 Do While strFile <> ,,n
Запись в столбец "А" имени файла ActiveSheet.Cella(IntRow# 1) - strPath & strFile * Запись » столбец "В" размера файла ActiveSheet.Celia(IntRow, 2) - FileLen(strPath & strFile) * Запись в столбец "С” времени изменения файла ActiveSheet.Cells(intRow, 3) = FileDateTime(strPath 6 strFile) • Следующий объект папки StrFile - Dir intRow ■ intRow 1
Loop End Sub
Function dhBrowseForFolder{} Aa String Dim biBrowse As BROWSEINFO Dim strPath As String Dim IngResult As Long Dim IntLen As Integer
Заполнение полей структуры BROWSEINFO ’ Корневая папка - Рабочий стол biBrowse.pidlRcot - Ofc • Заголовок окна biBrowse.etrTitle = "выбор папки" • Тип возвращаемой папки biBrowse.ulFlage - 6Н1
Выводим стандартное окно просмотра папок IngResult = SHBrowseForFolder(biBrowse)
265265Получение информации о состоянии дисков
265
265
Else
* Не удалось получить путь dhBrowseForFolder = ••"
End if
Else
Пользователь нажал кнопку "Отмена" в окне dhBrowseForFolder - ""
End If
End Function
После написания данного кода в окне выбора макросов станет доступным макрос BrowseFolderi. Результат его выполнения показан на рис. 3.42.
AВ
Имя файлаРазмер
Дата/время
24 02 2004 1252!
С\ЗаюньЛр1 Банковский.! ..._624640 С \ЗаконыЧ)2 Граяденски! 1712640
С:\3аконы\03 Закон о под1 177664
3
24.02 200415 01
4
19 02.200411 27
С.\38коны104 Конституция 216576
СЛЗаконы)05 НАЛОГОВЬ! 419840
С \Законы1С6 Налоговый, q416256
24.02 200416:26
24 02 200415-12
24.02.20041511
Рис. 3.42. Список файлов с указанием пути
На рисунке видно, что ДЛЯ каждой позиции данного списка указывается полный путь к файлу.
Получение информации о состоянии дисков
При необходимости можно быстро получить и вывести на активном рабочем листе разнообразную информацию о текущем состояния дисков компьютера. Для этого достаточно воспользоваться макросом, код которого выглядит так (листинг 3.102).
Листинг 3.102- Просмотр информации о дисках компьютера
Sub Drives Info ()
Dim objFileSysObject As ObjectDim objDrive As ObjectDim intRow As IntegerDim objFileSysObject As ObjectDim objDrive As ObjectDim intRow As Integer• Объект для работы _ с файловой системой' Анализируемый диск* Заполняемая строка листа• Объект для работы _ с файловой системой' Анализируемый диск* Заполняемая строка листа
Dim objFileSysObject As Object
Dim objDrive As Object
Dim intRow As Integer
Dim objFileSysObject As Object
Dim objDrive As Object
Dim intRow As Integer
• Объект для работы _ с файловой системой
' Анализируемый диск
* Заполняемая строка листа
• Объект для работы _ с файловой системой
' Анализируемый диск
* Заполняемая строка листа
* Создание объекта для работы с файловой системой
Set objFileSysObject - GreateObject("Scripting.FileSystemObject”) • Очистка листа
CelIs.Clear
• Запись с первой строки intRow — 1
Запись на лист информации о дисках компьютера On Error Resume Next For Each objDrive In objFileSysObject.Drlves ■ Буква диска Cells(intRow, 1> - objDrive.Driveletter ' Готовность Cells(intRow, 2) - objDrive.laReady 1 Тип диска Select Case objDrive.DriveType
Case 0 Cells(intRow, 3) • "Неизвестно" Case 1
Cells(intRow, 3) - “Съемный"
Case 2 Cells(intRow, 3) * "Жесткий" Case 3 Cells(intRow, 3) — "Сетевой" Case 4 Cells(intRow, 3) - "CD-ROM" Case 5 Cells(intRow. 3) - "RAM" End Select • Метка диска Cells(intRow, 41 - objDrive.VolumeName • ооший размер Cells(intRow, 5) = objDrive.Totalsize 1 Свободное место Cells(intRow, 6) - objDrive.AvailableSpace
IntRow - IntRow + 1
Next
End Sub
После написания кода в окне выбора макросов появится макрос Drives info. В результате его выполнения па текущем рабочем листе будет сформирован список, пример которого показан ка рис. 3.43.
AJ М t - UAJ М t - U1 А ЛОЖЬ Съемный _ _ (2 С1 ИСТИНАЖесткий [SYSTEM 10487197696"3 D| ИСТИНА Жёсткий [WORK '* 95237488641 А ЛОЖЬ Съемный _ _ (2 С1 ИСТИНАЖесткий [SYSTEM 10487197696"3 D| ИСТИНА Жёсткий [WORK '* 95237488643311D | ИСТИНА жётайй [WORKD | ИСТИНА жётайй [WORKЕ РОЖЬ CD-ROMЕ РОЖЬ CD-ROM2197786624"49189765122197786624"4918976512
AJ М t - U
AJ М t - U
1 А ЛОЖЬ Съемный _ _ (
2 С1 ИСТИНАЖесткий [SYSTEM 10487197696"
3 D| ИСТИНА Жёсткий [WORK '* 9523748864
1 А ЛОЖЬ Съемный _ _ (
2 С1 ИСТИНАЖесткий [SYSTEM 10487197696"
3 D| ИСТИНА Жёсткий [WORK '* 9523748864
3
3
1
1
D | ИСТИНА жётайй [WORK
D | ИСТИНА жётайй [WORK
Е РОЖЬ CD-ROM
Е РОЖЬ CD-ROM
2197786624"
4918976512
2197786624"
4918976512
Рис. 3.43. Слисок с информацией о дисках компьютера
267267Расчет средне го арифметического
267
267
Для каждой позиции списка последовательно указывается буква диска, его «готовность к работе» в данный момент, тип диска, название тома, общий объем диска и свободное в настоящее время место на нем.
Очевидно, что содержимое данного списка зависит от конфигурации используемого компьютера.
Расчет среднего арифметического
В данном разделе мы рассмотрим небольшой трюк, с помощью которого можно быстро рассчитать среднее значение ячеек, расположенных над активной ячейкой, с отображением результата в активной ячейке.
Как известно, расчет среднего значения можно выполнять штатными средствами Excel — с помощью функции срзнач. Однако в некоторых случаях удобнее воспользоваться макросом, код которого представлен в листинге 3.103 (зтоткод нужно набрать в стандартном модуле редактора VBA).
Листинг 3.103. Расчет среднего значения
Sub CalculateAveraget>
Dim strFistCell Ав String
Dim strLastCell As String
Dim strFormula As String
' Условия закрытия процедуры
If ActiveCell-Row - 1 Then Exit Sub
* Определение положения первой и последней ячеек для расчета strFistCell ■ ActiveCell-Offset(-1, 0).End(xlUp).Address strLastCell - ActiveCell.Offset(-1, 0).Address
" Формула для расчета среднего значения
strFormula - "—AVERAGE(" 6 strFistCell ( ":n 6 etrtastCell b ")"
• Ввод формулы в текущую ячейку
ActiveCell.Formula — strFormula
End Sub
В результате выполнения данного макроса в активной ячейке отобразится среднее арифметическое, рассчитанное на основании расположенных выше непустых ячеек; при этом ячейки с данными должны следовать одна за другой, без пробелов. Иначе говоря, если активна ячейка А5, а над ней все ячейки содержат данные, кроме ячейки А2, то среднее арифметическое будет рассчитано на основании данных ячеек АЗ и А4 (ячейка А1 в расчете участвовать не будет). Если же
пустой является только ячейка А4, то среднее арифметическое в ячейке AS рассчитано не будет.
Вывод списка доступных шрифтов
При необходимости можно сформировать и вывести на печать список доступных в системе шрифтов. Для этого нужно написать и выполнить следующий макрос (листинг 3.104).
Листинг 3.104. Список шрифтов
Sub ListOfFonts()
Dim cbrcFonts Да CommandBarControl
Dim cbrBar Aa CommandBar
Dim i Аз Integer
Получение доступа к списку шрифтов (элемент управления в виде _ раскрывающегося списка на панели инструментов "Форматирование")
Set cbrcFonts — Application-CommandBars("Formatting">. FindControl(ID:-1728)
If cbrcFonts Is Nothing Then
• Панель "Форматирование" не открыта - откроем ее
Set cbrBar * Application.CommandBars.Add
Set cbrcFonts — cbrBar.Controls.Add(ID:—l728) End If * Подготовка к выводу шрифтов (очистка ячеек) Range("А:А").ClearContents * Вывод списка шрифтов в столВец "А" текущего листа For х = 0 То cbrcFonts.Listcount - I
Cells(1 + 1, 1) — cbrcFonts.List(i + 1) Next i
• Закрытие панели инструментов "Форматирование", если мы были _ вынуждены ее открывать
On Error Resume Next cbrBar.Delete End Sub
В результате работы данного макроса перечень доступных шрифтов будет сформирован на активном рабочем листе в столбце А. После этого список шрифтов можно по обычным правилам вывести на печать.
Особенностью данной программы является использование в качестве источника списка шрифтов элемента управления панели инструментов Форматирование. Именно с помощью этого элемента управления мы всегда выбираем шрифт, редактируя текст в любом приложении Microsoft Office.
269269Обработка сразу нескольких внешних файлов
269
269
Обработка сразу нескольких внешних файлов
Рассматриваемый в данном разделе прием позволяет выполнить быстрый импорт и обработку (в соответствии с заданными условиями) файлов с расширением, отличным от XLS.
Предположим, что у нас есть три текстовых файла: Textoi.txt, Text02.txt и Text03. txt. Поскольку по своей структуре они однотипны и отличаются только содержащимися в них данными, рассмотрим для наглядности только файл TextOl. txt (рис. 3.44).
Рис. 3.44. Текстовый файл Text01.txtРис. 3.44. Текстовый файл Text01.txt
Рис. 3.44. Текстовый файл Text01.txt
Рис. 3.44. Текстовый файл Text01.txt
У казанные файлы должны быть расположены в той же папке, что и текущая рабочая книга.
Нам необходимо импортировать все эти файлы в книгу Excel, добавив при этом в каждый из них формулы суммирования, описывающие данные в файле. Для решения данной задачи напишем в стандартном модуле редактора VBA код, представленный в листинге 3.105.
Листинг 3.105. Обработка текстовых файлов
Sub ImportTextFi3.es {)
Dim fsSearch Аз FileSearch Dim strFileName As String Dim etrPath As string
Dim 1 As Integer
Задание пути и возможного имени файла strFileName - ThisWorkbcok.path ь *\" strPath * "text??-txt"
' Создание объекта FileSearch
Set CsSearch = Application.FileSearch
Настройка объекта для поиска with faSearch
Маска для поиска
.Lookin — etrFileName
' Путь для поиска
.FileName - strPath
' Поиск всех файлов, удовлетворяющих маске .Execute
• Выход, если файлы не существуют
If -FoundFiles.Count - 0 Then MsgBox "Файлы не обнаружены" Exit Sub
End If
End With
■ Обработка найденных файлов
For i ■ I To fsSearch.FoundFiles.Count
Call ImportTextFile(fsSearch.FoundFilee(i)) Next i
End Sub
Sub ImportTextFile(FlleName Aa String)
Импорт файла
Workbooks.OpenText FlleName:—FlleName, Origin;—xlWindows, StartRow:-l, _
DataType:-xlFlxedWldth, _
Fieldinfo:- _
Array(Array(0, 1), Array(3, 1), Array(12, 1))
Ввод формул суммирования
Range("DI").Value - "A"
Range("D2")-Value - "B"
Range("03").Value - "C”
Range("El:E3").Formula - "-COUNTIF(B:B, Pl)"
Range("Fl:F3").Formula = H-SUMIF(B:B,D1,C:C)"
End Sub
271271Запуск таблицы символов из Excel
271
271
ISISMicrotoft Excel - ТЕХТО1Microtoft Excel - ТЕХТО1В результате написания данного кода в окне выбора макросов появится макрос itnpoKtTextFiles. После его запуска будут автоматически созданы три книги Excel — по одной для каждого текстового файла. Этим книгам по умолчанию будут присвоены имена ТЕХТО1. ТЕХТ02 и ТЕХТОЗ. На рис. 3.45 показан фрагмент книги ТЕХТО1.
IS
IS
Microtoft Excel - ТЕХТО1
Microtoft Excel - ТЕХТО1
i© файл Правка Вид Вставка оореат Сервис Детые
;оЕ?о^®а^ *чав^-^.г-. 1
JAnelCVrJAnelCVrF3лжп1 IMQ КодF3лжп1 IMQ Код5 . S В5 . S ВББСС76|С76|С9910 иI2.13Гм10 иI2.13Гм_В?6 9|В JO>C ТНА 12-А_В?6 9|В JO>C ТНА 12-АI3TB I 6517|I3TB I 6517|1287312873• 10 -| Ж К я |Е ё ё 1Д =СУММЕСЛИ(8.В,ПЗ;С.С)• 10 -| Ж К я |Е ё ё 1Д =СУММЕСЛИ(8.В,ПЗ;С.С)16803349*16803349*54371 5842].670054371 5842].6700ЕД111 72282ЕД111 72282С I DСумма LA 12455(6 13223 ГС I DСумма LA 12455(6 13223 Г2873 Г 1183312873 Г 118331
JAnelCVr
JAnelCVr
F3лжп1 IMQ Код
F3лжп1 IMQ Код
5 . S В
5 . S В
Б
Б
С
С
76|С
76|С
9
9
10 и
I2.
13
Гм
10 и
I2.
13
Гм
_В?6 9|В JO>C ТНА 12-А
_В?6 9|В JO>C ТНА 12-А
I3TB I 6517|
I3TB I 6517|
12873
12873
• 10 -| Ж К я |Е ё ё 1
Д =СУММЕСЛИ(8.В,ПЗ;С.С)
• 10 -| Ж К я |Е ё ё 1
Д =СУММЕСЛИ(8.В,ПЗ;С.С)
1680
3349*
1680
3349*
54371 5842].
6700
54371 5842].
6700
ЕД
111 72282
ЕД
111 72282
С I D
Сумма LA 12455(6 13223 Г
С I D
Сумма LA 12455(6 13223 Г
2873 Г 118331
2873 Г 118331
Рис. 3.45. Фрагмент книги ТЕСТ01
В соответствии с приведенным выше кодом во всех трех книгах в ячейках диапазонов Е1:ЕЗ и F1:F3 будут автоматически введены формулы суммирования описывающие данные в файле.
ПРИМЕЧАНИЕ
Рассматриваемый в данном разделе трюк можно реализовать только в версиях Excel, начиная с 2000.
Все исходные данные, используемые при рассмотрении примера, условны. Путем внесения соответствующих поправок в приведенный выше код можно изменять имена обрабатываемых файлов, пути к ним, способ обработки файла и т. д.
Запуск таблицы символов из Excel
Возможности программы предусматривают запуск других приложений из текущей рабочей книга. В данном разделе мы рассмотрим, каким образом можно запустил» из Excel таблицу символов.
ПРИМЕЧАНИЕ
В Excel 2002таблицу символов можно вызвать с помощью команды главного меню Вставка ► Символ. Поэтому описываемый в данном разделе пример будет интересен в первую очередь пользователем, у которых установлена версия до 2002.
Для реализации поставленной задачи нужно в стандартном модуле редактора VBA написать следующий код (листинг 3.106).
Листинг 3.106. Вызов таблицы символов
Sub ShowSymbolTableО
On Error Resume Next
Запуск Charznap.exe - таблицы символов
Shell "Charmap.еке", vbNormalFocus
If Err <> 0 Then
MsgBox •'Невозможно запустить тавлицу символов.", vbcritical End If End sub
После написания кода будет создан макрос showSymbolTable, при выполнении которого на экране отобразится таблица символов (рис. 3.46).
Рис. 3.46. Таблица символовРис. 3.46. Таблица символов
Рис. 3.46. Таблица символов
Рис. 3.46. Таблица символов
При необходимости можно сделать так, что после закрытия таблицы символов на экране отобразится окно с соответствующим сообщением. Для достижения такого эффекта нужно для вызова таблицы использовать макрос, код которого приведен в листинге 3.107.
Листинг 3.107. Таблица символов
Декларация API-функций:
для открытия процесса
Declare Function OpenProcess Lib hkernel32"
(ByVal dwDesiredAccess Ab Long, ByVal blnheritHandle As Long, ByVal dwProeessId As Long) As Long
для получения кода завершения процесса
Declare Function GetExitCodeProcess Lib “kerne132"
(ByVal hProcess As Long, IpExitCoda As Long) Ab Long
' для закрытия процесса
Declare Function CloseHandle Lib "kernel32"
(hProcess) As Long
Sub ShowSymbolTablel()
Dim IProcessID As Long
Dim hProcess As Long
Dim lExitCode As Long
On Error Resume Next
Запуск таблицы символов (Charman.exe). Функция возвращает идентификатор созданного процесса
IProcessID - Shell("Charmap.exe", 1)
If Err о 0 Then
MsgBox "Нельзя запустить Charman.exe", vbCritical, "Ошибка" Exit Sub
End If
Открытие процесса по идентификатору (IProcessID)- Функция _ яп^ирап^ет дескриптор процесса (handle)
hProcess - OpenProcess(£H40D, False, IProcessID)
Ждем, пока процесс завершится, для этого периодически _ получаем код завершения процесса (пока Charman.exe исполняется, функция GetExitCodeProcess возвращает 6Н1СЗ)
Do
GetExitCodeProcess hProcess, lExitCode
DoEventa
Loop While lExitCode - 6H103
Закрытие процесса
CloseHandle (hProcess)
Вывод на экран информационного сооОпдания
MsgBox "Charmap.ex* завершает свою работу"
End Sub
После запуска макроса ShowSymbolTablel, который будет создан в результате написания данного кода, на экране опять же отобразится окно таблицы символов, изображенное на рис. 3.46. Отличие данного макроса от предыдущего состоит в том, что после закрытия окна Таблица символов на экране отобразится окно с сообщением Charmap.exe завершает свою работу.
Создание раскрывающегося списка
Раскрывающийся список является одним из наиболее удобных элементов управления, поскольку с его помощью можно быстро установить требуемое значение того или иного элемента интерфейса (в частности, ячейки). В этом разделе мы рассмотрим пример, реализация которого поможет пользователю самостоятельно создавать раскрывающиеся списки с заранее заданным перечнем возможных значений.
Предположим, что нам необходимо создать раскрывающийся список, имеющий 12 возможных значений, каждое из которых представляет собой название месяца Для удобства использования поместим этот список на панель инструментов, которую также создадим самостоятельно. Созданную панель инструментов назовем Список месяцев.
Для решения поставленной задачи напишем в стандартном модуле редактора VBA код, который представлен в листинге 3.108.
Листинг 3.108. Создание панели со списком
Sub CreatePanelO
Dim i As Integer
On Error Resume Next
* Удаление одноименной панели (если есть)
CommandBars("Список месяцев"}.Delete
On Error Goto 0
' Создание панели "Список месяцев"
With CommandBarв.Add
.Name *= "Список месяцев"
• Создание списка месяцев
With .Controls.Add(Type:-meoControlDropdown)
Настройка (имя, макрос, стиль)
.Caption - "DateDD"
.OnAction —.OnAction —"SetMonth""SetMonth"
.OnAction —
.OnAction —
"SetMonth"
"SetMonth"
.Style ■ meoButtonAutomatlc
Добавление в список названий месяцев For 1 = 1 То 12
.Addlteni Format(Dateserial(lr i, 1), ятттга“} Next i
Выделение первого месяца .Listindex - 1
End With
Показываем созданную панель .Visible — True
End With
End Sub
Sub SetMontht)
* Перенос названия выделенного месяца в ячейку On Error Resume Next
with CommandBars("Список месяцев").Controls("DateDD") ActiveCell-Value — .Listl-Listlndexj
End With
End Sub
В результате написания данного кода будут созданы два макроса: CreatePanel и setMonth. Первый предназначен для создания панели инструментов Список месяцев с раскрывающимся списком (рис. 3.47), а второй — для помещения выбранной позиции списка в активную ячейку рабочего листа.
ИЮН» - №*-1,ИЮН» - №*-1,Рис. 3.47. Созданный раскрывающийся списокРис. 3.47. Созданный раскрывающийся список
ИЮН» - №*-1,
ИЮН» - №*-1,
Рис. 3.47. Созданный раскрывающийся список
Рис. 3.47. Созданный раскрывающийся список
Подобным образом можно создавать любые раскрывающиеся списки с произвольным перечнем значений как включенные в панель инструментов, так и созданные отдельно от нее — для этого достаточно внести соответствующие изменения в приведенный выше код.
Добавление команды в меню
Выше мы рассматривали несколько способов формирования пользовательских меню и включали их в главное либо в контекстное меню. Однако в процессе эксплуатации программы могут возникать ситуации, когда для решения той или иной задачи можно обойтись лишь одной пользовательской командой, включив ее в какое-либо из имеющихся меню.
В данном разделе мм рассмотрим, каким образом можно добавить пользовательскую команду в меню.
Добавление команды в меню Сервис
I
Итак, добавим в меню Сервис, которое входит в состав главного меню программы, пользовательскую команду Очистить все, кроме формул. Кроме того, для удобства работы назначим данной команде сочетание клавиш Ctrl+Shift+C.
Для реализации поставленной задачи необходимо в стандартном модуле редактора VBA написать код, который выглядит следующим образом (листинг 3.109).
Листинг 3-109. Новая команда в меню Сервис
Sub AddMenuItemf)
Dim cbrpMenu As CommandBarPopup
* Удаление аналогичной команды (при ее наличии)
Call DeleteMenuItem
Получение доступа к меню "Сервис"
Set cbrpMenu — CommandBars(1)-FlndControl(ID:—30007)
If cbrpMenu Is Nothing Then
* He удалось получить доступ
MegBox "Невозможно добавить элемент."
Exit Sub
Else
Добавление новой команды в меню
Kith cbrpMenu.Controls.Add(Type:-msoControlButton)
Название команды
.Caption - "Очистить вбсе, кроме формул"
Значок
.FaceId - 34В
сочетание клавиш [только надпись на кнопке)
.ShortcutText - "Ctrl+Shift+C"
Сопоставленный макрос
-OnActlcn - "ExecuteCommand"
• Добавление разделителя перед командой
.BeginGroup ■ True
End With
End If
• Сопоставление с макросом сочетания клавиш Ctrl+Shift+C
Applicetion.MacroOptions
Macro:-"ExecuteCommand", _
HasShortCutKey:-True,
ShortcutKey:-"C"
End Sub
Sub Executecommand(>
Счистка содержимого всех ячеек (кроме формул)
On Error Resume Next
Cells.Specialcells(xlCellTypeConstants, 23).ClearContents
End Sub
Sub DeleteMenuItemO
' Удаление команды из мен®
On Error Resume Next
CommandBars(1).FindContrcl(ID:—30007).
Controls(“Очистить в tee, хроме формул").Delete
End Sub
<
В результате написания кода будут созданы три. макроса: AddMenuitem (добавление команды Очистить все, кроме формул в меню Сервис), DeieteMenuitem (удаление команды из меню Сервис) и Executecommand (макрос запускается при выполнении команды).
Меню Сервис с добавленной командой Очистить все, кроме формул показано на рис. 3.48.
При выполнении команды Сервис ► Очистить все, кроме формул из ячеек текущего рабочего листа будет удалена вся информация, за исключением формул. Следует отметить, что данную операцию можно выполнять и без помощи команды Очистит ь все, кроме формул — для этого достаточно запустить макрос ExecuteCommand.
Для удаления команды Очистить все, кроме формул из меню Сервис нужно выполнить макрос DeieteMenuitem.
Добавление команды в меню Вид
Добавим в меню Вид, которое также входит в состав главного меню программы, пользовательскую команду Линии сетки. С помощью данной команды можно будет управлять отображением сетки на текущем рабочем листе.
Итак, в стандартном модуле редактора VBA напишем код, который представлен в листинге 3.110.
Сервис .»-*е >го Я— У Орфография...^
Id Гроварканалиуношрбж
I Доступ к инге -.
Исправление*
I Сравнит»иwwewTuywrw...
"зудите>
кСсеностиая работа►
< Подбор п^анетра. .
■ Сценарии..,
П Знемсимссти формул►
Средства в Интернете...
I [Запрос►
Надстройки - $ Пер»*трыаега*ане»1...
L Вастройса..
I Перяютрьт..
—_ _—
4к
Рис. 3.48. Добавление новой команды в меню Сервис
Листинг 3.110. Код в стандартном модуле
Dim AppObject Аз New Classi
Sub AddCommandO
Dim cbrpBar As CorrtmandBarPopup
Удаление аналогичной команды (при ее наличии) Call DeleteCcmmand
• Получение доступа к меню “Вид"
Set cbrpBar ■» CammandBars(l).FindControl(ID:-30004) If cbrpBar le Nothing Then
' He удалось получить доступ к мено
MsqBok "Невозможно доОавить элемент мем»." Exit Sub
Else
• Добавление команды
With cbrpBar.Controls.Add(Type:-maaControlButtonl .Caption ■* ”4линии сетки* .OnAction “ •'GhangeGridlinesState"
End With
End If
Даем объекту AppObject обрабатывать события Set AppObject.AppEvents = Application End Sub
Sub DeleteCommand()
* Удаление камаяды из меню (если она там есть) On Error Resume Next CoramandBars(1).FindContral(ID:-30004). _ controls("бЛинии сетки"}.Delete End Sub
Sub GhangeGrldllnesStateО
* Изменение состояния отображения линий сетки на противоположное (если нет - покажем, если есть - скроем) If TypeName(ActiveSheet) = "Worksheet" Then
ActiveWindow.DisplayGridlines — _ Not ActiveWindow.DisplayGrldlines * Установка или снятие флажка в меню Call CheckGrldlines End If End Sub
Sub CheckGrldlinesО
Dim button As CommandBarButton On Error Resume Next ’ Поиск команды "Линии сетки" в меню "Вия" Set button — CommandBarstD.FindControl(ID:-30004). _ Controls("бЛинии сетки")
• Изменение состояния флажка на противоположное If ActiveWindOw.DisplayGrldlines Then ' Установка button.State » msoButtonDown
Else 1 Снятие button.State - msoButronUp End If End Sub
После этого необходимо в редакторе VBA создать модуль класса и поместить в него следующий код (листинг 3.111).
Листинг 3.111. Код в модуле класса
Public WithEvents AppEvents Ав Application
' Обработка события активации листа
Sub AppEventS_SheetActiva.te (ByVal Sh As Object)
Call CheckGridlinee
End Sub
Обработка события активации книги
Sub AppEvents_WorkbookActivatelByV»l № As Excel.Workbook)
Call CheckGrldlinea
End Sub
* Обработка события активации окна
Sub AppEvents_WlndowActivate _
(ByVai Wb As Workbook, ByVal Wn As Window)
Call CheckGridlines
End Sub
В результате выполнения макроса AddCommand (после написания кода этот макрос появится в окне выбора макросов) в меню Вид будет добавлена команда Линии сетки, с помощью которой можно включать/выключать отображение сетки на текущем рабочем листе (рис. ЗЛ9).
Рис. 3,49. Добавление команды в меню Вид
Если в данный момент сетка отображается, то возле команды Линии сетки будет установлен флажок. При выключении отображения сетки этот флажок пропадает.
Для удаления команды Линии сетки из меню Вид необходимо выполнить макрос DeieteCcmmand (он также будет доступен в окне выбора макросов после написания приведенного выше кода).
Трюки и эффекты с помощником
Всем хорошо известен такой элемент Microsoft Excel, как встроенный помощник, для которого можно выбрать анимированный персонаж В этой главе мы рассмотрим несколько интересных трюков, которые можно реализовывать при использовании помощника.
Мультфильм с помощником в главной роли
При желании можно самостоятельно создать небольшой мультфильм, главную роль в котором исполнит помощник. Данный трюк вряд ли будет иметь практическое применение, но с развлекательной точки зрения достаточно интересен. Для его реализации нужно написать и применить следующий макрос (листинг 4.1).
Листинг 4.1. «Танцующий» помощник
Sub RunAsaistantDanceO
static intAction As integer
• Заставляем помощника выполнять действие (всего 16>
DoAssistantAction intAction
IntAction - IntAction + 1
If intAction < 16 Then
* Следующее действие через 3 секунды
Application.OnTime Time + TinteValue ("00:00:3"), _
"RunAssistantDance"
End If
End Sub^‘Ц
Sub DoAssistantAction(intAction As integer)
Dim astAssistant As Assistant
Set astAssistant - Application.Assistant
Помещаем помощника в центр активного окна
astAesistant.Top - Application.ActiveWindow.Тор
+ Application.ActiveWindow.Height / 2
astAssistant.Left = Application.ActiveWindow.Left
+ Application.ActiveWindow.Width / 2
• Показываем помощника
astAssistant.On = True
astAssistant,Visible - True
Case 1 astAsaistant.Animation - msoAnimationCheckingSctnething Case 2
astAssistant.Animation = msoAnimationBeglnSpeaking Case 3
astAssistant. Animation " msoAnimatlonCharaaterSucoessMajor Case 4
astAaaiatant.Animation = msoAnimationEmptyTrash Case 5
astAssistant.Animation = msoAnimatlonGestureDown Case 5
astAssistant.Animation =■ msoAnimationGestureLeft Case 6
astAssistant.Animation — msoAnicMtionGestureRight Case 7
astAssistant-Animation = msoAniinationGestureUp Case 8
astAssistant. Animation =• maoAnimatlonGetArtsy Case 9
astAssistant.Animation ■ msoAniinatlenGetAttentionMajor Саве 10
astAssistant.Animation - msoAnimationGetAttentionMinor Case 11
astAssistant.Animation = msvAnimationGetTechy Case 12
astAssistant.Animation - msoAnimationGetWizardy Case 13
astAssistant.Animation = msoAnlmationGoodbye Case 14
astAssistant.Animation - znsoAnimationGreeting Casg 15
astAssistant.Animation - msoAnirnatlonDisappear End Select End Sub
После запуска макроса RunAssistantDance на экране появится помощник, который вскоре начнет «исполнять свою роль». По окончании мультфильма персонаж исчезнет и через небольшой промежуток времени появится вновь.
Дополнение помощника текстом, заголовком, кнопкой и значком
В этом разделе мы рассмотрим трюк, с помощью которого можно создать для помощника какой-либо произвольный текст, а также снабдить его значком и кнопкой
ОК. Для достижения такого эффекта воспользуемся макросом, код которого приведен в листинге 4 2.
Листинг 4.2. Настройка помощника
Sub AssistantMessage()
Dim strlitle Аз String 1 Заголовок сообщения Dim BtrMessage As String 1 Текст сообщения
' Содержимое заголовка и текста в окне помощника strTitle = "Спрашивайте - ответим"
strHessage - "[of 249)(ul 1} Руки мыли{и! 0}?" _
6 vbCr 6 "{cf 61 Не забыть Обновить антивирус!"
' Настраиваем помощника With Application.Assistant
Включаем и показываем помощника .On = True .Visible - True
создаем окно сообщения With .NewBalloon
.BallOOnType - msoBalloonTypeButtone
Кнопка "OK" в окне помощника .button - msoButtcnSetOK
Значок в окне помощника .Icon = tosolconAlert
* Заголовок в окне помощника .Heading = BtrTitle
* Текст в окне помощника
-Text = strMessage
Отображение окна .Show End With End With End Sub
В результате применения данного макроса на экране вместе с помощником появится окно, изображенное на рис. 4.1.
Это окно исчезает после нажатия кнопки ОК. Следует отметить, что в данном окне заголовок написан полужирным шрифтом, строка под ннм — красным цветом с подчеркиванием, а последняя строка — сине-зеленым цветом (см формат строки сообщения в коде макроса).•
Новые параметры помощника
При необходимости можно добавить в окно, сопровождающее помощника, дополнительные флажки. Решить эту задачу поможет следующий макрос (листинг 43).
Листинг 4.3. Новые параметры помощника
Sub AssistantCheckbexesО
Dim i As Integer Dim strMessage As String
With Assistant • Включение и отображение помощника .On = True .Visible - True • Создание окна сообщения With .NewBalloon
• Настройка окна... 1 Тип окна .BalloonType = maoBallconTypeButtona • Заголовок .Heading = "Выберите страну" * Добавление флажков .CheckBoxes(1)-Text = "Россия" .CheckBoxes(2)-Text = "США"
dnondnon. CheckBoxes (3) .Text *- "Южная Африка" .buttoft = msoButtonSetOkCantel
dnon
dnon
ЫМБ
• Отображение окна
If .Show * msoBalloonButtonOK Then
• Вывод информационного окна в зависимости от установленных флажков
For 1 • 1 То 3 If .CheckBoxes(i).Checked Then strMessage - strMessage & _ .CheckBoxesCi)-Text 8 vbCr End If
Next
1 Отображение окна сообщения (имеется в виду _ стандартное окно)
If Len(strMessage) - 0 Then
MsgBox "No choice." Else
MsgBox strMessage End If End If End With End With End Sub
После применения данного макроса на экране вместе с помощником появится следующее окно (рис 4.2).
С~2■>
Выберите страну
Г Россия
Г США
Г Южная Африка
Рис. 4.2. Добавленные параметры
После нажатия в данном окне кнопки ОК откроется окно с названиями установленных флажков.
Использование помощника для выбора цвета заливки
Добавим в окно помощника режим, с помощью которого можно выбрать цвет ячеек рабочего листа. Для этого воспользуемся таким макросом (листинг 4.4).
Листинг 4.4. Выбор цвета заливки рабочего листа.
Sub AssietantChooseColorQ Dim intChoise As Integer
With Assistant
' Включение и отображение помощника .On “ True .Visible True With .HewBalloon
Настройка окна...
Тип .BalloonType - msoBalloonTypeButtons • Заголовок
.Heading — "Какой нужен цвет?"
Первый цвет .Labels(1).Text ■ "Красный" 1 Второй цвет .Labels(2).Text - "Желтый" • Третий цвет
.Labels(3)-Text — "Зеленый” * Тип кнопок .button ” msoButtonSetNone * Оображеиие окна intChoise в .Show
* Информационное сообщение о выбранном цвете HsgBox "Выбран: " 4 .Labels(intChoise)-Text End With End With
В результате выполнения данного макроса на экране вместе с помощником появится окно, изображенное на рис. 4.3
Какой нужен цвет?
• Желтый
• Зеленый
Рис. 4.3. Выбор цвета ячеек
При выборе любого из значений на экране появится окно, в котором будет указано название выбранного цвета. После нажатия в информационном окне кнопки ОК все ячейки рабочего листа будут окрашены в выбранный цвет. Для возврата к исходному состоянию нужно будет выделить весь рабочий лист и установить цвет заливки Авто.
Эксперименты с диаграммами
В Microsoft Excel реализованы широкие функциональные возможности для работы с диаграммами. Однако в этой главе мы не будем останавливаться на традиционных приемах работы с диаграммами, а рассмотрим нестандартные подходы, а также различные трюки и эффекты, которые можно реализовывать применительно к диаграммам.
Построение диаграммы с помощью макроса
В данном разделе мы рассмотрим, каким образом можно построить д иаграмму с помощью макроса.
Предположим, что у нас есть таблица с исходными данными (рис. 5.1), на основании которых необходимо построить диаграмму.
* I5 * ГС 1р !Е >
Магазин 1 |Мегеамн2 !Мага1инЗ]Магаэин4
2 Январь1 " 35450]42670:„21014167452
3 февраль2525С _И521[25645' ~_ 96214
4 Март' |1413^biSbiЭ6Э6546214
Рио. 5.1. Исходные денные для построения диаграммы
В данной таблице представлена информация о выручке за первый квартал (помесячно) по четырем торговым точкам. Обратите внимание на расположение таблицы (то есть на координаты диапазона, в котором она находится, — А1:Е4)
Для построения диаграммы следует написать и выполнить макрос, код которого приведен в листинге 5.1.
Листинг 5.1. Макрос построения диаграммы
Sub CreateChart()
' Создание и настройка диаграммы
With Charts.Add
Данные из первого листа
.SetSourceData Source:”Worksheets(1). Range("Al:Е4"}
Заголовок
.HasTitle - True
.ChartTitle.Text = "Выручка по магазинам"
Активизируем диаграмму
.Activate
End With
Ела Sub
В результате выполнения данного макроса будет построена диаграмма, изображенная на рис. 5.2.
Рис. 5.2. Построенная диаграмма
При написании макроса наряду с другими параметрами мы указали диапазон, который следует обрабатывать (А1:Е4), а также заголовок диаграммы — Выручка по магазинам. Созданная диаграмма помещается на автоматически сформированный рабочий лист, которому по умолчанию присваивается имя Диаграмма! (при последующих построениях диаграммы каждый раз будет создаваться новый лист Диаграмма с номером, увеличенным на 1 по сравнению с предыдущим).
При необходимости на основании втих ясе данных (см рис. 5.1) можно создать внедренную диаграмму. Для этого нужно написать и запустить следующий макрос (листинг 5.2).
Листинг 5.2. Построение внедренной анаграммы
Sub CreateEmbeddedChart(>
Создание и настройка внедренной диаграммы
With Worksheets(1) .chartQhjeete.AddUOO, 60, 250, 200)
* Объемная лиагра ма
.Chart.ChartType = хГЗОАгеа
* Источник данных
.Chart.SetSourceData Source: --Worksheets(1).Range("Al:E4 n)
End With
End Sub
Результат выполнения данного макроса представлен на ряс. 5.3.
На рисунке видно, что диаграмма внедрена на рабочий лист с исходными данными.
Можно также создать диаграмму на основе выделенных данных. В листинге 5.3 приведен текст макроса, в котором, помимо прочего, указывается размер диаграммы и ее расположение.
Рио. 6.3. Внедренная диаграмме
Листинг 5.3. Создание диаграммы на основе выделенных данных
Sub CreateCharOnSelectiont)
Создание диаграммы (с заданием положения на листе) With ActiveSheet.Chartobjects.Add( Selection-Left + Selection.Width, _
Selection.Top + Selection.Height, 300, 200).Chart
Тип диаграммы
.ChartType - xlColumnClvetered ’ Источник данных - выделение .SetSourceData Source:—Selection, PlotBy:-xlcolunuis • Без легенды .HasLegend ** False 1 Без заголовка .HasTitle = True -ChartTltle-Characters.Text — “Выручка за период" ' Выделение диаграммы .Parent.Select End With End Sub
Результат выполнения данного макроса представлен на рис. 5.4 — на основании данных таблицы, которая расположена в левом верхнем углу, создана диаграмма. Не стоит забывать, что перед запуском макроса необходимо выделить диапазон, данные которого должны быть учтены при построении диаграммы.
При подведении указателя мыши к столбикам диаграммы на экране будет отображаться соответствующая всплывающая подсказка.
Рис. 5.4. Диаграмма на основе выделенных данных
Сохранение диаграммы в отдельном файле
После создания диаграммы может возникнуть вопрос — а где ее хранить? Можно использовать для этого листы рабочей книги, а можно сохранить диаграмму в отдельном файле под указанным именем. Например, с помощью приведенного в листинге 5.4 макроса диаграмма будет сохранена под именем Диаграмма. gif.
Листинг 5-4- Сохранение диаграммы
Sub SaveChart(}
сохранение выделенной диаграммы в файл
If ActiveChart Is Nothing Then
* Вет выделенных диаграмм
MsgBox "Выделите диаграмму"
Else
сохранение...
ActiveChart,Export ActiveUorkbock.path А в\Диаграмма.д1С", "GIF”
End If
End Suh
Перед запуском макроса сохраняемую диаграмму необходимо выделить — в противном случае при попытке сохранения на экране отобразится окно с сообщением Выделите диаграмму. После применения макроса диаграмма будет сохранена под указанным именем в текущем каталоге.
Однако при сохранении диаграммы может возникнуть необходимость в интерактивном задании имени и расположения файла диаграммы. Для этого можно использовать макрос, код которого приведен в листинге 5.5
Листинг 5.5. Сохранение диаграммы под указанным именем
Sub rnteractiveSaveChart()
Dim strFlleName As String * Имя файла для сохранения
• Проверка, выделена ли диаграмма
if Activechart Is nothing Then
* Нет выделенных диаграмм
MsgBox "'Выделите диаграмму*’
Else
Выбор файла для сохранения
strFileName — Application.GetSaveAsFilename(
ActiveChart.Name 6 ".gif'", "Файлы GIF f*.gif), •.gif"', 1, _ "Сохранить диаграмму в формате GIF”)
Проверка, выбран ли файл
If strFileName о "" Then
Сохранение выделенной диаграммы в файл
ActiveChart-Export strFileName, "GIF”
End If
End If• 1
End Sub
Как и в предыдущем примере, перед сохранением диаграмму нужно выделить, иначе появится окно с соответствующим сообщением. После запуска макроса откроется окно Сохранить диаграмму в формате GIF (см. соответствующую строку приведенного выше кода), в котором по обычным правилам Windows указывается путь для сохранения и присваивается имя файлу диаграммы
Построение и удаление диаграммы нажатием одной кнопки
В данном разделе мы рассмотрим трюк, реализовав который можно будет быстро строить и удалять диаграммы нажатием лишь одной кнопки.
Предположим, у нас есть следующие исходные данные (выручка по торговым точкам), на основании которых нужно построить диаграмму (рис. 5.5).
|ал»ин1 МагминЗ МагмииЗ МагминХ
Рис. 6.5. Исходные данные для построении диаграммы
Теперь нам нужно написать код, который представлен в листинге 5.6. Этот код должен быть помещен в модуль рабочего листа.
Листинг 5.6. Быстрое построение и удаление диаграммы
Sub CreateChartO
Создание диаграммы
Charts.Add
Параметры диаграммы
тип диаграммы ActiveChart.ChartType — xlLineMarkera ' Заголовок
ActiveChart.SetSourceData Range("Bl :E2"), xlRows
ActiveChart.Location xlLocationAsObject, Name • Остальные параметры With ActiveChart
1 Заголовок .HaaTitle - True -ChartTitle-Characters.Text - Name ' Заголовок оси категорий .Axes(xlCategory, xlPrimary}.HaaTitle - True .Axes(xlCategory, xlPrimary)-AxlsTltle.Characters.Text —
Sheets(Name).Range("Ai").Value * Заголовок оси значений .Axes(xlValue, xlPrimary).BasTitle ■ True .Axes (xlValue, xlPrimary)-AxisTltla.Characters.Text _
Sheets(Name).RangeCA2").Value " Отображение легенды .HasLegend - False .HasDataTabie - True .DataTable.ShowLegendKey - True
m , . । . C
' Настройка отображения сетки With -Axes(xlCategory)
.HasMajorGridlinea = True .HaeMlnorGridline» - False End With With -Axes(xlValue) .HasMajoxGridlines - True .HasMinorGridllnes - False End With End With End Sub
Sub DeleteChart()
* Удаление диаграммы
ActiveSheat.ChartObjects.Delete End Sub
После написания кода мы уже можем строить диаграмму — для этого достаточно запустить макрос CxeateChart. Но мы упростим этот процесс.
Поместим на текущий рабочий лист две кнопки: Создать диаграмму и Удалить диагра м- ну (при этом следует воспользоваться средствами панели инструментов Формы, вызываемой с помощью команды Вид > Панели инструментов ► Формы). К кнопке Создать диаграмму привяжем макрос CreateChart, а к кнопке Удалить диаграмму — макрос DeleteChart (после написания кода оба эти макроса будут доступны в окне выбора макросов). Теперь для создания диаграммы достаточно будет нажать кнопку Создать диаграмму — результат представлен па рис. 5.6.
Рис. Б.6. Создание диаграммы одним нажатием кнопки
Для удаления построенной диаграммы с рабочего листа достаточно нажать кнопку Удалить диаграмму.
В предыдущем разделе мы рассматривали порядок сохранения диаграммы в отдельном файле с расширением GIF. Этот процесс также можно упростить.
Для этого на текущем рабочем листе нужно с помощью панели инструментов Формы создать кнопку Сохранить диаграмму в файл и привязать к этой кнопке макрос interactiveSaveChart (код данного макроса приведен в предыдущем разделе).
В результате при нажатии данной кнопки откроется окно, в котором по обычным правилам Windows следует указать путь и имя сохраняемого файла.
Не стоит забывать, что перед сохранением диаграммы ее необходимо выделить.
Вывод списка диаграмм в отдельном окне
В процессе работы иногда бывает необходимо узнать, какие диаграммы содержит текущий рабочий лист или книга. В данном разделе мы рассмотрим несколько макросов, позволяющих решить эту задачу.
Например, если нужно быстро узнать количество внедренных диаграмм текущего рабочего листа, то можно воспользоваться таким макросом (листинг 5.7).
Листинг 5.7. Внедренные диаграммы
Sub ShowSheetChartsО
Dim etrHeasage As String
Dim 1 As Integer 1 Формирование списка диаграмм For i = 1 To ActiveSheet.Chartobjects.Count strMessage - strMessage 6 ActiveSheet.ChartObjects(i)-Name _ 6 vbNewTine
Next 1 ■ Отображение списка MsgBox strMessage End Sub
После выполнения данного макроса на экране отобразится окно с перечнем имен внедренных диаграмм активного рабочего листа.
Можно вывести список рабочих листов, содержащих обычные диаграммы (вынесенные на отдельный рабочий лист). Пример макроса, позволяющего решить эту задачу, приведен в листинге 5.8-
Листинг 5.8. Перечень рабочих листов, содержащих обычные диаграммы
Sub ShowBookChartst)
Dim ort As chart
Dim strMessage As String
Формирование списка диаграмм
For Each ort In ActiveWorkbook.Charts strMessage — strMessage 6 crt.Name 6 vbNewLine
Next
Отображение списка
MsgBox strMessage End Sub
После применения данного макроса появится окно с перечнем рабочих листов текущей книги, содержащих диаграммы.
dM* qte.NM ^ннец,Применение случайной цветовой палитры
Рассматриваемый в данном разделе трюк носит чисто эргономический характер. С его помощью можно при работе с внедренными диаграммами применять совершенно случайные цвета заливки элементов диаграммы.
Для получения эффекта случайной цветовой палитры можно использовать следующий макрос (листинг 5.9).
Dim srSerie As Series
Dim IntBcrderLineStyle As Integer Dim intBorderColorlndex Ab Integer Dim intBorderWeight As Integer
' Проверка, есть ли выделенная диаграмма If ActiveCbart Is Nothing Then Exit Sub • Изменение отображения каждой категории For Each srSerie In ActiveCbart.Seriescollection If IsrSerie.ChartType • xlColumnClustered Or _ srSerie.ChartType = xlColumnStacked Dr _ srSerie.ChartType — xlColumnStackedlOO Or _ srSerie.ChartType - xlBarClustered Or _ srSerie.ChartType - xlBarStacked Or srSerie.ChartType xIBarStackedlDO) Then
• Сохранение прежнего цвета категории dblColor - srSerie.Interior.Color • Сохранение стиля линий intBorderLineStyle - srSerie.Border.LineStyle * Цвет границы intBorderColorlndex - srSerie.Border.Colorindex * Толщина линий границы intBorderWeight — erSerie.Border-Weight
Возвращаем на мемо толщину линий
.Border.Weight - intBordetWeight
* Стиль линий
. Border. LineStyle -» intBordeгLineStyle
Цвет границы
.Border.ColorIndex ^ IntBorderColorindex
End With
• Автофигура больше не нужна
shpShape.Delete
End If
Next srSerie
End Sub
После применения данного макроса диаграмма станет прозрачной. Степень прозрачности указывается в строке .Fill.Transparency = о. 4 — в данном примере она равна 40 %. При необходимости данный параметр можно изменить по своему усмотрению. Например, на рис. 5.7 показана диаграмма, у которой прозрачность составляет 60 % (эта же диаграмма изображена на рис. 5.4 в непрозрачном виде)
Рис. 5.7. Прозрачная диаграмма
Данный трюк применяется к созданным ранее диаграммам.
Построение диаграммы на основе данных нескольких рабочих листов
В процессе работы нередко возникает необходимость в оперативной обработке данных, которые хранятся на нескольких рабочих листах. Как известно, одним из способов обработки информации является построение диаграмм. В этом разделе мы рассмотрим, каким образом можно построить одновременно несколько диаграмм, исходными данными для которых будет информация, расположенная на нескольких рабочих листах.
Предположим, что у нас имеются пять разных таблиц, которые расположены на пяти рабочих листах, причем количество строк в этих таблицах различается. Одна из таких таблиц показана на рис. 5.8.
1 ,Магаэ«нЫ[0хИ1брь |Нок§р^ Ды»1р. .Итога за 4 и ГМвпвюИ~ КОСС 3100 jSDQl 2960С[ 1М.Г81НН2320025400'_32®|31050'
>~ Магазин 3174003600,740ШЭЁМСШ
^Магазин 42500,28700S2CE4040С,
ЭМагоинВ31401ЭКЮ'№Ю207401
t ИТОГО ' I>1240?БЭЭОоТ29050!I5099C
Н,11!—
Рис. 6.8. Пример таблицы
Для построения диаграмм на основании данных, хранящихся в этих таблицах, можно использовать макрос, код которого приведен в листинге 5.11
Листинг 5-11. Одновременное создание нескольких диаграмм
Sub ManyChartsO
Dim intTop Aa Long, intLeft As Long
Dim intHeight As Long, intWidth As Long
Dim sheet As Worksheet
Dim IngFlrstRow As Long• Первая строка с денными
Dim intserie As Integer1 Текущая категория диаграммы
Dim strErrorSheets As String * Список листов, для которых _
не удалось построить диаграммы
intTOp ■ 1" Верхняя точка первой диаграммы
IntLeft - 1• Левая точка каждой диаграммы
intHeight - 18С * Высота каждой диаграммы intWidth — 3001 Ширина каждой диаграммы
Постоение диаграммы для каждого листа, кроме текущего For Each sheet In ActiveWorkbook.Worksheets
If sheet.Name <> ActiveSheet.Name Then
Первый заполненный ряд
IngFirstRow = 3
Первая категория
intserie • 1
On Error GoTo DiagrammError
1 Добавление и настройка диаграммы
With ActiveSheet-ChartCbjecte.Add _ (intLeft, intTop, intWidth, intHeight).Chart
Do Until isEmpty(sheet.Celia(IngFiratRow + intSerie, 1)) * Создание ряда .seriescollection.NewSeries ' Значения для ряда .Seriescollection(IntSerie}.values — _
sheet.Range(sheet.Cells(IngFirstRow *■ intSerie, 2), sheet.Cells(IngFiratRow + intSerie, 4})
• Диапазон данных дли подписей
.Seriescollection(intSerie).XValues " sheet.Range("B3:D3n)
1 Название ряда (берется иа столбца *‘А" таблицы с данными) .SerieaCollection(intSerie).Name - sheet.Cells( _ IngFirstRow + intSerie, 1) intSerie ■ intSerie ♦ 1
Loop
Настройка внешнего вида диаграммы .ChartType - xl3DColumnClustered .ChartGroups(l).Gapwidth - 20 .PlotArea.Interior.Colorindex = xlNone .ChartArea.Font.Size — 9 * Диаграмма с легендой .HasLegend = True • Заголовок
.HaaTitle * True .ChartTitie.Characters.Text = sheet.Range("Al") • Задание диапазона значений на осях .Axes(xlValue).MinimumScalQ = О .Axes(xlValue) .MaximumScale - 120000 • Стиль линий сетки (прерывистый) .Axee(xlValue}.MajorGridlines.Border.
LineStyle = xlDot End With On Error Goto 0
1 Сдвиг верхней точки следующей диаграммы на высоту _ текущей диахрамда
intTop ■ intTop + intHeight AfterError;
End If
Next sheet
If strErrorSheets о "" Then
’ Отобразим список листов, для которых не построили диаграммы
MsgBox "Не удалое* построить диаграммы для листов:" 6 Chr(13) _ 6 atrErrorsheete, vbExclamation
End If
Exit Sub
DiagrammError:
Добавление в список имени листа, для которого яе смогли _ построить диаграмму (ошибка в данных для диаграммы)
strErrorSheets - strErrorsheets 6 sheet.Name 6 Chr(131
* Удаление пустой диаграммы на текущем листе
ActlveSheet.Chartobjects(ActlveSheet.Chartobjects.Count)-Delete
Продолжаем работу с другими листами
Resume AfterError
End Sub
Перед запуском макроса нужно создать пустой рабочий лист д ля диаграмм. Макрос следует запускать, находясь на этом рабочем листе. В результате выполнения макроса будет создано сразу пять диаграмм, расположенных одна под другой,—по диаграмме для каждой таблицы. Диаграммам будут присвоены названия в соответствии со значением, хранящимся в ячейке А1 (например, на рис. 5.8 в данной ячейке хранится значение таблица 4, поэтому и соответствующая ей диаграмма будет называться таблица 4). Особо следует отметить, что приведенный макрос корректно обрабатывает данные в разных таблицах, несмотря на то что количество строк в них различается.
Создание подписей к данным диаграммы
Опытным пользователям Excel известно, что порядок добавления подписей на диаграммы оставляет желать лучшего. В данном разделе мы рассмотрим прием, который позволяет быстро создать подписи к точкам диаграммы.
Диаграмма, а также исходные данные, на основании которых она построена, приведены на рис. 5.9.
Для управления отображением подписями к точкам диаграммы нужно в стандартном модуле редактора VBA написать следующий код (листинг 5,12).
Листинг 5.12. Подписи к данным диаграммы
Sub ShowLabels()
Dim rgLabelsAsRange1Диапазон сподписями
Dim chrChartAsChart*Диаграмма
Dim intPointAsinteger1Точка, длякоторой добавляетсяподпись
Определение диаграммы
Set chrChart - ActlveSheet.ChartObjects(1).Chart
Рис. 5.0. Диаграмма без подписей
• Запрос на ввод диапазона с исходными данными On Error Resume Next
Set rgLabels — Application.InputEox _
(prompt:-"Укажите диапазон о подписями". Туре:-В) if rgLabele Is Nothing Then Exit Sub On Error Goto 0
Добавление подписей
chrChart.Seriescollection(1).ApplyDataLabels _
Type:-xlDataLabelsShowValue, _
AutoText:-True, _ LegendKey:-False
Просмотр диапазона и назначение подписей
For intPoint - 1 Та chrChart-SerlebCoIIection(1).Points.Count chrChart.SeriesCollection(1).
Points(IntPoint).DataLabel.Text — rgbabels(intPoint) Next intPoint End Sub
Sub DeleteLabelsO
Удаление подписей диаграммы
ActiveSheet.Chartobjects(1).Chart.Seriescollection(1). HasDataLabels - False
End Sub
В результате написания данного кода будут созданы два макроса: ShowLabels (для включения подписей) и DeieteLabeis (для их выключения). После выполнения
макроса shcwLabels откроется диалоговое окно, в котором вужно указать диапазон исходных данных для создания подписей.
На рис. 5.10 показана диаграмма с подписями.
Рис. 5.Ю. Диаграмма с подписями
В данном случае в качестве исходных данных для создания подписей был использован диапазон А2:А9
Создание полезных программ
В данной главе приведено несколько конкретных примере® создания приложений для дальнейшего их использования в Microsoft Excel.
Программа для составления кроссвордов
В этом разделе мы рассмотрим, каким образом, используя механизм пользовательских форм и механизм макросов, можно создать программу для быстрого составления кроссвордов.
Написание макросов
В первую очередь нам необходимо создать рабочую книгу с листом. В стандартном модуле следует написать код, который приведен в листинге 6.1. В дальнейшем мы подробнее рассмотрим назначение макросов, которые будут созданы после написания кода.
Листинг 6.1. Программа для составления кроссворда
Const dhCMinCol—1* Номерпервого столбца кроссворда
Const dhcMaxCol-35Номерпоследнего столбца кроссворда
Const dhcMinRow-1Номерпервой строки кроссворда
Const dncMaxRow-35Номерпоследней строки кроссворда
Sub Clear»
Выделение и очистка всех используемых для кроссворда ячеек
Range (Celle (dhcMlriRow, dhcMlnCol), _ Cells(dhcMaxRow, dhcMaxCol}).Select
Selection.Clear
Удаление сетки всего хроссгорда
ClearGrid
Range("Al“J-Select
End Sub
Sub ClearGridО
Удаление сетки кроссворда (в выделенных ячейках) .
Возврат прежнего цвета ячеек Selection.Intertor.ColorIndex •• xlNone
Задание начертания гранки ячеек по умолчание Selection.Borders(xlDiaggpalDown).LineStyle - xlNone Selection.Borders(xlDiagnnalUp).Linestyle — xlNone Selection.Borders(xlEdgeLeft).LineStyle - xlNone Selection.Borders(xlEdgeTop).Linestyle - xlNone Selection.Borders(xlEdgeBottom).LineStyle — xlNone
Selection.Border»(xlEdgaHight) .LlneStyle * х№ле Selection.Borders(xllnsideVertical).LlneStyle - xlMone Selection.Borders(xlInsidaHorlzontal)-LlneStyle - xlNone End Sub
Sub DrowCrosswordGridО
* Процедура начертания сетки кроссворда
• Задание цвете всех ячеек кроссворда Selection.Interior.Colorindex - 35 • Линии по диагонали не нужны Selection.Borders(xlDiagonalDown).Linestyle - xlHone Selection.Borders(xlDiagonelDp).LlneStyle - xlNone
Задание начертания границ всех диапазонов, входящих _ в выделение, а также границ между соседними ячейками _ всех диапазонов
On Error Resume Next
Левые границы
With Selection.Borders(xlEdgeLeft) -LlneStyle * xlContlnuous -Weight “ xlThin
-ColorIndex - xLAutomatic
End With
Правые границы
With Selection-Borders(xlEdgeRlght) .LineStyle - xlContlnuous -Weight - xlThin -ColorIndex = xlAutometic
End With
Верхние границы
With Selection.Borders(xlEdgeTop) ■LlneStyle = xlContlnuous -Weight - xlThin .Colorindex - xlAutomatic
End With
Нижние границы
With Selection-BordersIxlEdgeBottom} .Linestyle - xlContlnuous .Weight = xlThin .Colorindex = xLAutomatic
End With
Вертикальные границы между ячейками With Selection.Borders(xllnsideVertical)
.LineStyle = xlContinuoua
.Weight - xlThin .Colorindex - KlAutomatic End With * Горизонтальные границы между ячейками With Selection.Borders(xlIneideHorizontal)
.LineStyle — xlContinuoua
.Weight — xlThin
.Colorindex — xlAutomatic End With End Sub
Sub DieplayGridO
Включение сетки на листе
Activewindow.DisplayGridlines = True End Sub
Sub HideGridO
Выключение Сетки на листе ActiveWindow.DisplayGridlines = False End Sub
Sub AutoNumber()
’ Нумерация клеток, являющихся началом слов
Dim IntRow As Integer
Dim intCol As Integer
• Текущая строка
* Текущий ряда
Dim cell As Range
• Текущая ячейка (с координатами л| (intRow, IntCol))
Dim fTpp As Boolean
• - True, если cell имеет соседей сверху
Dim fBottom As Boolean
• - True, если cell имеет соседей снизу
Dim fLeft As Boolean
' — True, если cell имеет соседей слева
Dim fRight As Boolean
• - True, если cell имеет соседей справа
Dim intDigit As Integer
* Текущий номер слова в кроссворде
intDigit •= 1
• Нумерация слов с 1
* Проходим по всем клеткам диапазона, используемого для кроссворда, сверху вниз слева направо и анализируем каждую угловую и крайнюю (левую и верхнюю) ячейки
Foz intRow - dhcMinRow То dhcMaxRow For intCol " dhcMinCol To dhcMaxCol ' Текущая ячейка Set cell - Cells(IntRow, intCol)
■ Проверка, входит ли ячейка в кроссворд (па ее цвету) If cell.Interior.Colorindex * 35 Then fLeft * False fRight — False fTop = False fBottom ■ False On Error Resume Next
• Определение наличия соседей у ячейки... ' сверху
fTop - cell.Offset(-1, D).Interior.Colorindex - 35 ' снизу
fBottom - cell.Offset(1, 0).Interlor.Colorindex - 35 ■ слева fLeft - cell.0f£set(0, -1}.Interior.Colorlndex - 35 • справа fRight - cell.offset(0, 1).Interior.Colorlndex - 35 On Error GoTo 0
Анализ положения ячейки
If (Not fTop And Not fLeft) Dr _ (Not fBottom And Not fLeft And fRight) Or _ (Not fLeft And fRight) Or _ (Not fTop And fBottom) Then
Ячейка подходит для начала слова SetDigit intDigit, cell intoiglt = IntDlgit * 1 End If End If Next intCol Next intRow End Sub
Sub SetDigit(IntDlgit As integer, cell Ae Range)
Вставка цифры intDiglt в ячейку, заданную параметром cell cell.Value - IntDlgit
• Изменение настроек шрифта так, чтобы было похоже _ на настоящий кроссворд
Маленький размер шрифта
cell.Font.Size - 6
• Выравнивание текста по левому верхнему углу ячейки
cell.HorizontalAlignment - xlLeft
cell.VerticalAlignment = xlTop
End Sub
Sub ToPrint(J
’ Удаление цветовой подсветки кроссворда
Cello.Interior.ColorIndex — xINone
End Sub
Sub ToNumbar()
■ Закрытие первой формы и переход ко второй
UserForml.Hide
UserForm2.Show
End Sub
Листинг 6.1 состоит из девяти макросов (семь первых можно запускать вручную)'
DrowCrosswordGrid — рисует сетку кроссворда для выделенных ячеек;
clear — удаляет кроссворд с рабочего листа;
Clears rid — удаляет рамку кроссворда в выделенных ячейках;
Aut oNumber — записывает номера в ячейки кроссворда:
DisplayGr id — показывает сетку рабочего листа;
HideGrid —убирает сетку рабочего листа;
ToPrint — удаляет цветовую подсветку ячеек кроссворда;
Setoiglt — помешает нужное число в указанную ячейку (этот макрос используется макросом AutoNumber д ля записи номеров в ячейки);
ToNuober — переход от основной формы ко второй форме (см. ниже)
Вызывать все эти макросы вручную довольно неудобно. Их можно запускать посредством элементов управления, которые можно поместить прямо на рабочий лист или на пользовательскую форму. О создании пользовательской формы рассказывается в следующем разделе.
Создание пользовательских форм
Для создания основной формы программы необходимо воспользоваться панелью инструментов Формы, для вызова которой следует выполнить команду главного меню Вид ► Панели инструментов ► Формы. С помощью данной панели нужно по обычным правилам создать форму, изображенную на рис. 6.1.
Рис. 6.1. Первая форма прогтаммы
К элементам формы привяжем макросы (все привязываемые макросы входят в состав кода, который приведен выше, и доступны в окне, открываемом при выполнении команды Сервис ► Макрос ► Макросы):
□ переключатель Сетка присутствует — макрос DlsplayGrld;
а переключатель Сетка на поле отсутствует — макрос HideGrld;
кнопка Новый кроссворд — макрос Clear;
кнопка Нарисовать рамку — макрос DrawCrascwordCrid;
а кнопка Стереть рамку — макрос ciearGrld;
кнопка Дальше — макрос томшпьег.
Теперь аналогичным образом (с помощью панели инструментов Формы) создадим еще одну форму, которая показана на рис. 6.2.
К элементам данной формы привяжем следующие макросы (они также присутствуют в коде и доступны в окне выбора макросов):
кнопка Автонумерация — макрос RutoHumber,
кнопка Очистить все — макрос clear;
кнопка Вывести на печать — макрос ToPrint.
Следует отметить, что можно не создавать пользовательские формы, а размещать все элементы управления прямо на рабочем листе, используя все ту же панель инструментов Формы. Если так поступить, то кнопка Далее в первой (главной) форме становится ненужной.
Итак, у нас все готово для составления кроссвордов. О порядке использования программы рассказывается в следующем разделе.
Рис. 6.2. Вторая форма программы
Порядок использования программы
С помощью созданной программы можно быстро составлять и нумеровать сетку кроссворда. Рассмотрим конкретный пример
На листе создадим Несколько выделенных областей, объединив их (рис. 63).
«с:
Рис, 6.3- Выделение нескольких областей
Теперь нажмем кнопку Нарисовать рамку — результат представлен на рис. 6.4.
Нажимаем кнопку Дальше — будет отображена вторая форма программы (см. рис. 6.2). В этой форме следует нажать кнопку Автону нерация. В результате сетка кроссвордабу- дет быстро пронумерована (рис. 6.5).
Теперь нажимаем кнопку вывести на печать, и на листе отобразится готовая сетка кроссворда (рис. 6.6).
Рис. 6.6. Готовая сетка кроссворда
С помощью кнопки Очистить все с листа удаляется рамка кроссворда.
Кнопка Стереть ранку, которая находится в главной форме, позволяет удалить всю рамку (для этого ее нужно выделить) либо ее выделенный фрагмент.
При нажатии кнопки Новый кроссворд удаляется все содержимое документа, после чего можно приступать к составлению нового кроссворда.
Игра «Минное поле»
Пользователям Windows известно, что в комплект поставки операционной системы входит несколько игр, в том числе Сапер. Однако не многие знают, что подобную игру можно создать самостоятельно в Excel, используя механизм макросов.
Игра «Минное поле», о которой рассказывается в данном разделе, во многом аналогична стандартной игре Сапер. Для создания игры необходимо написать несколько макросов, объединенных в два кода: первый код должен быть помещен в модуль -того рабочего листа, на котором предполагается разместить игру, а второй — в стандартный модуль.
В модуль рабочего листа необходимо поместить такой код (листинг 6.2).
Листинг 6.2. Код в модуле рабочего листа
Sub KorkaheetSelectionChange(ByVai Target Ав Range)
Dim intCol As Integer, IntBow Аз Integer
Dim IntMineaAround As Integer
Dim flnGameFleld As Boolean
* Определим, попадает ли в игровое пойе выделенная ячейка
flnGameFleld - (Target.Raw >- 2) And (Target.Row <= 7)
And (Target.Column >“ 2) And (Target.Column <■ 7)
' Обрабатываем выделение ячейки
If Target.Value = "•" And flnGameFleld Then
* Пользователь выделил ячейку с миной - покажем мину
Target.Font.Color = RGB(О, D, 0)
Target.Interior.Color — RGB(255, 0, 0)
• Пользователь проиграл!
EndGame
Elself flnGameFleld Then
' Пользователь выделил пустую ячейку. Оформим эту ячейку
Target.Interior.Color — RGB(0, 0, 255)
Target.Font.Color ^ RGB(0, 255, 0)
Target.Font.Size - 16
Подсчитаем количество мин рядом о ячейкой (вокруг ячейки) For intCol - Target.Column - 1 To Target.Column + 1 For intRow - Target.Row - 1 To Target.Row + 1
If Target.Worksheet.Calls(IntRow, IntCol).Value = "• _ Then
' Нашли очередную мину intMinesAround • intMinesAround + 1 End If Next
Next
• Отображение количества мин Target.Value = IntMinesAround End If End Sub
Код, который должен находиться в стандартном модуле, выглядит следующим образом (листинг 6.3).
Листинг6.3. Коде стандартном модуле
Sub NewGameO
Начало новой игры
Подготовим поле для игры InitGame
Dim intRow Аа Integer, intCol As Integer Dim intMinesCount As Integer • Количество мин 1 Расставляем мины (то есть в случайные ячейки помещаем значения ”•• и делаем цвет шрифта таким же, как цвет _ фона этих ячеек)
For IntMinesCount = 1 То 10
Строка для мины (от 2 до 7) intRow = Int((6 * Rnd) т 1) ♦ 1 ' Столбец для мины (ст 2 до 7) intCol - Int((6 • Rnd) ♦ 1) ♦ 1
Hext
Вывод информации 6 количестве мин в строку состояния Application.StatvsBar =• "Количество мин * & IntMinesCount End Sub Sub InitGamet)
Раскраска (оформление) листа перед началом игры Dim intRow As Integer, intCol As Integer
Цвет фона всех ячеек
Cells.interior.Color - RGB(O, 200, 75) ’ Цвет щрифта всех ячеек Celle.Font.Color - RG®(0, 0, 0} ' Размер шрифта Cells.Font.Size - 18 1 Все надписи - по центру Cells.HorizontalAlignment — xlCenter
Всем ячейкам игрового поля назначим особый цвет For intRow = 2 То 7
For intCol " 2 То 7
Cells(intRow, intCol).Interюг.Color - RG8(20G, 200, 200) Cells(intRow, intCol)-Value ■ "" Next
Next End Sub Sub EndGamet) ■ Завершение игры (поражение) Dim IntRow As.Integer, intCol As Integer
* Покажем все мины. Для этого сделаем цвет шрифта всех ячеек _ черным (вел* во всех ячейках с минами цвет шрифта и цвет _ заливки одинаковы)
For intRow - 2 То 7 For intCol = 2 То 7 If Cells(intRow, intCol)-Value - "*" Then
Cells(intRow, IntCol).Font.Color - RGB(0, 0, 0) End If Next
Next
MsgBox "Проигрыш"
В данном примере рабочее поле игры будет расположено в диапазоне B2:G7. Для удобства поместим под ним кнопку вызова новой игры (для этого воспользуемся панелью инструментов Формы, которая вызывается с помощью команды Вид ► Панели инструментов ► Формы) и привяжем к ней макрос NevGatne (этот макрос будет доступен в окне выбора после написания кода).
На рис. 6.7 показан интерфейс созданной игры «Минное поле».
Рис. 8.7. Игра -Минное поле-
Для запуска новой игры нужно нажать кнопку Начало игры или запустить макрос NewGame. Количество спрятанных мин будет показано в строке состояния. Ячейки на минном поле удобнее выбирать с помощью мыши. При выборе пустой ячейки в ней отобразится количество мин, расположенных рядом с данной ячейкой. При выборе ячейки с миной появится окно с сообщением Проигрыш (текст сообщения можно изменять по своему усмотрению путем внесения соответствующих корректировок В КОД Игры)
Игра «Угадай животное»
В данном разделе мы рассмотрим создание небольшой игры, которая называется «Угадай животное». Смысл ее заключается в том, что пользователь загадывает определенное животное, а компьютер с помощью «наводящих» вопросов пытается его отгадать. Характерной особенностью игры является то, что она способна к «самообучению»: если какое-то животное не отгадано и пользователь дал подсказку, оно в дальнейшем будет угадываться.
Итак, создадим рабочую книгу, в которую входят листы Main и Data. Лист Main — это лист, который будет открыт по умолчанию при запуске данной книги. На нем следует расположить кнопку, с помощью которой будет запускаться игра (подроб-
нее об этом рассказано ниже). Здесь также можно ввести произвольный текст, например, приветствие или что-то в этом роде; Вас приветствует программа "Угадай животное" и т. п.
Содержимое листа Data показано на рис. 6.8 (обратите внимание на координаты данных — именно на такое их расположение ориентирован приведенный ниже код программы).
Рис. 6.8. Содержимое листа DataРис. 6.8. Содержимое листа Data
Рис. 6.8. Содержимое листа Data
Рис. 6.8. Содержимое листа Data
Dim intLastRow As IntegerDim intRow As IntegerDim IntYesRow As integerDim intNoRow Aa IntegerDim strTexc As StringDim etrNewName As StringDim strNewQuestion As StringDim intRes Aa IntegerDim intLastRow As IntegerDim intRow As IntegerDim IntYesRow As integerDim intNoRow Aa IntegerDim strTexc As StringDim etrNewName As StringDim strNewQuestion As StringDim intRes Aa Integer
Dim intLastRow As Integer
Dim intRow As Integer
Dim IntYesRow As integer
Dim intNoRow Aa Integer
Dim strTexc As String
Dim etrNewName As String
Dim strNewQuestion As String
Dim intRes Aa Integer
Dim intLastRow As Integer
Dim intRow As Integer
Dim IntYesRow As integer
Dim intNoRow Aa Integer
Dim strTexc As String
Dim etrNewName As String
Dim strNewQuestion As String
Dim intRes Aa Integer
Приступим к созданию макроса игры. Для этого в модуле рабочего листа Main напишем код, который приведен в листинге 6.4
Листинг 6.4. Игра «Угадай животное»
Sub StnrtGa»e(>
Номер строки для встеаки записей
1 Номер текущей строки
Номер строки, из которой брать _ данные при утвердительном ответе
Номер строки, из которой брать _ данные при отрицательном ответе
Строка с вопросом или названием _ ЖИВОТНОГО
Строка с названием нового животного
Строка с новым вопросом
Начало игры
MsgBox "Начнем игру. Задумайте животное.", vbOKOnly, _ "Задумайте животное"
Определение номера ряда для вставки вапиоей. _ lntLastRow-1 - номер последнего ряда, содержащего данные
intbastRow - Worksheets("Data")-Range("Di").Value + 1
Данные в таблице идут с первого ряда
IntRow ■= 1
Do While intRow < intLastRow
Текст вопроса или название животного на столбца "А" strText - Worksheets("Data"}-Cells(intRow, 1).Value 1 Номер ряда, иэ которого брать данные при утвердительном ответе, берем из столбца "В"
IntYesRow - Worksheets("Data").Cells(intRow, 2}.Value
• Номер ряда, из которого брать данные при отрицательном _ ответе, берем иэ столбца "С"
intNoRow = Worksheets("Data").Cells(intRow, 3)-Value
If intYesRow > 0 Then
' В строке strText содержится вопрос. Зададим его intRes ■ MsgBox(strText, vbYesNo, "Вопрос") If intRes - vbYes Then
' Переходим па утвердительному ответу intRow = intYesRow
Else
Переходим по отрицательному ответу IntRow — intNoRow
End If
Else
* Альтернативы закончились. В строке strText - название _ животного. Спросим, его ли загадали
intRes " MsgBox("Это " ь strText t "?"# vbYesWo, "Вопрос") If intRes - vbYee Then
Животное угадано
MsgBox "Угадано* Спасибо за игру*", vbOKOnly, "Игра завершена"
Exit Do Else
Животное не угадали, нс данные уже ванкокчились. Нужно пополнить наши данные, чтобы отличать животное с названием strText от загаданного
Ввод названия нового животного
strHewName = InputBox("Сдаюсь. Кто это?", "Напечатайте название животного")
If strNewName о "" Then
Ввод вопроса, по которому отличать животных strNewQuestion •* InputBox("Задайте вопрос, по " & "которому можно отличить •" £ strNewNaae 6 _
”* от ■" 6 strText 6 *•", "Напечатайте вопрос*} If strNewQuestion О "" Then
Определение, какое из животных соответствует _ утвердительному ответу на вопрос
intRes •* MsgBox("Правильный ответ на паи " t "вопрос - " t strNewName 6 "’", vbYesNo, _ "Кахой ответ на вопрос?")
Добавление в таблицу названия нового животного
Worksheets("Data")-Cells(intLastRow, 1). Value - BtrNewName
Перемещения названия животного, которое было _ ранее, р конец таблицы
Worksheets("Data").Cells{intLastRow +1, 1). Value - strText
Замена названия этого животного вопросом
Worksheets("Data").Cells(intRow, 1).
Value = strNewQuention
* Корректировка номеров строк для перехода _ в зависимости от того, какое животное является _
. правильным ответом на введенный пользователем вопрос If intRes — vbYes Then
Вовое животное - правильный ответ
Worksheets("Data").Cells(intRow, 2}. _ Value - intLastRow
Worksheets("Data")-Cells(intRow, 3).
Value — intLastRow + 1
Else
Бывшее ранее животное - правильный ответ
Worksheets("Data").Celia(intRow, 2). _
Value — IntLastRow + 1
Worksheets("Data").Cells(IntRow, 3). Value — intLastRow
End If
Сохраним номер строки для добавления записей
Worksheets("Data").Range("DI") .Value = _ intLastRow + 2
End If
End If
• Игра завершена. таблица дополнена
MsgBox "Спасибо за игру!", vbOKOnly, "Игра завершена’’ Exit Do
End If
End If
Loop
End Sub
После этого ня листе Main создадим кнопку Старт (для этого следует воспользоваться панелью инструментов Формы) н назначим ей макрос startGame. После нажатия данной кнопки на экране отобразится окно, изображенное на рис, 6.9
Рис. 6.9. Начало игры
После нажатия в данном окне кнопки ОК программа начнет задавать вопросы, с помощью которых попытается узнать, какое животное загадано. Если отгадать не удастся, то программа выдаст окно с соответствующим запросом, в котором с клавиатуры можно ввести название загаданного животного, а затем — вопрос, ответом на который является введенное значение. Введенные данные сохранятся в таблице и будут использоваться в дальнейшем.
Работа данной процзаммы и, главное, ее «обучение» основаны на особенном строении данных, используемых этой программой. Они организованы в виде бинарного дерева. Каждый элемент этого дерева, являющийся вопросом, — узел, а элемент, являющийся названием животного, — лист. Каждый узел содержит два элемента (пусть левый и правый). При отрицательном ответе на вопрос рассматривается левый элемент, при утвердительном — правый. Если рассматриваемый элемент является узлом, то опять задается вопрос и анализируется ответ. Если же элемент — лист, то мы дошли до конца цепочки возможных вопросов и ответов, остается только спросить, является ли содержимое листа правильным ответом. В случае правильного ответа работа программы завершается Если же ответ неправильный, то пользователь вводит вопрос, позволяющий отличить загаданное им животное оттого, которое предположила программа. Название животного заменяется вопросом (на место листа дерева вставляется узел). Слева помещается название старого животного (лист), а справа — загаданного пользователем (тоже лист дерева). Так пополняются знания приведенной программы.
Так как для хранения данных у нас используется таблица, то элементы дерева хранятся в следующем виде. Значение элемента дерева (текст вопроса или название животного) содержится в столбце А. Для узла (то есть вопроса) в столбце В содержится номер строки, на которую следует перейти при утвердительном ответе, а в столбце С — номер строки, на которую необходимо перейти при отрицательном ответе на вопрос. Для листа (названия животного) столбцы В и С пусты.
Кроме того, в ячейке D1 хранится номер первой строки, которая может быть использована для вставки новых данных. Заодно этот номер используется для предотвращения ошибок программы (зацикливания и прочих неприятностей) при повреждении данных.
Расчет на основании ячеек определенного цвета
В этом разделе мы отвлечемся от созд ания развлекательных программ типа игр и рассмотрим более практичный трюк. С его помощью можно разработать программу, которая будет выполнять необходимые расчеты с теми исходными данными, которые хранятся только в ячейках определенного цвета (или написаны шрифтом определенного цвета). Иначе говоря, в качестве критерия для включения в расчет тех или иных дазгных будет приниматься либо цвет заливки соответствующей ячейки, либо цвет шрифта. Достоинством данной программы является то, что она проста и удобна в использовании.
Знакомиться с программой будем в два этапа: на первой"этале напишем код программы и создадим пользовательские формы, на втором — рассмотрим порядок ее использования.
Создание программы
Итак, для создания программы нужно в модуле VBA написать код, который выполняет все расчеты, и создать форму, которая позволит сделать использование функции расчета более наглядным.
Программный код в стандартном модуле VBA выглядит следующим образом (листинг 6.5).
Листинг 6.5. Код в стандартном модуле
Const dhcSwn As Integer = О
Const dhcAvg Ав Integer ■ 1
Const dhcMax As Integer - 2
Const dhcMin As Integer — 3
Const dhcCount As Integer — 4
Const dhcSumPlus As Integer - 5
Const dhcStuBMinus As Integer — 6
Const dhcCountFull As Integer - 7
Const dhcCountNotNull As Integer - 8
Const dheCounttlus As Integer — 9
Const dheCountMinus As Integer — 10
Sub CalcColorsO
1 Отображение формы Load frmColorCalc frtnColorCale.Show
Public Function GelorCalc(strRang» Ая Etring, IngColcr Ав Long, fBackBolor As Boolean, intMode As Integer, Optional fAbsence As Boolean) As Double
* Операции над ячейками с установленным цветом шрифта _ или заливки
Dim rgData Аа Range 1 Диапазон ячеек для расчетов
Dim 1 As Integer
Dim Values () As Variant ' Массив co значениями для расчета
Dim intCount As Integer * Количество значений в массиве
Dim cell As Range
Dim varOut As Variant 1 В этой переменной хранятся результаты промежуточных подсчетов _ и окончательный результат
Set rgData — Range(strRange)
ReDim Values(I To rgData.Count)
• Просматриваются все ячейки входного диапазона. Значения тех из них, цвет которых удовлетворяет условию, записываются в массив Values
For Each cell In rgData.Cells
* Если нужно суммировать по заливке: If fBackBolor = True Then
Включение ячейки в сумму в зависимости от цвета _ заливки и фильтра
If fAbsence Then
' Если ячейка имеет заданный цвет, то сна не включается _ в вычисления
If cell.Interior.Color о IngColor Then intCount = intCount + 1 Values(intCount) - cell.value
End If
Else
Если ячейка имеет заданный цвет, то ома включается _ в вычисления
If cell.Interior.Color •• IngColor Then intCount — IntCount + I Values(intCount) - cell.Value
End If
End If
В противном случае - суммируется по шрифту Else
* Включение ячейки в сумму в зависимости _ от ее цвета и фильтра
If fAbsence Then ‘ Если ячейка имеет заданный цвет, то она не включается в вычисления
If cell.Font.Color <> IngColor Then intCount “ intCount + 1 Values(intCount) = cell.Value
End If Else
• Если ячейка имеет заданный цвет, то она включается _ в вычисления
If cell.Font.Color = IngColor Then
intCount — IntCount + 1
Values(intCount) - cell.Value End If End If End If Next cell
* Выполнение над собранными значениями операции, заданной в IntMode For i = 1 То intCount
Select Case IntMode Case dhcSum, dhcAvg • Подсчет суммы значений varOut - varOut + Values(1) Case dhcSumFlus
' Подсчет суммы положительных значений
If Values(i) > 0 Then varOut - varOut * Values(1) Case dheSunMinus
Посчет суммы отрицательных значений
If Values(1) < 0 Then varOut — varOut + Values(1) Case dhcMax • Нахождение максимального значения
If Values(1) > varOut Then varOut = Values(i) Case dhcMin • Нахождение минимального значения
If 1 = LBound(Values) Then varOut • Values(1)
If Values(i) < varOut Then varOut - Values(i) Case dhcCount • Подсчет количества значений varOut = varOut + 1 Case dhcCountFull
' Подсчет количества заполненных ячеек
If Not IsEmpty(Values(i>) Then varOut - varOut * 1 Case dhcCountNotNull
• Подсчет количества пустых ячеек
If Not IsEmpty(Values(i]) And Values(i) О 0 Then _ varOut - varOut * 1
Case dhcCountPlus
Подсчет количества положительных значений
If Valuesti) > 0 Then varOut - varOut * 1 Case dhcCountMinus
Подсчет количества отрицательных значений If Values(1) < 0 Then varOut - varOut + 1 End Select
Next 1
Окончательные операции для некоторых видов расчета
If intMode = dhcAvg Then
* Вычисление среднего значения ColorCalc - varOut 1 intCount
Else ColorCalc -* varOut End If End Function
В приведенном выше коде реализованы следующие элементы:
□ функция ColorCalc — выполняет все расчеты с использованием цвета (параметры этой функции и ее аргументы рассматриваются в следующем разделе);
О макрос calcColore — отображает форму управления расчетом (см. ниже).
В проект VBA необходимо также добавить форму к поместить в ее модуль код, приведенный в листинге 6.6.
Листинг 6.6. Код в модуле формы
Dim IngCurColor Аз Long * Выбранный цвет, по которому _ идентифицировать (отбирать] ячейки Dim intMode As Integer * Номер типа вычисления и списке
Sub cmbApplyColor_Cllck(J
If cboOtherColor.Value >- D Then
• Вычисление с использованием выбранного в списке цвета IngCurColor — cboOtherColor.Value SetColorSum End If End Sub
Sub crabColcrl—ClickO
Вычисление с использованием цвета нажатой кнопки IngCurColor — cmbColorl.BackColor
SetColorSum
End Sub
Sub cmbColor2_Cllck()
Вычисление с использованием цвета нажатой кнопки IngCurColor - cmbColor2-BackColor
SetColorSum
End Sub
Sub cmbColor3_Click()
Вычисление с использованием цвета нажатой кнопки IngCurColor ■ cmbColorS.BackColor
SetColorSum
End Sub
Suh cmbColor4_Click()
Вычисление с использованием цвета нажатой кнопки IngCurColor — cmbColor4.BackColor
SetColorSum
End Sub
Sub ciribColor5__Click()
1 Вычисление с использованием цвета несжатой кнопки IngCurColor ■ cmbColorS.BackColor
SetColorSum
End Sub
Sub cmbColor6_Click0
* Вычисление с использованием цвета нажатой кнопки IngCurColor * cttibColor6.BackColor
SetColorSum.
End Sub
Sub cmbColcr7_Cllck()
• Вычисление с использованием цвета нажатой кнопки IngCurColor - cmbColor7.BackColor
SetColorSum
End Sub
Sub cmbColorfi_Click()
' Вычисление с использованием цвета нажатой кнопки IngCurColor = cmbColorB.BackColor SetColorSum End Sub
Sub cmbColor9__Click ()
Вычисление с использованием цвета нажатой кнопки IngCurColor - cmbColor9.BackColor SetColorSum End. Sub
Sub cmbColorlD_Cllck()
* Вычисление с использованием цвета нажатой кнопки IngCurColor — cmbColorlO.BackColor SetColorSum End Sub
Sub cmbColorll_Click()
' Вычисление с использованием цвета нажатой кнопки IngCurColor - cmbColorll.BackColor SetColorSum End Sub
Sub cmbColorl2_Click()
Вычисление с использованием цвета нажатой кнопки IngCurColor = cmbColorl2.BackColor SetColorSum End Sub
Sub SetColorSum()
‘ Вычисление с использованием запанного цвета
Dim atrFormula As String
1 Проверка правильности введенных диапазонов и номеров ячеек If txtResCe 11.Value •■ ”" Then
MsgBox "Введите адрес ячейки вставки функции", vbCriti cal, "Внимание1”
txtResCel1.SetFocus
Exit Sub
Elself txtRange. Value - "" Then
MsgBox "Введите адрес диапазона суммирования"# vbCritical, "Внимание!"
txtRange.SetFocue
Exit Sub
End If
Формирование формулы
strFormula - "-ColorCalc{" S *“”" 6 txtRange.Value 4 и""" 6 ”,* & IngCurColor 6 "," 8 CInt(tglType.Value) 8 ",n & intMode 6 ",* 6 CInt(chkVarify.Value) 6 ")"
Запись формулы в ячейку
Range(txtResCell.Value).Formula = etrFormula
End Sub
Sub cmbExit_Cllck()
Закрытие формы Unload Ke
End Sub
Sub cboCalcTypes_AfterUpdate()
Изменение режима вычисления - сохраним в переменной номер вычисления
intMode - cboCalcTypes.Listlndex
End Sub
Sub cboOthexColor_Change()
Изменение выделенного цвета в списке "Другой" If cboOtherColor.Text О p" Then
’ Сохранение выбранного цвета в переменной IngCurColor - Vai(cbaotherColor.Value)
End. If
End Sub
Sub tglType_Click(J
' Изменение типа идентификации ячеек If tglType.Value = -*1 Then
• Идентификация no цвету заливки tglType.Caption - "Заливка"
Else
1 Идентификация по цвету шрифта
tglType.Caption * "Щрифт"
End If GetColors End Sub
Sub txtRangeAfterVpdate0
Изменение диапазона с исходными данными - покажем _ кнопки с дзетами, представленными в новом диапазоне GetColors End Sub
Sub txtRange_BeforeUpdate(ByVai Cancel As MSForma.ReturnBoolean) * Проверка корректности данных, введенных в поле диапазона исходных данных
Dim rgData As Range Dim cell Аз Range
Проверка, введен ли диапазон данных If txtRange.Text — "" Then
MsgBox "Введите адрес диапазона суммирования!", vbCritlcal, "Ошибка выполнения"
Cancel — True End If If txtResCell.Text - •'•' Then Exit Sub
On Error Goto Errl
Проверка отсутствия циклических ссылок (чтобы одна из входных ячеек не была одновременно и выходной)
Set rgData — Range(txtRange.Text) For Each cell in rgData.Cells
If cell.Addrees(False, False) — _
Range(txtResCell.Text).Address(False, False) Then
Нашли циклическую ссылку
MsgBox "Введите другой адрес во избежание и £ _ "появления циклических ссылок", vbCritlcal, "Внимание!"
Cancel = True Exit Sub End If Next cell Exit Sub
Errl:
'Обработка ошибок при работе с ячейками If Err.Number ■ 1D04 Then
MsgBox ''Введите корректный адрес ячейки", vbCritieal, "Ошибка ввода"
Cancel = True Exit Sub Elee
MsgBox Err.Description, vbCritieal, "Ошибка ввода" Cancel - True Exit Sub End If End Bub
Sub tKtResCell_BeforeUpdate(ByVal Cancel As MSForms.ReturnBooleBn) • Проверка корректности данных, введенных в ноле _ адреса выходной ячейки
Dim rgData As Range Dim cell As Range
Проверка, введен ли диапазон данных If txtRange.Text -°" Then
MsgBox "Введите адрес диапазона суммирования I", _ vbCritieal, "Ошибка выполнения"
Cancel = True End If If txtResCell.Text - "" Then Exit Sub
On Error GoTo Errl
Проверка отсутствия циклических ссыпок (чтобы одна из входных ячеек не была одновременно и выходной)
Set rgData - Range(txtRange.Text)
For Each cell In rgData.Cells
If cell.Aadress(False, False) * _
Range(txtResCell.Text)-Address(FaIse, False) Then
• Нашли цихлическуп ссылку
MsgBox "Введите другой адрес во избежание " 6 "появления циклических ссылок", vbCritieal, "Внимание!" Cancel - True Exit Sub End If Next ceil Exit Sub
Errl:
* Обработка ошибок при работе с ячейками
If Err.Number = 1004 Then
MsgBox "Введите корректный адрес ячейки", vbCritical, "Ошибка ввода"
Cancel - True
Exit Sub
Else
MsgBox Err.Description, vbCritical, "Ошибка ввода" Cancel — True Exit Sub
End If
End Sub
Sub UaerFormActivate()
• Инициализация формы при активации
Dim intFunc As Integer
Dim strFunc As String
Заполение списка доступных операций cboCalcTypes.Additem "0" cboCalcTypes.List (0, 1} = "Суша1 cboCalcTypes.Addltem "1" cboCalcTypes.List(1, 1) = "Среднее" cboCalcTypes.Additem "2" cboCalcTypes.List(2, 1) - "Максимум" cboCalcTypes.Additem "3* cboCalcTypes.List(3, 1} = "Минимум" cboCaIcTypee.Addltem " 4 " cboCalcTypes.List(4, 1) - "Количество ячеек" cboCalcTypes.Addltem "5" cboCalcTypes.List(5, 1} — "Сумма положительных" cboCalcTypes.Addltem "6" cboCalcTypes.List(6, 1) = "Сумма отрицательных" cboCalcTypes.Addltem " 7 " cboCalcTypes.Liat(7, 1) = "Количество непустых" cboCalcTypes.Addltem "8" cboCalcTypes.List(B, 1} - "Количество непустых ненулевых" cboCalcTypes.Addltem "9" cboCalcTypes.List(9, 1) = "Количество положительных" cboCalcTypes.Addltem "10" cboCalcTypes.List(10, I) — "Количество отрицательных”
Заполнение списка дополнительных цветов cboOtherColor.Additem "255" cboOtherColor.List(0, 1) ” "Красный” cboOtherColor.Additem "52479“ cboOtherColor.List(1, 1} = "Оранжевый” cboOtherColor.Addlte® "65535" cboOtherColor.List(2, 1) * "Желтый" cboOtherColor.Additem *32768" cboOtherColor.List (3, 1) • "Зеленый." cboOtherColor.Additem ”16776960“ cboOtherColor.List(4, 1) = "Голубой" cboOtherColor.Additem "16711680" cboOtherColor.List(5, I) - "Синий" cboOtherColor.Additem "16711935" cboOtherColor.List(6, 1) " "Фиолетовый" cboOtherColor.Additem "16777215" cboOtherColor.List(7, 1) * "Белый* cboOtherColor.AddItem "0" cboOtherColor.List(8, 1> *• "Черный"
If Selection.Cel1b.Count ■= 1 Then
* На листе есть выделенная ячейка. Определим, есть ли в этой ячейке формула с Функцией ColorCalc
intFunc - InStr(Selection.Formula, "ColorCalc(")
If intFunc > 0 Then
Формула есть, заполним поля формы для вычислений
Адрес ячейки с результатом
txtResCell.Text — selection.Address(False, False)
Выделяем аргументы функции...
* Номера ячеек с исходными данными strFunc - Hid(Selection.Formula, intFunc * Ц) intFunc " instr(strFunc, "•■""} txtRange.Text - Left(strFunc, IntFunc - 1)
1 Тип идентификации ячеек (по шрифту или цвету) strFunc - Mid(strFunc, intFunc ♦ 2)
IntFunc = InStr(strFunc, Vl
strFvnc =• Mid(strFunc, intFunc + 1)
intFunc = InStr(strFunc, *,")
tglType.Value ■ Left(strFunc, intFunc - 1)
Глава 6. Создание полезных программ
Режим вычислений
strFunc - Mid(strFunc, intFunc * 1)
etrFunc - Left(strFuric, Len(strFunc) - 1)
intFunc - InStr(strFunc, ",")
cboCalcTypes.Text = cboCalcTypes.List(Vai(Letts< _ strFunc, IntFunc - 1)), 1)
strFunc ■ Mid(strFunc, IntFunc + 1)
chkVarify.SetFocus
chkVarify.Value - CBool(strFunc) IblChoose.Visible — True
GetColors
Else
Будем применять формулу для выделенной ячейки txtRange.Value — Selection.Address(False, False) 1 в выделенной ячейке конкретная функция не задана. _ Выберем первую функцию в списке
cboCalcTypes.Text - ’’Сумма"
End If
Else
* Будем применять формулу для выделенной ячейки txtRange-Value ■ Selection.Address(False, False) ' В выделенной ячейке конкретная функция на задана- _ Выберем первую функцию в списке
cboCalcTypes.Text - "Сумма"
End If
End Sub
Sub GetColors()
1 Отображение кнопок выбора цвета окрашенными в цвета, _ встречающиеся среди ячеек заданного диапазона
Dim rgCells As Range
Dim 1 As Integer
Dim intColorNuniber As Integer * Номер следующей кнопки _ выбора цвета
Dim IngCurColor As Long• Анализируемый цвет
Dim fColorPresented As Boolean ’ Кнопка с цветом _ IngCurColor уже существует
Dim Ctrl As Control
Dim strCtrl As String
Dim fBackColor As Boolean • - True, если ячейки _ идентифицируются по цвету фона, - False - по цвету шрифта
fBackColor — tglType.Value
On Error Resume Next
Скрытие всех кнопок выбора цвета
For Each Ctrl In Me.Controls
If Left(ctrl.Name, B) - "cmbColor" Then Ctrl.Visible - False
End If
Next Ctrl
On Error GoTo ErrRange
Set rgCells - Range(txtRange.Text)
On Error GoTo 0
Получение цвета первой ячейки
If fBackColor - False Then
IngCurColor - rgCel1a.Cel1 в (i}.Font.Color Else
IngCurColor - rgCella.Cells(1).Interior.Color End If
Назначения цвета первой ячейки первой кнопке cnibcolorl.BackColor *= IngCurColor cmbColorl.Visible - True
' Просмотр остальных ячеек и при нахождении новых цветов отображение кнопок, окрашенных в эти цвета
intColorNumber - 2
For i = 2 То rgCelle.CellS-Ccunt fColorPresented - False
Получение цвета i-й ячейки If fBackColor - False Then
IngCurColor - rgCells.Cells(1J.Font.Color Else
IngCurColor — rgCells.Celle(i).Interior.Color End If
' Проверка, отображается ли уже кнопка с таким цветом For Each Ctrl In Me-Controls
It Left (Ctrl.Name, 8) - "cmbCclox" And. _ Ctrl.Visible - True Then
If IngCurColor - ctrl.BackColox Then
Кнопка с цветом i-й ячейки уже отображается fColorPresented ■ True
Exit For End If End If Next Ctrl
If Not fColorPresented Then 1 Кнопки с цветом IngCurCnlor еще нет - покажем ее IntColorNuntber = IntCol orNumbe г ♦ 1 etrCtrl — "cmbColor" & intColorNumber Me-Controls(strCtrl)-BackColor = IngCurColor Me.Controls(strCtrl)-Visible - True End If Next i Exit Sub
ErrRange:
• Обработка ошибок при работе С диапазоном If txtRange.Text * "" Then
MsgBox "Введите адрес диапазона суммирования", vbCritical, "Внимание!"
Else
MsgBox "Введен некорректный адрес диапазона суммирования", vbCritiCal, "Ошибка!"
End If ' Установка курсора в поле ввода диапазона txtRange-SetFocus End Sub
После помещения кода, представленного в листинге 6.6, в модуль формы необходимо сформировать ее внешний вид, как показано на рис. 6.10
При работе с формой необходимо выполнить следующие действия (для присвоения значений свойствам используется панель VBA Properties (Свойства)):
форме присвоить имя f rmColorCalc;
двенадцати кнопкам (в правой верхней части формы) присвоить названия от cmbColor1 ДО cmbColor12;
текстовому полю для указания диапазона суммирования присвоить имя txtRange; □ текстовому полю для указания адреса ячейки с результатом присвоить имя txtResCell;
раскрывающемуся списку Другой присвоить имя cboOtherColor, а его свойству Columncount — значение 2;
кнопке, расположенной справа от этого списка, присвоить имя cmbAppl yColor; □ раскрывающемуся списку Тип вычислений присвоить имя cboCaicTypes, а его свойству Columncount — значение 2;
Q флажку Проверять присвоить имя ehkvarifу;
О элементу управления ToggleButton с надписью Шрифт присвоить имя tglType
Рис. 6.10. Пальзовательсжая форма
После произведенных действий можно легко заметать, что макросы в модуле формы —■ это обработчики событий соответствующих элементов управления.
Теперь создадим кнопку запуска программы (например, с помощью панели инструментов Формы, вызываемой командой Вид ► Панели инструментов ► Формы) и назначим ей макрос CalcColors, который будет доступен в окне выбора макросов, На этом процесс создания программы можно считать завершенным.
Работа с программой
Для запуска созданной нами программы нажмем кнопку, которой назначен макрос CalcColors. — откроется окно, соответствующее пользовательской форме, которая приведена на рис, 6.10. Предварительно следует выделить обрабатываемый диапазон — в этом случае поле Диапазон суммирования будет заполнено автоматически. В противном случае в Данном поле следует с клавиатуры ввести требуемый диапазон (например, А5:С1-5). Параметр Признак суммирования определяет, какой цвет шрифта или заливки будет применяться в качестве критерия отбора. При этом справа в поле Выберите цвет отображается перечень цветов, входящих в обрабатываемый диапазон; для выбора достаточно щелкнуть мышью на кнопке соответствующего цвета. В расположенном ниже поле Другой из списка можно выбрать другой цвет. Список включает в себя варианты Красный, Оранжевый, Желтый, Зеленый. Голубой, Синий, Фиолетовый, Белый, Черный. Справа от поля Другой расположена кнопка, при нажатии которой выбранный цвет будет применен,
В поле Адрес ячейки ввода формулы следует указать адрес ячейки, в которой будет показан результат расчетов.
Если установлен флажок Проверять, то будет включен -«обратный фильтр». Иначе говоря, при установленном данном флажке в расчет принимаются те ячейки диапазона, которые не соответствуют указанному цвету. Например, если выбран красный цвет, то ячейки с красным шрифтом (заливкой) не будут приниматься в расчет.
В поле Тип вычислений из раскрывающегося списка выбирается требуемая операция:
Сумма;
Среднее;
О Максимум;
Минимум;
Количество ячеек;
Сумма положительных (значений);
Сумма отрицательных (значений);
Количество непустых (ячеек);
а Количество непустых ненулевых (ячеек);
Количество положительных (значений);
Кол ичество отрицательных (значений).
По умолчанию в поле Тип вычислений установлено значение Сумма.
Функция, которая создается в результате работы программы и результат применения которой отображается в ячейке, указанной в поле Адрес ячейки ввода формулы, выглядит примерно следующим образом:
-ColorCalcГО14:Г17";255;0?0;0)
Эта формула включает в себя следующие элементы:
a ColorCalc —имя функции;
014: fit — обрабатываемый диапазон (можно ввести несколько диапазонов — в этом случае их следует указать через запятую);
Q 255—цвет, используемый в качестве критерия отбора (в рассматриваемом примере — красный);
о о (первый) — указывает на то, что параметру Признак суммирования установлено значение Шрифт (при выборе значения Заливка в формуле будет отображаться -1);
0 (второй) — указывает на операцию, выбранную в поле Тип вычислений (в данном случае — Сумма); соответствующие константы перечислены в начале модуля, содержащего код функции calccolor;
0 (третий) — указывает, что в расчет принимаются данные, соответствующие выбранному цвету (если указано 1, значит, включен «обратный фильтр»; иначе говоря, в окне настройки параметров установлен флажок Проверять).
Формулы для подобных расчетов можно вводить и без пользовательской формы. При этом нужно строго соблюдать правила передачи параметров в функцию ColorCalc.
Полезные советы
Данная глава представляет собой перечень часто задаваемых вопросов, касающихся работы в Excel, и ответов на них. Предлагаемый материал поможет читателю быстро выйти из многих затруднительных ситуаций, которые могут возникать в процессе использования программы. Для удобства восприятия материал представлен в режиме «вопрос — ответ*. (
Можно ли каким-либо способом увеличить количество строк и столбцов рабочего листа?
В настоящее время невозможно увеличить ни количество строк, ни столбцов рабочего листа, поскольку оно жестко зафиксировано разработчиком — корпорацией Microsoft.
Можно ли изменить шрифт, используемый по умолчанию для новой книги?
Да, можно. Для этого следует выполнить команду Сервис ► Параметры и в открывшемся окне перейти на вкладку Общие Здесь в поле Стандартный шрифт из раскрывающегося списка можно выбрать шрифт, а в поле Размер — указать размер выбранного шрифта. Оба эти параметра будут использованы по умолчанию при создании новой книги, листа либо при следующем запуске Excel
При открытии рабочей книги появляется стандартное предупреждение Excel о наличии в ней макросов. Однако ранее все макросы из данной книги были удалены. В чем может быть причина. В частности, не является ли это свидетельством того, что в компьютере завелся вирус?
При отсутствии макросов такое сообщение действительно может свидетельствовать о наличии в компьютере вирусов Но здесь есть важный момент: при удалении макросов из рабочей книги необходимо удалить также модуль, в котором они находились. В подавляющем большинстве подобных случаев причиной появления сообщения о наличии макросов является не наличие вирусов, а то, что макросы были удалены, но модуль, в котором они содержались, остался.
Можно ли где-нибудь найти надстройки для Excel?
В первую очередь следует отметить, что Excel включает в себя ряд стандартных надстроек, которыми можно воспользоваться в любое удобное время. Переход в режим работы с надстройками осуществляется с помощью команды Сервис ► Надстройки. Кроме того, ряд дополнительных надстроек «от разработчика» можно загрузить со страницы Microsoft Office Update. В Интернете .можнотакже найти множество надстроек для Excel (как платных, так и бесплатных), созданных независимыми разработчиками. Наконец, надстройки можно создавать собственными силами
Каким образом в Excel обрабатываются дата и время - как текст или как числа?
Значения даты и времени обрабатываются в программе Excel как числа. При этом представление даты и времени в ячейке зависит от заданного для этой ячейки формата чисел При вводе даты или времени в ячейку, имеющую основной формат чисел, она приобретает встроенный формат даты или времени соответствен-
ио. По умолчанию значения даты и времени выравниваются по правому краю ячейки. Если автоматически распознать формат даты или времени не удается, введенные значения интерпретируются как текст, который по умолчанию выравнивается в ячейке по левому краю.
Какие символы при работе в Excel могут быть интерпретированы как числа?
В программе Microsoft Excel числа могут содержать только следующие знаки:
О 1 2 3 4 5 6 7 8 Э ♦-(),/ S 1 . Ее
Все знаки «плюс» (+), стоящие перед числом, игнорируются, а запятая интерпретируется как разделитель десятичных разрядов. Все другие сочетания знаков, состоящие из цифр и иных знаков, распознаются в программе как текст.
Как программа Excel определяет, какой числовой формат необходимо использовать?
Как правило, числовой формат, применяемый к ячейке, определяется способом отображения числа в таблице. Если в ячейку, имеющую общий числовой формат, введено число, могут быть применены различные числовые форматы. Например, если введено число 15,7 7р., то в данном случае автоматически применяется денежный формат.
Чтобы изменить числовой формат, выделите ячейки, содержащие числа. В меню Формат выберите команду Ячейки. В открывшемся окне перейдите на вкладку Число, а затем выберете необходимую категорию и формат.
Как отобразить числовое представление даты или времени?
Независимо от формата, используемого для представления даты или времени, в программе Excel все даты хранятся как целые числа, а время сохраняется в виде десятичной дроби. Чтобы показать дату в виде числа или время в виде дроби, выделите ячейки, содержащие дату или время, выполните команду Формат ► Ячейки, в открывшемся окне перейдите на вкладку Число, а затем в списке Числовые форматы выберите формат Общий.
Можно ли в Excel вводить числа как текст, и если да, то как это сделать?
Да, такая возможность существует. В программе Microsoft Excel числа хранятся в виде числовых данных, даже если к содержащим их ячейкам был применен текстовый формат. Если такие данные, например коды товаров, необходимо интерпретировать как текст, то сначала желательно применить текстовый фермат к пустым ячейкам (в окне Формат ячеек выберите формат Текстовый), а затем ввести числа. Если числа уже введены, назначьте ячейкам текстовый формат и, выделяя каждую ячейку, нажимайте клавишу F2, а затем — Enter, чтобы ввести данные заново.
Сколько значащих цифр поддерживается в программе Excel?
Независимо от количества отображаемых разрядов, числа хранятся с точностью 15 разрядов. Если число имеет больше 15 значащих цифр, разряды после 15-го преобразуются в нули (о).
Можно ли каким-нибудь образом изменить количество действий «отката», которое установлено в Excel по умолчанию, и если да, то как это сделать?
Да, такая возможность есть. Но сразу следует отметить, что выполнять данную операцию можно только опытным пользователям, поскольку она непосредственно связана с внесением изменений в системный реестр, а, как известно, неосторожное обращение с реестром может повлечь за собой серьезные проблемы.
Итак, д ля решения данной задачи нужно войти в раздел реестра hkey_current_uses\ SoftwareXMicrosof t\Off lce\10.0\Excel\Cptions (вместо подраздела io -0 может быть подраздел 9.0 или 8.0 — в зависимости от используемой версии программы) и найти параметр DndoH istory типа DWORD. Если такого параметра нет, то его необходимо создать. В качестве значения данного параметра следует указать требуемое количество действий «отката». Чтобы выполненные изменения вступили в силу, может потребоваться перезагрузка компьютера.
Каким образом можно отключить отображение заголовков строк и столбцов?
Для этого необходимо выполнить команду Сервис ► Параметры и в открывшемся окне на вкладке Вид снять флажок заголовки строк и столбцов, после чего нажать кнопку ОК.
Каким образом из окна Надстройки, открываемого с помощью команды Сервис ► Надстройки, можно удалить неиспользуемые надстройки?
Удаление надстроек из окна Надстройки штатными средствами Excel не предусмотрено. Решить данную проблему можно двумя способами. Первый способ заключается в редактировании системного реестра и удалении ссылок на те файлы надстроек, использовать которые в дальнейшем нс планируется. Второй способ предусматривает удаление с жесткого диска файлов ненужных надстроек. После этого при попытке подключения такой надстройки в диалоговом окне Надстройки программа сама предложит удалить эту надстройку из списка.
Можно ли сделать так, чтобы макрос не отображался в окне списка макросов (данное окно вызывается с помощью команды Сервис ► Макрос ► Макросы), и если да, то как это сделать?
Да, при создании либо редактировании макроса можно запретить его отображение в окне списка макросов. Для этого достаточно воспользоваться ключевым словом Private, например: Private Sub ИмяМакроса о. Если в дальнейшем потребуется включить макрос в список макросов, то ключевое слово Private нужно убрать из кода.
Каким образом при написании кода макроса можно вызвать процедуру, которая расположена в другой рабочей книге?
Для вызова процедуры из другой рабочей книги нужно воспользоваться методом Run объекта Application. Ниже показан фрагмент программного кода:
Run "Printer-xlа !МуМасго"
В данном примере вызывается процедура иумасго, расположенная в рабочей книге Primer.xls.
В чем заключается разница между процедурой VBA и макросом?
Здесь никакой разницы нет. Эти термины в настоящее время являются взаимозаменяемыми.
При написании кода в редакторе VBA не работает символ продолжения текущей строки (подчеркивание). В чем может быть проблема н как выйти из данной ситуации?
Скорее всего, проблема заключается в том, что в данном случае для продолжения строки используется только один символ — подчеркивание, а нужно использовать два символа; сначала — пробел, затем — подчеркивание.
Что представляет собой организатор картинок Microsoft?
Организатор картинок — это совместно используемая программа, которая доступна также и в других приложениях Microsoft Office. Она включает в себя средства поиска и вставки изображений, а также аудио- и видеофайлов. Кроме того, данную программу можно применять для просмотра графических файлов. С помощью организатора картинок можно получить доступ к коллекции картинок на сайте Microsoft.
Для перехода в режим работы организатора картинок предназначена команда Вставка ► Рисунок ► Картинки.
Никак не удается найти персональную книгу макросов. В чем может быть проблема?
Персональная книга макросов —это файл Fersonal.xls. В данном случае проблема, скорее всего, в том, что этот файл еще просто не создан. Персональная книга макросов создается только после того, как в нее записан хотя бы один макрос.
При открытии рабочей книги Excel выдает запрос на обновление связей. Однако проверка всех имеющихся формул показала, что ни в одной из них связей нет. Как убрать это ошибочное сообщение?
Вероятнее всего, это сообщение ошибкой не является. Дело в том, что связи могут существовать не только в формулах. Если данная рабочая книга содержит диаграмму, то нужно щелкнуть на каждой из последовательностей диаграммы и просмотреть формулы Ряд. Если формула ссылается на другую рабочую книгу, то это означает наличие связи. Для удаления этой связи нужно переместить исходные данные диаграммы в текущую рабочую книгу и создать диаграмму заново.
При выполнении команды Вставка ► Имя ► Присвоить открывается диалоговое окно Присвоение имени, в котором нужно прокрутить имеющийся список, обращая при этом внимание назначение поля Формула. Необходимо удалить те имена, которые ссылаются на другую рабочую книгу, либо те, которые имеют неправильные ссылки #ссыл!.
Каким образом можно установить произвольный размер листа, например X столбцов на Y строк?
Наиболее приемлемый вариант — просто скрыть все лишние строки и столбцы с Помощью команд Формат ► Строка ► Скрыть и Формат ► Столбец ► Скрыть соответственно.
Можно ли в Excel вывести на экран скрытое сообщение со списком разработчиков, как это делается в некоторых других программах?
Чтобы получить такое сообщение (кстати, подобные скрытые сообщения называются «пасхальные яйца>) в Excel 2000, необходимо выполнить следующие действия.
Открыть новую рабочую книгу Excel.
Нажать клавишу F5.
Ввести Х2 ООО: L2 0 о о, после чего нажать Enter.
Нажать клавишу Tab — в результате курсор переместится в столбец М.
Удерживая нажатыми клавиши Ctrl и Shift, щелкнуть правой кнопкой мыши на кнопке Мастер диаграмм, которая расположена на панели инструментов Стандартная. В отдельных случаях щелкнуть нужно не правой, а левой кнопкой.
В результате выполненных действий на экране отобразится список разработчиков программы Excel 2000. В Excel 2002 подобная функциональность на данный момент не обнаружена.
Существует ли в настоящее время какая-нибудь утилита, с помощью которой можно было бы преобразовать приложение Excel в отдельный ЕХЕ-файл?
К сожалению, на сегодняшний день о подобных утилитах ничего не известно, поэтому, скорее всего, их просто нет.
Никак пе удается ввести текст, который начинается с двух прописных букв. В чем может быть причина и как решить данную проблему?
Причина заключается в параметрах автозамены. Чтобы решить данную проблему, нужно выполнить команду Сервис ► Параметры автозамены и в открывшемся окне Автозамена на вкладке Автозамена снять флажок Исправлять ДВе ПРописные буквы в начале слова. Здесь же можно отредактировать и другие параметры автозамены.
Можно ли оптимизировать запуск Excel, и если да. То как это сделать?
Для оптимизации запуска программы существует несколько способов. Например, чтобы отключить отображение программной заставки, которая требует определенных ресурсов компьютера при загрузке Excel, необходимо выполнить следующее: щелкнуть правой кнопкой мыши на ярлыке Excel на Рабочем столе (либо на соответствующем пункте меню Пуск) и в открывшемся контекстном меню выбрать пункт Свойства. Затем в открывшемся окне нужно перейти на вкладку Ярлык и в поле Объект в конце строки добавить символы /Е (не вместо имеющегося значения, а именно добавить в конце строки!). После нажатия в данном окне кнопки 0К программа Excel будет запускаться без экранной заставки, что несколько ускорит процесс эа- грузки.
На этой же вкладке можно задать сочетание клавиш, с помощью которого будет запускаться Excel. Для этого нужно в поле Быстрый вызов ввести требуемую комбинацию клавиш и нажать кнопку 0К.
Как в Excel 2002 включить отображение команд меню, которое использовалось в предыдущих версиях (то есть чтобы при открытии меню все команды отображались сразу, а не после задержки)?
Чтобы решить данный вопрос, нужно изменить настройку отображения меню. Для этогоследует выполнить команду Вид ► Панели инструментов ► Настройка и в открывшемся окне на вкладке Параметры установить флажок Всегда показывать полные меню. Теперь при открытии меню будут отображаться сразу все входящие в него команды, как это было в предыдущих версиях программы.
Можно ли, используя штатные средства программы, изменить количество рабочих листов в новой книге?
Для решения данной задачи нужно выполнить команду Сервис ► Параметры и в открывшемся окне на вкладке Общие в поле Листов в новой книге установить требуемое количество рабочих листов. При этом следует учитывать, что максимально возможное значение данного поля — 255.
Как ввести в ячейку несколько абзацев? При нажатии Enter не получается — курсор переходит в следующую ячейку.
Нередко возникают ситуации, когда в ячейку необходимо ввести текст, содержащий несколько абзацев. Однако при нажатии клавиши Enter осуществляется переход в следующую ячейку. Для решения данной проблемы следует после ввода абзаца нажать сочетание клавиш Alt+Enter — таким образом можно ввести в ячейку текст, содержащий несколько абзацев.
Каким образом можно создавать разные рабочие книги с одинаковым форматированием?
В данном случае наиболее приемлемым является использование механизма шаблонов. Для этого нужно подготовить рабочую книгу, на основании которой будут создаваться другие книги, и задать в ней необходимые параметры форматирования и оформления документа, после чего сохранить данную книгу как шаблон (с помощью команды Файл ► Сохранить как. указав в окне Сохранение документа в поле Тип файла значение Шаблон). Если при этом в качестве папки для сохранения выбрать каталог автозагрузки Excel — XLStart (обычно эта папка хранится по адресу C:\Program FlleeXMierosoft Off ice\of flee 10\XL5taxt), то созданный шаблон будет использоваться по умолчанию при запуске Excel. Если же сохранить шаблон в каком-нибудь другом месте, то для доступа к нему необходимо будет воспользоваться командой Файл ► Открыть.
Можно ли в Excel изменить установленный по умолчанию тип диаграммы?
Возможности программы предусматривают установку типа диаграммы, которая будет использоваться по умолчанию при создании новых диаграмм. Для этого нужно создать любую новую диаграмму или открыть лист с созданной ранее диаграммой, выделить диаграмму и выполнить команду Диаграмма ►Тип диаграммы (либо пунктТип диаграммы контекстного меню). После этого в открывшемся окне следует выбрать требуемый тип диаграммы и нажать кнопку Сделать стандартной. Тип диаграммы, используемый по умолчанию, можно изменять в любое время по мере надобности.
Каким образом можно перетащить ячейку на другой рабочий лист?
Обычным образом перетащить ячейку на другой рабочий лист не получится. Для решения данной проблемы нужно при перетаскивании нажать клавишу Alt, после чего с помощью ярлычков выбрать требуемый лист.
Можно ли при установленном формате с двумя знаками после запятой сделать так, чтобы нулевые значения не отображались?
В процессе заполнения таблицы при установленном формате с двумя знаками после запятой в ячейках, значения которых равны нулю, появляется запись 0,00, Однако при решении ряда задач подобные значения недопустимы. Конечно, по окончании подготовки документа такие значения можно скорректировать вручную, однако это по целому ряду причин далеко не лучший вариант.
Для решения данной проблемы целесообразнее будет убрать обнуление ячеек. Для этого необходимо выполнить команду Сервис ► Параметры, в открывшемся окне перейти на вкладку Вид и снять флажок нулевые значения. После этого нулевое значение не появится в ячейке даже после ввода его вручную. Не стоит забывать, что данная настройка будет действительна только для активного рабочего листа.
Для Excel 2000 был создан макрос, который добавляет код VBA к проекту. При запуске этого макроса в Excel 2002 появляется сообщение об ошибке. В чем может быть причина и как выйти из этой ситуации?
Причина заключается в том, что в Excel 2002 имеется новый параметр - Доверять доступ к Visual Basic Project По умолчанию данный параметр отключен. Чтобы его включить, нужно выполнить команду Сервис ► Макрос ► Безопасность и в открывшемся окне Безопасность на вкладке Надежные источники установить соответствующий флажок.
Как известно, при использовании в расчетах формул в ячейках отображается не сама формула, а результат ее вычисления. Однако при необходимости проверить правильность формул (особенно при работе с большими объемами информации) это неудобно, поскольку для проверки каждой формулы нужно устанавливать курсор в соответствующую ячейку. Можно ли сделать так, чтобы вместо результатов вычислений в ячейках отображались сами формулы, и если да, то как потом вернуться в первоначальное состояние?
Данная проблема решается штатными средствами программы. Для этого нужно воспользоваться командой Сервис ► Зависимости формул ► Режим проверки формул. При ее выполнении осуществляется переход в режим отображения формул. Для возврата к первоначальному состояв ию следует повторно выполнить эту команду.
Можно ли в Excel выполнить одновременное форматирование нескольких рабочих листов?
В Excel реализована возможность одновременного форматирования нескольких рабочих листов. Для этого перед форматированием нужно выделить требуемые листы. Чтобы выделить все листы текущей рабочей книги, нужно щелкнуть правой
кнопкой мыши на ярлычке любого листа и выбрать в контекстном меню пункт Выделить все листы. Для выборочного выделения листов нужно щелкать на соответствующих ярлычках, удерживая клавишу Ctrl либо Shift. Выполненное форматирование будет применено сразу ко всем выделенным листам текущей рабочей книги.
Необходимо настроить автоматическое форматирование, которое зависит от вводимых данных (например, если значение в ячейке больше 100, то ц вет ее фона становится желтым ит. п.). Можно ля это сделать штатными средствами программы, не прибегая к помощи макросов?
Да, такая возможность есть — для подобных целей удобно использовать условное форматирование. Переход в данный режим работы осуществляется с помощью команды Формат ► Условное форматирование.
При работе с большими объемами информации иногда возникает необходимость быстро ознакомиться со всеми примечаниями. Можно ли штатными средствами системы сделать так, чтобы на рабочем листе отобразились все имеющиеся примечания (а не только индикаторы в правом верхнем углу соответствующих ячеек)?
Да, платные средства программы предусматривают такую возможность. Для этого нужно выполнить команду Сервис ► Параметры, в открывшемся окне перейти на вкладку Вид и установить переключатель Примечания в положение примечание и индикатор, после чего нажать кнопку ОК.
Можно ли как-нибудь узнать, содержит ли текущая рабочая книга макровирус?
В большинстве случаев для решения данной проблемы целесообразно воспользоваться специализированными антивирусными программами. Если же это по каким- либо причинам затруднительно, то можно попробовать приведенный ниже способ.
В редакторе VBA нужно открыть проект, соответствующий подозрительной рабочей книге, просмотреть все модули и обратить внимание на незнакомый код VBA. В большинстве случаев код вируса плохо отформатирован и содержит большое количество переменных с незнакомыми (и даже странными) названиями.
Данные на рабочем листе расположены в нескольких диапазонах, которые разделены между собой пустыми строками либо пустыми столбцами. Можно ли каким-нибудь способом быстро выделить одни из этих диапазонов?
Оптимальный способ в данном случае — это установить курсор в любую ячейку внутри диапазона и нажать одновременно клавиши Ctrl и * ( «звездочка» — на цифровой клавиатуре). В результате будет полностью выделан диапазон с активной ячейкой.
Каким образом можно быстро пересчитать формулы, применяющие пользовательскую функцию?
Для решения данной задачи следует воспользоваться комбинацией клавиш CtrMlt+F9.
Как известно, для вывода на печать какой-нибудь области рабочего листа нужно выделить ее, а затем в окне настройки параметров печати установить режим Выделенный диапазон. При этом, если необходимо распечатать несколько разных
выделенных областей, приходится повторять данную операцию каждый раз. Можно ли автоматизировать этот процесс?
Данная проблема решается достаточно просто. Для этого следует выделить все области, которые необходимо вывести на печать (несколько областей можно выделить, удерживая нажатой клавишу Ctrl), после чего в окне настройки параметров печати, как обычно, установить режим Выделенный диапазон. В результате каждая выделенная область будет распечатана на отдельной странице. Следует учитывать, что предложенный способ можно использовать только в том случае, если все выделенные области расположены на одном рабочем листе.
Можно ли каким-либо способом запретить пользователям «прокручивать» рабочий лист?
Для решения данной проблемы можно посоветовать скрыть неиспользуемые строки и столбцы. Если атот вариант по каким-либо пристанам неприемлем, то можно воспользоваться соответствующим оператором VBA Ниже приведен пример, в котором оператор устанавливает область прокрутки на листе Лист! таким образом, что пользователь не сможет работать с ячейками за пределами диапазона А1:Е2О.
Worksheets (-Лист!"> .ScrollArea - ”А1-.Е20и
Для восстановления первоначальной области прокрутки следует воспользоваться таким оператором:
Worksheets('Лий»!").SerollArea - ""
Ясобходшло учитывать, чтозначение свойства ScrollArea не сохраняется в рабочей книге, поэтому его необходимо устанавливать при каждом открытии книги. Данный оператор можно разместить в процедуре Workbook_open.
При предварительном просмотре документа перед его выводом на печать выяснилось, что содержащиеся в нем данные выходят за пределы страницы, поэтому печатать в таком виде его нельзя. Можно ли решить эту проблему, не изменяя размеров ячеек?
Возможно, в данном случае будет целесообразным изменение масштаба документа. Для этого нужно выполнить команду Файл ► Параметры страницы и в открывшемся окне на вкладке Страница установить переключатель в положение разместить не более чем на 1 стр. в ширину и 1 стр. в высоту. При повторном открытии окна Параметры страницы можно определить, в каком масштабе будет распечатан документ — это значение отобразится в поле переключателя установить... % ст натуральной величины.
Можно ли сделать так, чтобы документ распечатывался вместе с сеткой?
По умолчанию Excel не выводит на печать сетку рабочего листа. Однако при необходимости ату настройку можно изменить. Чтобы документ выводился на печать вместе с сеткой, необходимо в окне Параметры страницы (открывается с помощью команды Файл ► Параметры страницы) на вкладке Лист установить флажок сетка, после чего нажать кнопку ОК. Здесь же находится еще несколько полезных параметров. В частности, путем установки флажка заголовки строк и столбцов можно выво-
дить на печать номера строк и названия столбцов; в поле примечания из раскрывающегося списка можно выбрать требуемый режим вывода на печать имеющихся на рабочем листе примечаний (возможные значения — нет, В конце листа и Как на листе); в поле ошибки ячеек как указывается наиболее приемлемый способ печати находящихся в ячейках ошибок
Можно ли каким-либо образом изменять цвет ярлыков рабочих листов?
Возможность изменения цвета ярлыков рабочих листов реализована, начиная с вверсии Excel 2002. Для этого нужно щелкнуть правой кнопкой мыши на ярлыке и в открывшемся контекстном меню выбрать пункт Цвет ярлычка. В результате откроется окно Выбор цвета ярлычка. В данном окне нужно выбрать квадратик с нужным цветом и нажать кнопку ОК. В предыдущих версиях Excel возможность изменить цвет ярлыка рабочего листа отсутствует.
Можно ли изменять цвета шрифта, которые используются по умолчанию для оформления фрагментов программного кода (ключевых слов, комментариев, идентификаторов и т. д.) в редакторе VBA?
Для перехода в режим соответствующих настроек нужно в редакторе VBA выполнить команду Tools ► Options (Сервис ► Параметры) и в открывшемся окне перейти на вкладку Editor Format (Формат редактора). На данной вкладке приводится перечень всех возможных фрагментов программного кода. Для настройки оформления следует выбрать требуемую позицию списка и в соответствующих полях указать тип и размер шрифта, его цвет, цвет выделенного текста и др.
Существует ли возможность изменения предложенного по умолчанию шрифта ярлыков рабочих листов?
Да, такая возможность существует, но соответствующие настройки выполняются не в Excel, а в разделе Экран окна Панель управления. Для перехода в режим настройки размера шрифта, используемого для ярлыков рабочих листов, нужно выполнить команду Пуск ► Панель управления ► Экран, затем в открывшемся окне перейти на вкладку Оформление и нажать кнопку Дополнительно — в результате откроется окно Дополнительное оформление. В данном окне в поле Элемент из раскрывающегося списка нужно выбрать значение Полоса прокрутки и установить требуемый размер шрифта в поле Размер. При этом необходимо учитывать, что выполненные изменения коснутся и других элементов интерфейса (в частности, соответствующим образом изменится полоса прокрутки в окнах приложений).
Можно ли изменить используемые в программе по умолчанию шрифт и цвет комментариев к ячейкам?
Да, такая возможность существует, и она также находится за пределами Excel. В окне Свойства: Экран (открываемом с помощью команды Пуск > Панель управления ► Экран) нужно перейти на вкладку Оформление и нажать кнопку Дополнительно — откроется окно Дополнительное оформление. В данном окне в поле Элемент нужно выбрать значение Всплывающая подсказка, после чего в открывшихся полях указать требуемый шрифт и цвет. Необходимо помнить, что выполненные
изменения отразятся и в других местах (в частности, соответствующим образом изменится шрифт и цвет системных всплывающих подсказок).
При добавлении в редакторе VBA нового модуля он всегда начинается со строки Option Explicit. Что означает данная строка и для чего она нужна?
Если строка Option Explicit находится в начале модуля, это означает, что необходимо объявлять все переменные, которые будут использоваться в пределах данного модуля. Если необходимо отключить автоматическое появление данной строки в новых модулях, то следует в редакторе VBA выполнить команду Tools ► Options (Сервис ► Параметры), в открывшемся окне перейти на вкладку Editor (Редактор) и снять флажок Require Variable Decbration (Явное описание переменных).
При использовании сложных макросов иногда возникает необходимость в получении динамической информации о ходе их выполнения. Можно ли выводить такую информацию в строке состояния?
Да. используя средства VB А, можно решить данную проблему. Для этого следует назначить строковые данные свойству statusBar объекта Appl ication. Соответствующий оператор выглядит следующим образом:
Application.StatusBar - "Обработка файла 11 $ FlleNum
По окончании процедуры следует вернуть строке состояния первоначальный вид. Для этого используется такой оператор:
Application.StatusBar = False
По ошибке были удалены некоторые элементы главного меню рабочего листа, и возвратить их никак не получается. С помощью перезапуска Excel проблему решить не удалось. Какой может быть выход из данной ситуации?
Для решения данной проблемы нужно выполнить команду Сервис ► Настройка (либо Вид ► Панели инструментов ► Настройка), затем в открывшемся окне на вкладке Панели инструментов выделить позицию списка Строка меню листа и нажать кнопку Сброс. В результате главное меню примет вид, который был установлен по умолчанию.
Приложение. Основные объекты Excel
В данном приложении кратко описаны наиболее часто используемые в приведенных в книге примерах стандартные объекты Microsoft Excel:
Application;
Chart;
Range;
Workbook;
Worksheet.
В целях обеспечения краткости данного приложения описаны не все свойства, методы и процедуры обработки событий приведенных объектов, а лишь те из них, которые реально использовались в примерах программ
Объект Application
Объект Appi ication представляет собой все приложение Microsoft Excel Этот объект пред оставляет доступ к настройкам и параметрам запущенного приложения Excel. С помощью объекта Application можно также получать доступ к функциям (Cell, Range и др.) и объектам верхнего уровня (ActiveCell, ActiveChart и др.). Следует отметить, что к большинству свойств и методов объекта Appl ication можно получать доступ, применяя инструкции вида Cell вместо Application. Cell, то есть объект Application подразумевается по умолчанию.
В табл. ПД приведены свойства объекта Application.
Таблица П.1. Свойства объекта Application
Название
Тип значения
Описание
ActiveCell
Range
Только для чтения. Возвращает объект Range, используемый для доступа к ячейке, в которой находится курсор. Если активный лист книги нс является рабочим листом, то возвращается Nothing
ActiveChart
Chart
Только для чтения. Возвращает объект Chart, который используется для доступа к активной диаграмме. Если нет выделенной диаграммы, то возвращается Nothing
ActivcSheet
Worksheet
Только для чтения. Возвращает объект Worksheet, который используется для доступа к активной рабочей книге. Если нет активного рабочего листа, то возвращается Nothing
Таблице П.1. Свойства объекта Application (продолжение)
Название
Тил значения
Описание
ActiveWindow
Window
Только для чтения. Возвращает объект Window, который используется для доступа к активному окну Если не открыто ни одного окна, ТО возвращается Nothing
ActiveWorkbook
Workbook
Только для чтения. Возвращает объект Workbook, который используется для доступа к книге, находящейся в активном окне. Если не открыто ни одного окна с рабочей книгой, то возвращается Nothing
Caller
Range
Возвращает объект Range при доступе из функции, которая является частью формулы в ячейке или диапазоне
String
Возвращает название документа при доступе из макросов AutojOpen. Auto Close, AutoActivate и Auto_Dcaotivate.
Возвращает название диаграммы или адрес ячейки при доступе из макросов, установленных для данных объектов в параметрах OnDoubleClick и OnEntry
Error
Возвращает значение типа Error во всех случаях, не списанных выше -
Caption
String
Позволяет получать или задавать текст, который отображается в строке заголовка главного сжив Excel. Если необходимо вернуть стандартный заголовок окна, то параметру нужно присвоить значение Empty
Cells
Range
Только для чтения. Возвращает объект Range для доступа к ячейкам активного рабочего листа. Не работает, если нет активного рабочего листа (возвращает Nothing)
Charts
Sheets-
Только для чтения. Возвращает коллекцию (типа Sheets), содержащую только листы диаграмм рабочей книги (объекты типа Chart). Возвращает Nothing, если не открыто ни одной книги
Columns
Range
Только для чтения. Возвращает объект Range, представляющий собой все столбцы активного рабочего диета. Возвращает Nothing, если активный документ не валяется рабочим листом
CommandBars
CommandBars
Только длл чтения. Возвращает объект CommandBars, представляющий собой коллекцию объектов CommandBar (панели инструментов, меню, контекстные меню и др.)
Dialogs
Dialogs
Только дм чтения. Возвращает коллекцию встроенных диалоговых окон
Название
Тип значения
Описание
EnableCancelKey
XLEnablcCancelKey
Позволяет устанавливать, как Excel нужно обрабатывать нажатие клавши Ctrl+Peuso Break. Еес, которые используются для прерывания работы макросов
FileSearch
FileSearch
Возвращает объект FileSearch, с помощью которого можно искать файлы в заданных валках по различным критериям
Range
Range
Только для чтения. Возвращает объект Range, который используется для доступа кзаданной ячейке или диапазону
Rows
Range
Только для чтения. Возвращает объект Range, представляющий собой все строк* активного рабочего листа. Возвращает Nothing, соли активный документ не является рабочим листом
ScreeDUpdatlng
Boolean
Позволяет отключить или включить обновление изображения приложением Excel
Selection
Object
Только для чтения Предоставляет доступ к выделенному объекту. Если выделенных объектов мет, то возвращается Nothing. Точный тип возвращаемого объекта зависит от типа выделенного объекта (для ячеек — Range)
Sheets
Sheets
Возвращает коллекцию Sheets, содержащую все листы активной рабочей книги (эквивалентно использованию ActiveWorkbook.Sheets). Не работает, если вс открыто ни одной рабочей книги
StetusBar
String
Позволяет получать иля устанавливать текст, отображаемым в строке состояния Excel.
Для установки текста по умолчанию этому свойству необходимо присвоить значение False
TbtsWorkbook
Workbook
Только дм чтения. Возвращает объект Workbook для доступа к рабочей книге, в которой запущен макрос
Windows
Windows
Только для чтения. Возвращает колл*кюто Windows, элементами которой являются окна всех открытых рабочих книг
Workbooks
Workbooks
Только для чтения. Возвращает коллекцию Workbooks, элементами которой являются все открытые рабочие книги
WorkaheetFuncbon
WorksheetFunctron
Только для чтения. Возвращает объект WotkshertFuncticn, с помощью которого можно получить доступ к встроенным функциям работы с данными на рабочем листе
Worksheets
Worksheets
Только ДЛЯ чтених. Возвращает коллекцию Worksheets, элементами которой являются только рабочие листы активной книги (эквивалентно использованию ActivcWorkbook.WorkShects). Не работает, когда кв открыто ни одной рабочей книги
В табл. П.2 приведены методы объекта Application.
Таблице П.2. Методы объекта Application
Название
Параметры
Возвращаемое значение
Описание
InputBox
Prompt (String)—текст сообщения в окне;
Title (Variant)—заголовок окна. Default (Variant) —текст, введенный по умолчанию;
Left (Variant)—Jr-хоордиижта окна;
Top (Variant)— У-хосрдинжта окне;
HelpFile (Variant) — имя файла справки для этого окна;
HelpContextld (Variant) — идентификатор темы в файле справки;
Type (Variant) —тип окна ввода
Variant
Отображает встроенное диалоговое окно для ввода данных Тип окна зависит от значения параметра Туре. Если заданы параметры HeiFile и HelpContextld, то в окне будет дополнительно отображаться кнопка Справка.
Возвращает текст, число, диапазон (Range) или прочие денные, введенные в окне
Intersect
Джа и более объекта Range
Range
Возвращает объект Range, являющийся пересечением заданных диапазонов
OnTitne
EariiestTime (Variant) — время, когда нужно вызвать макрос; Procedure (Variant) —имя макроса;
LatcstTime (Variant) — предельное время запуска макроса;
Schedule (Variant) —тип добавления макросе
После вызова данного метода макрос с именем, заданным параметром Procedure, будет вызван в указанное в параметре EariiestTime время. Если Excel нс удастся вызвать макрос до указанного в параметре LatcstTime времени, то этот макрос вызываться не будет. Параметр Schedule, равный True, отменяет предыдущий вызов данного метода для заданного макроса
Run
Macro (Variant) — имя макроса, объект Range, идентификатор функции DLL;
Arg l~Arg30 (Variant) — передаваемые параметры
Вызывает указанный макрос, функцию в ячейке или функцию в зарегистрированной DLL mhhXLL Количество и порядок передаваемых аргументов зависят от конкретного макросе или функции
Union
Два и более объекта Range
Range
Возвращает объест Range, являющийся объединением заданных диапазонов
Название
Параметры
Возвращаемое значение
Описание
Wait
Time (Variant) — время в стандартам формате
Boolean
Прерывает исполнение макрос» до времени, указанного в параметре Time. Возвращает True, если исполнение макроса было приостановлено на указанный промежуток времени
Объект Chart
Объект chart представляет собой отдельный лист с диаграммой или диаграмму на рабочем листе, внедренную в объект Chartotoject Объект chart предоставляет полный контроль над диаграммой: возможность задания ее свойств, вызова методов и обработки событий.
В табл. П.З приведены свойства объекта Chert.
Таблица П.З. Свойства объекта Chart
Название
Тип значения
Описание
ChanArea
ChartArea
Только для чтения Возвращает объект ChanArea, предоставляющий доступ к объектам, диаграммы (таким как легенда, оси, названия осей и др.)
ChartTitle
ChartTitle
Только для чтения Возвращает объект ChartTitle, который позволяет работать с заголовком диаграммы
ChartType
XlChartType
Позволяет получить или установить тип диаграммы
HasTitie
Boolean
Позволяет узнать, отображается ли заголовок диаграммы С помощью этого свойства можно также отобразить или скрыть заголовок диаграммы
PlotArea
PlotArea
Только для чтения. Возвращает объект PlotArea, с помощью которого можно получить доступ к области рисования диаграммы
В табл. ПЛ приведены методы объекта Chart.
Таблица П. 4. Методы объекта Chart
Название
Параметры
Возвращаемое значение
Описание
Activate
Активизирует (выделяет) диаграмму
Таблица П.4. Методы объекта Chart (продолжение)
Название
Параметры
Возвращаемое значение
Описание
ApplyDataLabels
Type (XlDataLabekType)—тип подписи данных;
LegendKey (Variant) — режим отображения ключа легенды;
AutoText (Variant) — режим отображения подписей к значениям;
HasLeaderLincs (Variant) — режим отображения главной линии;
ShowSerieaName (Variant) — режим отображения названия рядов;
ShowCategoryName (Variant) — режим отображения названий категорий;
ShowValue (Variant) — режим отображения значений;
ShowPcreentage (Variant) — режим отображения количества процентов от максимального значения;
ShowBubbleSizc (Variant)— режим отображения размера пузырьков (для пузырьковой диаграммы);
Separator (Variant)—разделитель для подписей
Позволяет включить или выключить отображение определенных подписей к значениям диаграммы Параметр Туре задает, какой параметр необходимо изменить. Заданному параметру присваивается значение, заданное а одном из остальных параметров данного метода (от LcgentKey до SbowBubbleSize). Значения этих параметров — True (включить отображение) или False (отменить отображение).
Параметр Separator задает строку с разделителем между данными, которые берутся для подписей значений диаграммы
Axes
Type (XlAxisType) —тип оси; AxisGroup (XlAxisGroup) — груши осей
Object
Возвращает объект дм работы с осью заданного типа или коллекцию таких объектов
Export
FtlcMamc (String) — имя файла для экспорта;
FilterName (Variant) — название графического фильтра;
Interactive (Variant) —режим отображения окна сохранения файла
Boolean
Позволяет сохранять диаграмму в файл на диске в формате, заданном названием графического фильтра. Если параметр Interactive равен True, то открывается стандартное диалоговое окно сохранения файла, с помощью которого выбирается имя файла для Сохранения.
Возвращает True, если диаграмма сохранена в файл
Название
Параметры
Возвращаемое значение
Описание
Location
Where (XlChartLocstion) — тип нового положения диаграммы;
Name (Variant) — название объекта, заданного в параметре Where
Позволяет перемещать диаграмму ■ рабочей книге (сделать из внедренной диаграммы диаграмму на отдельном листе и наоборот)
SeriesCo) lection
Index (Variant) — номера или названия нужных рядов
Object
Позволяет получить Объект, дающий возможность работать с нужным рядом (Sence), или коллекцию таких объектов (SerieaColIcction)
SetSourceData
Source (Range) — диапазон с исходными данными;
PlotBy (XIRowCol) —режим отображения данных
Позволяет задать диапазон с исходными данными для диаграммы. Режим отображения данных задает, как отображать исходные данные (ряды в строках или в столбцах)
Объект Range
Объект Range представляет собой строку, столбец, ячейку, выделенные ячейки либо один или несколько объединенных диапазонов ячеек. Range является наиболее часто используемым и основным объектом, предоставляющим доступ к данным таблиц Excel.
В табл. П.5 приведены свойства объекта Range.
Таблица П.5. Свойства объекта Range
Назван не
Тип значения
Описание
Address
String
Только для чтения. Возвращает адрес ячейки, которая представлена объектом Range. Если объект Range содержит несколько ячеек, нс входящих в одни диапазон, ТО возвращается строка с адресами каждой ячейки через запятую. Если объект Range содержит диапазоны, то для каждого диапазона возвращается строка с адресами первой и последней ячеек диапазона, разделенными двоеточием
Areas
Areas
Только дм чтения, Возвращает коллекцию, содержащую все диапазоны, которые представлены в объекте Range
Таблица П.5. Свойства объекта Range {продолжение)
Название
Тип значения
Описание
Borders
Borders
Только для чтения. Возвращает коллекцию объектов тиш Border, позволяющих работать с границами ячеек (задавать параметры их отображения)
Cells
Range
Только для чтения. Возврящ^т объект Range для ячеек, содержащихся в заданном диапазоне
Column
Long
Только для чтения. Возвращает номер первого столбца, элементы которого входят в диапазон или диапазоны исходного объекта Range
Columns
Range
Только для чтения. Возвращает объект Range, представляющий собой все столбцы, содержащиеся в диапазоне или диапазонах исходного объекта Range
Comment
Comment
Только для чтения. Возвращает объект Comment, позволяющий работать с примечанием для девой верхней ячейки диапазона
Count
Long
Только для чтения. Возвращает количество ячеек, содержащихся в диапазоне млн диапазонах, представленных объектом Range
End
Rango
Только для чтения. Возвращает объект Range, предоставляющий доступ к последней заполненной ячейке столбца или строки в заданном направлении ст другой ячейки
EntireColumn
Range
Только для чтения. Возвращает объект Range для столбцов, в которых содержатся ячейки, входящие в исходный диапазон
Enti reRow
Range
Только для чтения. Возвращает объект Range для строк, в которых содержатся ячейки, входящие в исходный диапазон
Font
Font
Возвращает объект Font, позволяющий изменять настройки шрифта (название шрифта, начертание символов и др.) для ячеек диапазона
Formula
Variant
Позволяет получить иля задать строку с формулой для заданной ячейки
FormulaLocal
Variant
Позволяет получить или задать строку с формулой д ля заданной ячейки
FormulaRlC!
Variant
Позволяет получить или задать строку с формулой для заданной ячейки. При этом используется другая система нумерации ячеек—так называемая R1C1- нотация. В иеЙ после R указывается номер строки, а после С — номер столбца (например, адрес А10 в этой нотации будет записан как RIC10)
Height
Variant
Только для чтения. Возвращает суммарную высоту ячеек диапазона
Horizon tai Alignment
Variant
Позволяет получить или установить тип горизонтального выравнивания в ячейке или ячейках диапазона
Название
Тип значения
Описание
Interior
Interior
Только для чтения. Возвращает объект Inferior, позволяющий изменять оформление ячейки или ячеек диапазона
Left
Variant
Только для чтения. Возвращает смещение самой левой ячейки диапазона от начала столбца А
Name
Names
Позволяет получить или задать имя ячейки (ячеек диапазона). Для ячеек имена представлены специальным объектом Name
Next
Range
Только для чтения Возвращает объект Range для следующей ячейки диапазона
NumberFormat
Variant
Позволяет получить или задать формат ячейки или ячеек диапазона- Если ячейки диапазона имеют разные форматы, то возвращает значение NULL
Offset
Range
Только для чтения. Возвращает объект Range для ячейки, смещенной относительно исходной на заданное количество строк и столбцов
Orientation
Variant
Позволяет получить или установить ориентацию текста в ячейке (угол наклона текста к горизонтальной оси). Принимает значения от -90 до 90
Parent
Object
Только для чтения. Возвращает родительский объект для ячейки или ячеек диапазона — рабочий лист, на котором расположена ячейка (ячейки)
Range
Range
Только для чтения. Позволяет получить объект Range для ячейки или поддиапазона исходного диапазона
Row
Long
Только для чтения. Возвращает номер первой строки, элементы которой входят в д иапазон или диапазоны исходного объекта Range
Rows
Range
Только для чтения. Возвращает объект Range, представляющий собой все строки, содержащиеся в диапазоне или диапазонах исходного объекте Range
Text
String
Только для чтения. Возвращает текст в ячейке, заданной объектом Range
Top
Variant
Только для чтения. Возвращает смещение верхней ячейки диапазона или диапазонов объекта Range от начала первой строки
Value
Variant
Позволяет получить или установить значение ячейки
VcrticalAlignment
Variant
Позволяет получить или установить тип вертикального выравнивания в ячейке иле ячейках диапазона
Width
Variant
Только для чтения. Возвращает суммарную ширину ячеек диапазона
Worksheet
Worksheet
Только для чтения Возвращает объект Worksheet, представляющий собой рабочий лист, на котором находится диапазон
В табл. П.6 приведены методы объекта Range.
Таблица П.6. Методы объекта Range
Название
Параметры
Возвращаемое значение
Описание
Activate
Активизирует (выделяет) одну ячейку. Если ячейка входит в выделенный ранее диапазон, то этот диапазон остается выделенным
AddComment
Text (Variant) — текст примечания
Позволяет добавить примечание к ячейке Текст примечания задается парамером Text
AutoFtlter
Field (Variant. — смещение от ячейки, на которой базируется фильтр;
Criteriai (Variant)—критерий отображения ячеек;
Operator (XIAutoFilterOperator) — применяемый оператор отображения:
Criteria! (Variant) — второй критерий отображения ячеек;
VisibleDropDown (Variant) — режим отображения списка для настройки фильтра
Включает или выключает фильтрацию отображения ячеек на рабочем листе.
Параметры отображения задаются с помощью Criteria] и Criteria! При отображении ячеек будет применен оператор, заданный параметром Operator Если значение параметре VhibleDropDown задать равным True, то в ячейках будет показав раскрывающийся список для выбора оператора
Clear
Удаляет все данные (значения, примечания и др.), связанные с ячейками заданного диапазона, а также устанавливает по умолчанию параметры форматирования этих ячеек
ClearComments
Удаляет примечания для ячеек заданного диапазона
CIcarContents
Удаляет данные ячеек заданного диапазона. Параметры форматирования сохраняются
Copy
Destination (Vanant) — указывает, куда копировать
Копирует данные ячеек заданного диапазона в буфер обмена Windows или в другой диапазон.
Диапазон-приемник указывается в параметре Destination. Если этот параметр нс задан, то данные копируются в буфер обмена
Название
Параметры
Возвращаемое значение
Описание
Find
What (Variant) — искомые данные;
After (Vantint) — первая ячейка для поиск»;
Lookin (Variant) — просматриваемые данные;
LookAt (XILookAt) — область поиска;
Sc arch Order (XlSearchOrdcr)— порядок просмотра ячеек;
SearchDirrction (XlScarchDirection)— направление просмотра ячеек; MatchCase (Variant)—параметры учета регистра символов;
MatchByte (V anant) — параметры учета кодирования символов;
SearchFonnat (Variant) —- формат поиска
Range
Ищет заданные параметром What данные а диапазоне. Поиск начинается с ячейки After (сели она задана) или с начала диапазона.
При поиске могут просматриваться различные данные, связанные С ячейками (значения ячеек, примечания и др.), — задаются параметром Lookto.
В зависимости от значения параметра LookAt просматривается весь диапазон или его часть.
Параметр ScarchDi rection задает порядок просмотра ячеек— по Строкам или по столбцам Остальные параметры задают особенности сравнения дайных при пояске
FindNext
After (Varimf)—ячейка, после которой некжтъ
Range
Продолжает поиск, начатый при вызове метода Find
Select
Выделяет все ячейки m шззона
Sort
Kcyl (Variant) — первая ячейка- ключ для сортировки;
Orderl (XISortOrdcr) —порядок сортировки по первому ключу;
Key 2 (Variant) — вторая ячейха- ключ для сортировки;
Order 2 (XlSortOrder)—порядок сортировки по второму ключу; КсуЗ (Variant) — третья ячейка- ключ для сортировки;
Order3 (XISortOrdcr) — порядок сортировки по третьему ключу; Header (XlYesNoGuess) — режим сортировки первых строк;
OrderCustom (Variant) — используется для задания нестандартного порядка отсортированных элементов; MatchCasc (Variant) — режим учета регистра символов;
Orientation (XISortOriCTitation) — ориентация сортируемых ячеек; SortMctbod (XlSonMcthod) •— метод сортировки
Позволяет сортировать значения в ячейках по нескольким ключам (от I до 3). Ячейки, принадлежащие ключевым рядам или строкам, задаются в параметрах Кеу)-КеуЗ. Порядок сортировки по этим ключам (возрастающий или убывающий) задается параметрами Ordcrl-OrderS.
Параметр Orientation задает, сортировать строки иля столбцы. При задании значения параметра Header равным True, первые строки (или столбцы) не сортируются.
Если параметр MatchCasc равен True, то при сортировке учитывается регистр символов Параметр SortMctbod задает метод сортировки текста.
Параметры DataOption 1- D»taOption3 задают, сортировать текст по соответствующим ключам отдельно от чисел или нет
Таблица П.в. Методы объекта Range (продолжение)
Название
Параметры
Возвращаемое значение
Описание
Sort
DataOpiionl
(XLScrtDataOption) — режим сортировки текста первого ключа;
DataOption2
(XISonDataOption) —режим сортировки текста второго ключе, DataOption3
(XISorfDataOption)—режим сортировки текста третьего ключа
SpecralCells
Type (XlCcllType) — тип содержимого ячейки;
Value (XlSpecialCellsValue) — характер содержимого
Range
Позволяет получить диапазон ячеек, которые удовлетворяют требованиям: наличие содержимого типа, заданного параметром Туре (например, примечания), или соответствие характера содержимого ячейки заданному параметром Value (например, код ошибки)
Объект Workbook
Посредством объекта workbook осуществляется доступ к рабочим книгам, открытым в Excel. Данный объект позволяет работать с данными, структурой рабочей книги, управлять ее отображением, изменять структуру. С помощью объекта Workbook также легко реализовать создание и сохранение рабочих книг.
В табл. П.7 приведены свойства объекта workbook.
Таблица П.7. Свойства объекта Workbook
Название
Тип значения
Опасение
Charts
Sheets
Только для чтения. Возвращает коллекцию Sheets, состоящую только из листов диаграмм данной книги
Name
String
Только для чгпшия. Возвращает строку с именем рабочей книги
Names
Names
Только для чтения. Возвращает коллекцию Names, элементами которой являются все определенные имена в данной рабочей книге (в том числе имена, определенные и рабочих листах, такие как имена ячеек)
Path
String
Только для чтения. Возвращает полный путь, по которому сохранена рабочая книга. Если книга не сохранена, то возвращается пустая строка
Название
Тип значения
Описание
ProtectStructure
Boolean
Только дм чтения. Возвращает Тrue, сели структура рабочей книги защищена. В противном случае возвращает False
Sheets
Sheets
Только для чтения. Возвращает коллекцию Sheets, состоящую из всех листов рабочей книги (рабочих листов И ли стоя, диаграмм)
Windows
Windows
Только для чтения. Возвращает коллекцию Windows, элементами которой являются объекты Window всех окон рабочей книги
Worksheets
Sheets
Только для чтения. Возвращает коллекцию Sheets, состоящую только из рабочих листов данной книги
В табл. П.8 приведены методы объекта Horkbook
Таблица П.8. Методы объекта Workbook
Название
Параметры
Описание
Protect
Password (Variant) — пароль для снятия защиты;
Structure (Variant) — режим зашиты структуры книги;
Windows (Variant) — режим защиты окон книги
Включает защиту рабочей книги. Если задан параметр Password. то содержащийся в нем пароль необходимо указывать для снятия защиты с рабочей книги.
Если параметр Structure равен True, то защищается структура, а если параметр Windows равен True, то защищается расположение окон данной рабочей книги
SaveAs
FilcName (Vanant) — пуп для сохранения;
FileFormat (Variant)—формат;
Password (Variant)—пароль для открытия файла книги;
WnteRcaPaasword (Variant)—пароль для сохранения изменений в книге; RcadOntyRecomroended (Variant) — рекомендация открытия только д ля чтения, CreateBeckup (Variant)—режим создания резервных копий;
AccessMode (Variant)—режим доступа к книге после сохранения; ConfliciReeolution (Variant)—режим борьбы с конфликтами (при совместной работе с сохраненной книгой);
AddToMra (Variant)—добавить книгу в список недавно открытых файлов; Local (Variant)—режим использования региональных настроек
Сохраняет рабочую кишу в файл, заданный параметром FileNkmo в заданном параметром FtieFcrroat формате Если задан параметр Password, то сохраняемый файл защищается паролем Если задан параметр WnteResPassword, то для книги устанавливается пароль на сохранение изменений. При этом книгу можно будет открывать без пароля только для чтения (если не задан параметр Password).
При задании параметра CreatcBackup равным True перед началом работы с книгой будет создаваться ее резервная копня.
Параметры AccessMode и ConfltctResolution позволяют настроить книгу для совместной работы.
При значении параметра Local, равном True, книга сохраняется с использованием региональных настроек (для разделителен частей числа, деты и гр.). При значении параметра, равном False, используется формат данных VBA
Таблица П.8. Методы объекта Workbook (продолжение)
Название
Параметры
Описание
Unprotect
Password (Variant) — парень для снятия защиты
Отключает защиту рабочей книги. Если в параметре Password указан неверный пароль, то при вызове данного метода будет сгенерирована ошибка
В табл. П.9 приведены процедуры обработки событий объекта Workbook.
Таблица П.О. Процедуры обработки событий объекта Workbook
Название
Параметры
Описание
BeforeClose
Cancel (Boolean) — режим обработки события приложением Excel
Вызывается перед закрытием рабочей книги. Если параметру Cancel присвоить значение True, то Excel игнорирует это событие, то есть книга яс закрывается
BefbrePnnt
Cancel (Boolean)—режим обработки события Приложением Excel
Вызывается перед отправкой рабочей книги на печать. Если параметру Cancel присвоить значение True, то Excel игнорирует это событие, то есть данные книги напечатаны не будут
Open
Вызывается при открытии рабочей книги
Объект Worksheet
С помощью объекта worksheet осуществляется работа с листами рабочей книги. Данный объект содержит ряд свойств и методов, обеспечивающих возможность модифицировать данные рабочего листа и управлять их отображением. Рабочий лист (объект Worksheet) поддерживает несколько обработчиков событий, использование которых позволяет задавать определенные особенности поведения Excel при работе с данными рабочими листами.
В табл. ПЛ 0 приведены свойства объекта worksheet.
Таблице П.1О. Свойства объекта Worksheet
Название
Тип зняченив
Описание
Cells
Range
Только для чтения. Возвращает объект Range, содержащий все ячейки данного рабочего листа
Columns
Range
Только для чтения. Возвращает объект Range, содержащий все столбцы данного рабочего листа
Comments
Comments
Только для чтения. Возвращает коллекцию Comments, содержащую все примечания к ячейкам данного рабочего листа
Hyperlinks
Hyperlinks
Только для чтения Возвращает коллекцию Hyperlinks, содержащую все объекты Hyperlink данного рабочего листа. Каждый из таких объектов хранит информацию об одной гиперссылке на рабочем листе
Название
Tan значения
Описание
Index
Long
Только для чтения. Возвращает индекс данного рабочего листа в коллекции Sheets рабочей книги, содержащей этот лист
Name
String
Позволяет получить или изменить имя рабочеп листа
Names
Names
Только для чтения. Возвращает коллекцию Names, содержащую все определенные имена данного рабочего листа
Parent
Object
Только для чтения. Возвращает родительский объект для данного рабочего листа—рабочую книгу (Worksheet), в которой находится пнет
ProtectContents
Boolean
Только для чтения. Возвращает True, если содержимое рабочего листа защищено ст изменений
Range
Range
Только для чтения. Возвращает объект Range, содержащий заданную ячейку, диапазон или диапазоны рабочего листа
Rows
Range
Только для чтения. Возвращает объект Range, содержащий все строки данного рабочего листа
Shapes
Shapes
Только для чтения. Возвращает коллекцию Shapes, содержащую все аатофнгуры, расположенные ня данном рабочем листе
UsedRange
Range
Только для чтения. Возвращает объект Range, содержал щй диапазон ячеек рабочего листа, заполненный какими-либо данными
В табл. П.11 приведены методы объекта Worksheet
Таблица П. 11. Методы объекта Worksheet
Название
Аргументы
Возвращаемое значение
Описание
Activate
Активизирует данный рабочий лист (эквивалентно щелчку на закладке листа в окне рабочей книги)
Chartobjects
Index (Variant)— идентификатор диаграммы
Chartobject.
ChartObjects
Возвращает объект ChartObject (контейнер для внедренной диаграммы), если задан параметр Index.
Если параметр не задан, то возвращает коллекцию ChartObjects, которая состоит из всех объектов ChartObject данного рабочего листа
Select
Для рабочего листа этот метод работает аналогично методу Activate
В табл. П.12 приведены события объекта Worksheet.
Таблица ПЛ 2. События объекта Worksheet
Название
Параметры
Описание
BeftxeRIghtClkk
Target (Range) — ячейка, над которой была нажата кнопка мыши;
Cancel (Boolean) — режим обработки события приложением Excel
Вызывается перед выполнением стандартного действия при нажатии правой кнопки мыши в ячейке рабочего листа.
Параметр Target содержит объект Range для ячейки, над которой произошло нажатие правой кнопки мыши.
Если параметру Cancel присвоить значение True, то Excel игнорирует это событие
Change
Target (Range) — измененная ячейка
Вызывается при изменении содержимого ячейки рабочего листа. Параметр Target содержит объект Range для измененной ячейки
SeleetionCbangc
Target (Range)— диапазон ячеек
Вызывается при изменении выделения на рабочем листе. Параметр Target содержит объект Range для нового диапазона выделенных ячеек
Алфавитный указатель
А
Автофигура 97
вращение 222
Автофнльтр 211
Б
Бегущая строка 218
Г
Главное меню 246
д
Данные
запись в текстовый файл 200
Диаграмма
внедренная 291
построение с помощью макроса 290
прозрачная 298
размер 291
расположение 291
создание подписей 303
сохранение 293
степень прозрачности 300
удаление 296
Диапазон ЮЗ, 105
выделение 178
граница 118
заливка 120
заполнение данными 110, 112
именованный 180
Поиск данных 116
случайные числа 165
форматирование 212
3
Закладка 96
И
Импорт данных 203, 269
Интервал 177
К
Калькулятор 226
результат расчета 227
Каталог автозагрузки 81
Колонтитул 99
Контекстное меню 98
создание 256
М
Макрос 169
личная книга 83, 136
Массив 32,131
Мастер функций 109
Меню
добавление команды 276
создание 252
удаление команды 277
Модуль
Класса 279
рабочего листа 102, 118, 121
н
Надстройка 136
О
Обзор папок 262
Объем жесткого диска 267
П
Панель инструментов 188
добавление элементов 189
редактирование 82
создание 189, 274
управление отображением 251
условное отображение 249
Папка
список содержимого 260
Поиск данных 211
Пользовательская форма 311
Пользовательское меню 228
структура 228
Помощник 282
выбор цвета ячеек 286
добавление флажка 285
мультфильм 282
произвольный текст 283
Последовательность чисел 111
длина ill
начальное значение 114
шаг ИЗ
Примечание 119, 182
индикатор 182
формирование списка 184
Р
Рабочая книга 81
защита 85, 90, 91
Цветовая палитраслучайная 297эЭкспорт данпых 203Электронные часы 115ЯЯчейка 103, 106адрес 119ввод дробных чисел 104выделение 169максимальное значение 107. 160примечание 119скрытая 151скрытие данных 108скрытое имя 132тип данных 162Цвет 286числовой формат 127VVBAAPI-функция 74встроенные типы данных 24дескриптор 62закрытие файла 63запись в файл 63идентификатор 23инициализация переменных 28класс 71коллекция 36комментарий 23константа 29массив 32метка 49модуль диаграммы 20модуль класса 20модуль рабочего листа 20модуль рабочей книги 20объявление переменных 27окно с сообщением 67операторы 29открытие файла 61ошибка времени выполнения 68перечисление 41процедура 51ссылка 26стандартный модуль 19структура 38структура объектов 77структура проекта 18форма 20функция 54цикл 43чтение из файла 63элементы проекта 19Цветовая палитраслучайная 297эЭкспорт данпых 203Электронные часы 115ЯЯчейка 103, 106адрес 119ввод дробных чисел 104выделение 169максимальное значение 107. 160примечание 119скрытая 151скрытие данных 108скрытое имя 132тип данных 162Цвет 286числовой формат 127VVBAAPI-функция 74встроенные типы данных 24дескриптор 62закрытие файла 63запись в файл 63идентификатор 23инициализация переменных 28класс 71коллекция 36комментарий 23константа 29массив 32метка 49модуль диаграммы 20модуль класса 20модуль рабочего листа 20модуль рабочей книги 20объявление переменных 27окно с сообщением 67операторы 29открытие файла 61ошибка времени выполнения 68перечисление 41процедура 51ссылка 26стандартный модуль 19структура 38структура объектов 77структура проекта 18форма 20функция 54цикл 43чтение из файла 63элементы проекта 19
Цветовая палитра
случайная 297
э
Экспорт данпых 203
Электронные часы 115
Я
Ячейка 103, 106
адрес 119
ввод дробных чисел 104
выделение 169
максимальное значение 107. 160
примечание 119
скрытая 151
скрытие данных 108
скрытое имя 132
тип данных 162
Цвет 286
числовой формат 127
V
VBA
API-функция 74
встроенные типы данных 24
дескриптор 62
закрытие файла 63
запись в файл 63
идентификатор 23
инициализация переменных 28
класс 71
коллекция 36
комментарий 23
константа 29
массив 32
метка 49
модуль диаграммы 20
модуль класса 20
модуль рабочего листа 20
модуль рабочей книги 20
объявление переменных 27
окно с сообщением 67
операторы 29
открытие файла 61
ошибка времени выполнения 68
перечисление 41
процедура 51
ссылка 26
стандартный модуль 19
структура 38
структура объектов 77
структура проекта 18
форма 20
функция 54
цикл 43
чтение из файла 63
элементы проекта 19
Цветовая палитра
случайная 297
э
Экспорт данпых 203
Электронные часы 115
Я
Ячейка 103, 106
адрес 119
ввод дробных чисел 104
выделение 169
максимальное значение 107. 160
примечание 119
скрытая 151
скрытие данных 108
скрытое имя 132
тип данных 162
Цвет 286
числовой формат 127
V
VBA
API-функция 74
встроенные типы данных 24
дескриптор 62
закрытие файла 63
запись в файл 63
идентификатор 23
инициализация переменных 28
класс 71
коллекция 36
комментарий 23
константа 29
массив 32
метка 49
модуль диаграммы 20
модуль класса 20
модуль рабочего листа 20
модуль рабочей книги 20
объявление переменных 27
окно с сообщением 67
операторы 29
открытие файла 61
ошибка времени выполнения 68
перечисление 41
процедура 51
ссылка 26
стандартный модуль 19
структура 38
структура объектов 77
структура проекта 18
форма 20
функция 54
цикл 43
чтение из файла 63
элементы проекта 19
количество печатных страниц 101
сохранение 153
условное закрытие 86
файл рабочей области 81
Рабочий лист 95
зашита 100
имя 100
Разрешение монитора 217
Раскрывающийся список 274
С
Сетка
управление отображением 277
Скриншот выделенных ячеек 109
Список
контекстных меню 245
панелей инструментов 245
содержимого папки 260
шрифтов 268
Справочная подсистема И
Средневзвешенное значение 154
Среднее арифметическое 267
Стандартный модуль 92,101,111,124,148
Столбец
скрытие 175
Строка
скрытие 174
состояния 170
формул 109
Т
Таблица 101
HTML-формат 205
преобразование в НТМ-файл 208
преобразование в HTML-код 207
Таблица символов
запуск 271
Таблица цветов 225
Текстовый документ 242
Текстовый файл 203
Ф
Файл
проверка наличия 194
удаление 197
Форматирование ячейки 256
Формула 131, 133
копирование 132
ошибки 134
Функция 136
аргумент 143
результат расчета 144
ц
Цвет заливки 286
* Проверяем каждую ячейку из контролируемого диапазона _ и изменяем цвет шрифта ячеек с минимальным и максимальным _ значениями, а также помечаем желтым цветом ячейки _ со значениями больше среднего
For Each cell In rgData
If cell.Value - dblMax Then
1 Ячейку с максимальным значением выделим красным цветом cell.Font.Bold - True
cell.Font.Color * RGB(255, О, 0)
Elself cell.Value = dblMin Then
• Ячейку с минимальным значением выделим синим цветом cell.Font.Bold. - False
cell-Font.Color - RGB(O, 0, 255)
* Первый поиск строки ISearch в строке IText (этот и последующий поиски производятся Вез учета регистра символов)
iNumber - InStr(IText, ISearch)
While iNumber > 0
1 Поиск следующего вхождения строки
iNumber ■ InStr(iNumber + ILen, iText, iSearch)
' подсчет количества вхождений
CoincideCount — CoincideCount * vbNull
Wend
* Получение всех ячеек выделения, в которых есть примечания Set cell - Cells. Find ('"»•*, Lookin;-х1Сомпептз> If Not cell Is Nothing Then
• Сохранение адреса первой наеденной ячейки (для предотвращения вацикливания поиска)
strFixstAddress - cell.Address
Do
• Вывод текста в столбец "С" intRow - IntRow * 1
Cells(intRow, 3) - се11.Comment.Text ' Продолжение поиска Set cell = Ceils.FindNext{cell) Loop While Not cell Ib Nothing And _ cell.Address <> BtrFirstAddress
End If End Sub
Следует отметить, что столбец С взят только для примера.