Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.90
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.90

Процедура ЗаголовокРабочегоЛиста выглядит сложной. При ее написании лучше всего воспользоваться MacroRecorder,

Программирование в среде Visual Basic for Applications

который переведет производимые действия по созданию примечаний пользователем вручную на язык VBA. Итак, для активизации MacroRecorder выберите команду Сервис/Макрос/Начать запись и запустите MacroRecorder на запись. После задания всех параметров в появившемся диалоговом окне Запись макроса и нажатия кнопки OK появится плавающая панель инструментов с кнопкой Остановить запись. Теперь все производимые действия будут записываться до тех пор, пока не будет нажата эта кнопка. Постройте примечания по следующему алгоритму:

1. Щелкните кнопку заголовка второй строки. Вторая строка выделится. Выберите команду Окно/Закрепить области.

2. Выделите ячейку AI и нажмите кнопку Надпись панели инструментов Рисование. В появившееся текстовое поле введите текст «Фамилия клиента».

3. Выделите ячейку В1 и нажмите кнопку Надпись панели инструментов Рисование. В появившееся текстовое поле введите текст «Имя клиента» и т. д. последовательно для ячеек от С1 до HI.

Кроме того, для того чтобы разобраться, как программируется закрепление области на рабочем листе, в этот алгоритм входит также и закрепление первой строки рабочего листа.

Перечисленные выше действия будут переведены MacroRecorder в следующий макрос.

Sub Макрос1()

1 Макрос1 Макрос

1 Макрос записан 28.11.99 (Владимир)

Range("2:2").Select

ActiveWindow.FreezePanes = True

Range("Al").AddComment

Range("Al").Comment.Visible = False

Pange("Al").Comment.Text Text:="Фамилия клиента"

Range("Bl").AddComment

Range("Bl").Comment.Visible = False

Range("Bl").Comment.Text Text:="MMH клиента"

Range("CI").AddComment

Range("CI").Comment.Visible = False

Range("CI").Comment.Text Text:="HeT клиента",

19. Заполнение базы данных

Range("D1").AddComment


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta