Типи перемінних, оголошення перемінних, область дії перемінних

Методи

Ø Copy - копіює діапазон в інший діапазон або в буфер обміну. Має один аргумент destination, що визначає діапазон, куди копіюється вихідний. Якщо аргумент опущений, діапазон копіюється в буфер. Наприклад, копіюємо діапазон А1:С4 з одного листа на інший:

Worksheets(“Лист1”). Range(“A1:C4”). Copy

Destination:= Worksheets(“Лист2”). Range(“E5”)

Ø Cut -копіює діапазон із видаленням у зазначений діапазон або буфер обміну. Якщо аргумент destination не зазначений, то діапазон копіюється в буфер обміну.

Ø Delete - видаляє діапазон. У даному прикладі видалиться третій рядок активного робочого листа:

Rows(3). Delete

Ø Columns, Rows - повертає відповідно сімейства стовпчиків і рядків, із яких складається діапазон. Наприклад, у перемінні i та j записуються кількості стовпчиків і рядків у виділеному діапазоні відповідно:

i=Selection. Columns. Count

j= Selection. Rows. Count

Ø Insert - вставка клітини або діапазону клітин відповідно. У прикладі вставляється новий рядок перед четвертим рядком:

Worksheets(“Лист1”). Rows(4). Insert

Ø Select - виділяє діапазон. У прикладі активізується клітина, розташована на три рядка нижче і на два стовпчики лівіше щодо попередньої активної клітини:

ActiveCell. Offset(3,2). Select

Ø PasteSpecial - спеціальна вставка з буфера обміну. Аргумент Paste визначає ту частину вмісту буфера обміну, що повинна бути вставлена в діапазон. Припустимі значення:

· XlPasteAll - усе;

· XlPasteFormulas - формули;

· XlPasteValues - значення;

· XlPasteFormats - формати.

У прикладі діапазон А1:Е5 заповнюється цілими випадковими числами від 0 до 200 (в клітинах записані формули), а потім на інший лист копіюються тільки значення з клітин:

Worksheets(“Лист1”).Range(“A1:E5”). Formula = “=int(rand()*200))”

Worksheets(“Лист1”). Range(“A1:E5”). Copy

Worksheets(“Лист2”). Range(“A1:E5”). PasteSpecial _

paste:=xlPasteValues

Ø AutoFill - автоматично заповнює клітини діапазону елементами послідовності. Вручну цей метод еквівалентний протягуванню маркера заповнення уздовж діапазону, що заповнюється. Аргументи:

· Destination - діапазон, що заповнюється. Повинний містити в собі вихідний діапазон із початковими даними;

· Type - тип заповнення, може приймати одне зі значень: xlFillDefault, xlFillSeries, xlFillCopy, xlFillValues, xlFillDays.

У прикладі клітини В2:В12 заповнюються непарними числами від 1 до 21:

Range(“B2”). Value=1

Range(“B3”). Value=3

Range(“B2:B3”). AutoFill destination:=Range(“B2:B12”)

Ø Find - використовується для пошуку клітини, що містить зазначену інформацію. Повертає покажчик на знайдену клітину або значення Nothing, якщо не знайдено. Вручну метод Find визивається через пункти меню Правка, Найти. Аргументи:

· What - указує, що шукати в діапазоні;

· After - указується перша клітина, після якої провадиться пошук; якщо аргумент опущений, то пошук провадиться у всьому діапазоні;

· Lookin - область пошуку; припустимі значення: xlFormulas - формули, xlValues - значення;

· LookAt - припустимі значення: xlWhole – збіг клітини цілком, xlPart – збіг тільки частини клітини.

У прикладі відшукується й активізується клітина, що містить мінімальне з чисел діапазону:

Range(“E6”). Formula = “=Min(B2:E5)”

Range(“B2:E5”).Find(Range(“E6”).Value,, xlValues, xlWhole).Select

Ø Sort - метод здійснює сортування рядків списків і баз даних, а також стовпчиків робочих листів з урахуванням до трьох критеріїв, по яких провадиться сортування. Синтаксис:

Об'єкт. Sort (key1,order1,key2,order2, key3,order3)

Key - посилання на поле, по якому провадиться сортування;

Order - задає порядок сортування. Припустимі значення:

XlAscending - зростаючий порядок; XlDescending - убутний порядок;

Наприклад, діапазон А1:С20 робочого листа Лист1 сортується в порядку зростання так, що початкове сортування відбувається по першому стовпчику цього діапазону, а другорядне - по другому:

Range(“A1:C20”). Sort key1:=Range(“A1”), key2:=Range(“B1”)

2.4 Приклад макроса

Приклад 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 Мова програмування VBA

(Visual Basic for Application).

Тип даних визначає множина припустимих значень, що може приймати зазначена перемінна. У VBA є такі основні типи даних:

· Byte - байт, для запису цілих чисел від 0 до 255;

· Boolean - логічний, може приймати одне з двох значень - True - істина, або False - неправда;

· Integer - ціле число, може приймати значення від -32768 до 32767;

· Long - довге ціле, у якому зберігаються числа до 2147483648;

· Single – дійсне число з плаваючою комою, у якому зберігаються числа до 3,4*10³⁸;

· Double – дійсне число з плаваючою комою подвійної точності;

· Currency - грошовий;

· Date - дата і час;

· Object - покажчик на об'єкт;

· String - рядок символів;

· Variant - будь-який тип даних, обумовлений при присвоюванні значень.

Оголошення перемінної здійснюється операторами Dim або Public. Dim може знаходитися в процедурі, тоді перемінні є локальними для цієї процедури і не визначені поза нею. Якщо оператор Dim знаходиться в загальній області модуля (вище всіх процедур у вікні модуля), те перемінні визначені в будь-якій процедурі цього модуля, але не визначені в інших модулях проекту. Якщо перемінні оголошені оператором Public у загальній області модуля, то вони визначені у всіх модулях і формах проекту, тобто

є глобальними.

Мал. 3. Вікно модуля з оголошенням перемінних.

Наприклад, на малюнку 3 приведене вікно модуля, у якому:

· у загальній області об'являється перемінна St, що може бути використана у всіх модулях і формах проекту, тому що вона оголошена як глобальна перемінна;

· у загальній області об'являється перемінна k, що може використовуватися у всіх процедурах даного модуля, але не існує в інших модулях і формах проекту;

· у процедурі Пример1 об'являються три перемінних a, d, s різних типів, що можуть використовуватися тільки в цій процедурі.

Дата добавления: 2014-10-23