Використання елементів управління в книгах і листах Microsoft Excel (реферат)

Вихідний код мовою VBA

Звичайно, основна мета виконання приведеного вище прикладу полягає не в
тому, щоб показати, як створюються макроси, а в тому, щоб зрозуміти, як
записується макрос у кодах Visual Basic for Applications. Скористайтеся
командою Сервис|Макрос|Макросы, щоб відкрити діалогове вікно Макрос.
Виберіть макрос Рейтинг і клацніть на кнопці Изменить. При цьому
відкриється вікно редактора Visual Basic Editor, показане на рис. 8.7.
Як видно з малюнка, код програми мовою Visual Basic for Applications
з’явиться праворуч — у вікні Модуль.

Текст програми буде виглядати так:

Sub Рейтинг()

‘ Рейтинг макрос

‘ Макрос записаний 19.12.2003 (computer)

    Range(“B1”).Select

    ActiveCell.FormulaR1C1 = “Атестація”

    Range(“C1”).Select

    ActiveCell.FormulaR1C1 = “=TODAY()”

    Range(“B2”).Select

    ActiveCell.FormulaR1C1 = “Курс”

    Range(“A3”).Select

    ActiveCell.FormulaR1C1 = “Група”

    Range(“A3:A4”).Select

    Range(“A4”).Activate

    With Selection

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlBottom

        .WrapText = False

        .Orientation = 0

        .AddIndent = False

        .IndentLevel = 0

        .ShrinkToFit = False

        .ReadingOrder = xlContext

        .MergeCells = False

    End With

    Select????????????????

    ActiveCell.FormulaR1C1 = “Кількість оцінок”

    Range(“B3:E3”).Select

    Range(“E3”).Activate

    With Selection

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlBottom

        .WrapText = False

        .Orientation = 0

        .AddIndent = False

        .IndentLevel = 0

        .ShrinkToFit = False

        .ReadingOrder = xlContext

        .MergeCells = False

    End With

    Selection.Merge

    Range(“F3”).Select

    ActiveCell.FormulaR1C1 = “Середній бал”

    Range(“F3:F4”).Select

    With Selection

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlBottom

        .WrapText = False

        .Orientation = 0

        .AddIndent = False

        .IndentLevel = 0

        .ShrinkToFit = False

        .ReadingOrder = xlContext

        .MergeCells = False

    End With

    Selection.Merge

    ActiveWindow.SmallScroll ToRight:=-1

    Range(“B4”).Select

    ActiveCell.FormulaR1C1 = “5”

    Range(“C4”).Select

    ActiveCell.FormulaR1C1 = “4”

    Range(“D4”).Select

    ActiveCell.FormulaR1C1 = “3”

    Range(“E4”).Select

    ActiveCell.FormulaR1C1 = “2”

    Range(“A1:F4”).Select

    Selection.Font.Bold = True

    With Selection

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlBottom

        .WrapText =
F???????????????????????????????????????????????????????????????????????
???????????????????

    ActiveCell.FormulaR1C1 = “ФН”

    Range(“A6”).Select

    ActiveCell.FormulaR1C1 = “МХВ”

    Range(“A7”).Select

    ActiveCell.FormulaR1C1 = “УТР”

    Range(“A8”).Select

    ActiveCell.FormulaR1C1 = “ЕК”

    Range(“A9”).Select

    ActiveCell.FormulaR1C1 = “Всього”

    Range(“B9”).Select

    ActiveCell.FormulaR1C1 = “=SUM(R[-4]C:R[-1]C)”

    Range(“B9”).Select

    Selection.AutoFill Destination:=Range(“B9:E9”), Type:=xlFillDefault

    Range(“B9:E9”).Select

    Range(“F5”).Select

    ActiveCell.FormulaR1C1 = “=AVERAGE(RC[-4]:RC[-1])”

    Selection.AutoFill Destination:=Range(“F5:F9”), Type:=xlFillDefault

    Range(“F5:F9”).Select

    Range(“B5”).Select

End Sub

Дії, виконані по ходу створення макросу, записуються в одній або
декількох рядках модуля мовою Visual Basic. Причому різні фрагменти
модуля офарблюються в різні кольори: для виділення коментарів
використовується зелений колір, для виділення ключових слів — синій, а
для всіх інших фрагментів — чорний. У випадку запуску цього (або
будь-якого іншого) макросу насправді відбувається запуск програми,
записаної в кодах Visual Basic for Applications. При запуску модуля
виконується кожен рядок програми, записаної на Visual Basic for
Applications, і в результаті Excel виконує відповідні дії.

Коментарі

B*

ue n

????¤?¤?$???????F??F?FIFeF

????¤?¤?$???????F? апострофа. У прикладі процедури, розглянутому вище,
коментарі виглядають у такий спосіб:

‘ Рейтинг макрос

