Excel在工作表中怎样创建搜索框来查找数据

3Excel如何查找表格纵横标的目的两值A、B值响应值

工具/原料

• Microsoft Office Excel 2007
• Excel VBA

处置方式/步骤

1. 1

   首先打开Microsoft Office Excel 2007，上例文件另存文件名《Excel在工作表中如何建立搜索框来查找数据 .xlsm》（演示文件，下面代码复制到能运行宏的工作簿都可以）如图。

   
2. 2

   在表“检索”增添3个ActiveX控件别离为文本框、【检索】号令按钮、【断根】号令按钮（【插入控件】东西增添参考经验《如何批量提取文件夹下文件名》）

   1如何批量提取文件夹下文件名

   
3. 3

   鼠标移到当前工作表标签栏“检索”表（需要在哪表计较在哪表），右键，弹出快捷菜单，如下图。

   
4. 4

   在快捷菜单找到【查看代码】并单击，打开VBE（宏）编纂界面，如下图。

   
5. 5

   在右边代码框中复制下面代码到该框中，如下图：

   Private Sub CommandButton1_Click()

       '2020-10-12 22:12:18

       Dim myr As Range, myrs As Range, i As Long, m As String, mb(), r As Long

       Set myrs = ActiveWorkbook.Sheets("数据").UsedRange

       m = TextBox1.Text

       ReDim mb(1 To myrs.Count, 1 To 2)

       For Each myr In myrs

           If myr.Text = m Then

               i = i + 1

               mb(i, 1) = myrs.Cells(myr.Row, 1).Value

               mb(i, 2) = myrs.Cells(1, myr.Column).Value

           End If

       Next myr

       r = Range("a" & Rows.Count).End(xlUp).Row

       If r > 2 Then Range("a3:b" & r).ClearContents

       If i > 0 Then

           Range("a3").Resize(i, 2) = mb

       Else

           Range("a3").Resize(1, 2) = Array("不存在","不存在")

       End If

   End Sub

   Private Sub CommandButton2_Click()

       '2020-10-12 22:39:21

       Dim r As Long

       TextBox1.Text =""

       r = Range("a" & Rows.Count).End(xlUp).Row

       If r > 2 Then Range("a3:b" & r).ClearContents

   End Sub

6. 6

   以上操作动态过程如下：

   
7. 7

   回到工作表窗口，在文本框输入数据，按【检索】、【断根】号令按钮成果，运行过程如下图。

   
8. 8

   若是感觉这篇经验帮到了您，请点击下方的 “投票点赞" 或者“保藏”撑持我！还有疑问的话可以点击下方的 “我有疑问”，感谢啦！

注重事项

• 动态图片要双击当作零丁大图才能播放全过程。