5.4 Створення макросів засобами запису макросів.
Введіть число в будь-яку комірку. Засобами запису макросів створіть макрос (закріпите за ним сполучення клавіш), який би форматував вміст комірки в такий спосіб:
шрифт – Arial;
номер 22;
накреслення – курсив;
колір – ліловий;
Протестуйте створений макрос, використовуючи сполучення клавіш.
Змініть в записаному макросі параметр колір - на червоний.(3)
Використовуючи макрорекордер, створіть два аналогічних макроси, що дозволяють офарблювати дані в комірках, у зелений(7) і синій(10) кольори. Закріпіть усе раніше створені макроси за кнопками на робочому листі, розташувавши їх, як показано на малюнку. Протестуйте створені макроси.
Створіть макроси засобами запису макросів, що дозволяють:
додати новий лист у робочу книгу,
видалити робочий лист із книги,
ввести значення поточної дати в будь-яку комірку.
Закріпіть створені макроси за власними піктограмами в рядку меню.
Створіть макрос під ім'ям ПІДГОТОВКА, який би забирав з робочого листа:
букви стовпців і номера рядків, лінії сітки, смуги прокручування, ярлички аркушів, рядок формули, рядок стану;
усі панелі інструментів;
Створіть засобами запису макросів макрос під ім'ям ПІДГОТОВКА, який би відновлював стандартний вид вікна Microsoft Excel.
5.5 Програмування наVba
1. Написати на VBA макрос, що робить розрахунок суми ряда з 2 л.р.
2. Створити власне меню документу та призначити команду виконання макрому кнопці власного меню.
3. Створити форму з діалоговими вікнами для вводу даних з перевіркою і видачею результатів роботи макросу.
Приклад побудови документу із власним меню
Option Explicit Public Sub CreateCustomMenu() Dim CstmBar As CommandBar Dim CstmPopUp1 As CommandBarPopup, CstmPopUp2 As CommandBarPopup Dim CstmCtrl As CommandBarControl Dim Exist As Boolean 'Выключаем все панели For Each CstmBar In CommandBars CstmBar.Enabled = False Next CstmBar 'Создаем, включаем и делаем видимой собственную панель Exist = False For Each CstmBar In CommandBars If CstmBar.Name = "Головное меню" Then Exist = True Exit For End If Next CstmBar If Not Exist Then Set CstmBar = CommandBars.Add(Name:="Головное меню", _ Position:=msoBarTop, MenuBar:=True, Temporary:=False) End If CstmBar.Enabled = True CstmBar.Visible = True 'Добавляем меню на панель Exist = False For Each CstmCtrl In CstmBar.Controls If CstmCtrl.Caption = "&Ввод документов" Then Exist = True Exit For End If Next CstmCtrl If Not Exist Then Set CstmCtrl = CstmBar.Controls _ .Add(Type:=msoControlPopup, Before:=1) CstmCtrl.Caption = "&Ввод документов" 'Добавляем две команды подменю Set CstmPopUp1 = CstmCtrl.Controls.Add(Type:=msoControlPopup) CstmPopUp1.Caption = " о движении товаров" Set CstmPopUp2 = CstmCtrl.Controls.Add(Type:=msoControlPopup) CstmPopUp2.Caption = " финансовых" 'Добавляем команду в каждое подменю Set CstmCtrl = CstmPopUp1.Controls.Add(Type:=msoControlButton) CstmCtrl.Caption = "Накладная" CstmCtrl.OnAction = "Module1.Invoice" Set CstmCtrl = CstmPopUp2.Controls.Add(Type:=msoControlButton) CstmCtrl.Caption = "Счет" CstmCtrl.OnAction = "Module1.Account" End If End Sub
процедури, що викликаються з команд Накладная и Счет:
Public Sub Invoice() MsgBox ("Накладная!") End Sub Public Sub Account() MsgBox ("Счет!") End Sub
Відновлення стандартного оточення
Public Sub ResetMainMenu() Dim CstmBar As CommandBar 'Включаем все панели For Each CstmBar In CommandBars CstmBar.Enabled = True Next CstmBar Set CstmBar = CommandBars.Item("Menu Bar") CstmBar.Visible = True End Sub