Робота з елементами керування форми

1. Заміна cboStatus на Frame з OptionButton

• Спочатку видаліть cboStatus та його мітку з форми — ви замінюєте його, а не додаєте поруч.
• Перетягніть елемент Frame на форму, потім перетягніть усі три OptionButton всередину меж Frame — саме ця вкладеність робить їх взаємовиключними як одну групу.
• Перейменуйте кожен OptionButton окремо у вікні властивостей; сам Frame може мати простий підпис, наприклад "Status", але не потребує зручної для коду назви, якщо ви не плануєте звертатися до нього напряму.
• Для зчитування вибору потрібно перевіряти .Value кожного OptionButton окремо через If...ElseIf — немає єдиної властивості, яка показує, "який саме з групи обраний".
• Оскільки cboStatus.Value більше не існує, у cmdSave_Click потрібно створити змінну status на основі OptionButton і записати її у newRow замість попереднього значення.

2. Додавання двох незалежних CheckBox

• Вони розміщуються безпосередньо на формі (не у Frame) — CheckBox поза спільним контейнером ніколи не впливають одна на одну незалежно від групування.
• Для "перевірки під час тестування" просто виберіть одну, потім іншу, і переконайтеся, що жодна не знімає вибір з першої.

3. Додавання та перевірка ListBox

• Заповнюйте його так само, як і cboCity — багаторазові виклики .AddItem у UserForm_Initialize.
• ListIndex = -1 означає, що нічого ще не вибрано — це саме та умова, яку потрібно перевірити перед збереженням.
• Ця перевірка має бути у тому ж блоці валідації, що й інші обов'язкові поля, додаючи повідомлення до того ж рядка errors.

4. Додаткове завдання з MultiPage

• Перетягніть елемент MultiPage на форму — за замовчуванням він містить дві сторінки, саме стільки й потрібно.
• Перейменуйте кожну сторінку через контекстне меню → Page Order, або виберіть вкладку сторінки та змініть підпис у полі Caption у вікні властивостей (Caption визначає текст на вкладці; є окреме поле (Name), якщо потрібно звертатися до сторінки у коді).
• Щоб перемістити існуючі елементи на сторінку, перетягніть їх фізично на видиму область цієї сторінки у режимі конструктора — посилання на елементи у коді не змінюються, оскільки ім'я елемента не залежить від сторінки, на якій він розташований.

Private Sub UserForm_Initialize()
    cboCity.AddItem "Chicago"
    cboCity.AddItem "Boston"
    cboCity.AddItem "Austin"
    cboCity.AddItem "Seattle"
    cboCity.AddItem "Denver"

    lstCities.AddItem "Chicago"
    lstCities.AddItem "Boston"
    lstCities.AddItem "Austin"
    lstCities.AddItem "Seattle"
    lstCities.AddItem "Denver"
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdSave_Click()
    Dim tbl As ListObject
    Dim newRow As ListRow
    Dim errors As String
    Dim status As String

    ' --- Reset field colors ---
    txtCompanyName.BackColor = vbWhite
    txtContact.BackColor = vbWhite
    txtEmail.BackColor = vbWhite

    ' --- Required field checks ---
    If Trim(txtCompanyName.Value) = "" Then
        errors = errors & "- Company Name is required" & vbNewLine
        txtCompanyName.BackColor = RGB(255, 199, 206)
    End If

    If Trim(txtContact.Value) = "" Then
        errors = errors & "- Contact is required" & vbNewLine
        txtContact.BackColor = RGB(255, 199, 206)
    End If

    If Trim(txtEmail.Value) = "" Then
        errors = errors & "- Email is required" & vbNewLine
        txtEmail.BackColor = RGB(255, 199, 206)
    End If

    ' --- Status via OptionButtons ---
    If optActive.Value = True Then
        status = "Active"
    ElseIf optInactive.Value = True Then
        status = "Inactive"
    ElseIf optProspect.Value = True Then
        status = "Prospect"
    Else
        errors = errors & "- Please select a Status" & vbNewLine
    End If

    ' --- ListBox check ---
    If lstCities.ListIndex = -1 Then
        errors = errors & "- Please select a city from the list" & vbNewLine
    End If

    If errors <> "" Then
        MsgBox "Please fix the following:" & vbNewLine & errors, vbExclamation
        Exit Sub
    End If

    ' --- All checks passed — safe to save now ---
    Set tbl = ThisWorkbook.Worksheets("Customers").ListObjects("tblCustomers")
    Set newRow = tbl.ListRows.Add

    newRow.Range(1, 1).Value = "C0" & (tbl.ListRows.Count + 100)
    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 = status

    If chkWelcomeEmail.Value = True Then
        MsgBox "A welcome email would be sent to " & txtEmail.Value & "."
    End If

    MsgBox txtCompanyName.Value & " was added successfully."
    Unload Me
End Sub

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

• Пункт 2 (CheckBox) не має окремої перевірки — просто натисніть chkWelcomeEmail та chkNewsletter незалежно й переконайтеся, що кожна перемикається без впливу на іншу.
• Пункт 4 (MultiPage) — це лише зміна макета, жодних змін у коді не потрібно, оскільки кожен елемент зберігає свою назву незалежно від сторінки, на якій він розташований.
• Зверніть увагу, що cboCity.Value все ще використовується для фактичного збереження (newRow.Range(1, 5)), тоді як lstCities існує окремо як незалежний контроль для перевірки згідно з завданням — вони не пов'язані між собою, якщо ви самостійно не реалізуєте це.