Компьютерная подготовка
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: тесты, диплом
| Добавил(а) на сайт: Ива.
Предыдущая страница реферата | 11 12 13 14 15 16 17 18 19 20 21 | Следующая страница реферата
rng.sort Key1:=sht.Columns("G"), Order1:=xlAscending, Header:=xlNo
End If
End If
sortForm.Hide
End Sub
Module1
Public Type Record
Fam As String
Im As String
Ot As String
street As String
no As String
Flat As String
Phone As Long
End Type
Public Function dbFileName() As String
dbFileName = ThisWorkbook.Path + "phones.db"
End Function
Sub ToolbarExitButton()
If ThisWorkbook.ActiveSheet.Name = "Старт" Then
ExitProject
Else
ThisWorkbook.Worksheets("Старт").Visible = True ' спрятать стартовый лист
ThisWorkbook.Worksheets("Старт").Activate ' сделать активным лист с БД
ThisWorkbook.Worksheets("База данных").Visible = False ' показать базу данных
Рекомендуем скачать другие рефераты по теме: сочинение рассуждение на тему, атанасян решебник.
Категории:
Предыдущая страница реферата | 11 12 13 14 15 16 17 18 19 20 21 | Следующая страница реферата
Главная