Як створити форму автоматичного введення даних у Excel VBA

Використання форм у VBA дає вам порожнє полотно для розробки та впорядкування форм відповідно до ваших потреб у будь-який час. Давайте дізнаємося за допомогою Download.vn , як створювати автоматичні форми введення даних у Excel VBA !

Створіть форму користувача за допомогою Excel VBA

Відкрийте нову робочу книгу Excel і виконайте кілька попередніх кроків перед початком створення форми введення даних.

Збережіть робочу книгу з потрібним іменем, не забудьте змінити тип файлу на Робоча книга Excel із підтримкою макросів.

Додайте 2 аркуші до цієї книги з такими назвами:

1. Аркуш1 : Дім
2. Sheet2 : База даних студентів

Звичайно, ви можете змінити їхні імена на свій розсуд.

На головному аркуші додайте кнопку керування макросом форми користувача. Перейдіть на вкладку «Розробник» > натисніть «Кнопка» у розкривному списку «Вставити ». Розмістіть цю кнопку в будь-якому місці електронної таблиці.

Після розміщення кнопки перейменуйте її. Клацніть його правою кнопкою миші > клацніть Створити , щоб прикріпити макрос, який відображає форму.

Введіть наступний код у вікні редактора:

Sub Button1_Click()
UserForm.Show
End Sub

Коли домашній аркуш і база даних учнів готові, настав час створити форму користувача. Перейдіть на вкладку «Розробник» > натисніть Visual Basic , щоб відкрити редактор . Крім того, ви можете натиснути ALT+F11 , щоб відкрити вікно редактора.

Перейдіть на вкладку «Вставлення» та виберіть «Форма користувача» . Форма користувача готова до використання. З цією формою відкривається супровідний набір інструментів, який містить усі інструменти, необхідні для розробки макета.

У цій панелі інструментів виберіть «Рамка» . Перетягніть його до форми користувача та змініть розмір.

У (назва) ви можете змінити назву цього кадру. Щоб ім’я відображалося в інтерфейсі, ви можете змінити ім’я в стовпці «Підпис» .

Далі виберіть «Мітка» на панелі інструментів і вставте 2 наклейки в це поле. Перейменуйте ім’я на Номер заявки , а друге ім’я – на Ідентифікатор студента .

Застосуйте той самий процес перейменування через Caption у Properties . Переконайтеся, що ви вибрали відповідну мітку перед її перейменуванням.

Далі вставте 2 текстові поля в поле наклейки. Вони використовуватимуться для запису введених користувачем даних. Змініть назви 2 текстових полів у стовпці (Назва) у Властивості таким чином:

• Textbox1 : txtApplicationNo
• Textbox2 : txtStudentID

Проектування інформаційної основи студента

Вставте вертикальну рамку та додайте 10 міток і 10 текстових полів. Перейменуйте мітку наступним чином:

• Label3 : Ім'я
• Мітка 4 : Вік
• Мітка 5 : адреса
• Label6 : Телефон
• Label7 : Місто
• Label8 : Країна
• Label9 : Дата народження
• Label10 : поштовий індекс
• Мітка 11 : Національність
• Мітка 12 : Стать

Вставте відповідне текстове поле поруч із цими мітками, вставивши з двох полів кнопок вибору з панелі інструментів форми користувача поруч із міткою статі. Змініть їхні імена на Чоловіче та Жіноче (з настроєм) відповідно.

Розробити детальну структуру курсу

Додайте іншу рамку вертикально та вставте 6 стікерів, 6 текстових полів, що відповідають кожній мітці. Перейменуйте наклейку таким чином:

• Label13 : Назва курсу
• Label14 : ID курсу
• Label15 : Дата початку реєстрації
• Мітка 16 : Дата закінчення реєстрації
• Label17 : Тривалість курсу
• Label18 : Департамент

Дизайн платіжної рамки

Вставте нову рамку, додайте нову мітку та перейменуйте її на «Ви бажаєте оновити платіжні реквізити?» Вставте 2 опційні кнопки ; перейменуйте їх на Так і Ні .

Так само додайте новий фрейм, що містить 2 додаткові мітки та 2 поля зі списком. Перейменуйте мітку наступним чином:

• Мітка 19 : платіж отримано
• Label20 : Спосіб оплати

Дизайн навігаційної дошки

В останній кадр додайте 3 кнопки з панелі інструментів, що містять код для розгортання форм. Перейменуйте кнопки таким чином:

• Button1 : зберегти деталі
• Кнопка 2 : Очистити форму
• Кнопка 3 : Вихід

Написати автоматичний код форми: кнопка для збереження інформації

Двічі натисніть кнопку «Зберегти деталі» . У наступному модулі вставте такий код:

Private Sub CommandButton2_Click()

‘declare the variables used throughout the codes
Dim sht As Worksheet, sht1 As Worksheet, lastrow As Long

