|
Офисное программирование - Создание модулей работы кнопок |
Страница 36 из 51
Создание модулей работы кнопок формы приложения Работа кнопки Выдать справку состоит в считывании введенной информации в текстовые поля формы приложения, передаче их значений переменным формы шаблона документа с дальнейшим выводом информации в шаблон документа.
Option Explicit Private Sub CommandButton1_Click() фамилия = фам1 имя = имя1 отчество = отчество1 группа = групп1 месяц_опл = месяц сумма_опл = сумма фио_бух = бух дата_опл = дата Call Печать End Sub
Процедуры присваивания переменным формы приложения введенных значений в текстовые поля формы.
Private Sub textBox1_change() фам1 = TextBox1.Value End Sub Private Sub textBox2_change() имя1 = TextBox2.Value End Sub Private Sub textBox3_change() отчество1 = TextBox3.Value End Sub Private Sub textBox4_change() групп1 = TextBox4.Value End Sub Private Sub textBox5_change() месяц = TextBox5.Value End Sub Private Sub textBox6_change() сумма = TextBox6.Value End Sub Private Sub textBox7_change() бух = TextBox7.Value End Sub Private Sub textBox8_change() дата = TextBox8.Value End Sub
Откомпилируйте программу и запустите на проверку.
Задача на закрепление материала
Пример 40.[5] Разработать форму бланка почтового перевода для облегчения труда сотрудников, связанных с частым оформлением денежных переводов. Готовый шаблон документа и форма даются на рис. 90 и 91.
Рис. 90. Пример упрощенного бланка почтового перевода с текстовыми изменяющимися полями (шаблон документа)
Рис. 91. Форма Рассылка в режиме выполнения для примера 40
Часть IIIПрограммирование на VBA в Excel
|
|