Range("С1").AddComment

Range("С1").Comment.Visible = False

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

Range("Dl").AddConroent

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

Range("Dl").Comment.Text Text:=

"Направление" & Chr(lO) &

"выбранного тура"

Range("El").AddConment

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

Range("El").Comment.Text Text:=

"Путевка оплачена?" & Chr(lO) &

" (Да/Нет) "

Range (" Fl"). AddCoinment

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

Range("Fl").Comment.Text Text:=

"Фото сданы" & Chr(lO) &

" (Да/Нет) "

Range("GI").AddComment

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

Range("GI").Comment.Text Text:=

Наличие паспорта" & Chr(lO) &

" (Да/Нет) "

Range("Hi").AddComment

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

Range ("Hi.").Comment. Text Texf

"Продолжительность" & Chr(lO) &

"поездки"

End Sub

В данной программе для определения первой пустой строки в заполняемой базе данных о туристах используется инструкция

НомерСтроки = Application.CountA(ActiveSheet.Columns(1)) + 1,

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

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

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

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

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

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

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

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

Sub Макрос!()

Макрос! Макрос

Макрос записан 28.!!.99 (Владимир)

Range("2:2").Select

ActiveWindow.FreezePanes = True

Range("Al").AddComment

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

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

Range("Bl").AddComment

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

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

Range("CI").AddComment

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

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

Range("Dl").AddComment

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

Range("Dl").Comment.Text Texf.

"Направление" & Chr(lO) &

"выбранного тура"

Range("El").AddComment

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

Range("El").Comment.Text Text:=

"Путевка оплачена?" & Chr(lO) &

"(Да/Нет)"

Range("Fl").AddComment

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

Range("Fl").Comment.Text Text:=

"Фото сданы" & Chr(lO) & "(Да/Нет) "

Range ("Gl"). AddComment

Range("GI").Comment.Visible ~= False

Range("Gl").Comment.Text Text :=

"Наличие паспорта" & Chr(lO) &"(Да/Нет)" Range("Hi").AddComment Range("HI").Comment.Visible = False Range("HI").Comment.Text Texf. "Продолжительность" & Chr(lO) &"поездки" End Sub

Первые две инструкции записанного макроса показывают, как программно закрепляется область, а остальные - как создаются примечания для ячеек рабочего листа. Теперь при создании приложения эти фрагменты просто надо вставить в требуемое место набираемой программы.

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