MsgBox та InputBox підходять для простих питань так/ні та однорядкових відповідей, але для додавання клієнта зазвичай потрібно кілька полів одночасно — назва компанії, контактна особа, місто, статус. Для цього використовується UserForm: невелике спеціальне вікно з власними підписами, текстовими полями, випадаючими списками та кнопками, яке створюється у VBE та повністю керується вашим кодом.

Створення форми

У VBE клацніть правою кнопкою миші на вашому проєкті в Project Explorer і виберіть Insert → UserForm. З'явиться порожня область для дизайну, а також плаваюча панель інструментів із елементами керування, які можна перетягувати на форму.

Мітки, текстові поля, комбіновані списки та кнопки

Кожен елемент керування, який ви перетягуєте на форму, отримує стандартну назву на кшталт TextBox1 або CommandButton1 — функціонально, але беззмістовно, коли на формі вже шість чи сім елементів. Найважливіша звичка в цьому розділі відображається у вікні властивостей: перейменовуйте кожен елемент одразу після додавання, використовуючи короткий префікс, що ідентифікує його тип (txt для TextBox, cbo для ComboBox, cmd для CommandButton, opt для OptionButton, chk для CheckBox, lst для ListBox), а далі — описову назву. txtCompanyName буде однозначно зрозумілим у коді навіть через три тижні; TextBox1 — ні.

Мітки — це прості, неінтерактивні текстові підписи ("Company Name:") — користувач їх бачить, але не може вводити текст чи натискати на них. Текстові поля призначені для введення довільного тексту. Комбіновані списки відображають випадаючий перелік варіантів, саме для цього використовуються cboCity та cboStatus — обмеження вибору міста та статусу відомим списком замість того, щоб дозволяти користувачу вільно вводити "chicago", "Chicago,IL" чи "CHI" для одного й того ж у різних записах.

Написання коду для форми

Двічі клацніть будь-який елемент керування на поверхні дизайну, щоб одразу перейти до його коду — VBA автоматично створює процедуру події з іменем ControlName_EventName, і код, написаний у ній, виконується щоразу, коли ця подія відбувається для цього елемента керування. Для кнопки типовою подією є Click:

Private Sub UserForm_Initialize()
    ' runs once, automatically, when the form is first shown
    cboCity.AddItem "Chicago"
    cboCity.AddItem "Boston"
    cboCity.AddItem "Austin"
    cboCity.AddItem "Seattle"
    cboCity.AddItem "Denver"
 
    cboStatus.AddItem "Active"
    cboStatus.AddItem "Inactive"
    cboStatus.AddItem "Prospect"
End Sub
 
Private Sub cmdCancel_Click()
    Unload Me
End Sub

UserForm_Initialize — це спеціальна процедура події, яка спрацьовує автоматично в момент завантаження форми — ще до того, як користувач щось побачить — тому саме тут доцільно заповнювати ComboBox-и за допомогою .AddItem, а не вручну через вікно властивостей, особливо якщо вибірки можуть змінюватися або надходити з аркуша. Unload Me у cmdCancel_Click повністю закриває форму; Me завжди посилається на форму, в якій виконується код, тому цей рядок працює без змін незалежно від того, як ви згодом перейменуєте саму форму.

Приклад: Збереження нового клієнта

Ось процедура для кнопки Save — саме вона записує новий рядок у tblCustomers:

Private Sub cmdSave_Click()
    Dim tbl As ListObject
    Dim newRow As ListRow
 
    Set tbl = ThisWorkbook.Worksheets("Customers").ListObjects("tblCustomers")
    Set newRow = tbl.ListRows.Add
 
    newRow.Range(1, 1).Value = "C" & Format(tbl.ListRows.Count + 1, "000")
    newRow.Range(1, 2).Value = txtCompanyName.Value
    newRow.Range(1, 3).Value = txtContact.Value
    newRow.Range(1, 4).Value = txtEmail.Value
    newRow.Range(1, 5).Value = cboCity.Value
    newRow.Range(1, 6).Value = cboStatus.Value
 
    MsgBox txtCompanyName.Value & " was added successfully."
    Unload Me
End Sub

Завдання

1. Додати новий UserForm, назвати його frmAddCustomer і додати три TextBox (txtCompanyName, txtContact, txtEmail) та два ComboBox (cboCity, cboStatus), кожен з відповідною міткою.
2. Додати дві CommandButton, cmdSave і cmdCancel, і написати процедури UserForm_Initialize та cmdCancel_Click точно як показано.
3. Написати cmdSave_Click як показано, потім додати тимчасову кнопку в іншому місці книги з кодом frmAddCustomer.Show для тестування відкриття форми.
4. Заповнити форму для вигаданого шостого клієнта та натиснути Save — переконатися, що в tblCustomers з'явився новий рядок із введеними значеннями.