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



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

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

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


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

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

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

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

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



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

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

Всплывающие подсказки на органах управления формы vba
Рис.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
//------------------------------




Заполнение раскрывающихся списков ComboBox

Обратите внимание на колонку "AE" строки 1-7…

по коду:

//------------------------------

ComboBox1.RowSource = "=AE2:AE7" 'Заполняет раскрывающийся список из диапазона
//------------------------------




Исходный код UserForm VBA Excel

Почти весь исходный код расположен в модуле формы UserForm1.

А в модуле Лист1 расположены только короткие процедуры "Вызова формы", "Очистки таблицы" и "Запрета выделения ячеек в таблице".

скачать ехе-файл для тестирования



Другие примеры на языке «Visual Basic for application - VBA»

Другие примеры на тему «Автоматизация документов Microsoft Office Excel, Word, Access»





Если у Вас остались вопросы, то задать их Вы можете, нажав на эту кнопочку ...




Если на этой странице не нашлось того, что Вы так искали...

         Не расстраивайтесь, не все потеряно... Смело щелкайте...
исходный код на заказ. orenstudent.ru Автоматизация документов MS Office. orenstudent.ru исходный код на заказ. orenstudent.ru Помогите найти и устранить ошибку в исходном коде программы. orenstudent.ru Skype-консультирование по программированию
Скайп-консультации

Акция !!!
исходный код комментарии цена минимальная


Не попадайтесь на удочку мошенников-кидал...
Сайт помощи студентам по программированию и информатике

Program code