Схема связи форм приложения.

Вызов формы «Справка» осуществляется по нажатию кнопки «Справка» на главной форме «Почта».

Вызов главной формы «Почта производится автоматически при открытии рабочей книги.

Приложение Б

Ниже представлены основные смысловые фрагменты кода программы.

Дублирующиеся фрагменты кода (например, сопроводительной ведомости полученной и отправленной корреспонденции) приводятся 1 раз.

'Обработка нажатия кнопки «Отправить». Добавление данных в исходную таблицу

Private Sub CommandButton11_Click()

Dim Flag As Boolean

Flag = True

If IsNumeric(TextBox6.Text) = False Or IsDate(TextBox1.Text) = False Or ComboBox1.Value = "" Or _

ComboBox1.Value = "" Or TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or _

TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Then Flag = False

If Flag = False Then

a = MsgBox("Данные введены неверно или не полностью", vbCritical, "Ошибка")

Exit Sub

End If

Sheets("Отправленная корреспонденция").Select

Range("A3").Select

Selection.CurrentRegion.Select

i = Selection.Rows.Count

j = i + 3

Range("A" & j).Value = i

Range("B" & j).Value = TextBox1.Text

Range("C" & j).Value = ComboBox1.Value

Range("D" & j).Value = ComboBox2.Value

Range("E" & j).Value = TextBox2.Text

Range("F" & j).Value = TextBox3.Text

Range("G" & j).Value = TextBox5.Text

Range("H" & j).Value = TextBox4.Text