2.2 Контрольні питання

1. Що таке процедура VBA, яка її структура? Як створити процеду­ру? Як виконати процедуру?

2. Поняття об'єкта. Властивості і методи об'єкта. Ієрархія об'єктів Excel.

3. Властивості і методи об'єктів Workbook, WorkSheet.

4. Назвіть всі засоби звернення до об'єкта Range.

5. Властивості об'єкта Range (Name, Value, Formula, Cells, Text, Font, Borders , Count, EntireRow, EntireColumns, CurrentRegion, UsedRange ).

6. Методи об'єкта Range (Select, Copy, PasteSpecial, PasteClearContents, AutoFill, AutoFit, Sort).

2.3 Приклад виконання лабораторної роботи

Приклад 2.1. Напишемо процедуру, яка виконує такі дії:

1. Заносить в клітину А1 текст «Кількість одиниць», в клітину В1 текст «Вартість одиниці», в клітину С1 текст «Ціна одиниці», в клітину D1 текст «Загальна вартість».

2. У клітину А2 записує число 1, в клітину А3 число 2 і потім заповнює клітини від А4 до А16 значеннями від 3 до 15;

3. У клітини від В2 до В16 записує випадкові числа з інтервалу від 0 до100 і округляє їх до цілого.

4. Копіює вміст клітин В2:В16 у буфер, а потім вставляє з буфера в діапазон С2:С16 тільки значення з клітин В2:В16.

5. У клітину D2 записує формулу - добуток чисел з клітин C2 і А2 і копіює цю формулу в діапазон D3:D16.

6. Проводить межу під діапазоном А16:D16 подвійною тонкою лінією.

7. У клітину D18 поміщає формулу, що складає усі числа зі стовпчика D.

8. У клітину C19 записує формулу, яка обчислює мінімальне значення з діапазону C2:C16.

9. Знаходить у діапазоні С2:С16 клітину із мінімальним значенням і виділяє її кольором.

10. Сортує список за значеннями третього стовпчика.

Sub Пример21()

Range("A1"). Value = "Кількість одиниць"

Range("B1"). Value = "Вартість одиниці"

Range(“C1”),Value= ”Ціна одиниці”

Range("D1"). Value = "Загальна вартість"

Range("A1:C1"). Select

Selection.Columns.AutoFit ‘ автопідбор ширини стовпчиків

Range("A2"). Value = 1

Range("A3"). Value = 2

Range("A2:A3"). AutoFill Destination := Range("A2:A16")

Range("B2:B16"). Formula = "=INT(RAND()*100)"

Range(“B2:B16”). Copy

Range("C2"). PasteSpecial xlPasteValues

Range("D2"). Formula = "=A2*C2"

Range("D2"). Copy Destination := Range("D3:D16")

Range("A16:D16"). Borders(xlEdgeBottom). LineStyle = xlDouble

Range("D18"). Formula = "=SUM(D2:D16)"

Range("C19"). Formula = "=MIN(C2:C16)"

Range("C2:C16"). Find(Range("C19"). Value, , xlValues, xlWhole). Select

ActiveCell. Interior. ColorIndex = 4

Range("A2:D16"). Sort key1 := Range("C1")

End Sub

3 Лабораторна робота №3

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

Мета роботи: Вивчити введення і виведення за допомогою діалогових вікон, умовний оператор, оператор Select case, використання формул.

3.1 Виконайте наступне завдання, написавши для кожного пункту окрему процедуру.

Усі вхідні дані необхідно вводити за допомогою InputBox, а результати роботи програм виводити на новий Лист Excel і в діалогове вікно MsgBox.

Варіант 1.

1. Введіть два числа. Більше з них виведіть на Лист Excel.

2. Дано число (<100). Знайти суму його цифр.

3. Показання електричного лічильника рівні М кВт. Обчислити вар­тість використаної електроенергії, якщо розрахунок ведеться за таким тарифом:

15 коп. за 1квт за перші 500 кВт;

18 коп. за 1 кВт, якщо використано більш, ніж 500 кВт і менш, ніж1000 кВт;

22 коп. за 1 кВт, якщо використано більше 1000 кВт.

Варіант 2.

1. Введіть два числа. Обчисліть їхню суму, добуток, різницю.

2. Дано два числа. Більше з них замініть напівсумою цих чисел.

3. Оклад службовця дорівнює М гривень. З нього утримується прибутковий податок по наступній таблиці:

до 17 гр. – не утримується;

від 17,01 до 85 гр. – 10% від суми, що перевищує 17 гр.;

від 85,01 до 170 гр – 6,80гр. + 15% від суми, що перевищує 85гр;

від 170,01 до 1200 гр. –19,55 гр. + 20% від суми, що перевищує 170 гр.

Варіант 3.

1. Введіть назву місяця і визначте, до якої пори року він відноситься.

2. Введіть три числа. Знайдіть менше з них.

3. Фірма виплачує наприкінці місяця своїм продавцям премію в розмірі 5%, якщо товару продано на суму менше 1000 гр., і 6%, якщо продано на суму більше 1000 гр. Крім того, розмір премії збільшується на 1%, якщо продавець проробив у фірмі більш 5 років. Обчислити розмір премії продавцю, якщо він продав товару на М гр. і проробив у фірмі К років.

Варіант 4.

1. Дано радіус кола. Знайти довжину окружності С і площа кругу S по формулах: З=2πR і S=πR ² .

2. З клавіатури вводиться номер місяця. Вивести його назву.

3. На складі проходить зниження ціни на товари: якщо товар зберіга­ється більш 10 місяців, те його ціна зменшується в 2 рази, а якщо термін збереження більш 6 місяців і менш (дорівнює) 10 місяцям, то – у 1,5 рази. Обчислити нову ціну товару, якщо первісна його ціна М гр. і дата виготовлення К.

Варіант 5.

1. Катети прямокутного трикутника рівні а і b. Визначте його площу і периметр по формулах: .

2. Студент одержує на іспиті оцінку 2, 3, 4 або 5. Записати її слова­ми: незадовільно, задовільно, добре, відмінно.

3. У магазині існує гнучка система знижок:

• якщо товару придбано не менше, ніж на 1000 гр., то знижка ста­новить 1%;

• додатково за суму, що перевищує 1000 гр. знижка - 2%.