перейти к полному списку дипломных проектов
Ссылка на скачивания файла в формате .doc находится в конце странички
Cells(i, 17) = "Нет"
If cb_pdd
Cells(i, 4)) And Sheets("База").Cells(i, 29) = "Обучаемый" Then
If cb_able.Value = True Then Sheets("База").Cells(i, 17) = "Да" Else Sheets("База").Cells(i, 17) = "Нет"
If cb_pdd.Value = True Then Sheets("База").Cells(i, 15) = "Да" Else Sheets("База").Cells(i, 15) = "Нет"
If cb_help.Value = True Then Sheets("База").Cells(i, 16) = "Да" Else Sheets("База").Cells(i, 16) = "Нет"
If cb_insidepdd.Value = True Then Sheets("База").Cells(i, 23) = "Да" Else Sheets("База").Cells(i, 23) = "Нет"
If cb_insidedrive.Value = True Then Sheets("База").Cells(i, 24) = "Да" Else Sheets("База").Cells(i, 24) = "Нет"
If cb_insidegorod.Value = True Then Sheets("База").Cells(i, 25) = "Да" Else Sheets("База").Cells(i, 25) = "Нет"
If cb_gaipdd.Value = True Then Sheets("База").Cells(i, 26) = "Да" Else Sheets("База").Cells(i, 26) = "Нет"
If cb_gaidrive.Value = True Then Sheets("База").Cells(i, 27) = "Да" Else Sheets("База").Cells(i, 27) = "Нет"
If cb_gaigorod.Value = True Then Sheets("База").Cells(i, 28) = "Да" Else Sheets("База").Cells(i, 28) = "Нет"
Sheets("База").Cells(i, 20) = desc_howmuchdrive.
скачать бесплатно средства 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
