VBAユーザーフォームの作り方｜入力・登録・閉じるまでコード付き

VBAのユーザーフォーム（UserForm）は、テキストボックスやコンボボックスを並べて、複数の項目を一度に入力してもらうための自作の画面です。 作り方の流れは「フォームを挿入する→コントロールを置く→表示するコードと、ボタンを押したときのコードを書く」の3段階です。

この記事では、入力チェックからシートへの登録、入力欄のクリア、閉じる処理までを、標準モジュール側とフォーム側に分けた通しのコードで載せます。Unload と Hide、モーダルとモードレスの選び方、イベントの発生順も表にまとめます。

確認環境：Microsoft Learn の VBA リファレンス（UserForm オブジェクト、Show・Hide メソッド、Load・Unload ステートメント、Initialize・Activate・QueryClose・Terminate イベント、ShowModal プロパティ、TextBox・ComboBox・ListBox・CheckBox・OptionButton・CommandButton・Label コントロール、AddItem・SetFocus メソッド、ListIndex・Style・Cancel プロパティ、IsDate・IsNumeric 関数）と「Create a user form」を 2026-10-06 に開いて確認し、フォーム側のコードはその定義に沿って書いています。標準モジュール側の関数（入力チェックとシートへの登録）は、LibreOffice 24.2.7.2（Linux、ロケールは日本語）の Basic を VBA 互換モード（Option VBASupport 1）にして動かし、結果を載せています。

この記事の結論

• 処理の流れは4つです。Initialize で選択肢を入れる → 登録ボタンで未入力・数値・日付を確かめる → 最終行の次の行に書く → 入力欄を空にする。
• 入力チェックとシートへの書き込みは標準モジュールに置き、フォーム側は「コントロールの値を渡す」「結果を表示する」だけにします。フォームを開かずに関数だけを試せます。
• 閉じるときは Unload、値を残して隠すときは Hide を使います。
• 入力中にシートも操作してもらうなら Show vbModeless、入力が終わるまで待つなら既定のモーダルで表示します。
• ×ボタンは QueryClose イベントで扱えます。 CloseMode が vbFormControlMenu（0）のときが×ボタンです。

ユーザーフォームの早見表

MsgBox・InputBoxとの使い分け

項目が2つ以上になったら、ユーザーフォームが向いています。入力欄を一画面に並べられ、どの項目に問題があるかをその画面の中で伝えられます。

作るもの：備品の注文を登録するフォーム

シート「注文一覧」に、1件ずつ行を足していくフォームを作ります。

手順1：フォームを挿入してコントロールを置く

1. Visual Basic Editor を開きます。
2. ［挿入］メニューの［ユーザーフォーム］を選びます。
3. プロパティ ウィンドウで、フォームの名前や Caption（タイトル バーの文字）を変えます。

ここまでは Microsoft Learn の「Create a user form」に載っている手順です。続けて、ツールボックスからコントロールをフォームに置き、プロパティ ウィンドウで名前を付けます。

• 名前は「種類の略＋役割」 にしておくと、コードを読むときにコントロールの種類が分かります（txt、cbo、chk、cmd、lbl）。
• ComboBox の Style を fmStyleDropDownList（2） にすると、一覧から選ぶだけの入力になります。既定の fmStyleDropDownCombo（0）は、一覧から選ぶことも、文字を打ち込むこともできます。
• CommandButton の Cancel を True にすると、リファレンスの説明のとおり、フォームがアクティブなときに Esc キーでそのボタンを選べます。Cancel を True にできるボタンは、1つのフォームに1つだけです。
• 各入力欄の左に、「日付」「担当」などの文字を表示する Label も置きます。

手順2：標準モジュールのコード（入力チェックと登録）

標準モジュールを1つ追加して、次のコードを貼ります。

Option Explicit

Public Const SHEET_NAME As String = "注文一覧"

' フォームを表示する（ボタンやマクロ一覧から呼ぶ入口）
Public Sub ShowEntryForm()
    frmEntry.Show
End Sub

' 入力値を確かめる。問題がなければ空文字、あればメッセージを返す
Public Function ValidateEntry(ByVal orderDate As String, ByVal person As String, _
                              ByVal itemName As String, ByVal qty As String) As String
    If Trim(orderDate) = "" Then
        ValidateEntry = "日付を入力してください。"
    ElseIf Not IsDate(orderDate) Then
        ValidateEntry = "日付は 2026/10/06 の形で入力してください。"
    ElseIf Trim(person) = "" Then
        ValidateEntry = "担当を選んでください。"
    ElseIf Trim(itemName) = "" Then
        ValidateEntry = "品名を入力してください。"
    ElseIf Trim(qty) = "" Then
        ValidateEntry = "数量を入力してください。"
    ElseIf Not IsNumeric(qty) Then
        ValidateEntry = "数量は数字で入力してください。"
    ElseIf CDbl(qty) <> Int(CDbl(qty)) Or CDbl(qty) < 1 Then
        ValidateEntry = "数量は 1 以上の整数で入力してください。"
    Else
        ValidateEntry = ""
    End If
