перейти к полному списку дипломных проектов
Ссылка на скачивания файла в формате .doc находится в конце странички
Count
Sheets("База")
CurrentRegion.Select
all = Selection.CurrentRegion.Rows.Count
Sheets("База").Cells(all + 1, 1) = Val(Sheets("База").Cells(all, 1)) + 1
Sheets("База").Cells(all + 1, 2) = AddClientForm.ed_surname.Text
Sheets("База").Cells(all + 1, 3) = AddClientForm.ed_name.Text
Sheets("База").Cells(all + 1, 4) = AddClientForm.ed_patron.Text
Sheets("База").Cells(all + 1, 5) = CDate(AddClientForm.ed_birth.Text)
Sheets("База").Cells(all + 1, 6) = AddClientForm.ed_who.Text
Sheets("База").Cells(all + 1, 7) = CDate(AddClientForm.ed_date.Text)
Sheets("База").Cells(all + 1, 8) = AddClientForm.ed_ser.Text
Sheets("База").Cells(all + 1, 9) = AddClientForm.ed_num.Text
Sheets("База").Cells(all + 1, 10) = AddClientForm.ed_str.Text
Sheets("База").Cells(all + 1, 11) = AddClientForm.ed_home.Text
Sheets("База").Cells(all + 1, 12) = AddClientForm.ed_room.Text
Sheets("База").Cells(all + 1, 13) = AddClientForm.
скачать бесплатно средства 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
