Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Основные сведения






Макрос – это записанная последовательность заданных пользователем команд и действий, хранящаяся в форме программы на языке VBA и сохранённая под уникальным именем, которую может выполнить Excel.

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

Пример.

Создадим простой макрос, который изменяет шрифт, цвет заливки и направление текста в ячейке. Для этого выполним следующие действия:

1. Откроем новую книгу в MS Excel.

2. В ячейку А1 введем название института, в котором вы учитесь, а в ячейку В1 – название группы.

3. Установим курсор в ячейке А1.

4. Нажмем кнопку Запись макроса… (рис.2)на панели Макросы
(Меню Вид ® Макросы) или воспользуемся командой меню для
MS Office 2003 Сервис ® Макрос ® Начать запись.

Рис. 2. Панель Макросы

5. В диалоговом окне Запись макроса (рис.3) введем имя макроса «Оформление_Ячейки» (имя макроса должно начинаться с буквы и может содержать до 255 символов: буквы, цифры и знаки подчёркивания, а пробелы не допускаются) и сочетание клавиш для дальнейшего вызова макроса – Ctrl + о, выберем место сохранения – «Эта книга» и нажмем кнопку «ОК».

 

Рис. 3. Диалоговое окно Запись макроса

6. Выполним команду Формат ® Ячейки. В диалоговом окне Формат ячеек перейдем на вкладку Шрифт и установим название шрифта Times New Roman, размер – 18 пунктов, начертание – «полужирный».

7. Перейдем на вкладку Вид и выберем цвет заливки ячейки – зеленый.

8. Далее активизируем вкладку Выравнивание и ориентацию текста изменим на 90 градусов.

9. Нажмем кнопку «ОК».

10. Когда выполним все необходимые действия, воспользуемся командой для остановки записи макроса Вид ® Макросы ® Остановить запись.


Рис.4 Панель Макросы

Теперь воспользуемся созданным нами макросом для изменения формата ячейки В1:

1. Активизируем ячейку В1.

2. Воспользуемся комбинацией клавиш Ctrl + о либо выполним команду
Вид ® Макросы ® Макросы и, выбрав в появившемся диалоговом окне макрос «Оформление_Ячейки» (рис. 5), нажмем кнопку «Выполнить».

 

Рис.5 Диалоговое окно Макрос

Чтобы просмотреть полученный при записи макроса код или, если необходимо, отредактировать его, необходимо выполнить следующие действия:

1. Открыть диалоговое окно Макрос (рис. 5) через команду Вид ® Макросы ® Макросы.

2. Выделить имя нужного макроса и нажать кнопку «Изменить». Откроется окно редактора VBА (рис. 6).

 

Отредактируем код созданного в примере макроса, изменив начертание шрифта (FontStyle = «курсив») и цвет заливки ячейки на синий (ColorIndex =5).

Текст кода макроса примет вид:

 

Sub Оформление_Ячейки()

' Оформление_Ячейки

' Макрос записан 14.10.2015
'

' Сочетание клавиш: Ctrl+о '

With Selection

.HorizontalAlignment = xlGeneral

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 90

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False End With

With Selection.Font

.Name = " Times New Roman"

.FontStyle = " курсив"

.Size = 18

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic End With

With Selection.Interior

.ColorIndex = 5

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic End With

End Sub

 

Рис. 6. Окно редактора VB

 

Применим отредактированный нами макрос к ячейке В1, запустив его на выполнение.

 

Существуют несколько способов запуска макроса на выполнение:

1. Запуск макроса с помощью команды Вид → Макросы → Макросы → Выполнить.

2. Запуск макроса с помощью назначенной комбинации клавиш.

3. Назначение выполнения макроса командной кнопке.

4. Назначение выполнения макроса графическому объекту.

 

Для того чтобы создать командную кнопку, с помощью которой будет выполняться макрос (способ 3), необходимо:


1. Добавить на панель быстрого доступа Элементы управления, которые расположены на вкладке Разработчик.

Рис. 7. Диалоговое окно Параметры

2. Нажать на панели быстрого доступа Элементы управления ® Вставить ® Кнопка (рис. 8). Затем поместить указатель мыши в то место, где будет располагаться командная кнопка, и, не отпуская левую кнопку мыши, придать кнопке нужный размер.

Рис.8 Панель инструментов Элементы управления

3. Нажать контекстное меню кнопки и в появившемся диалоговом окне выбрать пункт Назначить макрос… (рис. 9) и указав нужный макрос нажать кнопку «ОК».

Рис. 9. Контекстное меню кнопки

4. Переименовать кнопку в «Оформление ячейки», воспользовавшись командой Изменить текст (рис. 9).

