在excel中如何建立一个条件搜索表呢
发布网友
共4个回答
热心网友
一、制作搜索引擎方法：
在插入一个工作表,选择"视图"--"工具拦"--"控件工具箱",插入个命令按扭,双击,输入如下代码:
Private Sub CommandButton1_Click()
On Error GoTo 0
Application.EnableEvents = False '可选
[a7].CurrentRegion.Clear
Sheets("基础表").Range("A1:L" & Sheets("基础表").[a1].CurrentRegion.Rows.Count). _
AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("C3:L4"), _
CopyToRange:=Range("A7"), Unique:=False
r = Range("a7").End(xlDown).Cells(2, 1).Row
MsgBox "符合您查询条件的产品共有" & r - 8 & "个!", vbOKOnly + , "提示"
End Sub
其中"基础表"就是你存放数据的表名,
下来设置查询条件:
在新建的表,如在第三行依次写入与基础表相同的栏目名,如工厂,产品.....
在第四行留空,用数据有效性作成下拉选择条件框.
然后选择数据插入点,如上面代码的a7,(必须在条件栏下留一个空行),可以输入A6,A7...,但绝对不能是A5,然后选择条件查询就可以了,支持模糊查询.
上面代码显示的A1:L为数据存储区件,必须包含你的工厂,产品.....那一行,
C3:L4为条件区间
二、EXCEL的使用技巧：
1、右键单击窗口下面的工作表标签，如“Sheet1”.在弹出的菜单中选择“选定全部工作表”
2、如何快速删除单元格信息， 有一排数据，想快速删除这组数据，可以使用“填充删除法”。选中该列空白单元格，将鼠标移至该单元格右下方，鼠标变成黑色十字后，向上拖动填充。整组数列填充空白完成，等于删除了整组数列。
3、excel对每个单元格都有默认的命名方式，即字母+数字，如A7，表示第一列的第七排单元格。如果想按照我们自己的想法去重新命名一个单元格，如，将B7改为“我的单元格”，则首先点击该单元格，，选中左上角的名字，修改为“我的单元格”
4、想快速查看一列或者排的和，可以单击这拍最后一个有数字的单元格，网上拖动全部选择，excel会自动显示选择的这列的。
5、单元格内的数据有批注，格式，内容等等，但是只想要单纯的数字，不需要其他东西时，可以选中该单元格，点编辑——清除，可以选择清除格式，内容，批注，或者全部东西都删除。
6、选中不相邻的单元格，可以先按住ctrl，再进行点击选择。
热心网友
sheet1
A B C D
姓名 地址 电话 传真
张三 北京 123 456
李四 上海 7 567
王五 南京 8000 444
sheet2
在b1单元格输入姓名即可
热心网友
用VBA实现更完美
如您的数据在sheet1表中，在sheet2表中插入一个文本框textbox1
在sheet2表输入如下代码
Private Sub TextBox1_Change()
Dim x&, r&
Dim t
t = TextBox1.Value
a = 4
Range("A4:E" & Range("A65536").End(xlUp).Row).ClearContents
r = Sheets("sheet1").Range("A65536").End(xlUp).Row
For x = 4 To r
With Sheets("sheet1").Range("A" & x & ":E" & x)
If Not .Find(t, LookIn:=xlValues) Is Nothing Then
Cells(a, 1).Resize(1, 5) = Sheets("sheet1").Cells(x, 1).Resize(1, 5).Value
a = a + 1
End If
End With
Next x
End Sub
在文本框中输入任意字符都将找到的数据提取到sheet2表中
热心网友
使用高级筛选 具体用法http://jingyan.baidu.com/article/bad08e1ea5faa009c951217f.html
