[原创]输入简称，出现全称

长安布衣

8楼：

谢谢，关注。

只有在确认后才能加入新的名称，已避免不需增加、不常用的名称

不过，我会继续更新该文件，已增加其功能

密码已公布：changanbuyi

[此贴子已经被作者于2008-4-10 13:02:33编辑过]

凡人无忧

感觉还是自动更正好用些，或是输入法手工造词。

长安布衣

我的输入只需输入名称中的关键字，可以是全称中任意的部分

如果有客户的资料，可以先批量倒入数据，无需输入，也无需添加对应简码

lihua_excel

楼主，你已经很强了。研究代码先！

希望能再看到你的更新。

就是我所说的，如果我要新增“联通“到custlist表中的话，无法在fulllist表中输入后实现自动填入到custlist表。会提示我是否是“联通公司或联通公司陕西分公司“选了否后，会再fulllist表中有“联通“但custlist表中没有新增纪录。

谢谢

Moneky

楼主高水平，顶一下。如果楼主再考虑一下大数据量时的执行效率就更加完美了。

另外代码中的那些类型为Integer的变量很危险，就对于我的OfficeXP来说Excel的行数已经到达了65536行，65536就已经超出了Integer类型所能表达的上限了。

还有一个小问题，下面这行取得最后一行行号的代码，也只是针对特定Excel版本的，如Excel后面的高版本的总行数超过65536，那么这就代码就不应定正确了

MyCustNum = Sheets(2).Range("A65536").End(xlUp).Row

可以考虑写成 [a1].end(xldown).row

[此贴子已经被作者于2008-4-11 9:36:45编辑过]

gaolinyou

楼主真厉害！学习了。

zjdh

楼主你真厉害！

不过当输入简称出现结果较多时,要点击对话框就太多了,

能否出现一个下拉框,如有效性序列那样,那样就更妙了.

gdstliusc

太费劲了，万能五笔输入法就有这个功能，简单又实用。

hsj_2008

学习一下

xmxm18

学习