Компьютерная подготовка
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: тесты, диплом
| Добавил(а) на сайт: Ива.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
Все стандартные панели инструментов скрываются и восстанавливаются при открытии / закрытии книги «Телефонный справочник», а также при переключении между окнами. Во избежание проблем с восстановлением стандартного набора панелей инструментов не рекомендуется самостоятельно менять набор отображаемых панелей инструментов пока описываемая книга остается открыта.
При возникновении любой нестандартной ситуации следует закрыть книгу «Телефонный справочник» и выставить нужные панели через меню «Вид».
Заключение
В ходе выполнения работы были закреплены знания по работе в MS Excel и основам программирования на VBA, а также приобретены практические навыки создания завершенных программных приложений для MS Excel.
Результатом проделанной работы является приложение «Телефонный справочник», функционально выполняющее основные задачи, стоящие перед приложением такого уровня и назначения.
Разумеется, выполненный проект не является завершенным в полной мере. В качестве направлений для развития проекта можно упомянуть, например, более конкретизированный механизм поиска информации или реализация оптимальных методов сортировки (что может быть более эффективным на больших объемах информации).
Список литературы
Потахова И.В. Компьютерная подготовка. Офисное программирование: Учебное пособие. – Томск: Томский межвузовский центр дистанционного образования, 2004. – 181с.
Справочное руководство по MS Excel и Visual Basic for Applications: Microsoft Corp., 2001.
Демидова Л.А., Пылькин А.Н. Программирование в среде Visual Basic for Applications: Практикум – М.: Горячая линия – Телеком, 2004. – 175с.
Приложение. Листинг программ VBA
Рабочая книга
Dim oldBars(20) As Long, kol As Integer
Private Sub Workbook_Activate()
kol = 0
Dim bar As CommandBar
For Each bar In Application.CommandBars
If bar.Visible And Not (bar.Protection = msoBarNoChangeVisible) _
And (bar.Type = msoBarTypeNormal) And Not (bar.Name = "Phones") Then
kol = kol + 1
oldBars(kol) = bar.index
End If
Next bar
For i = 1 To kol
Application.CommandBars(oldBars(i)).Visible = False
Рекомендуем скачать другие рефераты по теме: сочинение рассуждение на тему, атанасян решебник.
Категории:
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
Главная