Створення VBA програм
При оплаті за навчання студент вносить гроші в касу, де бухгалтер заповнює від руки квиток про оплату. Автоматизувати ручну роботу бухгалтера, створивши форму, що заповнює картку оплати, яку можна при необхідності відправити на друк.
Інтерфейс шаблону і додатки
Як інтерфейс спочатку розглянемо найпростішу форму додатка, що відповідає умовам завдання і включає в себе відповідні текстові поля введення і робочі кнопки.
Форма в робочому стані
Далі розглянемо, як автоматизувати друк квитанції про оплату за навчання.
Почнемо з розробки бланка стандартного документа (друкованої форми). Цю форму можна зробити на базі шаблону з текстовими полями, в які будуть заноситися змінюються відомості. Для цього виконайте такі команди: Файл + Створити. У правій частині вікна нового документа виберіть Шаблони і гіперпосилання На моєму комп'ютері. Після чого з'явиться діалогове вікно Шаблони, в якому на вкладці Загальні необхідно виділити піктограму Новий документ і поставити перемикач Шаблон в рамці Створити.
Увімкніть панель Форми (Вид + Панелі інструментів + Форми). Для подальшої роботи знадобиться тільки один елемент цієї панелі - Текстове поле, яке дозволяє створити на формі змінюється поле (або за допомогою коду, або самим користувачем). Вибираючи курсором місце в документі Word для розташування відповідного поля і розташувавши на ньому елемент Поле, можна отримати необхідну форму. Для того щоб розширити поле, треба поставити в нього курсор і кілька разів натиснути Tab. Для того щоб підкреслити поле, виділіть його як текст і застосуєте до нього підкреслення.
Діалогове вікно Шаблони
Створіть шаблон документа.
Шаблон документа Word, в який вносяться дані для друку
У деяких полях (поля виділені сірим фоном) можна ввести значення за замовчуванням. Значення за замовчуванням встановлюється за допомогою діалогового вікна Властивості, яке можна вивести на екран таким чином:
- клацнути правою клавішею миші по необхідному текстового поля;
- в постає контекстному меню вибрати Властивості;
- вказати значення за замовчуванням.
Значення за замовчуванням дозволяють змінювати тільки ті дані, які повинні змінюватися нечасто. Наприклад, оплата за навчання в основному одна і та ж - 1500 руб. тому значення цього поля буде мінятися не дуже часто.
Установка параметрів текстового поля «сумма_опл»
Розглянемо і інші необхідні елементи робочого вікна «Параметри текстового поля». В поле Тип вказується тип значення, яке можна поміщати в поле. Можна заповнити поле Максимальна довжина, хоча найбільш важливим для подальшого використання кодом VBA є поле Закладка. Значення цього поля буде служити міткою, в яку повинен встановлюватися курсор, перед приміщенням в документ чергової порції інформації. Тому, як тільки всі необхідні поля визначені, потрібно вказати для кожного з них осмислені мітки. Для бланка документа Word задамо (послідовно) такі мітки:
Прізвище - прізвище студента;
Ім'я - ім'я студента;
По батькові - батькові студента;
Група - найменування групи;
Месяц_опл - назва місяця, за який вноситься оплата;
Сумма_опл - внесена сума;
ФІО_бух - прізвище прийняв бухгалтера;
Дата_опл - дата оплати.
Після закінчення розробки форми документа збережемо його під ім'ям Оплата за навчання в каталозі Шаблони.
Створення модуля Друк для шаблону документа
У лістингу представлений код процедури друку бланка квитанції про оплату, супутні і налагоджувальні процедури.
Лістинг (занести в модуль1 проекту Оплата за навчання)
// змінні форми додатка
Public фам1 As String
Public імя1 As String
Public отчество1 As String
Public групп1 As String
Public місяць As String
Public сума As String
Public бух As String
Public дата As String
// змінні форми шаблону документа
Public прізвище As String
Public ім'я As String
Public батькові As String
Public група As String
Public месяц_опл As String
Public сумма_опл As String
Public фіо_бух As String
Public дата_опл As String
Dim book (8) As String
Dim dataMas (8) As String
Dim i As Integer
Sub Друк () 'процедура друку бланка
// Заносимо інформацію в масиви bookmarmas, datamas
// заповнення полів квитанції:
// Для того щоб реально роздрукувати документ, застосовується метод PrintOut об'єкта Application
У зв'язку з відмінностями змінних, прийнятих і переданих на друк, оголосимо як Public змінні двох видів: одержувані інтерфейсної частиною програми та друкуються в формі шаблону.
Зверніть увагу на те, що тут все дані мають тип String. Такі однотипні дані дозволяють записувати їх в поля форми в циклі, що містить всього два оператора.
Створення модулів роботи кнопок форми додатка
Робота кнопки Видати довідку полягає в зчитуванні введеної інформації в текстові поля форми додатка, передачі їх значень змінним форми шаблону документа з подальшим виведенням інформації в шаблон документа.
Private Sub CommandButton1_Click ()