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

修法布施得聪明智慧，多分享让生活更美好。上次分享了《Excel怎样查找表格纵横向两值A、B值相应值》，介绍了找表格纵横向两值A、B值相应值处理方法，下面通一实例分享逆过程，相应值查找A、B值处理方法。 3Excel如何查找表格纵横标的目的两值A、B值响应值

文章插图

文章插图

需要这些哦
Microsoft Office Excel 2007
Excel VBA
处置方式/
1起首打开Microsoft Office Excel 2007，上例文件另存文件名《Excel在工作表中如何建立搜刮框来查找数据 .xlsm》（演示文件，下面代码复制到能运行宏的工作簿都可以）如图。

文章插图

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

文章插图

文章插图

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

文章插图

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

文章插图

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
If
Next myr
r = Range("a" & Rows.Count).(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("不存在", "不存在")
【Excel在工作表中怎样创建搜索框来查找数据】 If
Sub
Private Sub CommandButton2_Click()
'2020-10-12 22:39:21
Dim r As Long
TextBox1.Text = ""
r = Range("a" & Rows.Count).(xlUp).Row
If r > 2 Then Range("a3:b" & r).ClearContents
Sub

6以上操作动态过程如下：