Ввод данных - Регистрация туристов. Пользовательская форма UserForm VBA Excel

Пакет Microsoft Office (и Google-таблицы) дает возможность автоматизации взаимодействия оператора с ЭВМ.

Разработать приложение, позволяющее заполнять таблицу Регистрации туристов
Всплывающие подсказки на органах управления формы vba
Создание заголовков полей базы данных на Листе Excel
Заполнение раскрывающихся списков ComboBox
Исходный код UserForm VBA Excel

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

Разработать приложение, позволяющее заполнять таблицу Регистрации туристов

Задание: Рзработать приложение, позволяющее при помощи UserForm, заполнять таблицу Регистрация туристов. Обязательные поля таблицы:

Фамилия
Имя
пол
Выбранный тур
оплачено
фото
паспорт
срок

Рис.1 Разработать приложение, позволяющее заполнять таблицу Регистрации туристов

Если Вы предложите что-то свое (доработки, усовершенствования) и меня это заинтересует (как вариант), то скоро увидите его на этом месте…

Всплывающие подсказки на органах управления формы vba

Практически все органы управления имеют свойство ControlTipText, которому можно присвоить текстовое значение.&cЭто помогает пользователю ориентироваться на форме…

Рис.2 Всплывающие подсказки на органах управления формы vba

У командных кнопок это свойство установлено. Приглядитесь…

Создание заголовков полей базы данных на Листе Excel

Так было рекомендовано в методическом пособии, но я этот шаг пропустил…

//------------------------------ Sub ЗаголовокРабочегоЛиста() 'Процедура создания заголовков полей базы данных If Range(«A1»).Value = «Фамилия» Then Range(«A2»).Select Exit Sub 'Если заголовки существуют, то досрочный выход из процедуры End If 'Если заголовки не существуют, то создаются заголовки полей ActiveSheet.Сеlls.Clear Range(«A1:H1»).Value = Array(«Фамилия», «Имя», «Пол», «Выбранный Тур», «Оплачено», «Фото», «Паспорт», «Срок») Range(«А: А»).ColumnWidth = 12 Range(«D: D»).ColumnWidth = 14.4 Range(«2:2»).Select 'Закрепляется первая строка с тем, чтобы она всегда отображалась на экране ActiveWindow.FreezePanes = True Range(«A2»).Select 'К каждому заголовку поля базы данных присоединяется примечание Range(«Al»).AddComment Range(«A1»).Comment.Visible = False Range(«A1»).Comment.Text Text:="Фамилия клиента" Range(«B1»).AddComment Range(«B1»).Comment.Visible = False Range(«B1»).Comment.Text Техt:="Имя клиента" Range(«C1»).AddComment Range(«C1»).Comment.Visible = False Range(«C1»).Comment.Text Text:="Пол клиента" Range(«D1»).AddComment Range(«D1»).Comment.Visible = False Range(«D1»).Comment.Text Text:="Направление" & Chr(lO) & «выбранного тура» Range(«E1»).AddComment Range(«E1»).Comment.Visible = False Range(«E1»).Comment.Text Text:="Путевка оплачена?" & Chr(lO) & «(Да/Нет)» Range(«F1»).AddComment Range(«F1»).Comment.Visible = False Range(«F1»).Comment.Text Text:="Фото сданы" & Chr(lO) & «(Да/Нет)» Range(«G1»).AddComment Range(«G1»).Comment.Visible = False Range(«G1»).Comment.Text Text:="Наличие паспорта" & Chr(lO) & "(Да/Нет)» Range(«H1»).AddComment Range(«H1»).Comment.Visible = False Range(«H1»).Comment.Text Text:="Продолжительность" & Chr(lO) & «поездки» End Sub //------------------------------