Sub Шрифт()
'
' Шрифт Макрос
' Макрос записан дата(автор)
'
With Selection.Font
.Name = "Arial Cyr"
.FontStyle = "обычный"
.Size = 16
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
End Sub
Перший рядок програмного коду – Sub Шрифт() – це назва макросу (процедури), наступні рядки, перед якими стоїть апостроф, є коментарями, що описують макрос. Тіло макросу містить конструкцію With ... End With. Ця конструкція стосується виділеного фрагмента (Selection – виділення), для якого задано властивості шрифту (Font – шрифт), кожна з яких починається в новому рядку з крапки. Перелік властивостей – це всі параметри, які можна встановити в діалоговому вікні Шрифт. Оскільки, в процесі запису макросу змінювався лише колір (ColorIndex = 3) та розмір шрифту (Size = 16), всі інші параметри набувають значення, встановлені за замовчуванням. Макрорекордер автоматично встановлює відступи для кожного рівня (блока) програми.
Тепер з макросом-процедурою можна виконувати всі операції, описані вище.
Знищивши рядки, що містять перелік властивостей, заданих за замовчуванням, отримаємо лише ті, які визначають розмір та колір шрифту. Текст зміненого коду подано на ліст. 2.
Лістинг 2. Змінений код макросу Шрифт()
Sub Шрифт()
With Selection.Font
.Size = 16
.ColorIndex = 3
End With
End Sub
Застосуємо для невідформатованої комірки відредагований макрос Шрифт: результат виконання зміненого макросу не відрізняється від результату виконання первинного.
Продублюємо (створимо копію) у цьому ж модулі процедуру Шрифт, змінивши її назву Шрифт_новий. Змінимо у відповідному рядку тексту нової процедури розмір шрифту (наприклад, на 25 пт) та колір (код кольору 10) (текст процедури Шрифт_новий() показано на ліст. 3).
Лістинг 3. Текст процедури Шрифт_новий()
Sub Шрифт_новий()
With Selection.Font
.Size = 25
.ColorIndex = 10
End With
End Sub
Активізуємо будь-яку заповнену комірку аркуша та запустимо макрос Шрифт_новий(). Після виконання макросу символи у виділеній комірці збільшаться та забарвляться в зелений колір.
2. Процедури очищення. Часто при створенні додатків доводиться створювати процедури очищення діапазонів комірок або цілих аркушів. Використовуючи макрорекордер, текст процедури повного очищення діапазону комірок B4:F9 матиме вигляд, показаний на ліст. 4.
Лістинг 4. Процедура Clear_1()
Sub Clear_1()
Range("B4:F9").Select
Selection.Clear
Range("A1").Select
End Sub
Якщо потрібно очистити лише вміст комірок, залишивши форматування та обрамлення, то 3 рядок процедури набуде вигляду: Selection.ClearContents.
Процедура знищення цілого аркуша матиме вигляд (ліст. 5).
Лістинг 5. Процедура Del_sh()
Sub Del_sh()
Sheets("Лист1").Select
ActiveWindow.SelectedSheets.Delete
End Sub
У 2-му рядку стоїть оператор, в якому виділяється знищуваний аркуш ("Лист1").
3. Процедури перегляду та друку. Створимо процедуру, за допомогою якої можна переглянути заповнений аркуш табеля в режимі попереднього перегляду. Для того, щоб аркуш табеля добре відображався на екрані і, при потребі, був добре роздрукований, необхідно спочатку встановити параметри форматування аркуша, зокрема встановити альбомну орієнтацію сторінки та масштаб відображення такий, щоб аркуш повністю відображався на одній сторінці у висоту та в ширину.
Записана послідовність операторів показана на ліст. 6.
Лістинг 6. Макрос Prn()
Sub Prn()
Sheets("Табель").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("Меню").Select
End Sub
Ця процедура дозволяє переглянути заповнений аркуш у режимі попереднього перегляду і далі, залежно від потреби, або повернутися на аркуш Меню, або роздрукувати документ, натиснувши кнопку Печать у вікні попереднього перегляду.
1. Запустити редактор Excel за допомогою головного меню або піктограми на робочому столі.
2. Документ, який перед вами на екрані, називається Книгою.Кожна Книга містить в собі Листи (автоматично редактор в кожній Книзі розташовує 3 листа), а Листи поділяються на сторінки. Панель Інструментів Excel подібна до панелі інструментів Word, але на ній ще присутній рядок формул, на якому відображаються імена активних осередків та інформація, що в них міститься.
3. Послідовно зробіть активними осередки А1, В2, С4, та зверніть увагу, що при цьому змінюється в рядку формул. Для того, щоб зробити будь-який осередок активним достатньо виділити його мишею. Переміщення по листу здійснюється або за допомоги клавіш управління курсором або за допомогою миші.
4. На листі1 в осередку А1 введіть своє прізвище та ім’я. Ваш запис вийшов за границі осередку, але фактично він знаходиться в А1: якщо ви перейдете до А2, то рядок формул при цьому буде пустий. Поверніться до А1.
5. Об’єднайте осередки, де розташований ваш запис. Для цього виділіть їх, а потім натиснути кнопку (об’єднати та розмістити по центру) або викликати підменю Формат ячеек з меню Формат, вибрати закладку Выравнивание та встановити флажок біля Объединение ячеек.
Примітка. Команда Формат ячеектакож знаходиться у контекстному меню або викликається за допомогою клавіш Ctrl+1.
6. Самостійно ознайомтесь з закладками Выравнивание, Шрифт, Граница, Вид із меню Формат ячеек.
7. За допомогою миші або клавіш Ctrl+PgDown перейдіть на Лист2. Для повернення на Лист1 можна використати клавіші Ctrl+PgUp.
8. Створіть там таку таблицю:
Мат. аналіз
Вищ. Алгебра
Аналіт. Геометрія
Історія
9. За допомогою буфера обміну скопіюйте цю таблицю на Лист1, так щоб перший осередок цієї таблиці розташовувався в осередку С1. Для вставки інформації з буферу обміну не потрібно виділяти всі осередки, достатньо встановити курсор на той осередок звідки почнеться таблиця.
10. Самостійно ознайомтесь з підменю Параметры страницыз меню Файл.
11. Перейменуйте Лист1 на Сесія 1, а Лист2 на Оцінки. Для цього потрібно подвійним натискання миші вибрати потрібний ярличок Листа та ввести нове ім’я поверх старого.
12. Збережіть створений файл до себе в папку під іменем Файл1.
13. Не закриваючи цього файлу створіть новий файл Книга2 та збережіть його, не змінюючи імені.
14. Якщо вам необхідно працювати з декількома Книгами одразу, то для того, щоб полегшити процес відкриття всіх Книг можна зберегти їх як Робочу Область. Для цього виберіть команду Сохранить рабочую область із меню Файл, та збережіть в свою папку під іменем Область1. Зверніть увагу, що розширення файла Область1 буде xlw.
15. Закрийте Excel.
16. Знову запустіть Excel та відкрийте файл Область1. При цьому повинні відкритися файли Файл1 та Книга2
17. Завершіть роботу з редактором Excel.
1. Запустити редактор Excel за допомогою головного меню або піктограми на робочому столі.
2. Відкрити книгу з іменем Файл1, створену в ході минулої роботи.
3. В осередок, де введені ваше прізвище та ім’я необхідно додати по-батькові. Це можна зробити трьома способами:
А) Поставивши курсор на необхідний осередок, зробити подвійне натискання лівої кнопки миші, а потім відредагувати текст;
Б) Поставивши курсор на необхідний осередок, натиснути клавішу F2 та провести редагування тексту;
В) Поставивши курсор на необхідний осередок, натиснути ліву кнопку миші на тексті, який знаходиться в рядку формул. Відредагувавши текст натиснути Enter або кнопку з зеленим маркером в тому ж рядку або клавішу Tab;
4. Починаючи з осередку В1 створіть таку таблицю:
Дата народження
Рік вступу до ДНУ
Ср. Бал атестату
Розмір стипендії
Для вставки рядків можна скористатися меню Вставка®Строки або контекстним меню.
5. В правому стовпчику введіть потрібні дані за такими форматами:
Дата народження
дд.мм.рр.
Рік вступу до ДНУ
Рррр
Ср. Бал атестату
# #,# #
Розмір стипендії
# #,# #р
6. Використовуючи вкладку Число команди Формат ячейки в рядку Дата народження зробити написання місяця буквами.
7. Використовуючи вкладку Число команди Формат ячейки в рядку Ср. Бал атестату зробити 4 знаки після коми.
8. Використовуючи вкладку Число команди Формат ячейки в рядку Розмір стипендії поміняти грошову одиницю на Євро.
9. Відступити один рядок від таблиці, яка була створена в ході минулої роботи, та в першому стовпчику, наприклад це може бути осередок Н1, ввести сьогоднішню дату за форматом дд.мм.гг.
10. Зробити активним осередок Н1.
11. Підвести курсор миші до правого нижнього кута осередку Н1, доки курсор не перетвориться на чорний хрест. Утримуючи ліву кнопку перемістити курсор на чотири рядка вниз.
12. Повернутись до осередку Н1 та зробити теж саме, тільки натиснувши праву кнопку миша, і курсор перемістити на сім осередків вправо. У контекстному меню вибрати команду Заполнить по рабочим дням.
13. Повернутись до осередку Н1 та змінити формат дати на 4 апр 2003.
14. Повторити пункт 11 та вибрати команду Заполнить форматы.
15. Повернутись до осередку Н1 та повторити пункт 11 тільки курсор перемістити на 10 осередків вниз та вибрати команду Прогрессия.
16. В стовпчику Тип встановити флажок на Дата, в полі Шаг введіть 10.
17. В будь-якому сусідньому стовпчику побудуйте арифметичну прогресію в діапазоні (1; 4,5) з кроком 0,3.
1. Запустити редактор Excel за допомогою головного меню або піктограми на робочому столі.
2. Необхідно побудувати таблицю значень функції y = ax2+bx+c на проміжку [0;4] з кроком 0,25. Значення коефіцієнтів взяти a=1, b=2, c=3.
3. Починаючи з осередку А5, за допомогою арифметичної прогресії (см. Л/Р № 8), побудувати проміжок табулювання функції.
4. Осередок В5 зробити активним.
5. В рядку формул натисніть кнопку “=”, а потім введіть формулу А5^2+2*A5+3 і натисніть Ввод.
6. Скопіюйте формулу за допомогою миші в інші необхідні осередки стовпчика В (див. п. 10 л/р №8).
7. Тепер необхідно виконати завдання із пінту 2 з використанням абсолютних посилань.
8. В осередках А1, А2, А3 введіть відповідно коефіцієнти a, b, c.
9. Осередок С5 зробити активним.
10. В рядку формул натисніть кнопку “=”, а потім введіть формулу $А$1*А5^2+$A$*2*A5+$A$3 і натисніть Ввод.
Пояснення: Запис $А$1 є абсолютним посиланням. Знак $ перед літерою А означає, що зафіксовано стовпчик, а перед цифрою – рядок.
11. Скопіюйте формулу за допомогою миші в інші необхідні осередки стовпчика С.
12. Порівняйте результати в стовпчиках В та С, їх результати не повинні відрізнятися.
13. Для побудови графіка функції необхідно зробити активним будь-який осередок з тих, в яких містяться початкові дані.
14. Для виклику Мастера диаграммможна скористатися кнопкою або Вставка®Диаграмма.
15. В полі Тип вибрати тип діаграми Точечная,а в поліВид вибрати Точечная диаграмма со значениями, соединенными сглаживающими линиями. Натиснути Далее.
16. Діапазон даних автоматично охоплює всі три стовпчики. Перейдіть на вкладку Ряд. В полі Ряд виберіть ряд2 та натисніть кнопку Удалить. Це зроблено для того, щоб не будувати два однакових графіка.
17. В полі Имя введіть “Парабола”.
18. Якщо поле Значение Хпорожне або вказано невірний діапазон осередків, де знаходяться значення для підписів по вісі ОХ, то необхідно натиснути кнопку в правій частині поля, потім виділити необхідний діапазон, та натиснути ту саму кнопку.
19. Натиснути Далее.
20. На вкладці Заголовкивводиться назва діаграми та назви осей, але це не э обов’язковим.
21. Самостійно ознайомтесь з іншими вкладками. Натисніть Далее.
22. Вибрати пункт для розміщення діаграми на цьому ж листі та натиснути кнопку Готово.
23. Для подальшого редагування будь-якого елемента діаграми необхідно натискати на ньому праву кнопку миші та вибирати необхідну команду контекстного меню:
23.1. Використовуючи команду Формат рядов даных,зробити маркер червоного кольору та у вигляді трикутника, а лінію зеленого кольору.
23.2. Використовуючи команду Формат области построения,зробити рамку невидимою.
23.3. Використовуючи команду Параметри диаграммы,убрати, а потім повернути легенду.
24. На тому ж проміжку, в стовпчику D побудувати значення функції y = ix, де і – порядковий номер у списку.
25. Використовуючи команду контекстного меню діаграми Исходные данные,додати на діаграму графік функції y = ix.
26. Зберегти файл до себе в папку.
1. Запустити редактор Excel за допомогою головного меню або піктограми на робочому столі.
2. Підготуйте таблицю для побудови графіка функції у = 2х2 + 1 на проміжку (0; 5) з кроком 0,5.
Якщо будь-яка дія часто повторюється, її виконання можна автоматизувати за допомогою макросу. Макрос — це послідовність команд і функцій, що зберігаються в модулі Visual Basic. Їх можна виконувати всякий раз, коли необхідно виконати дану задачу. При записі макросуExcel зберігає інформацію прокожен крок виконання послідовності команд. Наступний запуск макросу викликає повторення («відтворення») команд.
3. Завдання. Необхідно записати макрос для побудови графіка функції.
4. Для того, щоб записати макрос необхідно:
· Сервис®Макрос®Начать запись;
· В полі Имя Макроса ввести назву або погодитись на ту, що запропонована. Введіть Графік;
· В полі Сохранить в, бажано, вибрати Эта книга;
· В полі Сочетание клавиш задати будь-яку клавішу з літерою, але заповнення цього поля не є обов’язковим;
· Натиснути ОК;
· Виконати послідовність дій для побудови графіка функції.(див. Л/Р №9 пп. 13-22) УВАГА!!! Не повинно бути зайвих дій!
· Коли графік побудовано треба закінчити запис макросу за допомогою кнопки (Остановить запись) на панелі інструментів, яка з’явиться, коли ви почнете запис або Сервис®Макрос® ®Остановить запись;
5. Знищить побудований графік.
6. Для запуску макросу необхідно Сервис® Макрос® Макроси, вибрати макрос, який ви записали та натиснути кнопку Выполнить або натиснути задане сполучення клавіш.
7. Самостійно запищіть макрос який би копіював побудований графік на Лист2.
8. Настроювання Панелі інструментів можша робити декількома способами:
8.1. Вид® Панель инструментов, та вибрати необхідну. Виберіть Формы.
8.2. Панель інструментів Форми можна або залишити в області листа або за допомогою миші перевести наверх до інших Панелей інструментів. Зробіть це.
8.3. В правому кінці кожної Панелі інструментів є чорна трикутна стрілка, яка вказує донизу. Натисніть її на панелі інструментів Формыта виберіть команду Добавить или Удалить кнопки.Зніміть маркер біля команди Надпись.
8.4. Для додавання будь-якої кнопки, яка не відноситься до жодної з Панелей інструментів необхідно Сервис® Настройка, вибрити вкладнику Команди. В полі Категориивиберіть Вставка.В полі Команды наведіть курсор на значок Примечание, натисніть ліву кнопку миші та утримуючи її перенесіть на Панель інструментів Формы.
9. Перейдіть на лист, де ви будували графік.
10. На Панелі інструментів Формы виберіть команду Кнопка та натисніть ліву кнопку миші в будь якому місці листа. З’явиться кнопка, а за нею – вікноНазначить макрос объекту.В полы Имя макроса введіть График. Та натисніть ОК. Якщо навколо кнопки присутня смугаста рамка з білими квадратами, то ви ще можете змінити назву кнопки, якщо ні то при наведенні курсору на кнопку він перетворюється на руку і при натисненні лівої кнопки миші виконається макрос.
11. Для зміни назви кнопки необхідно натиснути на ній праву кнопку миші та вибрати Изменить текст.
12. Самостійно додайте до листа кнопку з назвою Копия та назначте їй макрос, якій копіює графік на Лист2.
13. За допомогою Вид®Панель инструментовуберіть панель інструментівФормы.
14. Самостійно розберіться як можна знищити макрос, та які з його параметрів можна змінити.
Питання для самоконтролю:
1. Чи можна змінити сполучення клавіш, за допомогою яких викликається макрос?
2. Чи можна об’єкту кнопка назначити інший макрос, якщо йому вже призначено інший макрос?
3. Чи можна змінити положення та розмір кнопки на листі?
4. Чи можна змінити послідовність команд у вже записаному макросі?
5. Якщо кнопку з макросом скопіювати в буфер обміну, а потім вставити на інший лист, чи буде вона виконувати свою функцію?
Контрольні запитання:
Як здійснюється запуск макрорекордера?
З чого починається запис макроса?
Чим закінчується запис макроса?
Як називається частина макроса, що записується між початком і кінцем?
(об’єднати та розмістити по центру) або викликати підменю Формат ячеек з меню Формат, вибрати закладку Выравнивание та встановити флажок біля Объединение ячеек.
або Вставка®Диаграмма.
(Остановить запись) на панелі інструментів, яка з’явиться, коли ви почнете запис або Сервис®Макрос® ®Остановить запись;