【Excel VBA】UserFormで必須入力チェックをして未入力時に警告する方法

みなさんこんにちは。

Excel VBAでUserFormからデータを登録するとき、氏名や部署などの必須項目が空欄のまま登録されてしまうことがあるかと思います。

このような入力漏れは、登録処理の前にTextBoxの内容を確認し、未入力の場合に警告を表示することで防ぐことができます。

今回は、UserFormで必須入力チェックを行い、未入力時にMsgBoxで警告してSetFocusで入力欄へ戻す方法をご紹介したいと思います。

この記事はこんな人におすすめ

UserFormで必須入力チェックを実装したい人
TextBoxが空欄の場合に警告を表示したい人
入力漏れを防いでから登録処理へ進みたい人

今回作成するUserForm

今回は、UserFormへ「氏名」「部署」「電話番号」の3つのTextBoxと「登録」ボタンを配置します。

Excel VBAのUserFormに氏名・部署・電話番号の必須入力欄を配置した画面

TextBoxが空欄か確認する

まずは氏名を入力するTextBox1が空欄か確認します。前後に半角スペースが入力されている場合も未入力として扱うため、Trimを使用します。

If Trim(Me.TextBox1.Value) = "" Then

    '未入力の場合の処理

End If

MsgBoxで警告してSetFocusで戻す

未入力だった場合はMsgBoxで警告を表示し、SetFocusで該当するTextBoxへフォーカスを戻します。

If Trim(Me.TextBox1.Value) = "" Then

    '========================================
    ' 氏名が未入力の場合は警告を表示する
    '========================================
    MsgBox "氏名を入力してください。", vbExclamation

    '未入力のTextBoxへフォーカスを戻す
    Me.TextBox1.SetFocus

    'この後の登録処理を行わない
    Exit Sub

End If

Excel VBAのUserFormで必須項目が未入力の場合に警告メッセージを表示した画面

複数項目を順番にチェックする

必須項目が複数ある場合は、登録ボタンのクリックイベントで上から順番に確認すると分かりやすいです。

Private Sub CommandButton1_Click()

    '========================================
    ' 氏名の必須入力チェック
    '========================================
    If Trim(Me.TextBox1.Value) = "" Then
        MsgBox "氏名を入力してください。", vbExclamation
        Me.TextBox1.SetFocus
        Exit Sub
    End If

    '========================================
    ' 部署の必須入力チェック
    '========================================
    If Trim(Me.TextBox2.Value) = "" Then
        MsgBox "部署を入力してください。", vbExclamation
        Me.TextBox2.SetFocus
        Exit Sub
    End If

    '========================================
    ' 電話番号の必須入力チェック
    '========================================
    If Trim(Me.TextBox3.Value) = "" Then
        MsgBox "電話番号を入力してください。", vbExclamation
        Me.TextBox3.SetFocus
        Exit Sub
    End If

    '========================================
    ' すべて入力済みなら登録処理へ進む
    '========================================
    MsgBox "入力内容を登録します。", vbInformation

    'ここにシートへの登録処理などを記述する

End Sub