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

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

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

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

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

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

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

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

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

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

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

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

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

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

Sub Button1_Click()
UserForm.Show
End Sub

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

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

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

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

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

Далі виберіть «Мітка» на панелі інструментів і вставте 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 : Вихід

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

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

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

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 . Сподіваємось, стаття буде для вас корисною.


Інструкція з використання функції ABS для обчислення абсолютного значення в Excel

Інструкція з використання функції ABS для обчислення абсолютного значення в Excel

Інструкція з використання функції АБС для обчислення абсолютного значення в Excel Функція АБС використовується для обчислення абсолютного значення числа або обчислення. Користуватися функцією ABS досить просто

Інструкція, як написати верхній і нижній індекс в Excel

Інструкція, як написати верхній і нижній індекс в Excel

Інструкція про те, як написати верхній і нижній індекс в Excel Вам часто доводиться редагувати математичні формули в Excel, але виникають труднощі з виразами.

Як пронумерувати сторінки, не починаючи з 1 в Excel

Як пронумерувати сторінки, не починаючи з 1 в Excel

Як нумерувати сторінки в Excel, не починаючи з 1. Нумерувати сторінки в Excel досить просто, але нумерувати сторінки, починаючи з числа, відмінного від 1, важко.

Інструкція щодо друку повторюваних заголовків у Excel

Інструкція щодо друку повторюваних заголовків у Excel

Інструкції щодо повторного друку заголовків у Excel Для таблиць Excel із великою кількістю друкованих сторінок люди часто встановлюють повторний друк заголовків, щоб уникнути плутанини з електронною таблицею.

Як використовувати функції підрахунку Count, Counta, Countif, Countifs в Excel

Як використовувати функції підрахунку Count, Counta, Countif, Countifs в Excel

Як використовувати функції підрахунку Count, Counta, Countif, Countifs у Excel Функції підрахунку в Excel поділяються на багато типів, більшість із цих функцій дуже прості у використанні для підрахунку.

Як використовувати функцію географії в Microsoft Excel

Як використовувати функцію географії в Microsoft Excel

Як користуватися функцією «Географія» в Microsoft Excel. За допомогою «Географії» ви можете отримати доступ до географічних даних в електронній таблиці Excel. Нижче описано, як користуватися функцією географії

Як розрахувати відсоток в Excel

Як розрахувати відсоток в Excel

Як розрахувати відсотки в Excel? Microsoft Excel надає вам багато різних способів обчислення відсотків. Давайте навчимося з WebTech360, як обчислювати відсотки в Excel

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

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

Як створити форму автоматичного введення даних у Excel VBA. Використання форм у VBA дає вам порожнє полотно для розробки та впорядкування форм відповідно до будь-яких потреб

Як створити діаграму водоспаду в Excel

Як створити діаграму водоспаду в Excel

Як створити діаграму водоспаду в Excel. Діаграми водоспаду використовуються для ілюстрації коливань проміжних підсумків у Excel. Давайте навчимося створювати діаграми за допомогою WebTech360

Інструкції щодо приховування рядків і стовпців у Excel

Інструкції щодо приховування рядків і стовпців у Excel

Інструкції щодо приховування рядків і стовпців у Excel.Іноді ваш файл Excel задовгий, і ви хочете приховати невикористовувані частини або з якоїсь причини не хочете показувати його іншим.