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

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

AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("База")

Cells(2, 34) = "" Else Sheets("База").Cells(2, 34) = cb_car.Text

Sheets("База").Range(Cells(1, 1), Cells(all, 29)).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("База").Range( _

"AE1:AH2"), CopyToRange:=Sheets("База").Range("AJ1"), Unique:=False

If CheckBox1.Value = True Then y = ed_year.Text Else y = "Любой"

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

all = Selection.CurrentRegion.Rows.Count

For i = 2 To all

If Sheets("База").Cells(i, 58) = "Да" Then ins1 = ins1 + 1

If Sheets("База").Cells(i, 59) = "Да" Then ins2 = ins2 + 1

If Sheets("База").Cells(i, 60) = "Да" Then ins3 = ins3 + 1

If Sheets("База").Cells(i, 58) = "Да" And Sheets("База").Cells(i, 59) = "Да" And Sheets("База").Cells(i, 60) = "Да" Then fins = fins + 1

If Sheets("База").Cells(i, 61) = "Да" Then gai1 = gai1 + 1

If Sheets("База").Cells(i, 62) = "Да" Then gai2 = gai2 + 1

If Sheets("База").Cells(i, 63) = "Да" Then gai3 = gai3 + 1

If Sheets("База").Cells(i, 61) = "Да" And Sheets("База").Cells(i, 62) = "Да" And Sheets("База").Cells(i, 63) = "Да" Then fgai = fgai + 1

Next i

x = MsgBox("По вашему запросу:" vbNewLine "Статус -" cb_stat.Text ", Год рождения: " y ", Автомобиль: " cb_car.Text vbNewLine vbNewLine "Всего записей: " all - 1 vbNewLine vbNewLine "Сдавших внутренний экзамен - ПДД: " ins1 vbNewLine "Сдавших внутренний экзамен - Автодром: " ins2 vbNewLine "Сдавших внутренний экзамен - Город: " ins3 vbNewLine "Итого допущеных до экзамена в ГАИ: " fins vbNewLine "Сдавших экзамен в ГАИ - ПДД: " gai1 vbNewLine "Сдавших экзамен в ГАИ - Автодром: " gai2 vbNewLine "Сдавших экзамен в ГАИ - Город: " gai3 vbNewLine "Итого получивших права: " fgai, vbInformation + vbOKOnly, "Автошкола")

End Sub

Кнопка “Табличный отчет”:

Private Sub bt_tab_Click()

Sheets("Отчет").Visible = True

Dim ins1, ins2, ins3, gai1, gai2, gai3, fins, fgai As Integer

ins1 = 0

ins2 = 0

ins3 = 0

gai1 = 0

gai2 = 0

gai3 = 0

Sheets("База").Activate

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

скачать бесплатно средства 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