Приклад vba процедури

Private Sub Ціна_After Update ()

Dim dbs As Database

‘ ”dbs” – об’єктна змінна типу Recordset Database для збереження (посилання) на об’єкт (БД).

Dim stab As Recordset

‘ “stab” – об’єктна змінна типу Recordset для збереження посилання на об’єкт, який

‘ представляє собою набір записів. Об’єкт Recordset дозволяє отримати доступ до записів.

Dim Col As Integer

‘ Визначення числової змінної для лічильника.

Set dbs= CurrentDb ()

‘ Запис в об’єктну змінну dbs посилання на текучу БД.

Set = dbs. Open Recordset (“Вироби”, db OpenTable)

‘ Створення в поточній БД об’єкта Recordset на основі таблиці Вироби.

col=0

‘ Обнулення лічильника, для визначення кількості обновлених записів.

Do Until stab.EOF

‘ Цикл Do Until …… Loop – для перегляду усіх записів з набору stab.

stab.Edit

‘ Відкриття режиму редагування текучого запису набору.

If stab!код=Forms!Вироби!код1

col= col+1

stab!Ціна= Forms!Вироби!ціна1

‘ Порівняння коду виробу з заданим у формі.

‘ Присвоєння нової ціни для вибраного виробу.

stab.Update

‘ Обновлення запису.

End if

stab.MoveNext

‘ Перехід до наступного запису набору Loop.

stab.Close

‘ Закриття об’єкту Recordset.

MsgBox “Оновлено записів: ”&col

End Sub

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

1. Де доцільно використовувати інструкцію Dim ?

2. Як оголосити масив з використанням інструкції Dim?

3. Де використовується конструкція Do…Loop ?

4. Які способи задання зсилок на об’єкти всередині функцій ви знаєте?

5. Як описати об’єкт на нижньому рівні?

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

Тема: Програмування на VBA в Microsoft Excel.

Мета: Навчитися програмувати на VBA в Microsoft Excel.

Теоретичні відомості

Табличні процесори (електронні таблиці) - це універ­сальні програмні засоби для автоматизації роботи з таблич­ними даними та розрахунків над ними.

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

Табличні процесори не тільки автоматизують розрахун­ки, а й також є ефективним засобом для аналізу можливих варіантів розрахунків. Змінюючи значення одних параметрів можна спостерігати за змінами інших, залежних від них даних. Такі розрахунки здійснюються швидко і без поми­лок, надаючи користувачу в лічені хвилини велику кількість варінтів розв'язання задачі. Все це дозволяє вважати елект­ронну таблицю обов'язковим елементом інженерної, управлін­ської і наукової діяльності.

Серед найбільш відомих табличних процесорів слід відзна­чити SuperCalc (Операційна система DOS), Lotus 1-2-3 (DOS, Windows), Quattro Pro та Excel (Windows).

У зв'язку з стрімким ростом популярності пакетів офісних програм Microsoft Office для операційних систем Windows де-факто стандартом табличного процесора став Microsoft Excel.

Можливості Ехсеl’у набагато ширші від звичного розумін­ня терміну «табличний процесор». Обробка тексту, статис­тичний аналіз та прогнозування, ділова графіка, управління базами даних - програма настільки потужна, що у багатьох випадках переважає спеціалізовані програми - текстові редактори чи системи керування базами даних.

База даних в Excel - це послідовний набір рядків з однако­вою структурою інформації у стовпцях. Такі рядки можна вважати записами бази даних. Кожен із стовпців, що викорис­товується для зберігання даних, розглядається як поле да­них, тобто окремий складовий елемент запису. Таким чином, певна область суміжних комірок електронної таблиці може бути базою даних, що містить до 16383 записів (перший ря­док електронної таблиці відводиться для назв полів), кожен з яких може містити не більше 256 полів. Для більшості прак­тичних застосувань такі розміри бази даних є достатніми.