Курсовая работа: Компьютерная подготовка
Дополнение
Все стандартные панели инструментов скрываются и восстанавливаются при открытии / закрытии книги «Телефонный справочник», а также при переключении между окнами. Во избежание проблем с восстановлением стандартного набора панелей инструментов не рекомендуется самостоятельно менять набор отображаемых панелей инструментов пока описываемая книга остается открыта.
При возникновении любой нестандартной ситуации следует закрыть книгу «Телефонный справочник» и выставить нужные панели через меню «Вид».
Заключение
В ходе выполнения работы были закреплены знания по работе в MSExcel и основам программирования на VBA, а также приобретены практические навыки создания завершенных программных приложений для MSExcel.
Результатом проделанной работы является приложение «Телефонный справочник», функционально выполняющее основные задачи, стоящие перед приложением такого уровня и назначения.
Разумеется, выполненный проект не является завершенным в полной мере. В качестве направлений для развития проекта можно упомянуть, например, более конкретизированный механизм поиска информации или реализация оптимальных методов сортировки (что может быть более эффективным на больших объемах информации).
Список литературы
Потахова И.В. Компьютерная подготовка. Офисное программирование: Учебное пособие. – Томск: Томский межвузовский центр дистанционного образования, 2004. – 181с.
Справочноеруководствопо MS Excel и Visual Basic for Applications: Microsoft Corp., 2001.
Демидова Л.А., Пылькин А.Н. Программирование в среде VisualBasicforApplications: Практикум – М.: Горячая линия – Телеком, 2004. – 175с.
Приложение. Листинг программ VBA
Рабочая книга
Dim oldBars(20) As Long, kol As Integer
PrivateSub Workbook_Activate()
kol = 0
Dim bar As CommandBar
ForEach bar In Application.CommandBars
If bar.Visible AndNot (bar.Protection = msoBarNoChangeVisible) _
And (bar.Type = msoBarTypeNormal) AndNot (bar.Name = "Phones") Then
kol = kol + 1
oldBars(kol) = bar.index
EndIf
Next bar
For i = 1To kol
Application.CommandBars(oldBars(i)).Visible = False
Next
If ThisWorkbook.ActiveSheet.Name = "Базаданных"Then
showTools
EndIf
EndSub
PrivateSub Workbook_Deactivate()