如何在Excel下拉列表中輸入時自動完成？

對於包含多個項目的數據驗證下拉列表，您需要在列表中上下滾動以找到所需的項目，或者正確地將整個單詞輸入到列表框中。有沒有辦法讓下拉列表在輸入相應字符時自動完成呢？這將有助於人們在帶有單元格下拉列表的工作表中更高效地工作。本教程提供了兩種方法來幫助您實現這一目標。

使用VBA代碼使下拉列表自動完成
輕鬆在2秒內使下拉列表自動完成
更多下拉列表教程...

使用VBA代碼使下拉列表自動完成

請按照以下步驟操作，以便在單元格中輸入相應字母後使下拉列表自動完成。

首先，您需要在工作表中插入一個組合框並更改其屬性。

1. 打開包含您希望設置為自動完成的下拉列表單元格的工作表。
2. 在插入組合框之前，您需要將開發工具選項卡添加到Excel功能區中。如果開發工具選項卡已顯示在您的功能區上，轉至第3步。否則，請按照以下步驟操作以使開發工具選項卡出現在功能區中：點擊「文件」>「選項」以打開「選項」窗口。在此「Excel選項」窗口中，點擊左側窗格中的「自定義功能區」，勾選「開發工具」複選框，然後點擊「確定」按鈕。參見截圖：
   
3. 點擊「開發工具」>「插入」>「組合框（ActiveX控件）」。
   
4. 在當前工作表中繪製一個組合框。右鍵單擊它，然後從右鍵菜單中選擇「屬性」。
   
5. 在「屬性」對話框中，請將「（名稱）」字段中的原始文本替換為「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 Applications窗口。

從現在開始，當您點擊下拉列表單元格時，下拉列表將自動彈出。您可以開始輸入字母，以使相應的項目在所選單元格中自動完成。參見截圖：

輕鬆在2秒內使下拉列表自動完成

對於大多數Excel用戶來說，上述VBA方法很難掌握。但是，使用Kutools for Excel的「可搜索下拉列表」功能，您可以在指定區域內輕鬆啟用數據驗證下拉列表的自動完成功能，僅需2秒鐘。更重要的是，該功能適用於所有Excel版本。

1. 要在您的下拉列表中啟用自動完成，首先選擇帶有下拉列表的區域。然後，導航到「Kutools」選項卡，選擇「下拉列表」>「使下拉列表可搜索，自動彈出」。
2. 在「使下拉列表可搜索」對話框中，點擊「確定」按鈕以保存設置。

結果

配置完成後，點擊指定範圍內的下拉列表單元格將彈出一個列表框。當輸入字符時，只要有一個項目完全匹配，整個單詞會立即在列表框中高亮顯示，只需按下Enter鍵即可填充到下拉列表單元格中。

相關文章：