Самостоятельная работа
Выполните отладку и апробирование приведенного модуля.
Модифицируйте модуль, меняя параметры метода.
Поиск названия существующего файла для последующего сохранения в нем некоторой совокупности данных практически ничем не отличается от описанной выше процедуры. Соответствующий метод - GetSaveAsFilename().
Вызовите "справку" по методу и рассмотрите специфику параметров.
Модифицируйте модуль с использованием метода GetSaveAsFilename().
Внесите такие изменения, чтобы по умолчанию формировалось название заданного файла.
Диалоговые окна Excel
Последняя работа наводит на размышления - если мы смогли извлечь из Excel два встроенных диалога по открытию и сохранению файлов, то нельзя ли воспользоваться и остальными диалогами, например по форматированию данных в ячейках таблиц? - Нет проблем. Воспользуйтесь набором Dialogs объекта Application . В качестве аргумента набора указывается число- индекс, выбирающее диалоговое окно. Было бы нелепо заставлять нас запоминать, какому числу какой диалог соответствует. Разработчики догадались заменить числа текстовыми константами, имеющими больший смысл. Все константы начинаются конструкцией xlDialog, а далее - в зависимости от цели.
Напомним, что конструирование операторов выполняется по подсказке VB: выбрали из списка объектов Application - получаем подсказку- раскрывающееся меню, где находим набор Dialogs; поставили левую круглую скобку - получаем подсказку - список констант, причем настолько большой, что наверняка удовлетворит все наши потребности.
Пример. В приведенной ниже процедуре в диалоге меняется формат содержимого ячейки A1.
Public Sub xx()
Range("a1”).Select
Application.Dialogs(xlDialogFormatNumber).Show
Application.Dialogs(xlDialogActiveCellFont).Show
End Sub
Самостоятельная работа
Выполните отладку и апробирование приведенного модуля.
Поменяйте цвет фона ячейки.
Диалоговые окна пользователя
Представленные диалоговые окна позволяют реализовать лишь относительно небольшой объем информации. В то же время мы можем предположить, что возможности Excel в части диалоговых панелей гораздо шире. Для этого у нас есть все основания - мы знаем о существовании "форм" (Данные/Форма). Мы уже частично знакомились с диалоговыми окнами пользователя (п. 2.10.2). Здесь более подробно представлена специфика работы с окнами и кнопками. В MS office - 97 имеется два практически равноценных варианта окна пользователя - "Окно диалога Excel-5.0" и "UserForm".
Рис. 4.76
UserForm.
Элементы управления
первом случае окно вызывается при
нажатии ПК мыши в поле листов и выборе
команды "Добавить/Окно
диалога Excel-5.0". Во
втором случае окно вызывается из среды
VB командой "Вставка
/ UserForm" или
кнопкой "Вставить
UserForm". Мы
будем ориентироваться на второй, более
современный способ. В результате
появляется новый, чистый бланк (рис.
4.6),
куда можно выводить окна и кнопки
пользователя. Набор элементов управления
(кнопки и окна) расположен рядом с полем,
но его можно передвинуть куда угодно.
Группа UserForms является семейством, компоненты которого представляют все загруженные формы UserForm в приложении. У семейства UserForms имеются свойства Count и Item, а также метод Add. Свойство Count указывает число компонентов в семействе; свойство Item (компонент, используемый по умолчанию) указывает определенный компонент семейства; метод Add помещает в семейство новый компонент UserForm.
При конструировании форм пользователя следует задать методы Show и Hide, чтобы делать форму соответственно видимой и невидимой во время выполнения программы.