Макросы в Excel
внесения изменений в
макрос, запустите макрос “Заголовок”. Это позволит вам определить
положение курсора на рабочем листе, где будут вноситься новые действия.
· Выполните 6 шаг алгоритма внесения изменений в макрос. Все
последующие действия будут записаны.
· Выделите четыре ячейки, включающие заголовок “Тип компьютера”.
· Вызовите окно диалога “Формат ячейки”, нажав Ctrl+1.
· Выберите вкладку “Выравнивание”, в которой установите флажок
Центрировать по выделению. Таким образом мы поместим заголовок в
середину строки.
· Выберите вкладку “Шрифт”, в которой установите стиль Italic и
размер шрифта 16. Нажмите кнопку OK, чтобы выйти из режима
форматирования ячейки.
· Нажмите кнопку Остановить макрос.
После завершения записи новых действий в макрос “Заголовок” мы
получили новый текст программы:
Заголовок Макрос назначен пункт меню Сервис “Тип ЭВМ”
Sub Заголовок()
ActiveCell.FormulaR1C1 = “Тип компьютера”
ActiveCell.Offset(1; 0).Range(“A1”).Select
ActiveCell.FormulaR1C1 = “CP_35_SR”
ActiveCell.Offset(0; 1).Range(“A1”).Select
ActiveCell.FormulaR1C1 = “CP_40_SR”
ActiveCell.Offset(0; 1).Range(“A1”).Select
ActiveCell.FormulaR1C1 = “CP_55_LS”
ActiveCell.Offset(0; 1).Range(“A1”).Select
ActiveCell.FormulaR1C1 = “CP_55_SX”
ActiveCell.Offset(0; -3).Range(“A1:D1”).Select
ActiveCell.Activate
Selection.Columns.AutoFit
ActiveCell.Offset(-1; 0).Range(“A1:D1”).Select
With Selection
.HorizontalAlignment = xlCEnterAcrossSelection
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = xlHorizontal
End With
With Selection.Font
.Name = “TimesET”
.FontStyle = “Italic”
.Size = 16
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlNone
.ColorIndex = xlAutomatic
End With
End Sub
Перед последним оператором программы осталась пустая строка. Вы
можете удалить ее.
Теперь результат работы макроса “Заголовок” имеет следующий вид:
Тип компьютера
CP_35_SR CP_40_SR CP_55_LS CP_55_SX
Назначение макроса
Назначение макроса графическому объекту
Макрос может вызываться не только нажатием клавиш быстрого
вызова, но и нажатием кнопки мыши на графическом объекте. В этом
разделе рассказывается о том, как организовать такой вызов макроса.
Для назначения макроса графическому объекту необходимо наличие
такого объекта на экране. Представлены три графических объекта, которым
назначены макросы.
Для создания графических объектов была вызвана панель
инструментов “Рисование”. Для этого необходимо выполнить команду Вид |
Панели инструментов, а затем в окне диалога “Панели инструментов”
установить флажок на строке Рисование.
Для вызова списка панелей вы можете нажать правую кнопку мыши
на любой панели инструментов.
Чтобы нарисовать закрашенный овал или прямоугольник, нажмите
кнопку мыши на соответствующем рисунке на панели “Рисование”. Вам будет
предложено выбрать место для объекта. Поместите указатель мыши в нужное
место таблицы и, удерживая нажатой кнопку мыши, нарисуйте объект —
прямоугольник или овал.
Для выбора заливки объекта нажмите правую кнопку мыши на
активном объекте. Появится меню, в котором выберите пункт Формат
объекта. Появится окно диалога “Форматирование объекта”, в котором
выбирается цвет и вид заливки.
Надписи на объектах создаются следующим образом:
Нажмите кнопку Текстовое поле на панели инструментов
“Рисование”.
Удерживая нажатой кнопку мыши, выделите место для текста.
Введите требуемый текст и нажмите кнопку мыши вне текстового
окна. Это необходимо сделать для того, чтобы войти в режим выравнивания
текста внутри текстового окна.
Нажмите правую кнопку мыши на текстовом окне. Появится меню, в
котором выберите пункт Формат объекта. В результате появится окно
диалога “Форматирование объекта”, в котором перейдите на вкладку
“Выравнивание”.
Установите переключатели вертикального и горизонтального
выравнивания в положение по центру и выберите вкладку “Шрифт”.
Установите стиль и размер шрифта и нажмите клавишу OK.
Нажатие Enter при вводе текста не завершает ввод, а лишь
переводит на следующую строку.
Вы получили надпись на объекте. Обратите внимание, что надпись
“Заголовок” сделана под графическим объектом “прямоугольник”. После
того как было найдено удачное расположение надписи на объекте, была
нажата кнопка На задний план, расположенная на панели инструментов
“Рисование” и текст оказался под объектом.
Мы построили графические объекты. Теперь назначим этим
графическим объектам макросы. Для этого выполните следующие действия:
· Нажмите кнопку мыши на графическом объекте. Объект становится
активным.
· Выполните команду Сервис | Назначить макрос. Появится окно
диалога со списком макросов.
· Выберите требуемый макрос и нажмите на нем кнопку мыши. Имя
макроса появится в верхней строке окна диалога.
· Нажмите кнопку OK. Вы выйдете из режима назначения макроса.
Графический объект остается активным. Нажмите кнопку мыши в любом месте
вне объекта.
Объект становится активным, когда на его границе появляются
черные квадратики. Если графический объект не назначен макросу, то
чтобы сделать его активным достаточно нажать на нем кнопку мыши. Если
назначение макроса графическому объекту уже сделано, то чтобы сделать
его активным нужно нажать на нем одновременно кнопку мыши и клавишу
Ctrl.
Назначить макрос графическому объекту можно и другим способом.
Нажмите правую кнопку мыши на объекте. Из появившегося меню выберите
команду Назначить макрос и из списка макросов выберите требуемый.
Макрос назначен графическому объекту. Если теперь поместить
указатель мыши на этот объект, то белый крестик перейдет в изображение
руки с отогнутым указательным пальцем. Нажатие левой кнопки мыши
приводит к выполнению макроса, который назначен этому объекту.
Пример 6. Назначение макроса графическому объекту
Назначим макрос “Число” графическому объекту “стрелка”. Для
этого выполните следующие действия:
· Нажмите кнопку с изображением стрелки на панели инструментов
“Рисование”.
· Установите курсор в нужное место таблицы и, удерживая нажатой
кнопку мыши, проведите стрелку.
· Нажмите кнопку Текстовое поле на панели инструментов “Рисование”
и, удерживая нажатой кнопку мыши, выделите место для текста.
· Введите текст “Число” и нажмите кнопку мыши вне текстового поля.
· Нажмите правую кнопку мыши на текстовом окне. Появится меню, в
котором выберите пункт Формат объекта. После этого появится окно
диалога “Форматирование объекта”. В этом окне нам понадобятся вкладки:
“Выравнивание”, “Шрифт” и “Вид”. Во вкладке “Выравнивание” установите
переключатели вертикального и горизонтального выравнивания в положение
по центру. Во вкладке “
Шрифт” выберите шрифт TimesET, стиль Italic, размер 16. Во вкладке
“Вид” установите переключатель Рамка в положение Нет, в результате чего
рамка вокруг текста будет удалена.
· Нажмите клавишу OK. Графический объект построен.
· Нажмите кнопку На задний план, расположенную на панели
инструментов “Рисование”. Текст оказался под стрелкой.
· Нажмите кнопку мыши на графическом объекте. Объект становится
активным.
· Нажмите правую кнопку мыши, когда ее указатель находится на
объекте. Появится меню со списком команд.
· Выберите Назначить макрос. Появится окно диалога “Назначить
макрос объекту” со списком созданных макросов.
· Выберите макрос “Число”. Имя макроса появится в верхней строке
окна диалога.
· Нажмите кнопку OK. Вы назначили макрос графическому объекту.
Нажмите кнопку мыши вне объекта, чтобы он перестал быть активным.
Если поместить указатель мыши на изображение стрелки, то белый
крести
| |  скачать работу |
Макросы в Excel |
