Excel. Трюки и эффекты

Листинг 5.1 состоит из девяти макросов (семь первых можно запускать вручную):

• DrowCrosswordGrid – рисует сетку кроссворда для выделенных ячеек;

• Clear – удаляет кроссворд с рабочего листа;

• Clear Grid – удаляет рамку кроссворда в выделенных ячейках;

• AutoNumber – записывает номера в ячейки кроссворда;

• DisplayGrid – показывает сетку рабочего листа;

• Hide Grid – убирает сетку рабочего листа;

• ToPrint – удаляет цветовую подсветку ячеек кроссворда;

• SetDigit – помещает нужное число в указанную ячейку (этот макрос используется макросом AutoNumber для записи номеров в ячейки);

• ToNumber – переход от основной формы ко второй форме (см. ниже).

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

Создание пользовательских форм

Для создания основной формы программы необходимо воспользоваться вкладкой Разработчик, отображение которой включается в настройках программы в разделе Основные с помощью флажка Показывать вкладку «Разработчик» на ленте. На данной вкладке нужно по обычным правилам создать форму, изображенную на рис. 5.1.

Рис. 5.1. Первая форма программы

К элементам формы привяжем макросы (все привязываемые макросы входят в состав кода, который приведен выше, и доступны в окне выбора макросов):

• переключатель Сетка присутствует– макрос DisplayGrid;

• переключатель Сетка на поле отсутствует – макрос HideGrid;

• кнопка Новый кроссворд – макрос Clear;

• кнопка Нарисовать рамку – макрос DrawCrasswordGrid;

• кнопка Стереть рамку – макрос ClearGrid;

• кнопка Дальше – макрос ToNumber.

Теперь аналогичным образом (с помощью вкладки Разработчик) создадим еще одну форму, которая показана на рис. 5.2.

К элементам данной формы привяжем следующие макросы (они также присутствуют в коде и доступны в окне выбора макросов):

• кнопка Автонумерация – макрос AutoNumber;

• кнопка Очистить все – макрос Clear;

• кнопка Вывести на печать – макрос ToPrint.

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

Рис. 5.2. Вторая форма программы

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

Порядок использования программы

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

На листе создадим несколько выделенных областей, соединив их между собой (рис. 5.3).

Рис. 5.3. Выделение нескольких областей

Теперь нажмем кнопку Нарисовать рамку – результат представлен на рис. 5.4.

Рис. 5.4. Рамка кроссворда

Нажимаем кнопку Дальше – будет отображена вторая форма программы (см. рис. 5.2). В этой форме следует нажать кнопку Автонумерация – в результате сетка кроссворда будет быстро пронумерована (рис. 5.5).

Теперь нажимаем кнопку Вывести на печать – и на листе отобразится готовая сетка кроссворда (рис. 5.6).

С помощью кнопки Очистить все с листа удаляется рамка кроссворда.

Рис. 5.5. Нумерация сетки кроссворда

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

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

Рис. 5.6. Готовая сетка кроссворда

Игра «Минное поле»

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

Игра «Минное поле», о которой рассказывается в данном разделе, во многом аналогична стандартной игре Сапер. Для создания игры необходимо написать несколько макросов, объединенных в два кода: первый код должен быть помещен в модуль того рабочего листа, на котором предполагается разместить игру, а второй – в стандартный модуль.

В модуль рабочего листа необходимо поместить такой код (листинг 5.2).