‘ Макрос записаний 19.12.2003 (computer)

Тут Excel використовує як коментарі текст, введений раніше у рядках Імя
макросу й Описание диалогового окна Запись макроса. Але можна додавати
коментарі в будь-яке місце програми, ввівши спочатку апостроф, а потім
потрібний текст. Коментарі дуже корисні при написанні складних програм,
оскільки вони нагадують про те, що виконує та або інша процедура.
Коментар може займати весь рядок або її частину, розташовуючи після
оператора мови Visual Basic for Applications і починаючи з апострофа.
При виконанні програми всі символи, що стоять за апострофом, будуть
ігноруватися.

Заголовок і кінець процедури. Перед коментарем йде рядок, у якому
записано:

Sub  Рейтинг()

В останньому рядку записано:

End  Sub

Це рядки заголовоку і кінеця процедури. Кожна процедура мовою Visual
Basic for Applications починається з Sub або Function і закінчується
рядком End Sub або End Function. У мові Visual Basic for Applications
передбачено два типи підпрограм: процедури і функції. Функції схожі на
функції, вбудовані в Excel. На вхід функції надходить деяке значення
(або декілька значеннь), потім над цим значенням виконуються визначені
дії і повертається результат обчислень. Процедура не повертає значення
(хоча з неї можна передати значення за допомогою спеціальних
операторів). Параметри, передані у функцію, вказуються в круглих дужках
у заголовку. Підпрограма завершується рядком, що містить End Sub або End
Function, що повідомляє Excel про те, що досягнуть кінець підпрограми.
При досягненні кінця процедури управління передається в процедуру яка
викликала цю процедуру. Якщо дана процедура не була викликана з іншої
процедури, то керування передається програмі Excel.

Виділення і введення даних, керуючі оператори

Після коментаря процедури ідуть два рядки, у яких записане, що потрібно
виділити клітинку В2 і ввести в неї текст:

Range(“B1”).Select

ActiveCell.FormulaR1C1 = “Атестація”

Оператор Range повідомляє Excel, що необхідно виділити діапазон
клітинок. Оскільки в круглих дужках зазначена адреса тільки однієї
клітики (В1), Excel виділить тільки клітинку з цією адресою. Наступний
оператор повідомляє Excel, що потрібно ввести текст (у даному випадку
фразу “Атестація:”) у виділену клітинку робочого листа (у даному випадку
в клітинка В1).

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

Selection.Font.Bold = True

Після обробки цього запису символам виділеної клітинки (або клітинок)
призначається напівжирний шрифт.

В коді програми можна використовувати символ продовження
(підкреслювання). Символ підкреслення наприкінці першого рядка вказує,
що запис визначеної дії продовжується в наступному рядку. (Якщо
наприкінці рядка немає символу підкреслення, то відповідно до синтаксису
Visual Basic for Applications цей рядок розглядається як закінчений
оператор.)

Працюючи з Visual Basic for Applications, ви знайдете, що за допомогою
операторів виділення, введення даних і керуючих операторів можна
виконувати будь-які дії.

Створення діалогових вікон

Одна з переваг роботи з мовою Visual Basic полягає в тому, що користувач
може не тільки використовувати засіб запису макросів, але і сам писати
програми, що будуть виконувати конкретні дії (наприклад, відкривати
діалогові вікна, створені користувачем), тобто те, що не можна зробити
за допомогою макросів. Для того щоб відкрити на екрані діалогове вікно з
визначеним повідомленням, скористайтеся функцією MsgBox. Синтаксис
виклику цієї функції має такий вигляд:

MsgBox(prompt[, buttons] [, title] [, helpfile, context])

В круглих дужках цієї функції стаять аргументи, які може приймати ця
функція (квадратні дужки означають, що даний аргумент можна пропустити).
Першим аргументом цієї функції є повідомлення (prompt), яке буде
з’являтись у діалоговому вікні, buttons – типи кнопок, які будуть
використовуватись в вікні ( по замовчуванню буде тільки одна кнопка OK),
title – заголовок цього вікна, helpfile і context – відносяться до
довідки, яку можна викликати з цього діалогового вікна.  

В найпростішому випадку можна використовувати цю функцію з одним
аргументом – повідомленням, наприклад, в нашому випадку, в кінці
макросу, перед End Sub, введіть:

MsgBox(“Введіть  кількість  оцінок в кожній групі”)

Вийдіть з редактора перейдіть на новий робочий лист і виберіть команду
Сервис|Макрос|Макросы. У діалоговому вікні Макрос виберіть макрос
Рейтинг і клацніть на кнопці Выполнить. При виконанні макросу на екрані
з’явиться діалогове вікно, як на рис .8.8. Такі діалогові вікна можна
використовувати як путівники, що вказують користувачеві, що потрібно
робити далі.

Рис. 8.8 – Діалогове вікно, створене з допомогою функції MsgBox.

