MsgBoxやInputBoxは、簡単なはい/いいえの質問や1行の回答には対応できますが、顧客情報の追加には複数の項目が必要です。たとえば、会社名、担当者、都市、ステータスなどです。これらをまとめて入力するためにUserFormを使用します。UserFormは、独自のラベル、テキストボックス、ドロップダウン、ボタンを備えた小さなカスタムウィンドウで、VBE内で作成し、コードで完全に制御します。

フォームの作成

VBEで、Project Explorer内のプロジェクトを右クリックし、挿入 → UserForm を選択します。空白のデザイン画面が表示され、コントロールをドラッグできるツールボックスが浮かび上がります。

ラベル、テキストボックス、コンボボックス、ボタン

フォームにコントロールをドラッグすると、それぞれに TextBox1 や CommandButton1 のようなデフォルト名が付きますが、コントロールが6つや7つになると意味が分かりにくくなります。このセクションで最も重要な習慣は、プロパティウィンドウで確認できる通り、コントロールを追加した直後に必ず名前を変更することです。型を識別する短いプレフィックス（txt には TextBox、cbo には ComboBox、cmd には CommandButton、opt には OptionButton、chk には CheckBox、lst には ListBox）と、説明的な名前を組み合わせてください。たとえば、txtCompanyName であれば、3週間後にコードを見ても明確に意味が分かりますが、TextBox1 では分かりません。

ラベルは単なる非対話型のテキストキャプション（「Company Name:」など）で、ユーザーは見ることはできますが、入力やクリックはできません。テキストボックスは自由形式のテキストを入力する場所です。コンボボックスは選択肢のドロップダウンを表示し、cboCity や cboStatus のように、City や Status を既知のリストに制限するために使います。これにより、同じ内容でも "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 は常に現在実行中のフォームを指すため、フォーム名を変更してもこの記述はそのまま利用可能。

実践例：新規顧客の保存

以下は保存ボタンの背後にあるプロシージャ。新しい行を 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に設定。3つのTextBox（txtCompanyName、txtContact、txtEmail）と2つのComboBox（cboCity、cboStatus）を、それぞれ対応するLabelとともに追加。
2. 2つのCommandButton（cmdSaveとcmdCancel）を追加し、UserForm_InitializeおよびcmdCancel_Clickプロシージャを指示通りに記述。
3. cmdSave_Clickを指示通りに記述し、ワークブック内の他の場所に一時的なボタンを追加して、frmAddCustomer.Showのコードでフォームが開くことをテスト。
4. 架空の6人目の顧客情報をフォームに入力し、Saveをクリック。tblCustomersに新しい行が入力内容で追加されていることを確認。