输入名称首写字母实现快速检索查找

stuta

有一个药品数据目录表格（excel2003），里面的药品信息很多，想要快速定位查询需要的药品信息。
目的如下：比如输入 输入a，可以检索第一汉字为a开头的药品，输入ab，马上检索到第一个为a开头、第二个汉字首写字母b的药品

请问怎样实现，现附上药品表格，请大侠帮帮忙！(基础应用和函数子论坛里面无人应答，只好发这里求大侠帮忙！)

李甲

楼主搜索 联想输入
这类帖子很多的
首先要有目录，利用拼音函数获得首字拼音
后面就简单了

stuta

李甲 发表于 2012-12-17 18:08
楼主搜索 联想输入
这类帖子很多的
首先要有目录，利用拼音函数获得首字拼音

刚照你说的，搜了下联想输入，那个是方便输入的，不是可以直接定位的！我既需要联想输入，也需要输入完点击就能快速定位的！ 有大侠能帮个忙吗？？？

蓝桥玄霜

1. Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2.     Dim i&, Arr, dm$
   
3.     Dim Language As Boolean
   
4.     Dim myStr As String, d
   
5.     Set d = CreateObject("Scripting.Dictionary")
   
6.     On Error Resume Next
   
7.     With Me.TextBox1
   
8.         If .Text = "" Then [b:b].ClearContents: Exit Sub
   
9.         For i = 1 To Len(.Value)
   
10.             If Asc(Mid$(.Value, i, 1)) > 255 Or Asc(Mid$(.Value, i, 1)) < 0 Then
    
11.                 Language = True
    
12.                 myStr = myStr & Mid$(.Value, i, 1)
    
13.             Else
    
14.                 myStr = myStr & LCase(Mid$(.Value, i, 1))
    
15.             End If
    
16.         Next
    
17.     End With
    
18.     With Sheet2
    
19.         Arr = Sheet1.[a1].CurrentRegion
    
20.         Arr = Sheet1.[a1].Resize(UBound(Arr), 13)
    
21.         .[b:b].ClearContents
    
22.         If myStr = "" Then Exit Sub
    
23.             If Language <> True Then
    
24.                 For i = 2 To UBound(Arr)
    
25.                     dm = Arr(i, 13)
    
26.                     If InStr(dm, myStr) > 0 Then
    
27.                         d(Arr(i, 3)) = ""
    
28.                     End If
    
29.                 Next
    
30.             Else
    
31.                 For i = 2 To UBound(Arr)
    
32.                     If InStr(Arr(i, 3), myStr) > 0 Then
    
33.                         d(Arr(i, 3)) = ""
    
34.                     End If
    
35.                 Next
    
36.             End If
    
37.         .[b3].Resize(d.Count, 1) = Application.Transpose(d.keys)
    
38.     End With
    
39. End Sub

复制代码

蓝桥玄霜

点击A1单元格显示文本框，输入中英文字母均可。
请见附件。

蓝桥玄霜

表格1药品目录增加时会自动增加相应的首字母字符串。
请见附件。

stuta

蓝桥玄霜 发表于 2012-12-17 20:45
表格1药品目录增加时会自动增加相应的首字母字符串。
请见附件。

谢谢蓝桥版主！！！ 刚试过改了，可以快速输入首写拼音字母生成我需要的药品名，可是我需要是表1中的这个药品所有信息，比如amxl，我点击确认了是“阿莫西林克拉维酸钾颗粒”后，希望得到这个药的所有信息，而不仅仅是得到药品名称！
excel可以做到这个吗？难道非要数据库信息系统才成？

蓝桥玄霜

可以做到的。这些信息怎么显示？显示在哪里？

ashengz86

名字出来了 直接vlookup呗

stuta

蓝桥玄霜 发表于 2012-12-18 11:23
可以做到的。这些信息怎么显示？显示在哪里？

你都分开在第二个表格查询了，那就把查找到的药品完整信息显示在第二个表格吧！
当然最好是能在第一个表格直接定位，因为可能找到后还要修改部分信息。（如果可以的话也把直接定位第一个表格的做到一个案例）谢谢！！！