End Function

' 最終行の次の行に1件書き込み、書いた行番号を返す
Public Function AppendEntry(ByVal ws As Worksheet, ByVal orderDate As String, _
                            ByVal person As String, ByVal itemName As String, _
                            ByVal qty As String, ByVal isUrgent As Boolean) As Long
    Dim r As Long

    If IsEmpty(ws.Range("A1").Value) Then
        ws.Range("A1:E1").Value = Array("日付", "担当", "品名", "数量", "急ぎ")
    End If

    r = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1
    ws.Cells(r, 1).Value = CDate(orderDate)
    ws.Cells(r, 2).Value = person
    ws.Cells(r, 3).Value = Trim(itemName)
    ws.Cells(r, 4).Value = CLng(qty)
    If isUrgent Then
        ws.Cells(r, 5).Value = "急ぎ"
    Else
        ws.Cells(r, 5).Value = ""
    End If
    AppendEntry = r
End Function

入力チェックで使っている関数は、リファレンスで次のように説明されています。

ValidateEntryの結果

フォームを開かずに、関数だけを呼び出して確かめた結果です。

AppendEntryの結果

何も入っていないシートに対して、2回続けて呼び出しました。

r = AppendEntry(ws, "2026/10/06", "佐藤", " ノート B5 ", "3", False)   ' r は 2
r = AppendEntry(ws, "2026/10/07", "鈴木", "付箋", "10", True)          ' r は 3

呼び出し後のシートです。

1回目で見出しが書かれて2行目に、2回目は3行目に入りました。品名の前後の空白は Trim で取り除かれています。

手順3：フォームのコード（Initialize・登録・閉じる）

frmEntry のコード ウィンドウを開いて、次のコードを貼ります。

Option Explicit

' フォームが読み込まれたとき：選択肢を入れ、入力欄を初期の状態にする
Private Sub UserForm_Initialize()
    cboPerson.AddItem "佐藤"
    cboPerson.AddItem "鈴木"
    cboPerson.AddItem "高橋"
    ClearInputs
End Sub

' 登録ボタン：確かめる → 書く → 入力欄を空にする
Private Sub cmdRegister_Click()
    Dim msg As String
    Dim person As String
    Dim r As Long

    If cboPerson.ListIndex = -1 Then
        person = ""
    Else
        person = cboPerson.Value
    End If

    msg = ValidateEntry(txtDate.Value, person, txtItem.Value, txtQty.Value)
    If msg <> "" Then
        lblMessage.Caption = msg
        Exit Sub
    End If

    r = AppendEntry(ThisWorkbook.Worksheets(SHEET_NAME), txtDate.Value, person, _
                    txtItem.Value, txtQty.Value, chkUrgent.Value)

    ClearInputs
    lblMessage.Caption = r & " 行目に登録しました。"
    txtItem.SetFocus
End Sub

' 閉じるボタン
Private Sub cmdClose_Click()
    Unload Me
End Sub

' ×ボタン：入力途中の内容があるときは閉じずに知らせる
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu And HasInput() Then
        Cancel = True
        lblMessage.Caption = "入力途中の内容があります。［閉じる］ボタンで閉じてください。"
    End If
End Sub

' 品名か数量に何か入っていれば True
Private Function HasInput() As Boolean
    HasInput = (Trim(txtItem.Value) <> "" Or Trim(txtQty.Value) <> "")
End Function

' 入力欄を初期の状態に戻す
Private Sub ClearInputs()
    txtDate.Value = Format(Date, "yyyy/mm/dd")
    cboPerson.ListIndex = -1
    txtItem.Value = ""
    txtQty.Value = ""
    chkUrgent.Value = False
    lblMessage.Caption = ""
End Sub

シートは「注文一覧」という名前で用意しておきます。標準モジュールの ShowEntryForm を動かすと、フォームが表示されます。

コードの流れ

フォーム側のポイント

