摘要：今天跟大家分享下我们如何通过Deepseek来编写VBA代码，制作模糊搜索的下拉菜单，这个等来十来年的功能，用Deepseek竟然几分钟就搞定了，不得不感叹AI工具的强大，我们以后能干的过AI吗，这真的是个问题啊？
今天跟大家分享下我们如何通过Deepseek来编写VBA代码，制作模糊搜索的下拉菜单，这个等来十来年的功能，用Deepseek竟然几分钟就搞定了，不得不感叹AI工具的强大，我们以后能干的过AI吗，这真的是个问题啊？
1. 首先我们需先新建一个XLSM格式的Excel文件，这个文件能否保存宏代码
2. 打开文件，新建一个sheet，将名称更改数据：数据源
3. 在数据源这个sheet中的D列这个区域中来填写下拉的内容
4. 新建第二个sheet，我们是需要在这里实现模糊匹配的下拉菜单的
在里面找到文本框（TextBox）和列表框（ListBox）直接插入即可，位置大小可以随意设置
之后需要点击【设计模式】退出设计模式，不然的话窗体不会生效。
按下快捷键ALT+F11调出VBA的设置窗口，之后会在右侧看到对应的sheet名称，我们需要找到想要实现这个效果的sheet，在这里是sheet1，所以我们就双击sheet1，复制代码，将其直接按下快捷键Ctrl+V粘贴，最后按下快捷键Ctrl+S保存一下就可以了
设置完毕后，鼠标三击单元格，激活文本框，在里面输入即可自动匹配自己需要的数据
' 在模块顶部声明常量Const DATA_SHEET As String = "数据源" ' 数据源工作表名称Const DATA_COL As String = "D" ' 数据源所在列Const TARGET_COL As Integer = 1 ' 目标列（A列为1）' 主选择事件Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Not IsValidTarget(Target) ThenHideControlsExit SubEnd IfResetControlsPositionControls TargetLoadDataEnd Sub' 输入实时处理Private Sub TextBox1_ChangeUpdateSearchResults TextBox1.TextEnd Sub' 列表点击处理Private Sub ListBox1_ClickIf ListBox1.ListIndex = -1 Then Exit SubActiveCell.Value = ListBox1.ValueHideControlsEnd Sub' ================ 核心功能函数 ================' 验证目标单元格有效性Private Function IsValidTarget(Target As Range) As BooleanIsValidTarget = (Target.Column = TARGET_COL) And _(Target.Row >= 2) And _(Target.Count = 1)End Function' 隐藏控件Private Sub HideControlsListBox1.Visible = FalseTextBox1.Visible = FalseListBox1.ClearTextBox1.Text = ""End Sub' 重置控件状态Private Sub ResetControlsTextBox1.Visible = TrueListBox1.Visible = TrueTextBox1.Text = ""ListBox1.ClearEnd Sub' 定位控件位置Private Sub PositionControls(Target As Range)' 文本框位置（覆盖单元格）With TextBox1.Top = Target.Top.Left = Target.Left.Width = Target.Width.Height = Target.HeightEnd With' 列表框位置（下方展开）With ListBox1.Top = Target.Top + Target.Height.Left = Target.Left.Width = Target.Width * 1.5.Height = Target.Height * 8End WithEnd Sub' 加载数据源Private Sub LoadDataDim arrWith Worksheets(DATA_SHEET)Dim lastRow As LonglastRow = .Cells(.Rows.Count, DATA_COL).End(xlUp).RowIf lastRow
0 Thenk = k + 1results(k) = arr(i, 1)End IfNext' 更新列表框ListBox1.ClearIf k > 0 ThenReDim Preserve results(1 To k)ListBox1.List = resultsElseListBox1.AddItem "无匹配结果"End IfEnd Sub默认是在A列来实现这个效果的，如果你想在其他列实现这个模糊的搜索下拉，就需要对代码做一下修改，只需将前3行修改为自己对应的数据即可
Const DATA_SHEET As String = "数据源" ' 数据源工作表名称Const DATA_COL As String = "D" ' 数据源所在列Const TARGET_COL As Integer = 1 ' 目标列（A列为1）如果你想要提高工作效率，不想再求同事帮你解决各种Excel问题，可以了解下我的专栏，WPS用户也能使用，讲解了函数、图表、透视表、数据看板等常用功能，AI的也已经在路上了，后期都会免费更新的
来源：湖北台教育要闻
免责声明：本站系转载，并不代表本网赞同其观点和对其真实性负责。如涉及作品内容、版权和其它问题，请在30日内与本站联系，我们将在第一时间删除内容!