Дипломная работа: Автошкола "Кадиллак"

GroupForm.Show (0)

End Sub

Кнопка “Статистика сдачи ”:

Private Sub bt_stat_Click()

MainForm.Hide

StatForm.Show (0)

EndSub

Кнопка “Статистика инструкторов”:

Private Sub CommandButton1_Click()

MainForm.Hide

InstrForm.Show (0)

End Sub

Кнопка “Справка”:

Private Sub CommandButton2_Click()

MainForm.Hide

MainHelpForm.Show (0)

End Sub

Активация главной формы :

Private Sub UserForm_Activate()

Dim x, y As Integer

x = 0

y = 0

Sheets("База").Activate

Cells(1, 1).Select

all = Selection.CurrentRegion.Rows.Count

For i = 2 To all

If Sheets("База").Cells(i, 29) = "Ожидает" Then

x = x + 1

End If