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

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

Range("Dl").Comment.Text TextA_

"Направление" & 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("Gl").Comment.Visible ~= False

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

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

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

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

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

1. Нажмите кнопку Надпись панели Рисование и создайте на рабочем листе текстовое поле.

2. Наберите в текстовом поле следующий текст: «Программа составлена Владимиром для регистрации клиентов туристической фирмы».


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