Создание модулей работы кнопок формы приложения

Работа кнопки Выдать справку состоит в считывании введенной информации в текстовые поля формы приложения, передаче их значений переменным формы шаблона документа с дальнейшим выводом информации в шаблон документа.

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. Разработать форму бланка почтового перевода для облегчения труда сотрудников, связанных с частым оформлением денежных переводов.

Готовый шаблон документа и форма даются на рис. 90 и 91.

Рис. 90.Пример упрощенного бланка почтового перевода с текстовыми изменяющимися полями (шаблон документа)

Рис. 91.Форма Рассылка в режиме выполнения для примера 40

Часть III
Программирование на VBA в Excel

Глава 7
Особенности использования VBA в Excel