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

1 К каждому заголовку поля базы данных

л присоединяется примечание »

Range("Al").AddComment

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

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

Range("Bl").AddComment

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

Range ( "Bl" ). Comment. Text Text.-^'Имя клиента"

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

Range("CI").AddComment

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

Range ("CI" ) .Comment .Text ТехЬ:="Пол клиента"

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("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

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

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

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


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