Запис в існуючий макрос нових дій - Призначення макросів

Якщо ви хочете додати макрос нові дії, то вам потрібно включити відповідний режим запису макросу. Для цього виконайте наступні дії:

Зробіть активним модуль, в якому знаходиться макрос.

У тексті програми встановіть курсор в місце введення нових дій.

Виконайте команду Сервіс | Запис макросу | Відзначити позицію.

Тепер ваші дії при записі макросу будуть записуватися в програму з того місця, де ви встановили курсор.

Перейдіть в лист робочої книги, де ви будете записувати нові дії.

Виконайте команду Сервіс | Запис макросу | Записати з позначки.

Починаючи з цього моменту всі ваші дії будуть записуватися у макрос.

Виконайте всі додаткові дії макросу.

Натисніть на кнопку Зупинити запис.

Розглянемо конкретний приклад додавання нових записів.

Корисно спочатку виконати макрос, в який ви збираєтеся додавати нові записи. Тоді вам легше буде орієнтуватися, в якому місці таблиці встановити покажчик перед тим як почати виконувати дії.

Приклад 5. Внесення змін в існуючий макрос

Внесемо зміни в макрос "Заголовок", який був записаний в прикладі 6.2. Зміни будуть стосуватися формату заголовка. Розташуємо заголовок "Типи комп'ютерів" в центрі рядка над назвами типів і введемо інший шрифт для заголовка

Наведемо текст програми, що реалізує макрос "Тема" і вкажемо місце розташування курсору рядком з коментарем " 'місце установки курсору".

Заголовок Макрос призначений пункт меню Сервіс "Тип ЕОМ"

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" < p>ActiveCell. Offset (0; -3). Range ( "A1: D1"). Select

ActiveCell. Activate

Selection. Columns. AutoFi

'місце установки курсору

EndSub

Для внесення нових записів у макрос "Заголовок" виконайте наступні дії:

    - Видаліть коментар в передостанній рядку програми і помістіть там покажчик. - Для того щоб визначити позицію, з якою будуть записуватися нові дії, виконайте перші 5 кроків алгоритму внесення змін до макрос. - Перед тим як виконати 6 крок алгоритму занесення змін до макрос, запустіть макрос "Заголовок". Це дозволить вам визначити положення курсору на робочому аркуші, де будуть вноситися нові дії. - Виконайте 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

WithSelection

. HorizontalAlignment = xlCEnterAcrossSelection

. VerticalAlignment = xlBottom

. WrapText = False

. Orientation = xlHorizontal

EndWith

WithSelection. Font

. Name = "TimesET"

. FontStyle = "Italic"

. Size = 16

. Strikethrough = False

. Superscript = False

. Subscript = False

. OutlineFont = False

. Shadow = False

. Underline = xlNone

. ColorIndex = xlAutomatic

EndWith

EndSub

Перед останнім оператором програми залишилася порожній рядок. Ви можете видалити її.

Тепер результат роботи макросу "Заголовок" має такий вигляд:

Тип комп'ютера

CP_35_SR CP_40_SR CP_55_LS CP_55_SX

Похожие статьи




Запис в існуючий макрос нових дій - Призначення макросів

Предыдущая | Следующая