Глава 19. Инструментальные средства пользователя в среде microsoft office

_I

Используются следующие кнопки (слева направо):

<Список активных макрокоманд> — позволяет просматривать и переходить к актив­ной макрокоманде;

<3апись> — запись новой макрокоманды;

<3аписать следующую команду> — продолжить запись макрокоманды, начиная с позиции, на которой установлен курсор;

<Старт> — выполнить активную макрокоманду;

<Трасса> — пошагово выполнить активную макрокоманду;

<Продолжить> — продолжить выполнение остановленной макрокоманды;

<Стоп> — завершить выполнение макрокоманды;

<Шаг внутрь> — выполнить активную макрокоманду, останавливаясь перед каждой инструкцией и подсвечивая ее;

<Шаг через> — выполнить активную макрокоманду, останавливаясь перед каждой следующей инструкцией в основном теле макрокоманды и подсвечивая ее. Выполнение подпрограмм не прерывается;

<Показать переменные> — вывод на экран диалога «Переменные макрокоманды», с помощью которого можно просмотреть и изменить значения всех переменных останов­ленной макрокоманды;

<Добавить или удалить REM> — вставить или удалить инструкцию REM в выделен­ных строках окна редактирования макрокоманд;

<Макро> — работу с макрокомандами, в том числе создание новых макрокоманд, выполнение существующих и т.д.;

<Редактор диалогов> — запуск или переключение в режим Редактора диалогов.

Более подробно о программировании см. подразд. 19.2 и сведения о макропрограммах Excel 5.O.

Пример 19.4. Текст программы для макрокоманды А1:

Sub MAIN

FormatFont .Points = "12", .Underline = 0, .Color = 0, .Strikethrough = 0, .Superscript = 0,

.Subscript = 0, .Hidden = 0, .SmallCaps = 0, .AllCaps = 0, .Spacing = "0 пт",

.Position = "0 пт", .Kerning = 0, .KemingMin = "", .Tab = "0", .Font = "Arial Cyr",

JBold= 1, .Italic = 0

FormatParagraph .Leftlndent = "0 см", .Rightlndent = "0 см", .Before = "0 пт",

.After = "0 пт", .LineSpacingRule = 0, .LineSpacing = "", .Alignment = 3,

.WidowControl = 1, .KeepWithNext = 0, .KeepTogether = 0, .PageBreak = 0,

.NoLineNum = 0, .DontHyphen = 0, .Tab = "0", .Firstlndent = "1 см"

FormatTabs .Position = "5 см", .DefTabs = "1,25 см", .Align = 0, .Leader = 0, .Set

FormatTabs .Position = "12 см", .DefTabs = "1,25 см", .Align = 0, .Leader = 0, .Set

End Sub

Для просмотра текста макрокоманды выполняется команда СЕРВИС, Макрокоман­да, курсор устанавливается на имени макрокоманды, нажимается кнопка <Правка>.

Клавишные и языковые макрокоманды сохраняются в определенном шаблоне доку­ментов. С помощью команды ФАЙЛ, Шаблоны или СЕРВИС, Макрокоманда вызывает­ся диалоговое окно «Организатор», которое обеспечивает копирование, переименование и удаление макрокоманд на уровне шаблонов документов.

Макропрограммирование

Макропрограммирование в Excel 5.0 также осуществляется путем создания макросов (макрокоманд) двух видов:

клавишные макросы;

языковые макросы в виде программных модулей на языке Visual Basic.