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キーを押すだけでドロップダウンリストセルに値が入力されます。

関連記事：

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加 ｜列の移動 ｜非表示列の表示/非表示の切替｜ 範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキスト ライブラリ｜日付ピッカー｜データの統合 ｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数

Kutoolsはお好みの言語で利用可能 ― 英語、スペイン語、ドイツ語、フランス語、中国語、その他40以上の言語に対応！

Kutools for ExcelでExcelスキルを強化し、これまでにない効率を体感しましょう。 Kutools for Excelは300以上の高度な機能で生産性向上と保存時間を実現します。最も必要な機能はこちらをクリック...

Kutools for Excelの詳細はこちら... 無料ダウンロード...

---

Office TabでOfficeにタブインターフェースを追加し、作業をもっと簡単に

• Word、Excel、PowerPointでタブによる編集・閲覧を実現。
• 新しいウィンドウを開かず、同じウィンドウの新しいタブで複数のドキュメントを開いたり作成できます。
• 生産性が50%向上し、毎日のマウスクリック数を何百回も削減！

Office Tabの詳細はこちら... 無料ダウンロード...

---

全てのKutoolsアドインを一つのインストーラーで

Kutools for Officeスイートは、Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proをまとめて提供。Officeアプリを横断して働くチームに最適です。

• オールインワンスイート — Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proが含まれます
• 1つのインストーラー・1つのライセンス —— 数分でセットアップ完了（MSI対応）
• 一括管理でより効率的 —— Officeアプリ間で快適な生産性を発揮
• 30日間フル機能お試し —— 登録やクレジットカード不要
• コストパフォーマンス最適 —— 個別購入よりお得

Kutools for Officeの詳細はこちら... 無料ダウンロード...