Excel创建可搜索的下拉列表

例如，您需要用于下拉列表的源数据在范围A2：A9中。

Excel

此方法需要组合框而不是数据验证下拉列表。 要创建可搜索的下拉列表，请执行以下操作。

1。 如果你找不到 开发人员 功能区中的标签，请按以下步骤启用“开发人员”选项卡。

1）。 在Excel 2010和2013中，单击 文件 > 期权。 和在 期权 对话框，单击 自定义功能区 在右窗格中，检查 开发人员 框，然后单击 OK按钮。 看截图：

image

2）。 在Outlook 2007中，单击 办公室 按钮> Excel选项。 在** Excel选项** 对话框，单击 最火热 在右栏中，然后检查 在功能区显示开发人员选项卡 框，最后点击 OK 按钮。

image

2。 展示后 开发人员 标签，请点击 开发人员 > 插页 > 组合框。 看截图：

image

3。 在工作表中绘制组合框并右键单击它。 选择 楼盘 从右键菜单。

image

4。 在里面 楼盘 对话框中，您需要：

1）。 选择 假 在 AutoWordSelect 领域;

2）。 在中指定一个单元格 LinkedCell 领域。 在这种情况下，我们输入A12;

3）。 选择 2-fmMatchEntryNone 在 MatchEntry 领域;

4）。 类型 下拉列表 到 列表填充范围 领域;

5）。 关上 楼盘 对话框。 看截图：

image

5。 现在点击关闭设计模式 开发人员 > 设计模式.

6。 选择一个空白单元格C2，然后复制并粘贴公式 = - ISNUMBER（IFERROR（SEARCH（ 12，A2,1）， “”）） 进入公式栏，然后按Enter键。 他们将其拖放到单元格C9以自动填充具有相同公式的选定单元格。 看截图：

image

笔记:

1。 12是您在步骤4的LinkedCell字段中指定的单元格;

2。 完成上述步骤后，现在可以对其进行测试。 在下拉框中输入一个字母C，你会看到所有包含C的单元格填充了数字1。

7。 选择单元格D2，把公式 = IF（C2 = 1，COUNTIF（ 2：C2,1）， “”） 进入公式栏，然后按Enter键。 然后将D2中的填充控制柄向下拖动到D9以填充范围D3：D9。

image

8。 选择单元格E2，复制并粘贴公式 =IFERROR(INDEX(2:9,MATCH(ROWS(2:D2),2:9,0)),"") 进入公式栏并按Enter键。 然后将E2中的填充句柄拖到E9以填充单元格。 然后你会看到单元格填充如下面的截图所示。

image

9。 现在您需要创建一个名称范围。 请点击 公式 > 定义名称.

image

10。 在里面 新名字 对话框中输入 下拉列表 成 名字 框中键入公式 =2:INDEX(2:9,MAX(2:9),1) 到 指 框，然后单击 OK 按钮。

image

11。 现在，通过单击启用设计模式 开发人员 > 设计模式。 然后双击在步骤3中创建的组合框来打开 Microsoft Visual Basic for Applications 窗口。

12。 将下面的VBA代码复制并粘贴到代码编辑器中。

image

VBA代码：使下拉列表可搜索

<pre class="brush:vb notranslate" style="padding: 10px; font: 400 14px/21px Consolas, monospace, serif; color: rgb(10, 1, 1); border-radius: 0px; display: block; margin: 20px 0px; word-break: break-all; overflow-wrap: break-word; white-space: pre-wrap; background: rgb(245, 245, 245); border: 0px; tab-size: 4; overflow: auto; letter-spacing: normal; orphans: 2; text-align: start; text-indent: 0px; text-transform: none; widows: 2; word-spacing: 0px; -webkit-text-stroke-width: 0px; text-decoration-style: initial; text-decoration-color: initial;">Private Sub ComboBox1_GotFocus()
ComboBox1.ListFillRange = "DropDownList"
Me.ComboBox1.DropDown
End Sub</pre>

13。 关上 Microsoft Visual Basic for Applications 窗口。

从现在开始，当你开始在列表框中输入时，它将开始模糊搜索，并在下拉列表中列出相关值。

[图片上传中...(image-df165b-1569569303388-0)]

注意：关闭并重新打开工作表后，您在步骤12中创建的VBA代码将自动删除。 所以，您需要将此工作簿保存为Excel宏启用工作簿格式