Excelで簡単にサジェスト機能を作る方法｜初心者でもできるマクロ活用術

Excelを使っていると、長いリストから目的の項目を探すのが大変ですよね。そんなときに便利なのが「サジェスト機能」です。Google検索のように、入力した文字に合わせて候補が表示される機能をExcelでも実現できます。今回は、初心者の方でもわかりやすく、マクロを使ってサジェスト機能を作る方法をご紹介します。

サジェスト機能とは？
マクロを使ってサジェスト機能を実現する方法
注意点と補足
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

サジェスト機能とは？

Excelのイメージ

サジェスト機能とは、文字を入力する際に、入力内容に基づいて候補を自動的に表示する機能です。例えば、Excelで「山」と入力すると、「山田」「山本」などの候補が表示され、選択することで入力が簡単になります。

マクロを使ってサジェスト機能を実現する方法

Excelでは、VBA（Visual Basic for Applications）というマクロ機能を使って、サジェスト機能を実装できます。以下の手順で設定してみましょう。

マクロ有効のExcelファイルを作成する

まず、Excelを開き、「名前を付けて保存」で「Excelマクロ有効ブック（.xlsm）」として保存します。これでマクロを使用できる状態になります。

VBAエディタを開く

Excelの「開発」タブから「Visual Basic」をクリックして、VBAエディタを開きます。もし「開発」タブが表示されていない場合は、Excelの設定から表示を有効にしてください。

モジュールを挿入する

VBAエディタで「挿入」→「標準モジュール」を選択し、新しいモジュールを追加します。

サジェスト機能のコードを入力する

以下のコードを新しく追加したモジュールにコピー＆ペーストします。

vba

Sub 入力候補表示(Sh As String, Rg As String, Tg As Range)

    Dim foundCell As Range

    Dim strFormula As String

    Dim matchKey As String

    Dim firstAddress As String

    Dim matchWord As String

    Dim roopCount As Long
    If Tg.Count > 1 Then Exit Sub
    matchKey = Tg.Value

    Set foundCell = Worksheets(Sh).Range(Rg).Find(matchKey, LookAt:=xlPart)
    If foundCell Is Nothing Then Exit Sub
    strFormula = ""

    roopCount = 0

    firstAddress = foundCell.Address

    Do

        matchWord = foundCell.Value

        If InStr(matchWord, matchKey) > 0 Then

            strFormula = strFormula & matchWord & ","

        End If

        roopCount = roopCount + 1

        Set foundCell = Worksheets(Sh).Range(Rg).FindNext(foundCell)

    Loop While Not foundCell Is Nothing And firstAddress <> foundCell.Address

If Len(strFormula) > 0 Then Application.EnableEvents = False Tg.Validation.Delete Tg.Validation.Add Type:=xlValidateList, Formula1:=strFormula Tg.Validation.ShowError = False Application.EnableEvents = True End If End Sub

このコードは、指定したシートと範囲から入力内容に一致する候補を探し、入力規則として設定するものです。

シートの変更イベントにコードを追加する

次に、対象となるシートのコードウィンドウに以下のコードを追加します。

vba

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 1 Then

        Call 入力候補表示("辞書", "A", Target)

    End If

End Sub

このコードは、シートのA列に入力があった場合に、先ほどのサジェスト機能を呼び出すものです。

辞書となるデータを準備する

「辞書」という名前のシートを作成し、A列に候補となるデータ（例氏名や商品名など）を入力します。このデータがサジェスト機能の候補として使用されます。

動作確認をする

シートに戻り、A列のセルに文字を入力してみてください。入力した文字に一致する候補がドロップダウンリストとして表示されるはずです。

注意点と補足

* この方法では、部分一致で候補を表示します。完全一致を求める場合は、コードを修正する必要があります。
* 入力規則のリストに表示できる文字数には制限があります。大量のデータを扱う場合は、他の方法を検討してください。
* VBAのコードはExcelのバージョンや設定によって動作が異なる場合があります。動作しない場合は、Excelの設定やコードの見直しを行ってください。