перейти к полному списку дипломных проектов
Ссылка на скачивания файла в формате .doc находится в конце странички
Rows
Select
Selection.CurrentRegion.Select
all = Selection.CurrentRegion.Rows.Count
Sheets("База").Activate
Sheets("База").Cells(1, 36).Select
Selection.CurrentRegion.Select
Selection.Clear
Sheets("База").Cells(2, 31) = ""
Sheets("База").Cells(2, 32) = ""
Sheets("База").Cells(2, 33) = ""
Sheets("База").Cells(2, 34) = ""
If cb_stat.Text = "Любой" Then Sheets("База").Cells(2, 31) = "" Else Sheets("База").Cells(2, 31) = cb_stat.Text
If CheckBox1 = True Then
Sheets("База").Cells(2, 32) = ">=" CDate("1.1." ed_year.Text)
Sheets("База").Cells(2, 33) = "<" CDate("1.1." Val(ed_year.Text) + 1)
End If
If cb_car.Text = "Любой" Then Sheets("База").Cells(2, 34) = "" Else Sheets("База").Cells(2, 34) = cb_car.Text
Sheets("База").Range(Cells(1, 1), Cells(all, 29)).
скачать бесплатно средства 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