5. Щелкнуть вне кнопки, чтобы снять с нее выделение и теперь, нажав на нее, будет выполняться записанный макрос.

 

Для того чтобы назначить выполнение макроса графическому объекту или изображению(способ 4), необходимо:

 

1. Выполнить команду Вставка ® Фигуры.

Рис. 10. Назначение макроса объектам

2. Выбрать фигуру и, предав ей соответствующие размеры, поместить на Лист.

3. С помощью контекстного меню назначить ей необходимый макрос.

4. Щелкнуть вне фигуры, чтобы выйти из редактирование, и теперь, нажав на нее, будет выполняться макрос.

 

 


Задания к лабораторной работе 1

В соответствии с вариантом (№ п/п) создать макрос, определить комбинацию клавиш для его вызова и назначить макрос кнопке и графическому объекту. Проверить работу макроса. Просмотреть код макроса и отредактировать его, закомментировав некоторые строки, которые не выполняют нужных действий и являются избыточными в коде, и изменив значение одного из свойств, после чего снова запустить макрос на выполнение.

Таблица 1

№ п/п Описание макроса
  Макрос, создающий копию рабочего листа «Лист1», помещаемую после рабочего листа «Лист2».
  Макрос, устанавливающий в ячейке выравнивание по правому краю по горизонтали, по центру по вертикали, а направление текста – «снизу вверх».
  Макрос, производящий автозаполнение ячеек столбца названиями дней двух недель, начиная с понедельника, и изменяющий цвет заливки этих ячеек на бирюзовый.
  Макрос, объединяющий содержимое двух ячеек столбца, устанавливающий выравнивание по правому краю по горизонтали и изменяющий цвет символов.
  Макрос, устанавливающий в ячейке числовой формат с тремя десятичными знаками, выравнивание вверху по центру.
  Макрос, центрирующий по горизонтали содержимое ячейки и изменяющий размер и цвет символов в ячейке.
  Макрос, устанавливающий цвет фона в семи соседних ячейках в соответствии с цветами радуги.
  Макрос, преобразующий данные в ячейке в формат времени (минуты и секунды) и изменяющий размер символов на более крупный.
  Макрос, устанавливающий в ячейке направление текста «сверху вниз», центрирующий содержимое ячейки по горизонтали и вертикали и изменяющий тип шрифта.
  Макрос, добавляющий ниже выделенной ячейки строку, а правее – столбец и изменяющий цвет фона данной ячейки.
  Макрос, производящий автозаполнение ячеек строки названиями месяцев года, начиная с «сентября», и устанавливающий в этих ячейках начертание шрифта «полужирный курсив».
  Макрос, устанавливающий в ячейке формат даты «14 мар 15», изменяющий цвет фона и цвет символов.
  Макрос, добавляющий ниже выделенной ячейки новую строку и устанавливающий в этих ячейках начертание шрифта «полужирный курсив».
  Макрос, объединяющий содержимое трех ячеек строки, устанавливающий выравнивание по горизонтали по левому краю и изменяющий размер символов на более крупный.
  Макрос, преобразующий данные в ячейке в формат даты (число, месяц, год, часы, минуты) и центрирующий содержимое ячейки.
  Макрос, устанавливающий в ячейке числовой формат с двумя десятичными знаками, выравнивание вверху по центру и изменяющий цвет фона и цвет символов.
  Макрос, производящий автозаполнение ячеек строки названиями месяцев года, начиная с «мая» и изменяющий цвет фона и цвет символов.
  Макрос, объединяющий содержимое пяти ячеек строки, устанавливающий выравнивание по правому краю по горизонтали и изменяющий цвет символов.
  Макрос, создающий копию рабочего листа «Лист3», помещаемую после рабочего листа «Лист1».
  Макрос, устанавливающий в ячейке выравнивание по левому краю по горизонтали, по центру по вертикали, а направление текста – «сверху вниз».
  Макрос, создающий копию рабочего листа «Лист2», помещаемую перед рабочим листом «Лист1».
  Макрос, производящий автозаполнение ячеек строки названиями месяцев года, начиная с «марта» и изменяющий цвет фона и цвет символов на желтый.
  Макрос, объединяющий содержимое пяти ячеек строки, устанавливающий выравнивание по вертикали и по правому краю и изменяющий размер символов на более крупный.
  Макрос, устанавливающий в ячейке выравнивание по левому краю по горизонтали, по центру по вертикали, а направление текста – «снизу вверх».
  Макрос, преобразующий данные в ячейке в формат времени (минуты и секунды) и изменяющий размер символов на более крупный.

 

 


Лабораторная работа 2






© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.