Информационный сайт

 

Реклама
bulletinsite.net -> Книги на сайте -> Программисту -> Васильев А. -> "VBA в Office 2000 учебный курс" -> 70

VBA в Office 2000 учебный курс - Васильев А.

Васильев А., Андреев А. VBA в Office 2000 учебный курс — Спб.: Питер, 2001. — 432 c.
ISBN 5-8046-0193-8
Скачать (прямая ссылка): vbauchebniykurs2001.djvu
Предыдущая << 1 .. 64 65 66 67 68 69 < 70 > 71 72 73 74 75 76 .. 154 >> Следующая

Создание шаблона
Следует отметить, что использование VBA для автоматизации работы с MS Office может быть очень разнообразным и ограничено только вашими потребностями и фантазией. В качестве практического примера применения VBA далее рассмотрена процедура создания шаблона, включающего в себя несколько модулей, расширяющих стандартные функциональные возможности.
Создание шаблона
189
Хотя этот пример и не позволяет охватить всех возможностей использования VBA, тем не менее он даст представление о принципах использования панелей команд и некоторых принципов программирования.
Например, вам часто приходится оформлять однотипные документы. Для облегчения данной задачи мы можем создать шаблон, который будет содержать панели инструментов со специальными кнопками для выполнения тех или иных действий. Перед тем как приступить к созданию шаблона, давайте сначала познакомимся с процедурой создания кнопок панелей инструментов. В основе работы каждой из кнопок лежит запуск соответствующего ей макроса.
ПРИМЕЧАНИЕ Макросом в большинстве приложений MS Office называется реализованная на языке VBA процедура, содержащаяся в стандартном модуле. В MS Access макросом называется последовательность специальных макрокоманд.
Чтобы создать кнопку на панели инструментов, запускающую макрос, необходимо выполнить следующее:
1. Используя команду Сервис > Настройка или команду Вид > Панели инструментов > Настройка, вызовите окно диалога Настройка.
2. Выберите вкладку Команды, затем нажмите на категории Макросы.
В результате в списке Команды будут отображены все доступные для использования макросы.
3. Выберите в списке Команды нужный макрос и с помощью мыши перетащите его на предварительно открытую панель инструментов. Это приводит к установке кнопки на встроенной панели инструментов.
В том случае, если вы хотите разместить кнопку на собственной панели инструментов, ее сначала необходимо создать. Это можно сделать как с помощью интерфейса пользователя, так и программным способом.
СОВЕТ Для создания панели инструментов удобнее использовать интерфейс пользова-теля. Однако таким способом нельзя создать строку меню (создать строку меню таким образом можно только в MS Access). Поэтому, если вы хотите создать собственную строку меню в MS Excel, используйте программный способ.
Рассмотрим, как можно создать панель инструментов с помощью интерфейса
пользователя:
1. С помощью команды Сервис > Настройка вызываем окно диалога Настройка, изображенное на рис. 7.6.
2. В этом окне диалога нажимаем кнопку Создать.
3. После этого появится окно диалога Создание панели инструментов (рис. 7.7), в котором можно указать имя создаваемой панели и шаблон или документ, где эта панель будет храниться.
4. Теперь остается только создать кнопку для вызова нужного макроса.
190
Урок 7. Создание приложений для MS Excel
Настройка________ ::¦¦: у . П13
Рис. 7.6 Окно диолого Настройка
Создание панепи mi
tyr-; v*^«i ал
S
...-4 У,- i
1 j Normal
On^ii (
" ’
Рис. 7.7 Окно диалога Создание панели инструментов
Рассмотрим два макроса. Первый из них позволяет нажатием одной кнопки на панели инструментов задать стиль границ для выделенных ячеек, а второй задает числовой формат ячеек, их шрифт, выравнивание и т. п.
Ниже приведены тексты обоих макросов.
Макрос, задающий стиль границ выделенных ячеек
Sub BordersO
'Диагональные границы отсутствуют Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone 'Устанавливаем параметры внешней левой границы With Selection.Borders(xlEdgeLeft)
’Устанавливаем тип линии, ее ширину и цвет .LineStyle = xlContinuous .Weight = xlThick .Colorlndex = xlAutomatic End With
'Устанавливаем параметры внешней верхней границы With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous .Weight = xlThick .Colorlndex = xlAutomatic End With
Создание шаблона
191
'Устанавливаем параметры внешней нижней границы Wi th Selection.BordersCxlEdgeBottom)
.LineStyle = xlContinuous .Weight = xlThick .Colorlndex = xlAutomatic End With
'Устанавливаем параметры внешней правой границы With Selecti on.Borders(xlEdgeRi ght)
' .LineStyle = xlContinuous .Weight = xlThick .Colorlndex = xlAutomatic End With
'Устанавливаем параметры внутренней вертикальной 'границы
Wi th Select i on.Borders(xlInsi deVerti ca1)
.LineStyle = xlContinuous .Weight = xlThin .Colorlndex = xlAutomatic End With
'Устанавливаем параметры внутренней горизонтальной 'границы
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous .Weight = xlThin .Colorlndex = xlAutomatic End With
End Sub
Макрос, задающий формат ячеек
Sub Cell FormatО
'Устанавливаем числовой формат Selection.NumberFormat = "0.00"
With Selection
’Задаем выравнивание по горизонтали - по центру
.HorizontalAlignment = xlCenter
'Задаем выравнивание по вертикали - по центру
.VerticalAlignment = xlCenter
'Отключаем режим переноса по словам
.WrapText = False
'Задаем ориентацию 0 градусов
.Orientation = 0
'Выключаем режим автоподбора ширины ячеек ShrinkToFit = False 'Выключаем режим объединения ячеек .MergeCells = False End With
Предыдущая << 1 .. 64 65 66 67 68 69 < 70 > 71 72 73 74 75 76 .. 154 >> Следующая
Реклама
Авторские права © 2009 AdsNet. Все права защищены.
Rambler's Top100