Excelのドロップダウンリストに入力時に自動補完するにはどうすればよいですか？

多くの項目を持つデータ検証ドロップダウンリストでは、必要な項目を見つけるためにリストを上下にスクロールするか、リストボックスに正しい単語全体を入力する必要があります。対応する文字を入力したときにドロップダウンリストを自動補完させる方法はありますか？これにより、セルにドロップダウンリストがあるワークシートでの作業効率が向上します。このチュートリアルでは、それを実現するための2つの方法を提供します。

VBAコードを使用してドロップダウンリストを自動補完にする
ドロップダウンリストを2秒で簡単に自動補完にする
ドロップダウンリストのその他のチュートリアル...

VBAコードを使用してドロップダウンリストを自動補完にする

セルに対応する文字を入力した後にドロップダウンリストを自動補完にするには、次の手順を行ってください。

まず、ワークシートにコンボボックスを挿入し、そのプロパティを変更する必要があります。

1. 自動補完させたいドロップダウンリストセルが含まれているワークシートを開きます。
2. コンボボックスを挿入する前に、Excelリボンに「開発」タブを追加する必要があります。「開発」タブがリボンに表示されている場合は、ステップ3に進んでください。それ以外の場合は、次のようにしてリボンに「開発」タブを表示します：「ファイル」>「オプション」をクリックして「オプション」ウィンドウを開きます。この「Excelのオプション」ウィンドウで、左ペインの「リボンのユーザー設定」をクリックし、「開発」ボックスをチェックしてから「OK」ボタンをクリックします。スクリーンショットをご覧ください：
   
3. 「開発」>「挿入」>「コンボボックス（ActiveXコントロール）」をクリックします。
   
4. 現在のワークシートにコンボボックスを描画します。右クリックして、右クリックメニューから「プロパティ」を選択します。
   
5. 「プロパティ」ダイアログボックスで、「(Name)」フィールドの元のテキストを「TempCombo」に置き換えてください。
   
6. 「開発」>「デザインモード」をクリックして「デザインモード」をオフにします。

次に、以下のVBAコードを適用します。

1. 現在のシートタブを右クリックし、コンテキストメニューから「コードの表示」をクリックします。スクリーンショットをご覧ください：
   
2. 開いた「Microsoft Visual Basic for Applications」ウィンドウで、以下のVBAコードをコピーしてワークシートのコードウィンドウに貼り付けます。
   VBAコード: ドロップダウンリストに入力時に自動補完

   Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   'Update by Extendoffice: 2020/01/16
       Dim xCombox As OLEObject
       Dim xStr As String
       Dim xWs As Worksheet
       Dim xArr
       
       Set xWs = Application.ActiveSheet
       On Error Resume Next
       Set xCombox = xWs.OLEObjects("TempCombo")
       With xCombox
           .ListFillRange = ""
           .LinkedCell = ""
           .Visible = False
       End With
       If Target.Validation.Type = 3 Then
           Target.Validation.InCellDropdown = False
           Cancel = True
           xStr = Target.Validation.Formula1
           xStr = Right(xStr, Len(xStr) - 1)
           If xStr = "" Then Exit Sub
           With xCombox
               .Visible = True
               .Left = Target.Left
               .Top = Target.Top
               .Width = Target.Width + 5
               .Height = Target.Height + 5
               .ListFillRange = xStr
               If .ListFillRange = "" Then
                   xArr = Split(xStr, ",")
                   Me.TempCombo.List = xArr
               End If
               .LinkedCell = Target.Address
           End With
           xCombox.Activate
           Me.TempCombo.DropDown
       End If
   End Sub
   Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
       Select Case KeyCode
           Case 9
               Application.ActiveCell.Offset(0, 1).Activate
           Case 13
               Application.ActiveCell.Offset(1, 0).Activate
       End Select
   End Sub

   
3. 「Alt + Q」キーを同時に押して、Microsoft Visual Basic for Applicationsウィンドウを閉じます。

今後は、ドロップダウンリストセルをクリックすると、ドロップダウンリストが自動的に表示されます。文字を入力し始めると、対応する項目が選択されたセルで自動的に補完されます。スクリーンショットをご覧ください：

ドロップダウンリストを2秒で簡単に自動補完にする

ほとんどのExcelユーザーにとって、上記のVBA方法は習得するのが難しいです。しかし、Kutools for Excelの「検索可能なドロップダウンリスト」機能を使用すると、指定された範囲内のデータ検証ドロップダウンリストに対して自動補完を有効にすることができます。さらに、この機能はすべてのExcelバージョンで利用可能です。

1. ドロップダウンリストで自動補完を有効にするには、まずドロップダウンのある範囲を選択します。次に、「Kutools」タブに移動し、「ドロップダウンリスト」>「ドロップダウンリストを検索可能にする、自動ポップアップ」を選択します。
2. 「ドロップダウンリストを検索可能にする」ダイアログボックスで、「OK」ボタンをクリックして設定を保存します。

結果

設定が完了すると、指定された範囲内のドロップダウンリストセルをクリックするとリストボックスが表示されます。文字を入力すると、1つの項目が完全に一致するとすぐに、リストボックス内でその単語全体が強調表示され、Enterキーを押すだけでドロップダウンリストセルに値が入力されます。

関連記事：