'Add validations to check if character values are being entered in numeric fields.
If VBA.IsNumeric(txtApplicationNo.Value) = False Then
MsgBox "Only numeric values are accepted in the Application Number", vbCritical
Exit Sub
End If

If VBA.IsNumeric(txtStudentID.Value) = False Then
MsgBox "Only numeric values are accepted in the Student ID", vbCritical
Exit Sub
End If

If VBA.IsNumeric(txtAge.Value) = False Then
MsgBox "Only numeric values are accepted in Age", vbCritical
Exit Sub
End If

If VBA.IsNumeric(txtPhone.Value) = False Then
MsgBox "Only numeric values are accepted in Phone Number", vbCritical
Exit Sub
End If

If VBA.IsNumeric(Me.txtCourseID.Value) = False Then
MsgBox "Only numeric values are accepted in Course ID", vbCritical
Exit Sub
End If

'link the text box fields with the underlying sheets to create a rolling database
Set sht = ThisWorkbook.Sheets("Student Database")

'calculate last populated row in both sheets

lastrow = sht.Range("a" & Rows.Count).End(xlUp).Row + 1

'paste the values of each textbox into their respective sheet cells

With sht
.Range("a" & lastrow).Value = txtApplicationNo.Value
.Range("b" & lastrow).Value = txtStudentID.Value
.Range("c" & lastrow).Value = txtName.Value
.Range("d" & lastrow).Value = txtAge.Value
.Range("e" & lastrow).Value = txtDOB.Value
.Range("g" & lastrow).Value = txtAddress.Value
.Range("h" & lastrow).Value = txtPhone.Value
.Range("i" & lastrow).Value = txtCity.Value
.Range("j" & lastrow).Value = txtCountry.Value
.Range("k" & lastrow).Value = txtZip.Value
.Range("l" & lastrow).Value = txtNationality.Value
.Range("m" & lastrow).Value = txtCourse.Value
.Range("n" & lastrow).Value = txtCourseID.Value
.Range("o" & lastrow).Value = txtenrollmentstart.Value
.Range("p" & lastrow).Value = txtenrollmentend.Value
.Range("q" & lastrow).Value = txtcourseduration.Value
.Range("r" & lastrow).Value = txtDept.Value

End With
sht.Activate

'determine gender as per user's input
If optMale.Value = True Then sht.Range("g" & lastrow).Value = "Male"
If optFemale.Value = True Then sht.Range("g" & lastrow).Value = "Female"
'Display a message box, in case the user selects the Yes radio button

If optYes.Value = True Then
MsgBox "Please select the payment details below"
Else:
Exit Sub

End If

End Sub

Пояснення коду в автоматизованій формі:

Текстові поля містять текстові та числові значення, тому вам потрібно обмежити введення користувача. Номер заявки, ідентифікатор студента, вік, телефон, ідентифікатор курсу та тривалість курсу міститимуть лише цифри, а решта міститиме текст.

Використовуючи команду IF , код викликає спливаюче вікно з помилкою, якщо користувач вводить символ або текстове значення в будь-яке числове поле.

Оскільки існує перевірка помилок, вам потрібно пов’язати текстові поля з клітинками на аркуші.

Змінні lastrow обчислюють останній заповнений рядок і зберігають значення всередині для гнучкого використання.

Нарешті ці значення вставляються в текстове поле на пов’язаному аркуші Excel.

Закодуйте кнопку очищення форми та виходу

У кнопці очищення потрібно написати код, який очищає поточні значення з форми користувача наступним чином:

With Me
.txtApplicationNo.Value = ""
.txtStudentID.Value = ""
..txtName.Value = ""
.txtAge.Value = ""
.txtAddress.Value = ""
.txtPhone.Value = ""
.txtCity.Value = ""
.txtCountry.Value = ""
.txtDOB.Value = ""
.txtZip.Value = ""
.txtNationality.Value = ""
.txtCourse.Value = ""
.txtCourseID.Value = ""
.txtenrollmentstart.Value = ""
.txtenrollmentend.Value = ""
.txtcourseduration.Value = ""
.txtDept.Value = ""
.cmbPaymentMode.Value = ""
.cmbPayment.Value = ""
.optFemale.Value = False
.optMale.Value = False
.optYes.Value = False
.optNo.Value = False

End With

У кнопці виходу введіть наступний код у формі користувача:

Private Sub CommandButton5_Click()
Unload Me
End Sub

На останньому кроці вам потрібно ввести кілька останніх фрагментів коду, щоб створити розкривні значення для поля зі списком (у рамці перевірки).

Private Sub UserForm_Activate()

With cmbPayment
.Clear
.AddItem ""
.AddItem "Yes"
.AddItem "No"
End With
With cmbPaymentMode

.Clear
.AddItem ""
.AddItem "Cash"
.AddItem "Card"
.AddItem "Check"
End With
End Sub

Вище описано, як створити форму автоматичного введення даних у Excel VBA . Сподіваємось, стаття буде для вас корисною.