1. cboStatus を OptionButton の Frame で置き換える

• フォームから cboStatus とそのラベルを削除 — 追加ではなく置き換え。
• Frame コントロールをフォームにドラッグし、その枠内に 3 つの OptionButton をすべてドラッグして配置 — この囲い込みによって 1 グループとして排他的に動作。
• 各 OptionButton の名前はプロパティウィンドウで個別に変更。Frame の Caption は「Status」などシンプルでよく、コードで参照しないなら名前は不要。
• 選択内容の取得は、各 OptionButton の .Value を If...ElseIf で個別に判定 — グループ内でどれが選択されているかを示す単一プロパティは存在しない。
• cboStatus.Value はもう存在しないため、cmdSave_Click では OptionButton から status 変数を作成し、newRow に書き込む。

2. 2 つの独立した CheckBox を追加

• これらはフォーム上に直接配置（Frame 内ではない） — CheckBox 同士が互いに影響を受けない。
• テストでは、一方をチェックしてからもう一方をチェックし、どちらも独立して切り替わることを確認。

3. ListBox の追加とバリデーション

• cboCity で .AddItem と同様に UserForm_Initialize を繰り返して項目を追加。
• ListIndex = -1 は「まだ何も選択されていない」状態 — 保存を進める前にこの条件をチェック。
• このチェックは他の必須項目チェックと同じ errors 文字列に追加。

4. MultiPage チャレンジ

• MultiPage コントロールをフォームにドラッグ — デフォルトで 2 ページある。
• 各ページはプロパティウィンドウの 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 はタスク要件に従い独立してバリデーションされるコントロール — 必要に応じて連携も可能。