• AddItem は、リファレンスで「単一列のリスト ボックスやコンボ ボックスに項目を追加する」メソッドと説明されています。位置を省略すると、一覧の末尾に足されます。
• ListIndex は、何も選ばれていないとき -1 です。先頭の行が 0、次が 1 と続きます。担当が選ばれていないかどうかを、これで見分けています。cboPerson.ListIndex = -1 と代入すると、選択が外れます。
• Me は、コードが動いているそのフォーム自身を指すキーワードです。Unload Me と書くと、フォームの名前を変えてもコードを直さずに済みます。
• 入力チェックのメッセージは Label に出しています。 メッセージ ボックスを閉じる操作がいらないので、続けて入力し直せます。
• SetFocus は、指定したコントロールにフォーカスを移すメソッドです。登録のあと品名に戻しておくと、続けて入力できます。

Unload と Hide の違い

Hideで隠して、標準モジュール側で値を使う

「フォームで尋ねて、答えを呼び出し元で使う」形です。フォーム frmAsk に、テキストボックス txtName とボタン cmdOK がある想定です。

フォーム frmAsk 側：

Private Sub cmdOK_Click()
    Me.Hide
End Sub

標準モジュール側：

Public Sub AskName()
    frmAsk.Show                        ' モーダル表示。フォームが隠れるまで次の行へ進まない
    Debug.Print frmAsk.txtName.Value   ' Hide のあとも、コントロールの値を読める
    Unload frmAsk                      ' 使い終わったら破棄する
End Sub

Show のリファレンスには、モーダルのフォームは「隠されるかアンロードされるまで、後続のコードは実行されない」と書かれています。Hide のリファレンスには、隠されたオブジェクトのコントロールは、動いているアプリケーションからプログラムで利用できると書かれています。この2つを組み合わせた書き方です。最後に Unload で破棄しておくと、次に Show したときに Initialize から始まります。

選び方の判断表

モーダルとモードレスの違い

Show メソッドの引数で、表示のしかたを選べます。

ShowModal プロパティは、プロパティ ウィンドウで設定します（実行時は読み取り専用）。Show の引数で指定しておくと、表示のしかたがコードから読み取れます。

選び方の判断表

今回の登録フォームをモードレスにするには、ShowEntryForm の1行を変えます。

Public Sub ShowEntryForm()
    frmEntry.Show vbModeless
End Sub

モードレスでは Show の次の行がすぐに動くので、「フォームの入力を待ってから続きの処理をする」コードは、フォーム側のボタンのイベントに書きます。 今回のコードは、登録の処理をすべて cmdRegister_Click の中で終えているので、どちらの表示でも同じように動く作りです。

QueryCloseで×ボタンを扱う

QueryClose は、フォームが閉じる前に起きるイベントです。引数の CloseMode で、何がきっかけで閉じようとしているかが分かります。

Cancel に 0 以外の値を入れると、閉じる動きが止まります。

今回のフォームは2つ目の形です。品名か数量に何か入っているときだけ止めて、Label で知らせます。［閉じる］ボタンは Unload Me を呼ぶので CloseMode が vbFormCode になり、入力途中でも閉じられます。

×ボタンを止めるときは、閉じる手段を必ず1つ残します。 ［閉じる］ボタンを置き、Cancel プロパティを True にして Esc キーでも選べるようにしておくと、操作に迷いません。

Initialize・Activate・QueryClose・Terminateの発生順

リファレンスから読み取れる注意点です。

• Initialize は「読み込み」のたびに起きます。 Unload したフォームをもう一度 Show すると、読み込み直しになるので Initialize から始まります。Hide で隠しただけのフォームは読み込まれたままです。
• Activate は、フォームが見えているときにだけ起きます。 Load で読み込んだだけのフォームは、Show するまで見えません。
• Activate と Deactivate は、同じアプリケーションの中でフォーカスが移ったときに起きます。 ほかのアプリケーションとの間でフォーカスが移っても起きません。また、アンロードのときに Deactivate は起きません。
• Terminate は、End ステートメントなどでアプリケーションが通常と違う終わり方をしたときには起きません。

選択肢の追加を Initialize に書いているのは、読み込みにつき1回だけ動くからです。Activate に AddItem を書くと、フォームがアクティブになるたびに同じ選択肢が足されていきます。

主要コントロールのプロパティ・イベント早見表

• ComboBox と ListBox の使い分けは、リファレンスに目安があります。一覧を複数行いつも見せたいなら ListBox、場所を取らずに選ばせたいなら ComboBox です。
• 複数選択にした ListBox では、ListIndex ではなく Selected プロパティで選ばれた行を調べます（ListIndex のリファレンスの記載）。
• AddItem は、コントロールがデータに連結されているときは使えません（AddItem のリファレンスの記載）。

確かめて分かったこと

