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

蓝桥玄霜

都在表1中完成。请见附件。

stuta

蓝桥玄霜 发表于 2012-12-18 20:06
都在表1中完成。请见附件。

谢谢蓝桥玄霜版主！ 因为初学者，不知道隐藏的M列首字母拼音码如何来的。然后自己想更改表里面的内容，或者直接拿另外的信息覆盖后，还是发现M是最初的药品目录字母缩写，如何实现M列自动根据药品名称改变而改变成对应的首写拼音字母！

蓝桥玄霜

原附件中已经有根据C列药品增加，自动可在M列生成拼音首字母的。

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target = "" Then GoTo 100
   
4. If Target.Column <> 3 Or Target.Row < 2 Then Exit Sub
   
5. Dim aa$
   
6. aa = Target.Value
   
7. Target.Offset(0, 10) = HzToPy(aa, , False, True, True)
   
8. Target.Offset(0, 10) = Target.Offset(0, 10).Value
   
9. Exit Sub
   
10. 100:
    
11. Application.EnableEvents = False
    
12. Target.Offset(0, 10) = ""
    
13. Application.EnableEvents = True
    
14. End Sub
    

复制代码

stuta

蓝桥玄霜 发表于 2012-12-23 20:54
原附件中已经有根据C列药品增加，自动可在M列生成拼音首字母的。

哦，只能在原附件中生成首写字母后复制到这个新表中来吗? 不能把原表中的代码复制在新表M中自动实现字母转换吗？

因为刚接触，还望版主多包涵！！！

蓝桥玄霜

如果还是在同一个工作簿中，只需要把13楼的代码拷贝到新表里面即可。

stuta

蓝桥玄霜 发表于 2012-12-24 09:11
如果还是在同一个工作簿中，只需要把13楼的代码拷贝到新表里面即可。

最后的问题了，当我需要往里面导入新的资料到表中，非要手工一个一个双击C列的每一个药品才能实现M列的拼音手写自动变更？

蓝桥玄霜

如果全部是新的资料导入，（在导入前请删除以上13楼的change事件的代码）可在M2输入公式=hztopy(C2,,0,1,1)
然后公式复制向下，最后复制M列再选择性粘贴-数值，取消公式。

stuta

蓝桥玄霜 发表于 2012-12-26 09:29
如果全部是新的资料导入，（在导入前请删除以上13楼的change事件的代码）可在M2输入公式=hztopy(C2,,0,1,1) ...

不用删除13楼的代码也可以按照你说的实现！

真是太谢谢你了！！！

czr0373

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

老师帮帮忙，给我弄一个电话查找的按扭，，参照药品检索，，非常感谢！！！

蓝桥玄霜

点击A1即可。请见附件。