10. Макрос

    1. Процедуры пользователя

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

Необходимо создать соответствующие макросы, поскольку только макросы - решение наших проблем!

• Добавьте новый лист книги и назовите его, например, «Игра». Создаем макрос крестика.

• Установите курсор в произвольном месте экрана, где предполагается записать крестик. Выполните команду записи макросаСервис/Макрос/Начать запись. Появляется диалоговая панель (рис. 2.22), где укажите имя и описание макроса.

• Рис. 2.47. Запись макроса

  Укажите комбинацию клавиш макроса, например Ctrl+q. [OK]. Началась запись макроса. В строке состояний появилось слово “Запись”. Установите параметры шрифта (например, Arial Cyr, 14). Запишите в ячейке букву Х (крестик). Закончите редактирование нажатием кнопки - «Ввод» (нажатие клавиши Enter сменит АК, и далее придется вновь возвращаться к исходной). Отцентрируйте АК. Установите требуемый цвет фона и символа. Если что - либо вас не удовлетворяет - исправьте. Все? Нажмите клавишу “Остановить запись”.

• Протестируйте полученный макрос. Установите курсор на новое место и выполните Ctrl+q. Макрос работает? Если плохо – повторите запись макроса с начала. Дополнительный тренинг – только на пользу.

Посмотрим, что создал Excel. Выполните Сервис/Макрос/Макросы. Выберите требуемый макрос «Cross» и нажмите клавишу «Изменить». Появляется панель Visual Basic с текстом записанного макроса (процедура). Если вы действительно хотите глубоко понять Excel, вам придется изучить и Visual Basic. Здесь мы даем программу с нашими комментариями:

' cross Макрос	Комментарии
'Крестик	начинаются
' Сочетание клавиш: Ctrl+q	с апострофа

Sub cross()	Начало процедуры
With Selection.Font	Настройка символов выделенной области
.Name = "Arial Cyr"	Тип шрифта
.FontStyle = "обычный"	Тип стиля
.Size = 14	Размер
.Strikethrough = False	Далее параметры не меняются ()
.Superscript = False	(заданы по умолчанию)
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlNone
.ColorIndex = 3	Цвет
End With	Конец установки параметров символов
With Selection.Interior	Установка параметров фона АК
.ColorIndex = 4	Цвет
.Pattern = xlSolid	Структура заполнения ячейки
.PatternColorIndex = xlAutomatic
End With
ActiveCell.FormulaR1C1 = "X"	Запись символа Х в АК
With Selection	С АК производятся действия:
.HorizontalAlignment = xlCenter	Центрирование
.VerticalAlignment = xlBottom	Выравнивание по низу
.WrapText = False	Окантовка
.Orientation = xlHorizontal	Ориентация
End With	Конец установки
End Sub

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

• Создайте макрос нолика.

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

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

• Поиграйте в "крестики – нолики" с соседом.