#发优质内容享分成#

嘿，朋友们，有没有遇到过这样的“悲剧”：在Excel里，那个通过数据验证制作的传统的下拉菜单。

如果内容很多，那么选个内容得拉到地老天荒，眼睛都快瞪成二郎神了，结果一不留神，目标还是消失在茫茫“菜海”中。录入数据变成了体力活，累觉不爱啊！

更糟糕的是，这些菜单项的字体大小还一成不变，无法随心所欲地调整以适应我们的需求，实在是让人头疼不已！

但别怕，今天我就是来拯救你们的超级英雄，要揭秘一个绝技——只需动动手指，输入几个关键字，你的“菜”立刻现身，轻松又高效！想不想看看这神奇的一幕？咱们这就开演！

第一步：打造“一主一辅”工作表搭档

在Excel里有一对亲密无间的工作表搭档——一个负责“台前表演”（我们称之为“录入”工作表），

另一个则默默在“幕后准备”（我们称之为“列表”工作表）。

第二步：召唤ActiveX控件小助手

接下来我们要给“主工作表”找两个得力的小帮手——ActiveX控件。

一个呢，是文本框，它就像是个小记事本，专门用来记录我们输入的数据；

另一个，则是列表框，它就像是个魔法菜单，能展示出各种选项供我们选择。

首先，大家得找到那个藏得很深的“开发工具”选项卡（如果它没出现在你的工具栏上，别急，去“文件”-“选项”-“自定义功能区”里找找，把它请出来）。

然后，咱们就点击“开发工具”里的“插入”，这时候，ActiveX控件的大家庭就展现在我们眼前了。从这里面，我们要挑出“文本框”和“列表框”这两个小家伙，在“主工作表”上给它们找个舒服的位置，让它们站好岗。

不过，为了让它们以后能更好地为我们服务，咱们得给它们起个既好记又实用的名字。

就把文本框的名字改成“录入框”吧，听起来就像是个专门负责记录数据的小能手；而列表框呢，咱们就叫它“列表框”，一听就知道它是用来展示各种选项的。

第三步：编写VBA代码实现功能

请大家点击“开发工具”选项卡中的“Visual Basic”按钮，进入VBA编辑器。然后，找到与“录入表”对应的Sheet对象，双击打开代码窗口。

在代码窗口中，我们要编写三段VBA代码：（下面可以直接复制使用）

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Then Me.录入框.Visible = True Me.录入框.Top = Target.Top Me.录入框.Left = Target.Left Me.录入框.Width = Target.Width Me.录入框.Height = Target.Height Me.录入框.Value = "" Me.列表框.Left = Target(1, 2).Left Me.列表框.Top = Target(1, 2).Top Else Me.录入框.Visible = False Me.列表框.Visible = False End IfEnd SubPrivate Sub 列表框_Click() ActiveCell.Value = 列表框.Value Me.录入框.Visible = False Me.列表框.Visible = FalseEnd SubPrivate Sub 录入框_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Me.列表框.Visible = True 列表框.Clear Set rngs = Sheet2.Range("A2", Sheet2.Range("A2").End(xlDown)) For Each Rng In rngs If InStr(Rng.Value, 录入框.Value) Then 列表框.AddItem Rng.Value NextEnd Sub

只需动动手指，输入几个关键字，你的“菜”就能立刻现身，再也不用在那茫茫“菜海”中苦苦寻觅了。这不仅大大提高了我们的工作效率，还让我们的眼睛得到了解放，再也不用瞪成二郎神啦！

好了，今天的揭秘之旅就到这里啦！希望你们喜欢这个绝技，并在实际运用中发挥出它的最大威力。我们下次再见！