特定のセルをワークブックを閉じる前に必須入力にするにはどうすればよいですか？

例えば、実名登録が必要なアンケートのために他のユーザーにワークブックを共有する場合、調査対象のすべてのユーザーがB1に自分の名前を入力する必要があります。しかし、時には一部のユーザーが調査後に名前を入力せずにワークブックを閉じてしまうことがあります。この記事では、ワークブックを閉じる前に特定のセルを必須入力にするVBAを紹介します。

VBAを使用してセルを必須入力にする

VBAを使用してセルを必須入力にする

1. 必須セルを含むワークブックを有効にし、Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. プロジェクトペインでThisWorkbookをダブルクリックし、右側のセクションリストから 「Workbook」と「BeforeClose」を選択し、以下のコードをスクリプトに貼り付けます。スクリーンショットをご覧ください：

VBA: セルを必須入力にする

    If Cells(1, 2).Value = "" Then
        MsgBox "Cell B1 requires user input", vbInformation, "Kutools for Excel"
        Cancel = True
    End If

3. その後、このコードを保存し、このポップアップウィンドウを閉じます。これで、ワークブックを閉じる際にセルB1が空白の場合、以下のようなダイアログが表示され、B1に入力するよう促されます。スクリーンショットをご覧ください：

ヒント: セルB1を他の目的のセルに変更できます。