Question

Excel表的应用，制作简单的搜索引擎

我有一个Excel表，里面有很多药名，及个个药物的报销比例，价格等，我怎么可以就是在输入一个药物名称中的一个字的时候，可以出现很多都含有该名字的药物给我挑选，就好想一些字典那样。

Answer 1

看图：

1、按照图片的格式，将数据录入到某张表格中（特别是：“搜索”和药名输入的地方，要按照图中的行列位置，否则无法测试！）

2、打开所在表格的代表窗口，将下面代码复制进去：

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target <> Range("b16") Then Exit Sub

    If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData

    Range("A2").Select

    ActiveSheet.Range("$A$1:$D$11").AutoFilter Field:=1, Criteria1:="=" & "*" & Range("b16").Value & "*"

    Range("b16").Select

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If ActiveSheet.FilterMode = False Then Exit Sub

    If Target.Count > 1 Then Exit Sub

    If Target <> Range("a16") Then Exit Sub

    ActiveSheet.ShowAllData

End Sub

你先看看测试情况，合不合你的意，可以的话再告诉如何修改，以便适合你的表格。

追问

老大，我看不到图片，能发到我QQ（447851891）上嘛，还有，代表窗口是什么，我在网上找说在commandbutton控件上输入，但是我不知道怎么输入。

老大，我看不到图片，能发到我QQ（447851891）上嘛，还有，代表窗口是什么，我在网上找说在commandbutton控件上输入，但是我不知道怎么输入。就是这里http://hi.baidu.com/fanlike/blog/item/ac31b8121f6ed3c7c3fd78d9.html

追答

加qq：109217166
把文件传给你

追问

加了老大！！

Answer 2

自动筛选-条件为包含就行

追问

因为这个表格里面的数据很多，如果这样搜索的话一点都直观，而且比较麻烦，而且经常要查，如果用自动筛选的话，要经常切换，查出来要定位在去查看结果的其他信息！

追答

查出来要定位在去查看结果的其他信息
这句看不懂，难道你的数据不是按行排列的？你什么信息都没有，就这么个笼统的介绍，别人也没法帮你，通常来说，如要要新建一个查询表，一般用index+small数组公式提，但是这个要看你的原始表的数据量，要不然计算速度会让你抓狂，再一个就是用VBA了

追问

帮忙做一个Excel表数据库的搜索引擎
烟酸 02 西药费 0.2 软胶囊
烟酸肌醇 02 西药费 0.2 片剂
如这些数据，我在一个特定的单元格里，输入如“烟酸”，那它有“烟酸”及“烟酸肌醇”给我选择，我选择后，可以看到对应单元格的其他内容。
万分感谢！！

追答

选中第一行，筛选-自动筛选，点A列第一个单元格下拉小箭头-自定义-包含-烟酸
我不明白，什么查看其他信息要定位什么意思，难道你用的是查找？

追问

老大，这个我会，但是我要查的不是一个两个，可能是几十个。我想实现的是如一些字典那样，如我输入的关键词时，我可以减一个字或加一个字来扩大或缩减范围，不用次次都要再按一次上述的操作。或者跟简单的说，这自定义自动筛选的窗口，如何将它定住，按了确定他不会消失，可以继续修改关键词，不用搜一次打开一次。

Answer 3

筛选呀， 我个哥呀！

Answer 4

强烈推荐一个学习的网站:

包管你认真在这2个地方泡上30天,马上变成excel高手!

追问

能给个网址吗，看不到网址！！