перейти к полному списку дипломных проектов
Ссылка на скачивания файла в формате .doc находится в конце странички
CurrentRegion
", vbYesNo + vbQuestion, "Автошкола")
If (answ = 6) Then
Sheets("База").Activate
Sheets("База").Cells(1, 1).Select
all = Selection.CurrentRegion.Rows.Count
s = ListBox1.ListCount
For i = 2 To all
For k = 0 To s - 1
If Sheets("База").Cells(i, 29) = "Ожидает" And (Sheets("База").Cells(i, 2) " " Sheets("База").Cells(i, 3) " " Sheets("База").Cells(i, 4)) = ListBox1.List(k) Then
Sheets("База").Cells(i, 29) = "Обучаемый"
End If
Next k
Next i
Sheets("Данные").Activate
Sheets("Данные").Range("I2") = ed_date
Sheets("Данные").Range("J2") = ed_enddate
Sheets("Данные").Range("H2") = cb_teacher
CreateGroupForm.Hide
GroupForm.Show (0)
End If
End If
If ed_date.Text <> CDate(ed_date.Text) Or ed_enddate.Text <> CDate(ed_enddate.Text) Or CDate(ed_enddate.Text) <= CDate(ed_date.Text) Or ListBox1.ListCount = 0 Then
erin:
If ListBox1.ListCount = 0 Then
x = MsgBox("Группа пуста!", vbCritical + vbOKOnly, "Автошкола")
Else
x = MsgBox("Ошибка в дате!", vbCritical + vbOKOnly, "Автошкола")
End If
End If
End Sub
Кнопка “==>>”:
Private Sub CommandButton1_Click()
Dim i As Integer
For i = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(i) Then
ListBox2.AddItem ListBox1.
скачать бесплатно средства 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