• IsDate は「10/6」や「2026-10-06」も日付として受け付けました。 確認環境では、どちらも CDate で 2026/10/06 になりました。年を省いた入力も通るので、入力の形をそろえたいときは、メッセージやラベルで「2026/10/06 の形」と例を見せておくと伝わりやすくなります。
• IsDate は「2026/2/30」を False にしました。 存在しない日付は、入力チェックの段階で止められます。
• 日付の文字列の解釈は、動かす環境の地域設定で変わりました。 同じ「2026/10/06」が、英語（米国）のロケールでは IsDate で False、日本語のロケールでは True でした。
• 「1.5」は IsNumeric を通ります。 整数だけを受け付けたいときは、CDbl(qty) <> Int(CDbl(qty)) のような確認を足す必要がありました。
• 見出しだけ・空のシートでも、End(xlUp).Row + 1 で2行目から書けました。 空のシートでは End(xlUp) が 1 を返すので、見出しを書いたあとに 2 行目へ進みます。
• 入力チェックを標準モジュールの関数にすると、フォームを開かずに11通りの入力をまとめて試せました。 条件を足したときの確かめ直しも、関数を呼ぶだけで済みます。

よくある質問

Q. ユーザーフォームとは？ A. テキストボックスやボタンなどのコントロールを自分で並べて作る、入力用の画面です。Visual Basic Editor の［挿入］メニューから［ユーザーフォーム］で追加します。

Q. Unload と Hide の違いは？ A. Unload はフォームをメモリから取り除き、Hide は画面から隠すだけで入力値を残します。入力が終わったら Unload、フォームの値をあとで読むなら Hide を使います。

Q. ユーザーフォームを表示したままシートを操作するには？ A. frmEntry.Show vbModeless でモードレス表示にします。既定はモーダルで、フォームに応答するまでほかの部分を使えません。

Q. ×ボタンで閉じられないようにするには？ A. UserForm_QueryClose で、CloseMode が vbFormControlMenu のときに Cancel = True とします。閉じるためのボタンを別に用意して、Unload Me で閉じられるようにします。

Q. コンボボックスに選択肢を入れるには？ A. UserForm_Initialize の中で cboPerson.AddItem "佐藤" のように1件ずつ追加します。Initialize は読み込みにつき1回だけ動くので、選択肢が重なりません。

まとめ

• 流れは「Initialize で選択肢→登録ボタンで確かめる→最終行の次に書く→入力欄を空にする」 の4つです。
• 入力チェックと登録は標準モジュールの関数にすると、フォームを開かずに試せます。
• 閉じるなら Unload、値を残して隠すなら Hide です。Hide のあとも、コントロールの値はコードから読めます。
• モーダルは入力が終わるまで待つ表示、モードレスはほかのウィンドウも見られる表示です。Show vbModeless で切り替えます。
• ×ボタンは QueryClose で扱えます。 CloseMode が vbFormControlMenu のときに Cancel = True で止められます。
• イベントは Initialize → Activate → QueryClose → Terminate の順です。選択肢の追加は Initialize に書きます。
• コンボボックスの未選択は ListIndex = -1 で見分けます。

参考・出典

• Microsoft Learn「Create a user form」 https://learn.microsoft.com/en-us/office/vba/excel/concepts/controls-dialogboxes-forms/create-a-user-form
• Microsoft Learn「UserForm object」 https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/userform-object
• Microsoft Learn「Show method」 https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/show-method
• Microsoft Learn「Hide method」 https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/hide-method
• Microsoft Learn「Load statement」 https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/load-statement
• Microsoft Learn「Unload statement」 https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/unload-statement
• Microsoft Learn「ShowModal property」 https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/showmodal-property
• Microsoft Learn「Initialize event」 https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/initialize-event
• Microsoft Learn「Activate, Deactivate events」 https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/activate-deactivate-events
• Microsoft Learn「QueryClose event」 https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/queryclose-event
• Microsoft Learn「Terminate event (Visual Basic for Applications)」 https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/terminate-event-visual-basic-for-applications
• Microsoft Learn「AddItem method (Microsoft Forms)」 https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/additem-method
• Microsoft Learn「ListIndex property」 https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/listindex-property
• Microsoft Learn「SetFocus method」 https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/setfocus-method
• Microsoft Learn「Style property」 https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/style-property
• Microsoft Learn「Cancel property (Microsoft Forms)」 https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/cancel-property-microsoft-forms
• Microsoft Learn「TextBox control」「ComboBox control」「ListBox control」「CheckBox control」「OptionButton control」「CommandButton control」「Label control」 https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/textbox-control ほか
• Microsoft Learn「Me keyword」 https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/me-keyword
• Microsoft Learn「IsDate function」 https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/isdate-function
• Microsoft Learn「IsNumeric function」 https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/isnumeric-function

（いずれも 2026-10-06 に確認）

株式会社RJC ― SI事業・SES事業・AI駆動開発。RJCは一緒に成長を楽しめる会社です。