原创--输入提示自动补全,简码输入,首字母拼音输入

百度不到去谷歌

最近很多人问输入自动提示,也写了好几个
这里用一个典型示例 有一点点vba基础的人稍加修改就可以用在自己需要的地方
也可以以此为模板,扩展其他辅助输入功能 快速输入逐步提示-首字母拼音提示示范.rar (45 KB, 下载次数: 7276)

2014-4-10 11:40 上传

点击文件名下载附件

补充内容 (2014-12-5 11:28):
后面15楼部分功能更新更好用
35楼有局部加速

补充内容 (2020-8-4 08:35):
最新升级到3.0版 窗体+类模块实现 任意多组同时使用 可在窗体文本框和控件文本框使用 操作更简单 效果更炫酷 无需添加控件http://excel880.com/blog/archives/13128

百度不到去谷歌

jimmy0766 发表于 2014-6-24 14:45
运行反应很慢。

好机器可能没有感觉
老机器的话 怕是会有点点慢
稍微优化了一下 把ado对象作为全局变量了 这样应该可以快一点 试试看 1快速输入逐步提示-首字母拼音及汉子混合输入提示 示范.rar (53.74 KB, 下载次数: 6490)

2014-6-24 14:59 上传

点击文件名下载附件

dajiahaoxinku12

支持原创，感谢楼主分享            

青见

学习了！！！！！！！！！

liulang0808

感谢高手分享，有空拜读一下

liulang0808

Function PY(ByVal rng As Range) '首字母拼音
    Dim i%, k%, str$
    str = Replace(Replace(rng, " ", ""), "　", "")
    For i = 1 To Len(str)
        k = 1
        Do Until Mid("八嚓哒妸发旮铪讥讥咔垃妈拿哦妑七然仨他哇哇哇夕丫匝咗", k, 1) > Mid(str, i, 1)
            k = k + 1
        Loop
        str1 = str1 & Chr(64 + k)
        'PY = PY & Chr(64 + k)
    Next
    'MsgBox Chr(64 + k)
    PY = str1
    aaa = aaa + 1
End Function

这段代码能帮忙解释一下吗？
返回首字母的拼音，在工作簿了进行了测试，做了上面的调整，在本文件中结果也是正确的

但是msgbox那个注释掉了，因为调用该过程，这msgbox会运行很多次，其中aaa = aaa + 1，aaa是个公共变量就是为了记录次数的。
能否帮着解答下

另外该过程移植到其他文件返回结果有出入的。

百度不到去谷歌

liulang0808 发表于 2014-4-11 09:33
Function PY(ByVal rng As Range) '首字母拼音
    Dim i%, k%, str$
    str = Replace(Replace(rng, "  ...

结果出入是因为模块开头比较模式没打开
  Option Compare Text
这个原理是利用预设元音查询
有一个汉字笔画的也是这个原理

liulang0808

百度不到去谷歌 发表于 2014-4-11 09:40
结果出入是因为模块开头比较模式没打开
  Option Compare Text
这个原理是利用预设元音查询

另外就是运行次数的问题，msgbox返回多少次值的问题，
调用一次过程，正常应该返回一次值吧，而且该值应该是最后一个汉字对应的字母，是不是这个样子的？

百度不到去谷歌

liulang0808 发表于 2014-4-11 09:46
另外就是运行次数的问题，msgbox返回多少次值的问题，
调用一次过程，正常应该返回一次值吧，而且该值应 ...

是的 返回多次是因为你在表里用了函数
重新计算的话 多次调用了该函数吧

liulang0808

百度不到去谷歌 发表于 2014-4-11 09:49
是的 返回多次是因为你在表里用了函数
重新计算的话 多次调用了该函数吧

谢谢，我再研究研究

百度不到去谷歌

百度不到去谷歌 发表于 2014-4-11 09:49
是的 返回多次是因为你在表里用了函数
重新计算的话 多次调用了该函数吧

我没那么聪明 这都是伟大的百度 前人的智慧够强大 我们要学会利用