如何在EXCEL里制作搜索引擎
答案:2 悬赏:30 手机版
解决时间 2021-01-02 03:09
- 提问者网友：一抹荒凉废墟
- 2021-01-01 22:52
如何在EXCEL里制作搜索引擎
最佳答案
- 五星知识达人网友：风格不统一
- 2021-01-01 22:58
将你的所有记录信息按照数据结构形式保存,其实就是一行一个工厂信息.
在插入一个工作表,选择视图--工具拦--控件工具箱,插入个命令按扭,双击,输入如下代码:
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]
在插入一个工作表,选择视图--工具拦--控件工具箱,插入个命令按扭,双击,输入如下代码:
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]
全部回答
- 1楼网友：梦中风几里
- 2021-01-01 23:50
哦，回答的不错
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