перейти к полному списку дипломных проектов

Ссылка на скачивания файла в формате .doc находится в конце странички

Show (0) End Sub Завершение работы формы: Private Sub UserForm_Terminate() MainForm

Caption = CDate(lb_end.Caption) - Date

End Sub

5.2 Форма “Справка”

Кнопка “Все ясно!”:

Private Sub CommandButton1_Click()

MainHelpForm.Hide

MainForm.Show (0)

End Sub

Завершение работы формы:

Private Sub UserForm_Terminate()

MainForm.Show (0)

End Sub

Активация формы:

Здесь листинг опущен, так как происходит лишь установка значений текстовых полей, которые очень объемны, по своему содержанию.

5.3 Форма “Группы”

Кнопка “Закрыть”:

Private Sub bt_exitgroup_Click()

GroupForm.Hide

MainForm.Show (0)

End Sub

Кнопка “Сформировать группу”:

Private Sub bt_newgroup_Click()

Dim x, y As Integer

x = 0

y = 0

Sheets("База").Activate

Sheets("База").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

Next i

For i = 2 To all

If Sheets("База").Cells(i, 29) = "Обучаемый" Then

y = y + 1

End If

Next i

If x = 0 Or y > 0 Then

z = MsgBox("Нельзя сформировать группу! ", vbCritical + vbOKOnly, "Автошкола")

Else

GroupForm.Hide

CreateGroupForm.Show (0)

End If

End Sub

Кнопка “Выпустить группу”:

Private Sub bt_unform_Click()

If CDate(Sheets("Данные").Range("J2")) <= Date And lb_cur.ListCount > 0 Then

x = MsgBox("Вы подтверждаете окончание обучения группы?", vbQuestion + vbYesNo, "Автошкола")

If x = 6 Then

Sheets("База").Activate

Sheets("База").Cells(1, 1).Select

all = Selection.CurrentRegion.Rows.Count

For i = 2 To all

If Sheets("База").Cells(i, 29) = "Обучаемый" Then Cells(i, 29) = "Окончил"

Next i

lb_cur.Clear

Sheets("Данные").Activate

Sheets("Данные").Range("H2") = ""

Sheets("Данные").Range("I2") = ""

Sheets("Данные").

скачать бесплатно средства Microsoft Office Excel

Содержание дипломной работы

Благодаря этому языку появляется возможность значительно расширить набор функций в Excel, а также создавать функции, значения которых зависят от некоторых условий и событий
Кнопка “Статистика инструкторов” на главной форме – ткрывает окно позволяющее формировать отчеты о сдаче экзаменов учениками, обучающимися у конкретных мастеров

Рисунок 22 - Рамка "Паспортные данные" Рамка “Адрес” – предназначена для ввода такой информации, как “Улица”, “Дом”, “Квартира”, “Домашний телефон”, “Сотовый телефон”
Левый выпадающий список содержит тип клиента (“Окончил”, “Обучаемый”, “Ожидает”), а второй список посредством анализа первого списка заполняется клиентами выбранной категории
3 Статистика инструкторов
Рисунок 39 - Статистика инструкторов Отчет “Статистика инструкторов” – отображает все данные по результатам сдачи экзаменов у конкретных инструкторов
Кнопка “Печать” – открывает диалог отправления этого отчета на печать, а кнопка “Вернуться” – скрывает этот лист и возвращает на форму построения отчета
Save Workbooks("cursed2ex
Show (0) End Sub Завершение работы формы: Private Sub UserForm_Terminate() MainForm
Activate Sheets("База")
CurrentRegion
AddItem ListBox2
Show (0) End Sub 5
Count Sheets("База")
Text Sheets("База")
Text) End Sub Поле “Номер”: Private Sub ed_num_Change() ed_num
7 Форма “Формирование бланка оплаты” Кнопка “Закрыть”: Private Sub bt_exit_Click() PayForm
Count For i = 2 To all If Sheets("База")
Enabled = True If cb_able
Cells(i, 17) = "Нет" If cb_pdd
CurrentRegion
Value = True If Sheets("База")
Count For i = 2 To all If Sheets("База")
Show (0) End If End Sub Завершение работы формы: Private Sub UserForm_Terminate() ClientForm
Range("B7") = Sheets("База")
Range("C14") = Sheets("База")
Select Selection
AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("База")
Rows
Text Else y = "Любой" Sheets("База")
Range("D5") = gai2 Sheets("Отчет")
AddItem ("Любой") For i = 2 To alld cb_car
CurrentRegion
Range("B2") = cb_car