Введення інформації

Мовою Visual Basic можна написати програми, що будуть виводити на екран
запит, або обробляти відповідь користувача. Щоб ввести якусь інформацію,
потрібно скористатися функцією InputBox, що виконує практично ті ж дії,
що і функція MsgBox, але при роботі з функцією InputBox у діалоговому
вікні буде присутній рядок введення. Значення, що користувач введе в
цьому рядку, і буде результатом роботи даної функції.

 Ця функція має приблизно ж такий синтаксис як і функція MsgBox:

InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile,
context])

Тут немає аргумента buttons, проте є два аргумента xpos та ypos які
вказують в пікселях, як і де буде розташований рядок введення в
діалоговому вікні.

Створимо діалогове вікно з використанням функції InputBox. Перейдіть до
модуля, що був створений у ході виконання вправи, і включіть в нього
функцію InputBox. Скористайтеся командою Сервис|Макрос|Макросы, щоб
відкрити діалогове вікно Макрос. Виберіть макрос Рейтинг і клацніть на
кнопці Изменить, щоб відкрити вікно редактора Visual Basic Editor.
Знайдіть рядок:

ActiveCell.FormulaR1C1 = “Курс”

Помістіть курсор наприкінці цього рядка і натисніть клавішу , щоб
вставити порожній рядок. У наступних двох рядках введіть:

Range(“С2”).Select

ActiveCell.FormulaR1C1  =  InputBox(“Введіть курс:”)

Рис 8.9. Діалогове вікно, створене з допомогою функції MsgBox

Вийдіть з редактора, а потім перейдіть на нову сторінку і знову
виконайте макрос. (Використовуйте команду Сервис|Макрос|Макросы. У
діалоговому вікні Макрос виберіть макрос Рейтинг і клацніть на кнопці
Выполнить.) При виконанні макросу на екрані з’явиться діалогове вікно,
показане на рис.8.9, у яке потрібно ввести ім’я співробітника. Введене
ім’я буде розміщено в клітинці С2 робочого листа.

Редагування програм

Перейшовши на сторінку модуля, можна вводити будь-які оператори мови
Visual Basic for Applications точно так само, як і текст при роботі з
текстовим процесором.

Якщо лист модуля відкритий, можна вставити в програму, розміщену на цій
сторінці, текст іншої програми. Щоб додати до однієї програми текст
іншої програми, помістите курсор у те місце програми, куди буде
уставлений фрагмент іншої програми, і виконаєте команду Вставка|Файл. У
діалоговому вікні Вставка файлу вкажіть ім’я файлу, що містить текст
програми, яку потрібно додати до тексту програми на сторінці модуля, і
клацніть на кнопці ОК.

Отже, без перебільшення можна сказати, що той, хто намагається писати
програми мовою Visual Basic for Applications, занурюється в захоплюючий
світ програмування. Хоча ви, напевно, ще не зовсім уявляєте собі, яким
могутнім засобом є VBA, проте тепер ви знаєте, як з його допомогою
створювати макроси, що будуть виконувати різні задачі (наприклад,
створювати діалогові вікна і меню). Однак це далеко не усе, що можна
робити за допомогою цього засобу програмування. У папці Examples, що
зберігається в папці Microsoft Office ви знайдете кілька програм мовою
Visual Basic for Applications (якщо при установці Excel були
встановленні ці приклади).

Підсумовуючи, можна сказати, що створюючи програми на Visual Basic for
Applications, ви зможете автоматизувати, або визначити хід виконання тих
або інших задач у додатках Microsoft Office.

ЛІТЕРАТУРА

Бухвалов А.В. и др. Финансовые вычисления для профессионалов.- СПб.:
БХВ-Петербург, 2001.-320с. ил.

Гарнаев А.Ю. Excel, VBA, Internet в экономике и финансах.- СПб.:
БХВ-Петербург, 2001.- 816с.:ил.

Евдокимов В.В. и др. Экономическая информатика. Учебник для вузов. Под
ред. Д.э.н., проф. В.В.Евдокимова. – СПб.: Питер, 1997. – 592с.

Згуровський М.З., Коваленко І.І., Міхайленко В.М. Вступ до комп’ютерних
інформаційних технологій: Навч.посіб. – К.: Вид-во Європ. ун-ту
(фінанси, інформ. системи, менеджм. і бізнес), 2000.- 265 с.

Информатика. Базовый курс/ Симонович С.В. и др.- СПб.: Питер, 2000.-
640с.:ил.

Карлберг, Конрад. Бизнес-анализ с помощью Excel.: Пер с англ.- К.:
Диалектика, 1997.- 448с.: ил.

Лук‘янова В.В. Комп‘ютерний аналіз даних: Посібник. – К.: Видавничий
центр „Академія”, 2003. – 344с. (Альма-матер)