如何在EXCEL里制作搜索引擎

如何在EXCEL里制作搜索引擎

将你的所有记录信息按照数据结构形式保存,其实就是一行一个工厂信息.
在插入一个工作表,选择视图--工具拦--控件工具箱,插入个命令按扭,双击,输入如下代码:
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 + 64, 提示
End Sub
其中基础表就是你存放数据的表名,
下来设置查询条件:
在新建的表,如在第三行依次写入与基础表相同的栏目名,如工厂,产品.....
在第四行留空,用数据有效性作成下拉选择条件框.
然后选择数据插入点,如上面代码的a7,(必须在条件栏下留一个空行),可以输入A6,A7...,但绝对不能是A5,然后选择条件查询就可以了,支持模糊查询.
上面代码显示的A1:L为数据存储区件,必须包含你的工厂,产品.....那一行,
C俯:L4为条件区间~~
试一下~~
如果实在还是不懂,可以发给我,帮你做一下
[email protected]

哦，回答的不错